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

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

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

revision 1.68 by rms, Fri Apr 19 00:08:19 2002 UTC revision 1.68.2.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 1  Line 1 
1  ;;; mailabbrev.el --- abbrev-expansion of mail aliases  ;;; mailabbrev.el --- abbrev-expansion of mail aliases
2    
3  ;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002  ;; Copyright (C) 1985, 86, 87, 92, 93, 96, 1997, 2000, 2002, 2003
4  ;;      Free Software Foundation, Inc.  ;;      Free Software Foundation, Inc.
5    
6  ;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org>  ;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org>
# Line 111  Line 111 
111  ;;  (add-hook  ;;  (add-hook
112  ;;   'mail-mode-hook  ;;   'mail-mode-hook
113  ;;   (lambda ()  ;;   (lambda ()
114  ;;      (substitute-key-definition 'next-line 'mail-abbrev-next-line  ;;      (define-key mail-mode-map [remap next-line] 'mail-abbrev-next-line)
115  ;;                               mail-mode-map global-map)  ;;      (define-key mail-mode-map [remap end-of-buffer] 'mail-abbrev-end-of-buffer)))
 ;;      (substitute-key-definition 'end-of-buffer 'mail-abbrev-end-of-buffer  
 ;;                               mail-mode-map global-map)))  
116  ;;  ;;
117  ;; If you want multiple addresses separated by a string other than ", " then  ;; If you want multiple addresses separated by a string other than ", " then
118  ;; you can set the variable mail-alias-separator-string to it.  This has to  ;; you can set the variable mail-alias-separator-string to it.  This has to
# Line 413  of a mail alias.  The value is set up, b Line 411  of a mail alias.  The value is set up, b
411            (w (aref (standard-syntax-table) ?w)))            (w (aref (standard-syntax-table) ?w)))
412        (map-char-table        (map-char-table
413         (function (lambda (key value)         (function (lambda (key value)
414                       (if (null value)
415                           ;; Fetch the inherited value
416                           (setq value (aref tab key)))
417                     (if (equal value _)                     (if (equal value _)
418                         (set-char-table-range tab key w))))                         (set-char-table-range tab key w))))
419         tab)         tab)
420        (modify-syntax-entry ?@ "w" tab)        (modify-syntax-entry ?@ "w" tab)
421          (modify-syntax-entry ?% "w" tab)
422          (modify-syntax-entry ?! "w" tab)
423          (modify-syntax-entry ?. "w" tab)
424          (modify-syntax-entry ?_ "w" tab)
425          (modify-syntax-entry ?- "w" tab)
426        (setq mail-abbrev-syntax-table tab))))        (setq mail-abbrev-syntax-table tab))))
427    
428  (defun mail-abbrev-in-expansion-header-p ()  (defun mail-abbrev-in-expansion-header-p ()

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.68.2.1

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