restore bbdb keys

restore bbdb keys

[Didier Verna]

        Hi!

For those of you who use both BBDB in Gnus and flyspell, you've probably
noticed that flyspell overrides the bbdb completion key (M-Tab), which is
annoying in mail headers. So I've written this small function for XEmacs, that
you might find useful. Put it in message-setup-hook. It will restore the
message mode keymap in the headers that expect to have bbdb completion, and
leave the flyspell keymap anywhere else.


(defun restore-bbdb-keys ()
  "*When composing a message, if both bbdb and flyspell are used, restore the
bbdb key bindings in all headers likely to need name expansion."
  (interactive)
  (map-extents (lambda (e unused) (delete-extent e))
	       nil nil nil nil nil 'restore-bbdb-keys t)
  (when (and (eq major-mode 'message-mode)
	     (eq (lookup-key message-mode-map [(meta tab)])
		 'bbdb-complete-name)
	     (eq (key-binding [(meta tab)]) 'flyspell-auto-correct-word))
    (save-excursion
      (let ((limit (progn (search-forward mail-header-separator)
			  (point-at-bol))))
	(make-local-hook 'kill-buffer-hook)
	(goto-char 1)
	(while (re-search-forward "^\\(\
\\(From\\|Sender\\)\\|\
\\(\\(Mail-Copies-\\)?To\\)\\|\
\\([GBF]?[Cc][Cc]\\)\\|\
\\(Reply-[Tt]o\\)\\)\
: "
				  limit t)
	  (let* ((start (point))
		 (end (or (and (re-search-forward "^[A-Z][^: \n\t]+: " limit t)
			       (goto-char (point-at-bol)))
			  limit))
		 (extent (make-extent start end)))
	    (set-extent-property extent 'keymap message-mode-map)
	    (set-extent-property extent 'restore-bbdb-keys t)
	    (add-hook 'kill-buffer-hook `(lambda () (delete-extent ,extent))
		      nil t)))
	))
    ))


-- 
    /     /   _   _       Didier Verna        http://www.inf.enst.fr/~verna/
 - / / - / / /_/ /        EPITA / LRDE            mailto:didier@epita.fr
/_/ / /_/ / /__ /      14-16 rue Voltaire       Tel.   +33 (1) 44 08 01 77
                   94276 Kremlin-Bicêtre cedex  Fax.   +33 (1) 44 08 01 99

RE: restore bbdb keys

[Manuel.Serrano]

> For those of you who use both BBDB in Gnus and flyspell, you've probably
> noticed that flyspell overrides the bbdb completion key (M-Tab), which is
> annoying in mail headers. So I've written this small function for XEmacs, that
> you might find useful. Put it in message-setup-hook. It will restore the
> message mode keymap in the headers that expect to have bbdb completion, and
> leave the flyspell keymap anywhere else.
The current development version flyspell1.5 does not use M-Tab anymore. 
The new version can be found at:

  http://www.kaolin.unice.fr~/serrano/

Anyhow, may thanks for your message and for your help.

--Manuel Serrano--