[patch] deuglify.el - Better highlighting after deuglification

[Raymond Scholz <ray-2003@zonix.de>]

[-- Attachment #1: Type: text/plain, Size: 499 bytes --]

Hi,

This patch removes overlayes before deuglification (they'll be
restored later) and corrects a minor bug when rearranging the article
structure.

Suggested ChangeLog entry:

2002-01-01  Raymond Scholz  <ray-2003@zonix.de>

	* deuglify.el (gnus-outlook-rearrange-article): Kill overlays
          before rearranging the article.

Cheers, Ray
-- 
"The obvious mathematical breakthrough would be development of an easy way
to factor large prime numbers."     (Bill Gates from The Road Ahead, p265)

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: deuglify.el.patch --]
[-- Type: text/x-patch, Size: 1763 bytes --]

Index: deuglify.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/deuglify.el,v
retrieving revision 6.5
diff -u -r6.5 deuglify.el
--- deuglify.el	2002/12/31 17:25:19	6.5
+++ deuglify.el	2003/01/01 13:48:48
@@ -311,17 +311,17 @@
 		  (goto-char (match-beginning 0))))))))))
 
 (defun gnus-outlook-rearrange-article (from-where)
-  "Put the text from `from-where' to the end of buffer at the top of
-the article buffer."
+  "Put the text from `from-where' to the end of buffer at the top of the article buffer."
   (save-excursion
     (let ((inhibit-read-only t)
 	  (cite-marks gnus-outlook-deuglify-cite-marks))
       (gnus-with-article-buffer
-	(beginning-of-buffer)
-	(re-search-forward "^$")
-	(transpose-regions (point) (- from-where 1)
-			   from-where (point-max) t)))))
-
+	(article-goto-body)
+	;; attribution out of place?
+	(unless (= (point) from-where)
+	  (gnus-kill-all-overlays)
+	  (transpose-regions (point) (+ from-where 1)
+			     (+ from-where 1) (point-max)))))))
 
 ;; John Doe <john.doe@some.domain> wrote in message
 ;; news:a87usw8$dklsssa$2@some.news.server...
@@ -341,6 +341,7 @@
 		     "\\(" gnus-outlook-deuglify-attrib-end-regexp "\\)$")
 	     nil t)
 	    (progn
+	      (gnus-kill-all-overlays)
 	      (replace-match "\\1\\2\\4")
 	      (match-beginning 0)))))))
 
@@ -367,6 +368,7 @@
 		     "[^\n]+: [^\n]+$")
 	     nil t)
 	    (progn
+	      (gnus-kill-all-overlays)
 	      (replace-match "\\1 wrote:")
 	      (match-beginning 0)))))))
 
@@ -387,6 +389,7 @@
 		     "\\(" gnus-outlook-deuglify-attrib-end-regexp "\\)$")
 	     nil t)
 	    (progn
+	      (gnus-kill-all-overlays)
 	      (replace-match "\\4 \\5\\6\\7")
 	      (match-beginning 0)))))))