diff options
| author | Richard M. Stallman | 1995-12-24 18:44:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-12-24 18:44:34 +0000 |
| commit | c8a428c4e3422ba0a36e54eabf9f0185c9d771b1 (patch) | |
| tree | c832feaeeac3e196ce45496b17677d63b2adcccf | |
| parent | e63574d79b36f4ada1c2e4f4c296a8fc939193b7 (diff) | |
| download | emacs-c8a428c4e3422ba0a36e54eabf9f0185c9d771b1.tar.gz emacs-c8a428c4e3422ba0a36e54eabf9f0185c9d771b1.zip | |
(rmail-forward): Quote lines with `- ' when necessary.
| -rw-r--r-- | lisp/mail/rmail.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 91ad7d783ff..2e2880872df 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -2251,7 +2251,15 @@ see the documentation of `rmail-resend'." | |||
| 2251 | (concat "^" (regexp-quote mail-header-separator) "$")) | 2251 | (concat "^" (regexp-quote mail-header-separator) "$")) |
| 2252 | (forward-line 1) | 2252 | (forward-line 1) |
| 2253 | (insert "------- Start of forwarded message -------\n") | 2253 | (insert "------- Start of forwarded message -------\n") |
| 2254 | (insert-buffer-substring forward-buffer) | 2254 | ;; Quote lines with `- ' if they start with `-'. |
| 2255 | (let ((beg (point)) end) | ||
| 2256 | (insert-buffer-substring forward-buffer) | ||
| 2257 | (goto-char beg) | ||
| 2258 | (while (re-search-forward "^-" nil t) | ||
| 2259 | (beginning-of-line) | ||
| 2260 | (insert "- ") | ||
| 2261 | (forward-line 1)) | ||
| 2262 | (goto-char (point-max))) | ||
| 2255 | (let ((end (point))) | 2263 | (let ((end (point))) |
| 2256 | (skip-chars-backward "\n") | 2264 | (skip-chars-backward "\n") |
| 2257 | (if (< (point) end) | 2265 | (if (< (point) end) |