* [patch] deuglify.el - Better highlighting after deuglification
@ 2003-01-01 13:52 Raymond Scholz
2003-01-01 19:13 ` Lars Magne Ingebrigtsen
0 siblings, 1 reply; 2+ messages in thread
From: Raymond Scholz @ 2003-01-01 13:52 UTC (permalink / raw)
[-- 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)))))))
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: [patch] deuglify.el - Better highlighting after deuglification
2003-01-01 13:52 [patch] deuglify.el - Better highlighting after deuglification Raymond Scholz
@ 2003-01-01 19:13 ` Lars Magne Ingebrigtsen
0 siblings, 0 replies; 2+ messages in thread
From: Lars Magne Ingebrigtsen @ 2003-01-01 19:13 UTC (permalink / raw)
Raymond Scholz <ray-2003@zonix.de> writes:
> * deuglify.el (gnus-outlook-rearrange-article): Kill overlays
> before rearranging the article.
Thanks for the patch; I've applied it to Oort Gnus v0.08 (i. e., CVS).
--
(domestic pets only, the antidote for overdose, milk.)
larsi@gnus.org * Lars Magne Ingebrigtsen
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2003-01-01 19:13 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2003-01-01 13:52 [patch] deuglify.el - Better highlighting after deuglification Raymond Scholz
2003-01-01 19:13 ` Lars Magne Ingebrigtsen
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).