*** empty log message ***

1 files changed, 10 insertions, 3 deletions

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index a7dc19052c..438ca88d26 100644
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -365,6 +365,15 @@ line."
 	  (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 @@ line."
 	    (if (> (current-column) fill-column)
 		(let ((fill-prefix (or fp "\t")))
 		  (do-auto-fill))))))))
-
 
 ;;; Syntax tables and abbrev-expansion
 
@@ -539,8 +547,7 @@ characters which may be a part of the name of a mail-alias.")
 (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 \