aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2006-01-26 17:54:01 +0000
committerRichard M. Stallman2006-01-26 17:54:01 +0000
commit9b452786270b22e210659df5a4753561a7cd0be2 (patch)
treea073bf941892ffbbcbf3d7f352f7a4bcefa20089
parent2aee5ca377df1eb480be399f62f4168ec465942e (diff)
downloademacs-9b452786270b22e210659df5a4753561a7cd0be2.tar.gz
emacs-9b452786270b22e210659df5a4753561a7cd0be2.zip
(rmail-make-summary-line-1): Don't set global binding of `line'.
-rw-r--r--lisp/mail/rmailsum.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index e9ddb83baf3..47602885f92 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -332,9 +332,8 @@ By default, `identity' is set."
332 (if (looking-at "Summary-line: ") 332 (if (looking-at "Summary-line: ")
333 (progn 333 (progn
334 (goto-char (match-end 0)) 334 (goto-char (match-end 0))
335 (setq line 335 (buffer-substring (point)
336 (buffer-substring (point) 336 (progn (forward-line 1) (point))))))))
337 (progn (forward-line 1) (point)))))))))
338 ;; Obsolete status lines lacking a # should be flushed. 337 ;; Obsolete status lines lacking a # should be flushed.
339 (and line 338 (and line
340 (not (string-match "#" line)) 339 (not (string-match "#" line))