Mercurial > emacs

comparison lisp/mail/mail-extr.el @ 56764:57c8c9029251

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-extr-all-top-level-domains): Add forward defvar.
author Richard M. Stallman <rms@gnu.org>
date Sun, 22 Aug 2004 17:09:58 +0000
parents 3e6748f33315
children dd2896f4c2b7 d8411455de48
comparison
equal deleted inserted replaced
56763:e9a8ab6f16fc 56764:57c8c9029251
685 ;; 685 ;;
686 686
687 (defvar disable-initial-guessing-flag) ; dynamic assignment 687 (defvar disable-initial-guessing-flag) ; dynamic assignment
688 (defvar cbeg) ; dynamic assignment 688 (defvar cbeg) ; dynamic assignment
689 (defvar cend) ; dynamic assignment 689 (defvar cend) ; dynamic assignment
690 (defvar mail-extr-all-top-level-domains) ; Defined below.
690 691
691 ;;;###autoload 692 ;;;###autoload
692 (defun mail-extract-address-components (address &optional all) 693 (defun mail-extract-address-components (address &optional all)
693 "Given an RFC-822 address ADDRESS, extract full name and canonical address. 694 "Given an RFC-822 address ADDRESS, extract full name and canonical address.
694 Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). 695 Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).