equal
deleted
inserted
replaced
1829 )) |
1829 )) |
1830 (my--eval-after-load gnus |
1830 (my--eval-after-load gnus |
1831 (add-hook 'kill-emacs-hook 'my-kill-gnus)) |
1831 (add-hook 'kill-emacs-hook 'my-kill-gnus)) |
1832 |
1832 |
1833 (my--eval-after-load gnus-art |
1833 (my--eval-after-load gnus-art |
1834 (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At:\\|^List-URL:"))) |
1834 (setq gnus-visible-headers (concat gnus-visible-headers "\\|^Archived-At:\\|^List-URL:\\|^Message-Id:"))) |
1835 |
1835 |
1836 ;; Store gnus specific files to '~/.gnus'. |
1836 ;; Store gnus specific files to '~/.gnus'. |
1837 (setq |
1837 (setq |
1838 gnus-directory "~/.gnus" |
1838 gnus-directory "~/.gnus" |
1839 gnus-agent-directory "~/.gnus/agent/" |
1839 gnus-agent-directory "~/.gnus/agent/" |
2124 (my--eval-after-load gnus |
2124 (my--eval-after-load gnus |
2125 (define-key gnus-summary-mode-map [(meta up)] '(lambda() (interactive) (scroll-other-window -1))) |
2125 (define-key gnus-summary-mode-map [(meta up)] '(lambda() (interactive) (scroll-other-window -1))) |
2126 (define-key gnus-summary-mode-map [(meta down)] '(lambda() (interactive) (scroll-other-window 1))) |
2126 (define-key gnus-summary-mode-map [(meta down)] '(lambda() (interactive) (scroll-other-window 1))) |
2127 (define-key gnus-summary-mode-map [(control down)] 'gnus-summary-next-thread) |
2127 (define-key gnus-summary-mode-map [(control down)] 'gnus-summary-next-thread) |
2128 (define-key gnus-summary-mode-map [(control up)] 'gnus-summary-prev-thread)) |
2128 (define-key gnus-summary-mode-map [(control up)] 'gnus-summary-prev-thread)) |
|
2129 |
|
2130 (defun my/gnus-search-web-by-message-id () |
|
2131 "Search for article archive by Message-Id in Google." |
|
2132 (interactive) |
|
2133 (let ( (msgid (message-fetch-field "Message-Id")) (subj (message-fetch-field "Subject")) ) |
|
2134 (setq msgid (replace-regexp-in-string "[<>]" "" msgid)) |
|
2135 (setq subj (replace-regexp-in-string "[\"#]" " " subj)) |
|
2136 (browse-url (format "https://www.google.com.ua/search?q=%s" (url-encode-url (format "%s OR \"%s\"" msgid subj)))) |
|
2137 (browse-url (format "http://mid.mail-archive.com/%s" (url-encode-url msgid))))) |
|
2138 |
|
2139 (my--eval-after-load gnus-art |
|
2140 (define-key gnus-article-mode-map [(control return)] #'my/gnus-search-web-by-message-id)) |
2129 |
2141 |
2130 ;; (setq imap-log t) |
2142 ;; (setq imap-log t) |
2131 |
2143 |
2132 ;; (setq mail-user-agent 'mh-e-user-agent) |
2144 ;; (setq mail-user-agent 'mh-e-user-agent) |
2133 |
2145 |