Re: mc-expand-mail-abbrev

[Michael Cook <cook@nexthop.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.
>
> so, i took a stab at it.  i think my solution is not quite right
> yet, but it seems to be close.  any thoughts?

here's a better version.

(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 a single word, then attempt to expand it using "mail-abbrev".
  (let* ((end (point))
	 (beg (save-excursion
		(re-search-backward "\\(\\`\\|[\n:,]\\)[ \t]*")
		(goto-char (match-end 0))
		(point)))
	 (typed (buffer-substring beg end)))
    (when (string-match "^\\w+$" typed)
      (mail-abbrev-insert-alias typed)
      (or (= (point) end)
	  (delete-region beg end))))
  ;; Now try BBDB completion.
  (bbdb-complete-name arg))
(define-key minibuffer-local-map "\M-," 'mc-expand-mail-abbrev)
(define-key message-mode-map "\M-," 'mc-expand-mail-abbrev)

m.