Mercurial > emacs

changeset 599:c1e8cc0b3fb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Tue, 24 Mar 1992 06:18:35 +0000
parents 75b23846ac96
children a8d78999e46d
files lisp/mail/mailabbrev.el
diffstat 1 files changed, 10 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el	Tue Mar 24 04:22:48 1992 +0000
+++ b/lisp/mail/mailabbrev.el	Tue Mar 24 06:18:35 1992 +0000
@@ -365,6 +365,15 @@
 	  (bol (save-excursion
 		 (re-search-backward mail-abbrev-mode-regexp)
 		 (match-end 0))))
+      (goto-char bol)
+      (while (re-search-forward
+	      "\\(\\s *,?\\s *\\(\"?\\)\\(/[^,]+\\)\\2\\)\\(,\\|\\s +\\|$\\)"
+	      p t)
+	(save-excursion
+	  (goto-char p)
+	  (insert "\nFCC: " (buffer-substring (match-beginning 3)
+					      (match-end 3))))
+	(delete-region (match-beginning 1) (match-end 1)))
       (if (and (if (boundp 'auto-fill-function)
 		   auto-fill-function
 		 auto-fill-hook)
@@ -383,7 +392,6 @@
 	    (if (> (current-column) fill-column)
 		(let ((fill-prefix (or fp "\t")))
 		  (do-auto-fill))))))))
-
 
 ;;; Syntax tables and abbrev-expansion
 
@@ -539,8 +547,7 @@
 (defun mail-interactive-insert-alias (&optional alias)
   "Prompt for and insert a mail alias."
   (interactive (list (completing-read "Expand alias: " mail-aliases nil t)))
-  (if alias
-      (insert alias)))
+  (insert (or (and alias (symbol-value (intern-soft alias mail-aliases))) "")))
 
 (defun abbrev-hacking-next-line (&optional arg)
   "Just like `next-line' (\\[next-line]) but expands abbrevs when at \