Re: mc-expand-mail-abbrev

[Michael Cook <michael@waxrat.com>]

> when using S D r (gnus-summary-resend-message), it'd be nice to be
> able to expand mail aliases and to complete via bbdb.

turns out the previous version didn't behave well when
mail-abbrev-insert-alias decided to evoke auto-fill.  the following
version doesn't have that problem.  also, i've incorporated reiner
steib's suggestion to use message-minibuffer-local-map.

(defun mc-expand-mail-abbrev (arg)
  "Expand the mail abbreviation before point."
  (interactive "P")
  ;; See what is between point and the preceding newline, colon or comma.  If
  ;; it's in the mail-abbrev table, replace it.
  (or (vectorp mail-abbrevs)
      (mail-abbrevs-setup))
  (let* ((end (point))
	 (beg (save-excursion
		(re-search-backward "\\(\\`\\|[\n:,]\\)[ \t]*")
		(goto-char (match-end 0))
		(point)))
	 (abbrev (symbol-value (intern-soft (buffer-substring beg end)
					    mail-abbrevs))))
    (when abbrev
      (delete-region beg end)
      (insert abbrev)))
  ;; Now try BBDB completion.
  (bbdb-complete-name arg))
(define-key message-minibuffer-local-map "\M-," 'mc-expand-mail-abbrev)
(define-key message-mode-map "\M-," 'mc-expand-mail-abbrev)

m.