Mercurial > hg > xemacs-beta

diff lisp/gnus/gnus-art.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 585fb297b004
children 318232e2a3f0
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el	Mon Aug 13 09:32:45 2007 +0200
+++ b/lisp/gnus/gnus-art.el	Mon Aug 13 09:33:18 2007 +0200
@@ -844,9 +844,9 @@
 		    ;; Has to be present.
 		    (re-search-forward "^X-Face: " nil t))
 	  ;; We now have the area of the buffer where the X-Face is stored.
-	  (let ((beg (point))
-		(end (1- (re-search-forward "^\\($\\|[^ \t]\\)" nil t))))
-	    (save-excursion
+	  (save-excursion
+	    (let ((beg (point))
+		  (end (1- (re-search-forward "^\\($\\|[^ \t]\\)" nil t))))
 	      ;; We display the face.
 	      (if (symbolp gnus-article-x-face-command)
 		  ;; The command is a lisp function, so we call it.