Mercurial > hg > xemacs-beta

comparison lisp/utils/smtpmail.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents 8619ce7e4c50
children 34a5b81f86ba
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
95 (concat "^" (regexp-quote mail-header-separator) "\n")) 95 (concat "^" (regexp-quote mail-header-separator) "\n"))
96 (replace-match "\n") 96 (replace-match "\n")
97 (backward-char 1) 97 (backward-char 1)
98 (setq delimline (point-marker)) 98 (setq delimline (point-marker))
99 ;; (sendmail-synch-aliases) 99 ;; (sendmail-synch-aliases)
100 (if (and mail-aliases (fboundp expand-mail-aliases)) ; XEmacs 100 (if (and mail-aliases (fboundp 'expand-mail-aliases)) ; XEmacs
101 (expand-mail-aliases (point-min) delimline)) 101 (expand-mail-aliases (point-min) delimline))
102 (goto-char (point-min)) 102 (goto-char (point-min))
103 ;; ignore any blank lines in the header 103 ;; ignore any blank lines in the header
104 (while (and (re-search-forward "\n\n\n*" delimline t) 104 (while (and (re-search-forward "\n\n\n*" delimline t)
105 (< (point) delimline)) 105 (< (point) delimline))
444 444
445 (defun smtpmail-deduce-address-list (smtpmail-text-buffer header-start header-end) 445 (defun smtpmail-deduce-address-list (smtpmail-text-buffer header-start header-end)
446 "Get address list suitable for smtp RCPT TO: <address>." 446 "Get address list suitable for smtp RCPT TO: <address>."
447 (require 'mail-utils) ;; pick up mail-strip-quoted-names 447 (require 'mail-utils) ;; pick up mail-strip-quoted-names
448 (let 448 (let
449 ((case-fold-search t) 449 ((simple-address-list "")
450 (simple-address-list "")
451 this-line 450 this-line
452 this-line-end 451 this-line-end
453 addr-regexp) 452 addr-regexp)
454 453
455 (unwind-protect 454 (unwind-protect
456 (save-excursion 455 (save-excursion
457 ;; 456 ;;
458 (set-buffer smtpmail-address-buffer) (erase-buffer) 457 (set-buffer smtpmail-address-buffer) (erase-buffer)
458 (let ((case-fold-search t))
459 (insert-buffer-substring smtpmail-text-buffer header-start header-end) 459 (insert-buffer-substring smtpmail-text-buffer header-start header-end)
460 (goto-char (point-min)) 460 (goto-char (point-min))
461 ;; RESENT-* fields should stop processing of regular fields. 461 ;; RESENT-* fields should stop processing of regular fields.
462 (save-excursion 462 (save-excursion
463 (if (re-search-forward "^RESENT-TO:" header-end t) 463 (if (re-search-forward "^RESENT-TO:" header-end t)
495 (setq recipient-address-list (cons (buffer-substring (match-beginning 1) (match-end 1)) 495 (setq recipient-address-list (cons (buffer-substring (match-beginning 1) (match-end 1))
496 recipient-address-list)) 496 recipient-address-list))
497 ) 497 )
498 (setq smtpmail-recipient-address-list recipient-address-list)) 498 (setq smtpmail-recipient-address-list recipient-address-list))
499 499
500 ) 500 ))
501 ) 501 )
502 ) 502 )
503 ) 503 )
504 504
505 505