Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 80051:86418444e2d1
*** empty log message ***
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 05 Feb 2008 13:00:43 +0000 |
| parents | de499b20517a |
| children | f991f10f15ec |
comparison
equal
deleted
inserted
replaced
| 80050:f5910be081e5 | 80051:86418444e2d1 |
|---|---|
| 848 (narrow-to-region (point-min) (1+ (point))) | 848 (narrow-to-region (point-min) (1+ (point))) |
| 849 (delete-char 1) | 849 (delete-char 1) |
| 850 (setq char ?\() ; HAVE I NO SHAME?? | 850 (setq char ?\() ; HAVE I NO SHAME?? |
| 851 ) | 851 ) |
| 852 ;; record the position of various interesting chars, determine | 852 ;; record the position of various interesting chars, determine |
| 853 ;; legality later. | 853 ;; validity later. |
| 854 ((setq record-pos-symbol | 854 ((setq record-pos-symbol |
| 855 (cdr (assq char | 855 (cdr (assq char |
| 856 '((?< . <-pos) (?> . >-pos) (?@ . @-pos) | 856 '((?< . <-pos) (?> . >-pos) (?@ . @-pos) |
| 857 (?: . colon-pos) (?, . comma-pos) (?! . !-pos) | 857 (?: . colon-pos) (?, . comma-pos) (?! . !-pos) |
| 858 (?% . %-pos) (?\; . \;-pos))))) | 858 (?% . %-pos) (?\; . \;-pos))))) |
| 860 (cons (point) (symbol-value record-pos-symbol))) | 860 (cons (point) (symbol-value record-pos-symbol))) |
| 861 (forward-char 1)) | 861 (forward-char 1)) |
| 862 ((eq char ?.) | 862 ((eq char ?.) |
| 863 (forward-char 1)) | 863 (forward-char 1)) |
| 864 ((memq char '( | 864 ((memq char '( |
| 865 ;; comment terminator illegal | 865 ;; comment terminator invalid |
| 866 ?\) | 866 ?\) |
| 867 ;; domain literal terminator illegal | 867 ;; domain literal terminator invalid |
| 868 ?\] | 868 ?\] |
| 869 ;; \ allowed only within quoted strings, | 869 ;; \ allowed only within quoted strings, |
| 870 ;; domain literals, and comments | 870 ;; domain literals, and comments |
| 871 ?\\ | 871 ?\\ |
| 872 )) | 872 )) |