/[emacs]/emacs/lisp/mail/rfc822.el
ViewVC logotype

Diff of /emacs/lisp/mail/rfc822.el

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

revision 1.15 by rms, Sat Mar 14 04:52:14 1998 UTC revision 1.15.18.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 26  Line 26 
26  ;;; Commentary:  ;;; Commentary:
27    
28  ;; Support functions for parsing RFC-822 headers, used by mail and news  ;; Support functions for parsing RFC-822 headers, used by mail and news
29  ;; modes.    ;; modes.
30    
31  ;;; Code:  ;;; Code:
32    
# Line 75  Line 75 
75                    (forward-char -1)                    (forward-char -1)
76                    (delete-char 2)                    (delete-char 2)
77                    t)                    t)
78                   ((memq ch '(?\ ?\t ?\n))                   ((memq ch '(?\  ?\t ?\n))
79                    (delete-region (point)                    (delete-region (point)
80                                   (progn (skip-chars-forward " \t\n") (point)))                                   (progn (skip-chars-forward " \t\n") (point)))
81                    t)                    t)
# Line 269  Line 269 
269                (t                (t
270                 (rfc822-bad-address "Strange character or missing comma")))))))                 (rfc822-bad-address "Strange character or missing comma")))))))
271    
272                              
273  (defun rfc822-addresses (header-text)  (defun rfc822-addresses (header-text)
274    (if (string-match "\\`[ \t]*\\([^][\000-\037 ()<>@,;:\\\".]+\\)[ \t]*\\'"    (if (string-match "\\`[ \t]*\\([^][\000-\037 ()<>@,;:\\\".]+\\)[ \t]*\\'"
275                      header-text)                      header-text)

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.15.18.1

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