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 3f9d94044903f8b6b5635acc54c35de8fbf136e3..29bef947246ca09496e43a1160241b0ff1ca89a6 100644 (file)
--- 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 <tillea@rki.de>")
+        (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)