diff options
| author | Paul Reilly <pmr@pajato.com> | 2002-03-20 08:13:21 +0000 |
|---|---|---|
| committer | Paul Reilly <pmr@pajato.com> | 2002-03-20 08:13:21 +0000 |
| commit | 7fab5ded52a6c1c138bca5fa2333d6ebad52ebc0 (patch) | |
| tree | 0ebada29a4da22b94ac0c870ec71728230a87ee2 /lisp/mail | |
| parent | 9ab7ff8bf4cf1169dbec7d974d3659caeb429c5b (diff) | |
| download | emacs-7fab5ded52a6c1c138bca5fa2333d6ebad52ebc0.tar.gz | |
Eliminate compilation warnings due to `rfc822-addresses'.
(rmail-dont-reply-to): Eliminate `pos' as a free variable for a
warning free compile.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/mail-utils.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el index fb5c7d1330e..db31f3d4064 100644 --- a/lisp/mail/mail-utils.el +++ b/lisp/mail/mail-utils.el @@ -133,6 +133,8 @@ we expect to find and remove the wrapper characters =?ISO-8859-1?Q?....?=." (char-after (1+ (match-beginning 1))))))) t t)))))) +(eval-when-compile (require 'rfc822)) + (defun mail-strip-quoted-names (address) "Delete comments and quoted strings in an address list ADDRESS. Also delete leading/trailing whitespace and replace FOO <BAR> with just BAR. @@ -244,8 +246,9 @@ the comma-separated list. The pruned list is returned." (setq cur-pos (and cur-pos (1+ cur-pos)) start-pos cur-pos)))))) ;; get rid of any trailing commas - (if (setq pos (string-match "[ ,\t\n]*\\'" destinations)) - (setq destinations (substring destinations 0 pos))) + (let ((pos (string-match "[ ,\t\n]*\\'" destinations))) + (if pos + (setq destinations (substring destinations 0 pos)))) ;; remove leading spaces. they bother me. (if (string-match "\\(\\s \\|,\\)*" destinations) (substring destinations (match-end 0)) |