aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-08-18 01:18:56 +0000
committerRichard M. Stallman1996-08-18 01:18:56 +0000
commit416916d4ae5d9fcac15a488fe0410661c2cdb20e (patch)
tree0eb5f1066e53262c5596355c3e99dcfb7e6f3373
parentbacd36842b8913ad3f637622ef307c4320d92510 (diff)
downloademacs-416916d4ae5d9fcac15a488fe0410661c2cdb20e.tar.gz
emacs-416916d4ae5d9fcac15a488fe0410661c2cdb20e.zip
(rfc822-bad-address): Don't put a newline into the
error message; this confuses rmail.
-rw-r--r--lisp/mail/rfc822.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el
index 4204d2175a4..178dd943cb6 100644
--- a/lisp/mail/rfc822.el
+++ b/lisp/mail/rfc822.el
@@ -49,7 +49,7 @@
49 (setq losers (cdr losers)))) 49 (setq losers (cdr losers))))
50 (goto-char (point-min)) (insert "(Unparsable address -- " 50 (goto-char (point-min)) (insert "(Unparsable address -- "
51 reason 51 reason
52 ":\n\t \"") 52 ": \"")
53 (goto-char (point-max)) (insert "\")")) 53 (goto-char (point-max)) (insert "\")"))
54 (rfc822-nuke-whitespace) 54 (rfc822-nuke-whitespace)
55 (throw 'address (buffer-substring address-start (point)))) 55 (throw 'address (buffer-substring address-start (point))))