X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-cite.el;h=6c70d44e72d1968fc231aff1a83158e015bf9d81;hb=65570b6780a379ac06efde3226f8c93c0139801e;hp=b8d4131223fa289dc569f0719c0d60790a661c3c;hpb=e1a66ceadf9050f730b1dc3685e34320eca1edb9;p=gnus

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index b8d413122..6c70d44e7 100644
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -104,7 +104,7 @@ The first regexp group should match the Supercite attribution."
   :type 'integer)
 
 (defcustom gnus-cite-attribution-prefix
-  "In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),\\|    > -----Original Message-----"
+  "In article\\|in <\\|On \\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),\\|-----Original Message-----"
   "*Regexp matching the beginning of an attribution line."
   :group 'gnus-cite
   :type 'regexp)
@@ -366,7 +366,7 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps
   "Dissect the article buffer looking for cited text."
   (save-excursion
     (set-buffer gnus-article-buffer)
-    (gnus-cite-parse-maybe)
+    (gnus-cite-parse-maybe nil t)
     (let ((alist gnus-cite-prefix-alist)
 	  prefix numbers number marks m)
       ;; Loop through citation prefixes.
@@ -376,7 +376,7 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps
 	(while numbers
 	  (setq number (pop numbers))
 	  (goto-char (point-min))
-	  (forward-line (1- number))
+	  (forward-line number)
 	  (push (cons (point-marker) "") marks)
 	  (while (and numbers
 		      (= (1- number) (car numbers)))
@@ -613,7 +613,6 @@ See also the documentation for `gnus-article-highlight-citation'."
 
 ;;; Internal functions:
 
-
 (defun gnus-cite-parse-maybe (&optional force no-overlay)
   "Always parse the buffer."
   (gnus-cite-localize)
@@ -641,14 +640,15 @@ See also the documentation for `gnus-article-highlight-citation'."
       (gnus-delete-overlay overlay))))
 
 (defun gnus-cite-parse-wrapper ()
-  ;; Wrap chopped gnus-cite-parse
+  ;; Wrap chopped gnus-cite-parse.
   (article-goto-body)
-  (save-excursion
-    (gnus-cite-parse-attributions))
-  (save-excursion
-    (gnus-cite-parse))
-  (save-excursion
-    (gnus-cite-connect-attributions)))
+  (let ((inhibit-point-motion-hooks t))
+    (save-excursion
+      (gnus-cite-parse-attributions))
+    (save-excursion
+      (gnus-cite-parse))
+    (save-excursion
+      (gnus-cite-connect-attributions))))
 
 (defun gnus-cite-parse ()
   ;; Parse and connect citation prefixes and attribution lines.