diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-12-02 02:08:31 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-12-02 02:08:31 +0000 |
| commit | c4613e62bd6cf79d6a1d67afe89e04ea3637e45c (patch) | |
| tree | de3ec37dbae68f8799ddbef24671e9454299690f /lisp/mail/rmailout.el | |
| parent | 9a2c20d57f07f6410dd37024f2949f3464b274d7 (diff) | |
| download | emacs-c4613e62bd6cf79d6a1d67afe89e04ea3637e45c.tar.gz | |
(rmail-output): Don't quote "From " lines unless the capitalization is exact.
Diffstat (limited to 'lisp/mail/rmailout.el')
| -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." ;; ``Quote'' "\nFrom " as "\n>From " ;; (note that this isn't really quoting, as there is no requirement ;; that "\n[>]+From " be quoted in the same transparent way.) - (while (search-forward "\nFrom " nil t) - (forward-char -5) - (insert ?>)) + (let ((case-fold-search nil)) + (while (search-forward "\nFrom " nil t) + (forward-char -5) + (insert ?>))) (write-region (point-min) (point-max) file-name t (if noattribute 'nomsg))) (or noattribute |