Mercurial > emacs
comparison lisp/mail/undigest.el @ 49097:217ecd0c470e
(unforward-rmail-message): Skip all newlines
after the initial separator.
(unforward-rmail-message): Forwarded-From: and Forwarded-Date:
instead of Forwarded-from: and Forwarded-date:.
author | Francesco Potortì <pot@gnu.org> |
---|---|
date | Tue, 07 Jan 2003 14:34:44 +0000 |
parents | d8dfc5e743b6 |
children | 39d762048cdd |
comparison
equal
deleted
inserted
replaced
49096:63bc313a5a53 | 49097:217ecd0c470e |
---|---|
232 (forwarded-date (mail-fetch-field "Date")) | 232 (forwarded-date (mail-fetch-field "Date")) |
233 beg end prefix forward-msg n) | 233 beg end prefix forward-msg n) |
234 (cond ((re-search-forward | 234 (cond ((re-search-forward |
235 "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t) | 235 "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t) |
236 (forward-line 1) | 236 (forward-line 1) |
237 (skip-chars-forward "\n") | |
237 (setq beg (point)) | 238 (setq beg (point)) |
238 (setq end (if (re-search-forward "^----.*[^- \t\n]" nil t) | 239 (setq end (if (re-search-forward "^----.*[^- \t\n]" nil t) |
239 (match-beginning 0) (point-max))) | 240 (match-beginning 0) (point-max))) |
240 (setq forward-msg | 241 (setq forward-msg |
241 (replace-regexp-in-string | 242 (replace-regexp-in-string |
267 (widen) | 268 (widen) |
268 (goto-char (rmail-msgend rmail-current-message)) | 269 (goto-char (rmail-msgend rmail-current-message)) |
269 (narrow-to-region (point) (point)) | 270 (narrow-to-region (point) (point)) |
270 (insert rmail-mail-separator) | 271 (insert rmail-mail-separator) |
271 (narrow-to-region (point) (point)) | 272 (narrow-to-region (point) (point)) |
272 (insert "Forwarded-from: " forwarded-from "\n") | 273 (insert "Forwarded-From: " forwarded-from "\n") |
273 (insert "Forwarded-date: " forwarded-date "\n") | 274 (insert "Forwarded-Date: " forwarded-date "\n") |
274 (insert forward-msg) | 275 (insert forward-msg) |
275 (save-restriction | 276 (save-restriction |
276 (goto-char (point-min)) | 277 (goto-char (point-min)) |
277 (re-search-forward "\n$" nil 'move) | 278 (re-search-forward "\n$" nil 'move) |
278 (narrow-to-region (point-min) (point)) | 279 (narrow-to-region (point-min) (point)) |