diff options
| -rw-r--r-- | .gnus | 28 |
1 files changed, 23 insertions, 5 deletions
@@ -71,7 +71,12 @@ "^From:" "^Organization:" "^Followup-To:" "^To:" "^Cc:" "^Newsgroups:") gnus-treat-display-smileys nil ;; Do not fill anything; let visual-line-mode wrap text. + ;;; NB: for format=flowed, there is no setting to say "un-fill + ;;; flowed lines", so we *enable* filling, setting an absurd + ;;; line length limit, in order to un-fill flowed lines. fill-flowed-display-column most-positive-fixnum + mm-fill-flowed t + ;;; More long-line-folding settings. gnus-article-unfold-long-headers t gnus-treat-fill-article nil gnus-treat-fill-long-lines nil @@ -84,11 +89,15 @@ (with-current-buffer gnus-article-buffer (visual-line-mode 'toggle))) -(add-hook 'gnus-summary-mode-hook - (lambda () - (setq fill-column 120) - (my/centered-mode) - (keymap-local-set "C-c d v" 'my/gnus-toggle-article-wrap))) +(defun my/gnus-summary-center () + (setq fill-column 160) + (my/centered-mode)) + +(defun my/gnus-summary-tweak-keys () + (keymap-local-set "C-c d v" 'my/gnus-toggle-article-wrap)) + +(add-hook 'gnus-summary-mode-hook 'my/gnus-summary-center) +(add-hook 'gnus-summary-mode-hook 'my/gnus-summary-tweak-keys) ;; message-subject-re-regexp is used both in Gnus summary buffers to ;; detect and elide similar subjects in a thread, and by message mode @@ -219,6 +228,15 @@ (add-hook 'gnus-article-mode-hook 'my/gnus-article-eschew-tables) (add-hook 'gnus-article-prepare-hook 'my/gnus-article-wrap-maybe) +;;; MIME display. +(defun my/mm-display-markdown-inline (handle) + (mm-display-inline-fontify handle 'markdown-mode)) + +(with-eval-after-load 'mm-decode + ;; bug-gnu-emacs:<jwvzfsnntlq.fsf-monnier+emacs@gnu.org> + (setf (alist-get "text/markdown" mm-inline-media-tests nil nil 'equal) + '(my/mm-display-markdown-inline))) + ;;; Key bindings. ;; ;; m compose |