comparison lisp/mail/mail-utils.el @ 44033:588b5b177b8a

Eliminate compilation warnings due to `rfc822-addresses'. (rmail-dont-reply-to): Eliminate `pos' as a free variable for a warning free compile.

44032:941cb5b9478a

			  (+ (* 16 (mail-unquote-printable-hexdigit
				    (char-after (match-beginning 1))))
			     (mail-unquote-printable-hexdigit
			      (char-after (1+ (match-beginning 1)))))))
	   t t))))))

(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.
Return a modified address list."

							    (1+ cur-pos))))
		    cur-pos start-pos)
	    (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))
    destinations))

44033:588b5b177b8a

			  (+ (* 16 (mail-unquote-printable-hexdigit
				    (char-after (match-beginning 1))))
			     (mail-unquote-printable-hexdigit
			      (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.
Return a modified address list."

							    (1+ cur-pos))))
		    cur-pos start-pos)
	    (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))
    destinations))