From 82f381ee19a488da5bcc2567d590bcad56856f49 Mon Sep 17 00:00:00 2001
From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Sat, 13 Dec 2003 21:00:44 +0000
Subject: [PATCH] add de-tillify-hook

git-svn-id: file:///svn/tfheen/trunk/dotfiles@229 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf
---
 gnus | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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)
 
-- 
2.39.5