mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Eliminate compilation warnings due to `rfc822-addresses'.

Browse Source 
(rmail-dont-reply-to): Eliminate `pos' as a free variable for a
warning free compile.
This commit is contained in:
Paul Reilly 2002-03-20 08:13:21 +00:00
parent 9ab7ff8bf4
commit 7fab5ded52
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2002-03-20 pmr-sav <pmr-sav@hamm.pajato.com>
* mail-utils.el:
Eliminate compilation warnings due to `rfc822-addresses'.
(rmail-dont-reply-to): Eliminate `pos' as a free variable for a
warning free compile.
2002-03-20 Michael Kifer <kifer@cs.stonybrook.edu>
* ediff-diff.el (ediff-install-fine-diff-if-necessary): take

7
lisp/mail/mail-utils.el
View File

@ -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))