/[emacs]/emacs/lisp/mail/mail-extr.el
ViewVC logotype

Diff of /emacs/lisp/mail/mail-extr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.36.4.2 by miles, Tue Oct 14 23:39:25 2003 UTC revision 1.36.4.3 by miles, Fri Nov 21 00:36:08 2003 UTC
# Line 231  we will assume that \"John Q. Smith\" is Line 231  we will assume that \"John Q. Smith\" is
231  If true, then when we see an address like \"Idiot <dumb@stupid.com>\"  If true, then when we see an address like \"Idiot <dumb@stupid.com>\"
232  we will act as though we couldn't find a full name in the address."  we will act as though we couldn't find a full name in the address."
233    :type 'boolean    :type 'boolean
234      :version "21.4"
235    :group 'mail-extr)    :group 'mail-extr)
236    
237  ;; Matches a leading title that is not part of the name (does not  ;; Matches a leading title that is not part of the name (does not
# Line 273  by translating things like \"foo!bar!baz Line 274  by translating things like \"foo!bar!baz
274  ;; Constant definitions.  ;; Constant definitions.
275  ;;  ;;
276    
 ;;           Codes in  
 ;; Names in  ISO 8859-1 Name  
 ;; ISO 10XXX ISO 8859-2 in  
 ;; ISO 6937  ISO 10646  RFC            Swedish  
 ;; etc.      Hex Oct    1345 TeX Split ASCII Description  
 ;; --------- ---------- ---- --- ----- ----- -------------------------------  
 ;; %a        E4  344    a:   \"a ae    {     latin small   a + diaeresis   d  
 ;; %o        F6  366    o:   \"o oe    |     latin small   o + diaeresis   v  
 ;; @a        E5  345    aa   \oa aa    }     latin small   a + ring above  e  
 ;; %u        FC  374    u:   \"u ue    ~     latin small   u + diaeresis   |  
 ;; /e        E9  351    e'   \'e       `     latin small   e + acute       i  
 ;; %A        C4  304    A:   \"A AE    [     latin capital a + diaeresis   D  
 ;; %O        D6  326    O:   \"O OE    \     latin capital o + diaeresis   V  
 ;; @A        C5  305    AA   \oA AA    ]     latin capital a + ring above  E  
 ;; %U        DC  334    U:   \"U UE    ^     latin capital u + diaeresis   \  
 ;; /E        C9  311    E'   \'E       @     latin capital e + acute       I  
   
 ;; NOTE: @a and @A are not in ISO 8859-2 (the codes mentioned above invoke  
 ;; /l and /L).  Some of this data was retrieved from  
 ;; listserv@jhuvm.hcf.jhu.edu.  
   
277  ;; Any character that can occur in a name, not counting characters that  ;; Any character that can occur in a name, not counting characters that
278  ;; separate parts of a multipart name (hyphen and period).  ;; separate parts of a multipart name (hyphen and period).
279  ;; Yes, there are weird people with digits in their names.  ;; Yes, there are weird people with digits in their names.
# Line 530  by translating things like \"foo!bar!baz Line 510  by translating things like \"foo!bar!baz
510      (?\040       " ")                   ;SPC      (?\040       " ")                   ;SPC
511      (?! ?~       "w")                   ;printable characters      (?! ?~       "w")                   ;printable characters
512      (?\177       "w")                   ;DEL      (?\177       "w")                   ;DEL
     (?\200 ?\377 "w")                   ;high-bit-on characters  
     (?\240       " ")                   ;nobreakspace  
513      (?\t " ")      (?\t " ")
514      (?\r " ")      (?\r " ")
515      (?\n " ")      (?\n " ")
# Line 614  by translating things like \"foo!bar!baz Line 592  by translating things like \"foo!bar!baz
592  ;; Utility functions and macros.  ;; Utility functions and macros.
593  ;;  ;;
594    
595    ;; Fixme: There are Latin-1 nbsp below.  If such characters should be
596    ;; included, this is the wrong thing to do -- it should use syntax (or
597    ;; regexp char classes).
598    
599  (defsubst mail-extr-skip-whitespace-forward ()  (defsubst mail-extr-skip-whitespace-forward ()
600    ;; v19 fn skip-syntax-forward is more tasteful, but not byte-coded.    ;; v19 fn skip-syntax-forward is more tasteful, but not byte-coded.
601    (skip-chars-forward " \t\n\r "))    (skip-chars-forward " \t\n\r "))
# Line 1727  consing a string.)" Line 1709  consing a string.)"
1709            (and (>= word-count 2)            (and (>= word-count 2)
1710                 (not lower-case-flag)                 (not lower-case-flag)
1711                 (or                 (or
1712                  ;; A trailing 4-or-more letter lowercase words preceded by                  ;; Trailing 4-or-more letter lowercase words preceded by
1713                  ;; mixed case or uppercase words will be dropped.                  ;; mixed case or uppercase words will be dropped.
1714                  (looking-at "[a-z][a-z][a-z][a-z]+[ \t]*\\'")                  (looking-at "[[:lower:]]\\{4,\\}[ \t]*\\'")
1715                  ;; Drop a trailing word which is terminated with a period.                  ;; Drop a trailing word which is terminated with a period.
1716                  (eq ?. (char-after (1- name-end))))                  (eq ?. (char-after (1- name-end))))
1717                 (setq drop-this-word-if-trailing-flag t))                 (setq drop-this-word-if-trailing-flag t))
1718    
1719            ;; Set the flags that indicate whether we have seen a lowercase            ;; Set the flags that indicate whether we have seen a lowercase
1720            ;; word, a mixed case word, and an uppercase word.            ;; word, a mixed case word, and an uppercase word.
1721            (if (re-search-forward "[a-z]" name-end t)            (if (re-search-forward "[[:lower:]]" name-end t)
1722                (if (progn                (if (progn
1723                      (goto-char name-beg)                      (goto-char name-beg)
1724                      (re-search-forward "[A-Z]" name-end t))                      (re-search-forward "[[:upper:]]" name-end t))
1725                    (setq mixed-case-flag t)                    (setq mixed-case-flag t)
1726                  (setq lower-case-flag t))                  (setq lower-case-flag t))
1727  ;;          (setq upper-case-flag t)  ;;          (setq upper-case-flag t)

Legend:
Removed from v.1.36.4.2  
changed lines
  Added in v.1.36.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26