Re: editing the gcc header

[Kai Grossjohann <grossjoh@charly.informatik.uni-dortmund.de>]

>>>>> On 02 May 1996 16:07:34 -0400, Jack Vinson
>>>>> <jvinson@cheux.ecs.umass.edu> said:

  Jack> Even better.  I'd like a key combo to remove the Gcc header
  Jack> completely.

I have the following in my .emacs file:

,-----
| (defun message-toggle-gcc ()
|   (interactive)
|   (save-excursion
|     (save-restriction
|       ;; I didn't know about nnheader-narrow-to-headers
|       ;; when I wrote this :-(
|       (let ((pmin (progn (beginning-of-buffer) (point)))
|             (pmax (progn
|                     (beginning-of-buffer)
|                     (re-search-forward (concat "^" mail-header-separator
|                                                "$"))
|                     (beginning-of-line)
|                     (point))))
|         (beginning-of-buffer)
|         (narrow-to-region pmin pmax)
|         (if (re-search-forward "^gcc: .*" nil t)
|             (progn
|               (beginning-of-line)
|               (kill-line 1))
|           (goto-char pmax)
|           (insert (concat "Gcc: "
|                           (kai-gnus-outgoing-message-group)
|                           "\n")))))))
`-----

(This is bound to C-c C-f C-g.)

Here, kai-gnus-outgoing-message-group is a function that calculates
the `right' group name based on the group I'm in:

,-----
| (defun kai-gnus-outgoing-message-group ()
|   (cond ((and gnus-newsgroup-name
|               (stringp gnus-newsgroup-name)
|               (string-match "^nnml" gnus-newsgroup-name))
|          gnus-newsgroup-name)
|         (t "nnml:mail.misc")))
`-----

  Jack> There should also be something like C-c C-f C-g to goto the
  Jack> Gcc header instead of doing what Kai just suggested.

I wanted to have completion for group names, and M-TAB was already
taken by bbdb-complete-name.  I didn't know how to write a function to
be bound to M-TAB that does completion for group names in a Gcc header
and bbdb-complete-name in To/Cc/Bcc headers.  I'll be happy about any
ideas you might have.

regards,
kai
-- 
Gleep!