From: tfheen Date: Sat, 13 Dec 2003 21:00:44 +0000 (+0000) Subject: add de-tillify-hook X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=82f381ee19a488da5bcc2567d590bcad56856f49;p=dotfiles add de-tillify-hook git-svn-id: file:///svn/tfheen/trunk/dotfiles@229 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- diff --git a/gnus b/gnus index 3f9d940..29bef94 100644 --- a/gnus +++ b/gnus @@ -374,6 +374,19 @@ inserts \" characters." (goto-char (point-min)) (replace-regexp " ? ?;-)$" ""))))) +(defun tfheen-de-tillify () + (interactive) + (save-excursion + (if (string= (message-fetch-field "From") "Andreas Tille ") + (let ((inhibit-point-motion-hooks t) + buffer-read-only) + (set-buffer gnus-article-buffer) + (goto-char (point-min)) + (replace-regexp "^\\(>.*\\) +\\([^>]\\)" "\\1 + +\\2"))))) + (defun tfheen-right-quotify () (interactive) (save-excursion @@ -395,6 +408,7 @@ inserts \" characters." (add-hook 'gnus-article-prepare-hook 'tfheen-de-arntify) +(add-hook 'gnus-article-prepare-hook 'tfheen-de-tillify) ;(add-hook 'gnus-article-prepare-hook 'tfheen-right-quotify) (add-hook 'gnus-article-display-hook 'gnus-article-highlight-citation)