From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6111
Path: main.gmane.org!not-for-mail
From: Kai Grossjohann <grossjoh@charly.informatik.uni-dortmund.de>
Newsgroups: gmane.emacs.gnus.general
Subject: editing the gcc header
Date: 02 May 1996 20:48:53 +0200
Sender: grossjoh@dusty.informatik.uni-dortmund.de
Message-ID: <vafspdiq5be.fsf@ls6.informatik.uni-dortmund.de>
Reply-To: Kai Grossjohann <grossjoh@charly.informatik.uni-dortmund.de>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.52)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035146616 2607 80.91.224.250 (20 Oct 2002 20:43:36 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:43:36 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id MAA19351 for <steve@miranova.com>; Thu, 2 May 1996 12:30:55 -0700
Original-Received: from floyd.informatik.uni-dortmund.de (floyd.informatik.uni-dortmund.de [129.217.4.40]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <UAA19082@ifi.uio.no> for <ding@ifi.uio.no> ; Thu, 2 May 1996 20:48:57 +0200
Original-Received: from dusty.informatik.uni-dortmund.de
	by floyd.informatik.uni-dortmund.de with SMTP (Sendmail 8.7.5/UniDo 3.11)
        id UAA13709; Thu, 2 May 1996 20:48:55 +0200 (MES)
Original-Received: by dusty.informatik.uni-dortmund.de id AA19144; Thu, 2 May 96 20:48:54 +0200
Original-To: ding@ifi.uio.no
Original-Lines: 47
X-Mailer: September Gnus v0.80/Emacs 19.30
Xref: main.gmane.org gmane.emacs.gnus.general:6111
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6111


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)