diff options
| author | Richard M. Stallman | 1996-02-24 00:36:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-02-24 00:36:29 +0000 |
| commit | 76e230b20fb0e33aba93912ce77ff52115e28b66 (patch) | |
| tree | 119edca39f19a567f6abf76bff19bdb59643a37f | |
| parent | 11d4e02fcf1c20d39f61d3cf39b7220bf93440d0 (diff) | |
| download | emacs-76e230b20fb0e33aba93912ce77ff52115e28b66.tar.gz emacs-76e230b20fb0e33aba93912ce77ff52115e28b66.zip | |
(unforward-rmail-message): Handle any kind of forwarding delimiters.
| -rw-r--r-- | lisp/mail/undigest.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mail/undigest.el b/lisp/mail/undigest.el index 814198f3baf..d4975b1daad 100644 --- a/lisp/mail/undigest.el +++ b/lisp/mail/undigest.el | |||
| @@ -142,10 +142,12 @@ following the containing message." | |||
| 142 | (goto-char (point-min)) | 142 | (goto-char (point-min)) |
| 143 | (let (beg end (buffer-read-only nil) msg-string who-forwarded-it) | 143 | (let (beg end (buffer-read-only nil) msg-string who-forwarded-it) |
| 144 | (setq who-forwarded-it (mail-fetch-field "From")) | 144 | (setq who-forwarded-it (mail-fetch-field "From")) |
| 145 | (if (re-search-forward "^-* Start of forwarded message -*$" nil t) | 145 | (if (re-search-forward "^----" nil t) |
| 146 | (setq beg (1+ (point))) | 146 | nil |
| 147 | (error "No forwarded message")) | 147 | (error "No forwarded message")) |
| 148 | (if (re-search-forward "^-* End of forwarded message -*$" nil t) | 148 | (forward-line 1) |
| 149 | (setq beg (point)) | ||
| 150 | (if (re-search-forward "^----" nil t) | ||
| 149 | (setq end (match-beginning 0)) | 151 | (setq end (match-beginning 0)) |
| 150 | (error "No terminator for forwarded message")) | 152 | (error "No terminator for forwarded message")) |
| 151 | (widen) | 153 | (widen) |