From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
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 <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)