<commit_before>;;; browse-url-conf.el -- Settings for browse-url.
(eval-when-compile (require 'browse-url))

(setq browse-url-browser-function 'browse-url-generic
      browse-url-generic-program "open-url")<commit_msg>Emacs: Start writing a function to handle mailto links<commit_after>;;; browse-url-conf.el -- Settings for browse-url.
(eval-when-compile
  (require 'gnus-msg)
  (require 'message)
  (require 'browse-url))

(declare-function message-goto-body "message")
(declare-function gnus-group-mail "gnus-msg")

(defun pjones:new-mail-in-gnus (url)
  (let ((to (error "not implemented"))
        (subject (error "not implemented")))
    (gnus-group-mail)
    (message-goto-to)
    (insert to)
    (unless (null subject)
      (message-goto-subject)
      (insert subject))
    (message-goto-body)))

(setq browse-url-generic-program "open-url"
      browse-url-browser-function 'browse-url-generic
      browse-url-mailto-function  'pjones:new-mail-in-gnus)
{'fraction_non_alphanumeric': 0.1544041450777202, 'fraction_numerical': 0.0, 'mean_word_length': 3.735294117647059, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2098681', 'n_tokens_mistral': 346, 'n_tokens_neox': 333, 'n_words': 68}