diff options
| -rw-r--r-- | lisp/mail/rmailout.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 3d81d6a25dd..70ac0cf7df4 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el | |||
| @@ -300,9 +300,10 @@ The optional fourth argument FROM-GNUS is set when called from GNUS." | |||
| 300 | ;; ``Quote'' "\nFrom " as "\n>From " | 300 | ;; ``Quote'' "\nFrom " as "\n>From " |
| 301 | ;; (note that this isn't really quoting, as there is no requirement | 301 | ;; (note that this isn't really quoting, as there is no requirement |
| 302 | ;; that "\n[>]+From " be quoted in the same transparent way.) | 302 | ;; that "\n[>]+From " be quoted in the same transparent way.) |
| 303 | (while (search-forward "\nFrom " nil t) | 303 | (let ((case-fold-search nil)) |
| 304 | (forward-char -5) | 304 | (while (search-forward "\nFrom " nil t) |
| 305 | (insert ?>)) | 305 | (forward-char -5) |
| 306 | (insert ?>))) | ||
| 306 | (write-region (point-min) (point-max) file-name t | 307 | (write-region (point-min) (point-max) file-name t |
| 307 | (if noattribute 'nomsg))) | 308 | (if noattribute 'nomsg))) |
| 308 | (or noattribute | 309 | (or noattribute |