[Emacs-diffs] Changes to emacs/lisp/mail/mail-utils.el

[Paul Michael Reilly]

Index: emacs/lisp/mail/mail-utils.el
diff -c emacs/lisp/mail/mail-utils.el:1.51 emacs/lisp/mail/mail-utils.el:1.52
*** emacs/lisp/mail/mail-utils.el:1.51  Tue Mar 19 14:42:46 2002
--- emacs/lisp/mail/mail-utils.el       Wed Mar 20 03:08:48 2002
***************
*** 133,138 ****
--- 133,140 ----
                              (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,251 ****
            (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)))
    ;; remove leading spaces. they bother me.
    (if (string-match "\\(\\s \\|,\\)*" destinations)
        (substring destinations (match-end 0))
--- 246,254 ----
            (setq cur-pos (and cur-pos (1+ cur-pos))
                  start-pos cur-pos))))))
    ;; get rid of any trailing commas
!   (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))