editing the gcc header

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

Hi there,

how do you like the following li'l piece of ELisp?  I'm rather sure
this is horrible code, but maybe it's not too difficult to do it
right?

Methinks this could be useful together with adding a Gcc header by
default.

regards,
kai
-- 
Gleep!

;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;
;; message-x.el -- 
;; ITIID           : $ITI$ $Header $__Header$
;; Author          : Kai Grossjohann
;; Created On      : Thu May  2 20:24:15 1996
;; Last Modified By: Kai Grossjohann
;; Last Modified On: Thu May  2 20:46:35 1996
;; Update Count    : 4
;; Status          : Unknown, Use with caution!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'message)

(defun message-edit-gcc ()
  (interactive)
  (let (val)
    (save-excursion
      (save-restriction
        (nnheader-narrow-to-headers)
        (beginning-of-buffer)
        (re-search-forward "^gcc: ")
        (setq val (completing-read
                   "Gcc: " gnus-newsrc-alist
                   (function (lambda (x)
                               (string-match "^nn[a-z]+:" (car x))))
                   t (nnheader-header-value) gnus-group-history))
        (kill-line nil)
        (insert val)))))

(define-key message-mode-map "\C-c\C-e" 'message-edit-gcc)

(provide 'message-x)