[gnu.emacs.bug] Additional keybinding for Mail mode

nhess@dvlseq.oracle.com (Nate Hess) (11/16/89)

[Since this is a mild request for a small new feature, I thought it best
to send it to bug-gnu-emacs...]

Here is a function and binding that I have been using for a while, now,
and thought that others might find it useful.  It might even be worth
including in V19.


(defun mail-message ()
  "Move point to beginning of text field."
  (interactive)
  (goto-char (point-min))
  (search-forward (concat "\n" mail-header-separator "\n")))


I then bind it to C-c C-f C-m thusly:

(setq mail-mode-hook
      '(lambda ()
         (abbrev-mode 1)
	 (modify-syntax-entry ?% "_")
         (define-key mail-mode-map "\C-c\C-f\C-m" 'mail-message)))


--woodstock
-- 
	   "What I like is when you're looking and thinking and looking
	   and thinking...and suddenly you wake up."   - Hobbes

nhess@oracle.com or ...!uunet!oracle!nhess or (415) 598-8114