diff options
| author | Kim F. Storm <storm@cua.dk> | 2003-01-08 10:13:57 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2003-01-08 10:13:57 +0000 |
| commit | e49ba7017285ef748eeaee9237cd13c24760e03b (patch) | |
| tree | 2c43c291e587f8fb953f34d0a834b989f73a748d | |
| parent | baad7c1329ed68e3a6b513c6f8cb94f1a939426b (diff) | |
| download | emacs-e49ba7017285ef748eeaee9237cd13c24760e03b.tar.gz | |
(unforward-rmail-message): Don't use global variable `n'.
| -rw-r--r-- | lisp/mail/undigest.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 6176f0b4fcd..d5db68f33c5 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el @@ -230,7 +230,7 @@ following the containing message." (let ((buffer-read-only nil) (forwarded-from (mail-fetch-field "From")) (forwarded-date (mail-fetch-field "Date")) - beg end prefix forward-msg n) + beg end prefix forward-msg) (cond ((re-search-forward "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t) (forward-line 1) @@ -280,9 +280,9 @@ following the containing message." (insert "\t")) (forward-line))) (goto-char (point-min)))) - (setq n rmail-current-message) - (rmail-forget-messages) - (rmail-show-message n) + (let ((n rmail-current-message)) + (rmail-forget-messages) + (rmail-show-message n)) (if (rmail-summary-exists) (rmail-select-summary (rmail-update-summary))))) |