1;;; mailabbrev.el --- abbrev-expansion of mail aliases 2 3;; Copyright (C) 1985, 1986, 1987, 1992, 1993, 1996, 1997, 2000, 2001, 4;; 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. 5 6;; Author: Jamie Zawinski <jwz@lucid.com>, now <jwz@jwz.org> 7;; Maintainer: FSF 8;; Created: 19 Oct 90 9;; Keywords: mail 10 11;; This file is part of GNU Emacs. 12 13;; GNU Emacs is free software; you can redistribute it and/or modify 14;; it under the terms of the GNU General Public License as published by 15;; the Free Software Foundation; either version 2, or (at your option) 16;; any later version. 17 18;; GNU Emacs is distributed in the hope that it will be useful, 19;; but WITHOUT ANY WARRANTY; without even the implied warranty of 20;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 21;; GNU General Public License for more details. 22 23;; You should have received a copy of the GNU General Public License 24;; along with GNU Emacs; see the file COPYING. If not, write to the 25;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 26;; Boston, MA 02110-1301, USA. 27 28;;; Commentary: 29 30;; This file ensures that, when the point is in a To:, CC:, BCC:, or From: 31;; field, word-abbrevs are defined for each of your mail aliases. These 32;; aliases will be defined from your .mailrc file (or the file specified by 33;; `mail-personal-alias-file') if it exists. Your mail aliases will 34;; expand any time you type a word-delimiter at the end of an abbreviation. 35;; 36;; What you see is what you get: if mailabbrev is in use when you type 37;; a name, and the name does not expand, you know it is not an abbreviation. 38;; However, if you yank abbreviations into the headers 39;; in a way that bypasses the check for abbreviations, 40;; they are expanded (but not visibly) when you send the message. 41;; 42;; Your mail alias abbrevs will be in effect only when the point is in an 43;; appropriate header field. When in the body of the message, or other 44;; header fields, the mail aliases will not expand. Rather, the normal 45;; mode-specific abbrev table will be used if 46;; defined. So if you use mail-mode specific abbrevs, this code will not 47;; adversely affect you. You can control which header fields the abbrevs 48;; are used in by changing the variable mail-abbrev-mode-regexp. 49;; 50;; If auto-fill mode is on, abbrevs will wrap at commas instead of at word 51;; boundaries; also, header continuation-lines will be properly indented. 52;; 53;; You can also insert a mail alias with mail-abbrev-insert-alias 54;; (bound to C-c C-a), which prompts you for an alias (with completion) 55;; and inserts its expansion at point. 56;; 57;; This file fixes a bug in the old system which prohibited your .mailrc 58;; file from having lines like 59;; 60;; alias someone "John Doe <doe@quux.com>" 61;; 62;; That is, if you want an address to have embedded spaces, simply surround it 63;; with double-quotes. This is necessary because the format of the .mailrc 64;; file bogusly uses spaces as address delimiters. The following line defines 65;; an alias which expands to three addresses: 66;; 67;; alias foobar addr-1 addr-2 "address three <addr-3>" 68;; 69;; (This is bogus because mail-delivery programs want commas, not spaces, 70;; but that's what the file format is, so we have to live with it.) 71;; 72;; If you like, you can call the function define-mail-abbrev to define your 73;; mail aliases instead of using a .mailrc file. When you call it in this 74;; way, addresses are separated by commas. 75;; 76;; CAVEAT: This works on most Sun systems; I have been told that some versions 77;; of /bin/mail do not understand double-quotes in the .mailrc file. So you 78;; should make sure your version does before including verbose addresses like 79;; this. One solution to this, if you are on a system whose /bin/mail doesn't 80;; work that way, (and you still want to be able to /bin/mail to send mail in 81;; addition to emacs) is to define minimal aliases (without full names) in 82;; your .mailrc file, and use define-mail-abbrev to redefine them when sending 83;; mail from emacs; this way, mail sent from /bin/mail will work, and mail 84;; sent from emacs will be pretty. 85;; 86;; Aliases in the mailrc file may be nested. If you define aliases like 87;; alias group1 fred ethel 88;; alias group2 larry curly moe 89;; alias everybody group1 group2 90;; Then when you type "everybody" on the To: line, it will be expanded to 91;; fred, ethyl, larry, curly, moe 92;; 93;; Aliases may also contain forward references; the alias of "everybody" can 94;; precede the aliases of "group1" and "group2". 95;; 96;; This code also understands the "source" .mailrc command, for reading 97;; aliases from some other file as well. 98;; 99;; Aliases may contain hyphens, as in "alias foo-bar foo@bar"; word-abbrevs 100;; normally cannot contain hyphens, but this code works around that for the 101;; specific case of mail-alias word-abbrevs. 102;; 103;; To read in the contents of another .mailrc-type file from emacs, use the 104;; command Meta-X merge-mail-abbrevs. The rebuild-mail-abbrevs command is 105;; similar, but will delete existing aliases first. 106;; 107;; If you would like your aliases to be expanded when you type M-> or ^N to 108;; move out of the mail-header into the message body (instead of having to 109;; type SPC at the end of the abbrev before moving away) then you can do 110;; 111;; (add-hook 112;; 'mail-mode-hook 113;; (lambda () 114;; (define-key mail-mode-map [remap next-line] 'mail-abbrev-next-line) 115;; (define-key mail-mode-map [remap end-of-buffer] 'mail-abbrev-end-of-buffer))) 116;; 117;; 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 119;; be a comma bracketed by whitespace if you want any kind of reasonable 120;; behaviour. 121;; 122;; Thanks to Harald Hanche-Olsen, Michael Ernst, David Loeffler, and 123;; Noah Friedman for suggestions and bug reports. 124 125;; To use this package, do (add-hook 'mail-mode-hook 'mail-abbrevs-setup). 126 127;;; Code: 128 129(eval-when-compile 130 (require 'sendmail)) 131 132(defgroup mail-abbrev nil 133 "Expand mail aliases as abbrevs, in certain mail headers." 134 :group 'abbrev-mode) 135 136(defcustom mail-abbrevs-mode nil 137 "*Non-nil means expand mail aliases as abbrevs, in certain message headers." 138 :type 'boolean 139 :group 'mail-abbrev 140 :require 'mailabbrev 141 :set (lambda (symbol value) 142 (setq mail-abbrevs-mode value) 143 (if value (mail-abbrevs-enable) (mail-abbrevs-disable))) 144 :initialize 'custom-initialize-default 145 :version "20.3") 146 147(defcustom mail-abbrevs-only nil 148 "*Non-nil means only mail abbrevs should expand automatically. 149Other abbrevs expand only when you explicitly use `expand-abbrev'." 150 :type 'boolean 151 :group 'mail-abbrev) 152 153;; originally defined in sendmail.el - used to be an alist, now is a table. 154(defvar mail-abbrevs nil 155 "Word-abbrev table of mail address aliases. 156If this is nil, it means the aliases have not yet been initialized and 157should be read from the .mailrc file. (This is distinct from there being 158no aliases, which is represented by this being a table with no entries.)") 159 160(defvar mail-abbrev-modtime nil 161 "The modification time of your mail alias file when it was last examined.") 162 163(defun mail-abbrevs-sync-aliases () 164 (when mail-personal-alias-file 165 (if (file-exists-p mail-personal-alias-file) 166 (let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) 167 (if (not (equal mail-abbrev-modtime modtime)) 168 (progn 169 (setq mail-abbrev-modtime modtime) 170 (build-mail-abbrevs))))))) 171 172;;;###autoload 173(defun mail-abbrevs-setup () 174 "Initialize use of the `mailabbrev' package." 175 (if (and (not (vectorp mail-abbrevs)) 176 (file-exists-p mail-personal-alias-file)) 177 (progn 178 (setq mail-abbrev-modtime 179 (nth 5 (file-attributes mail-personal-alias-file))) 180 (build-mail-abbrevs))) 181 (mail-abbrevs-sync-aliases) 182 (add-hook 'pre-abbrev-expand-hook 'sendmail-pre-abbrev-expand-hook 183 nil t) 184 (abbrev-mode 1)) 185 186(defun mail-abbrevs-enable () 187 (add-hook 'mail-mode-hook 'mail-abbrevs-setup)) 188 189(defun mail-abbrevs-disable () 190 "Turn off use of the `mailabbrev' package." 191 (remove-hook 'mail-mode-hook 'mail-abbrevs-setup) 192 (abbrev-mode (if (default-value 'abbrev-mode) 1 -1))) 193 194;;;###autoload 195(defun build-mail-abbrevs (&optional file recursivep) 196 "Read mail aliases from personal mail alias file and set `mail-abbrevs'. 197By default this is the file specified by `mail-personal-alias-file'." 198 (setq file (expand-file-name (or file mail-personal-alias-file))) 199 (if (vectorp mail-abbrevs) 200 nil 201 (setq mail-abbrevs nil) 202 (define-abbrev-table 'mail-abbrevs '())) 203 (message "Parsing %s..." file) 204 (let ((buffer nil) 205 (obuf (current-buffer))) 206 (unwind-protect 207 (progn 208 (setq buffer (generate-new-buffer " mailrc")) 209 (buffer-disable-undo buffer) 210 (set-buffer buffer) 211 (cond ((get-file-buffer file) 212 (insert (save-excursion 213 (set-buffer (get-file-buffer file)) 214 (buffer-substring (point-min) (point-max))))) 215 ((not (file-exists-p file))) 216 (t (insert-file-contents file))) 217 ;; Don't lose if no final newline. 218 (goto-char (point-max)) 219 (or (eq (preceding-char) ?\n) (newline)) 220 (goto-char (point-min)) 221 ;; Delete comments from the file 222 (while (search-forward "# " nil t) 223 (let ((p (- (point) 2))) 224 (end-of-line) 225 (delete-region p (point)))) 226 (goto-char (point-min)) 227 ;; handle "\\\n" continuation lines 228 (while (not (eobp)) 229 (end-of-line) 230 (if (= (preceding-char) ?\\) 231 (progn (delete-char -1) (delete-char 1) (insert ?\ )) 232 (forward-char 1))) 233 (goto-char (point-min)) 234 (while (re-search-forward 235 "^\\(a\\(lias\\)?\\|g\\(roup\\)?\\|source\\)[ \t]+" nil t) 236 (beginning-of-line) 237 (if (looking-at "source[ \t]+\\([^ \t\n]+\\)") 238 (progn 239 (end-of-line) 240 (build-mail-abbrevs 241 (substitute-in-file-name 242 (buffer-substring (match-beginning 1) (match-end 1))) 243 t)) 244 (re-search-forward "[ \t]+\\([^ \t\n]+\\)") 245 (let* ((name (buffer-substring 246 (match-beginning 1) (match-end 1))) 247 (start (progn (skip-chars-forward " \t") (point)))) 248 (end-of-line) 249; (message "** %s \"%s\"" name (buffer-substring start (point)))(sit-for 1) 250 (define-mail-abbrev 251 name 252 (buffer-substring start (point)) 253 t)))) 254 ;; Resolve forward references in .mailrc file. 255 ;; This would happen automatically before the first abbrev was 256 ;; expanded, but why not do it now. 257 (or recursivep (mail-resolve-all-aliases)) 258 mail-abbrevs) 259 (if buffer (kill-buffer buffer)) 260 (set-buffer obuf))) 261 (message "Parsing %s... done" file)) 262 263(defvar mail-alias-separator-string ", " 264 "*A string inserted between addresses in multi-address mail aliases. 265This has to contain a comma, so \", \" is a reasonable value. You might 266also want something like \",\\n \" to get each address on its own line.") 267 268;; define-mail-abbrev sets this flag, which causes mail-resolve-all-aliases 269;; to be called before expanding abbrevs if it's necessary. 270(defvar mail-abbrev-aliases-need-to-be-resolved t) 271 272;; originally defined in mailalias.el ; build-mail-abbrevs calls this with 273;; stuff parsed from the .mailrc file. 274;; 275;;;###autoload 276(defun define-mail-abbrev (name definition &optional from-mailrc-file) 277 "Define NAME as a mail alias abbrev that translates to DEFINITION. 278If DEFINITION contains multiple addresses, separate them with commas." 279 ;; When this is called from build-mail-abbrevs, the third argument is 280 ;; true, and we do some evil space->comma hacking like /bin/mail does. 281 (interactive "sDefine mail alias: \nsDefine %s as mail alias for: ") 282 ;; Read the defaults first, if we have not done so. 283 (if (vectorp mail-abbrevs) 284 nil 285 (setq mail-abbrevs nil) 286 (define-abbrev-table 'mail-abbrevs '()) 287 (if (file-exists-p mail-personal-alias-file) 288 (build-mail-abbrevs))) 289 ;; strip garbage from front and end 290 (if (string-match "\\`[ \t\n,]+" definition) 291 (setq definition (substring definition (match-end 0)))) 292 (if (string-match "[ \t\n,]+\\'" definition) 293 (setq definition (substring definition 0 (match-beginning 0)))) 294 (let* ((result '()) 295 (L (length definition)) 296 (start (if (> L 0) 0)) 297 end) 298 (while start 299 ;; If we're reading from the mailrc file, then addresses are delimited 300 ;; by spaces, and addresses with embedded spaces must be surrounded by 301 ;; double-quotes. Otherwise, addresses are separated by commas. 302 (if from-mailrc-file 303 (if (eq ?\" (aref definition start)) 304 (setq start (1+ start) 305 end (string-match "\"[ \t,]*" definition start)) 306 (setq end (string-match "[ \t,]+" definition start))) 307 (setq end (string-match "[ \t\n,]*,[ \t\n,]*" definition start))) 308 (let ((tem (substring definition start end))) 309 ;; Advance the loop past this address. 310 (setq start (and end 311 (/= (match-end 0) L) 312 (match-end 0))) 313 ;; If the full name contains a problem character, quote it. 314 (when (string-match "\\(.+?\\)[ \t]*\\(<.*>\\)" tem) 315 (if (string-match "[^- !#$%&'*+/0-9=?A-Za-z^_`{|}~]" 316 (match-string 1 tem)) 317 (setq tem (replace-regexp-in-string 318 "\\(.+?\\)[ \t]*\\(<.*>\\)" "\"\\1\" \\2" 319 tem)))) 320 (push tem result))) 321 (setq definition (mapconcat (function identity) 322 (nreverse result) 323 mail-alias-separator-string))) 324 (setq mail-abbrev-aliases-need-to-be-resolved t) 325 (setq name (downcase name)) 326 ;; use an abbrev table instead of an alist for mail-abbrevs. 327 (let ((abbrevs-changed abbrevs-changed)) ; protect this from being changed. 328 (define-abbrev mail-abbrevs name definition 'mail-abbrev-expand-hook 0 t))) 329 330 331(defun mail-resolve-all-aliases () 332 "Resolve all forward references in the mail aliases table." 333 (if mail-abbrev-aliases-need-to-be-resolved 334 (progn 335;; (message "Resolving mail aliases...") 336 (if (vectorp mail-abbrevs) 337 (mapatoms (function mail-resolve-all-aliases-1) mail-abbrevs)) 338 (setq mail-abbrev-aliases-need-to-be-resolved nil) 339;; (message "Resolving mail aliases... done.") 340 ))) 341 342(defun mail-resolve-all-aliases-1 (sym &optional so-far) 343 (if (memq sym so-far) 344 (error "mail alias loop detected: %s" 345 (mapconcat 'symbol-name (cons sym so-far) " <- "))) 346 (let ((definition (and (boundp sym) (symbol-value sym)))) 347 (if definition 348 (let ((result '()) 349 (start 0)) 350 (while start 351 (let ((end (string-match "[ \t\n]*,[, \t\n]*" definition start))) 352 (setq result (cons (substring definition start end) result) 353 start (and end (match-end 0))))) 354 (setq definition 355 (mapconcat (function (lambda (x) 356 (or (mail-resolve-all-aliases-1 357 (intern-soft (downcase x) mail-abbrevs) 358 (cons sym so-far)) 359 x))) 360 (nreverse result) 361 mail-alias-separator-string)) 362 (set sym definition)))) 363 (symbol-value sym)) 364 365 366(defun mail-abbrev-expand-hook () 367 "For use as the fourth arg to `define-abbrev'. 368After expanding a mail-abbrev, if Auto Fill mode is on and we're past the 369fill-column, break the line at the previous comma, and indent the next line." 370 ;; Disable abbrev mode to avoid recursion in indent-relative expanding 371 ;; part of the abbrev expansion as an abbrev itself. 372 (let ((abbrev-mode nil)) 373 (save-excursion 374 (let ((p (point)) 375 bol comma fp) 376 (beginning-of-line) 377 (setq bol (point)) 378 (goto-char p) 379 (while (and auto-fill-function 380 (>= (current-column) fill-column) 381 (search-backward "," bol t)) 382 (setq comma (point)) 383 (forward-char 1) ; Now we are just past the comma. 384 (insert "\n") 385 (delete-horizontal-space) 386 (setq p (point)) 387 (indent-relative) 388 (setq fp (buffer-substring p (point))) 389 ;; Go to the end of the new line. 390 (end-of-line) 391 (if (> (current-column) fill-column) 392 ;; It's still too long; do normal auto-fill. 393 (let ((fill-prefix (or fp "\t"))) 394 (do-auto-fill))) 395 ;; Resume the search. 396 (goto-char comma) 397 ))))) 398 399;;; Syntax tables and abbrev-expansion 400 401(defvar mail-abbrev-mode-regexp 402 "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\|Reply-to\\):" 403 "*Regexp to select mail-headers in which mail abbrevs should be expanded. 404This string will be handed to `looking-at' with point at the beginning 405of the current line; if it matches, abbrev mode will be turned on, otherwise 406it will be turned off. (You don't need to worry about continuation lines.) 407This should be set to match those mail fields in which you want abbreviations 408turned on.") 409 410(defvar mail-abbrev-syntax-table nil 411 "The syntax-table used for abbrev-expansion purposes. 412This is not actually made the current syntax table of the buffer, but 413simply controls the set of characters which may be a part of the name 414of a mail alias. The value is set up, buffer-local, when first needed.") 415 416(defun mail-abbrev-make-syntax-table () 417 (make-local-variable 'mail-abbrev-syntax-table) 418 (unless mail-abbrev-syntax-table 419 (let ((tab (copy-syntax-table (syntax-table))) 420 (_ (aref (standard-syntax-table) ?_)) 421 (w (aref (standard-syntax-table) ?w))) 422 (map-char-table 423 (function (lambda (key value) 424 (if (null value) 425 ;; Fetch the inherited value 426 (setq value (aref tab key))) 427 (if (equal value _) 428 (set-char-table-range tab key w)))) 429 tab) 430 (modify-syntax-entry ?@ "w" tab) 431 (modify-syntax-entry ?% "w" tab) 432 (modify-syntax-entry ?! "w" tab) 433 (modify-syntax-entry ?. "w" tab) 434 (modify-syntax-entry ?_ "w" tab) 435 (modify-syntax-entry ?- "w" tab) 436 (setq mail-abbrev-syntax-table tab)))) 437 438(defun mail-abbrev-in-expansion-header-p () 439 "Whether point is in a mail-address header field." 440 (let ((case-fold-search t)) 441 (and ;; 442 ;; we are on an appropriate header line... 443 (save-excursion 444 (unless (eobp) (forward-char 1)) 445 (re-search-backward "^[^ \t]" nil 'move) 446 ;; are we at the front of an appropriate header line? 447 (looking-at mail-abbrev-mode-regexp)) 448 ;; 449 ;; ...and are we in the headers? 450 (< (point) 451 (save-restriction 452 (widen) 453 (save-excursion 454 (rfc822-goto-eoh) 455 (point))))))) 456 457(defun sendmail-pre-abbrev-expand-hook () 458 (and (and mail-abbrevs (not (eq mail-abbrevs t))) 459 (if (mail-abbrev-in-expansion-header-p) 460 461 ;; We are in a To: (or CC:, or whatever) header, and 462 ;; should use word-abbrevs to expand mail aliases. 463 (let ((local-abbrev-table mail-abbrevs) 464 (old-syntax-table (syntax-table))) 465 466 ;; Before anything else, resolve aliases if they need it. 467 (and mail-abbrev-aliases-need-to-be-resolved 468 (mail-resolve-all-aliases)) 469 470 ;; Now proceed with the abbrev section. 471 ;; - We already installed mail-abbrevs as the abbrev table. 472 ;; - Then install the mail-abbrev-syntax-table, which 473 ;; temporarily marks all of the 474 ;; non-alphanumeric-atom-characters (the "_" 475 ;; syntax ones) as being normal word-syntax. We do this 476 ;; because the C code for expand-abbrev only works on words, 477 ;; and we want these characters to be considered words for 478 ;; the purpose of abbrev expansion. 479 ;; - Then we call expand-abbrev again, recursively, to do 480 ;; the abbrev expansion with the above syntax table. 481 ;; - Restore the previous syntax table. 482 ;; - Then we do a trick which tells the expand-abbrev frame 483 ;; which invoked us to not continue (and thus not 484 ;; expand twice.) This means that any abbrev expansion 485 ;; will happen as a result of this function's call to 486 ;; expand-abbrev, and not as a result of the call to 487 ;; expand-abbrev which invoked *us*. 488 489 (mail-abbrev-make-syntax-table) 490 491 ;; If the character just typed was non-alpha-symbol-syntax, 492 ;; then don't expand the abbrev now (that is, don't expand 493 ;; when the user types -.) Check the character's syntax in 494 ;; the usual syntax table. 495 496 (or (and (integerp last-command-char) 497 ;; Some commands such as M-> may want to expand first. 498 (equal this-command 'self-insert) 499 (or (eq (char-syntax last-command-char) ?_) 500 ;; Don't expand on @. 501 (memq last-command-char '(?@ ?. ?% ?! ?_ ?-)))) 502 (let ((pre-abbrev-expand-hook nil)) ; That's us; don't loop. 503 ;; Use this table so that abbrevs can have hyphens in them. 504 (set-syntax-table mail-abbrev-syntax-table) 505 (unwind-protect 506 (expand-abbrev) 507 ;; Now set it back to what it was before. 508 (set-syntax-table old-syntax-table)))) 509 (setq abbrev-start-location (point-max) ; This is the trick. 510 abbrev-start-location-buffer (current-buffer))) 511 512 (if (or (not mail-abbrevs-only) 513 (eq this-command 'expand-abbrev)) 514 ;; We're not in a mail header where mail aliases should 515 ;; be expanded, then use the normal mail-mode abbrev table 516 ;; (if any) and the normal mail-mode syntax table. 517 nil 518 ;; This is not a mail abbrev, and we should not expand it. 519 ;; This kludge stops expand-abbrev from doing anything. 520 (setq abbrev-start-location (point-max) 521 abbrev-start-location-buffer (current-buffer)))) 522 )) 523 524;;; utilities 525 526(defun merge-mail-abbrevs (file) 527 "Merge mail aliases from the given file with existing ones." 528 (interactive (list 529 (let ((insert-default-directory t) 530 (default-directory (expand-file-name "~/")) 531 (def mail-personal-alias-file)) 532 (read-file-name 533 (format "Read additional aliases from file (default %s): " 534 def) 535 default-directory 536 (expand-file-name def default-directory) 537 t)))) 538 (build-mail-abbrevs file)) 539 540(defun rebuild-mail-abbrevs (&optional file) 541 "Rebuild all the mail aliases from the given file." 542 (interactive (list 543 (let ((insert-default-directory t) 544 (default-directory (expand-file-name "~/")) 545 (def mail-personal-alias-file)) 546 (read-file-name 547 (format "Read mail aliases from file (default %s): " def) 548 default-directory 549 (expand-file-name def default-directory) 550 t)))) 551 (if (null file) 552 (setq file buffer-file-name)) 553 (setq mail-abbrevs nil) 554 (build-mail-abbrevs file)) 555 556(defun mail-abbrev-insert-alias (&optional alias) 557 "Prompt for and insert a mail alias." 558 (interactive (progn 559 (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) 560 (list (completing-read "Expand alias: " mail-abbrevs nil t)))) 561 (if (not (vectorp mail-abbrevs)) (mail-abbrevs-setup)) 562 (insert (or (and alias (symbol-value (intern-soft alias mail-abbrevs))) "")) 563 (mail-abbrev-expand-hook)) 564 565(defun mail-abbrev-complete-alias () 566 "Perform completion on alias preceding point." 567 ;; Based on lisp.el:lisp-complete-symbol 568 (interactive) 569 (mail-abbrev-make-syntax-table) 570 (let* ((end (point)) 571 (syntax-table (syntax-table)) 572 (beg (unwind-protect 573 (save-excursion 574 (set-syntax-table mail-abbrev-syntax-table) 575 (backward-word 1) 576 (point)) 577 (set-syntax-table syntax-table))) 578 (alias (buffer-substring beg end)) 579 (completion (try-completion alias mail-abbrevs))) 580 (cond ((eq completion t) 581 (message "%s" alias)) ; confirm 582 ((null completion) 583 (error "[Can't complete \"%s\"]" alias)) ; (message ...) (ding) 584 ((not (string= completion alias)) 585 (delete-region beg end) 586 (insert completion)) 587 (t (with-output-to-temp-buffer "*Completions*" 588 (display-completion-list 589 (prog2 590 (message "Making completion list...") 591 (all-completions alias mail-abbrevs) 592 (message "Making completion list...done")) 593 alias)))))) 594 595(defun mail-abbrev-next-line (&optional arg) 596 "Expand any mail abbrev, then move cursor vertically down ARG lines. 597If there is no character in the target line exactly under the current column, 598the cursor is positioned after the character in that line which spans this 599column, or at the end of the line if it is not long enough. 600If there is no line in the buffer after this one, 601a newline character is inserted to create a line 602and the cursor moves to that line. 603 604The command \\[set-goal-column] can be used to create 605a semipermanent goal column to which this command always moves. 606Then it does not try to move vertically. This goal column is stored 607in `goal-column', which is nil when there is none. 608 609If you are thinking of using this in a Lisp program, consider 610using `forward-line' instead. It is usually easier to use 611and more reliable (no dependence on goal column, etc.)." 612 (interactive "p") 613 (if (looking-at "[ \t]*\n") (expand-abbrev)) 614 (setq this-command 'next-line) 615 (next-line arg)) 616 617(defun mail-abbrev-end-of-buffer (&optional arg) 618 "Expand any mail abbrev, then move point to end of buffer. 619Leave mark at previous position. 620With arg N, put point N/10 of the way from the true end. 621 622Don't use this command in Lisp programs! 623\(goto-char (point-max)) is faster and avoids clobbering the mark." 624 (interactive "P") 625 (if (looking-at "[ \t]*\n") (expand-abbrev)) 626 (setq this-command 'end-of-buffer) 627 (with-no-warnings 628 (end-of-buffer arg))) 629 630(eval-after-load "sendmail" 631 '(progn 632 (define-key mail-mode-map "\C-c\C-a" 'mail-abbrev-insert-alias) 633 (define-key mail-mode-map "\e\t" ; like lisp-complete-symbol 634 'mail-abbrev-complete-alias))) 635 636;;(define-key mail-mode-map "\C-n" 'mail-abbrev-next-line) 637;;(define-key mail-mode-map "\M->" 'mail-abbrev-end-of-buffer) 638 639(provide 'mailabbrev) 640 641(if mail-abbrevs-mode 642 (mail-abbrevs-enable)) 643 644;;; arch-tag: 5aa2d901-73f8-4ad7-b73c-4802282ad2ff 645;;; mailabbrev.el ends here 646