diff options
| author | Richard M. Stallman | 2006-01-26 17:54:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-01-26 17:54:01 +0000 |
| commit | 9b452786270b22e210659df5a4753561a7cd0be2 (patch) | |
| tree | a073bf941892ffbbcbf3d7f352f7a4bcefa20089 | |
| parent | 2aee5ca377df1eb480be399f62f4168ec465942e (diff) | |
| download | emacs-9b452786270b22e210659df5a4753561a7cd0be2.tar.gz emacs-9b452786270b22e210659df5a4753561a7cd0be2.zip | |
(rmail-make-summary-line-1): Don't set global binding of `line'.
| -rw-r--r-- | lisp/mail/rmailsum.el | 5 |
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)) |