From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/15718
Path: main.gmane.org!not-for-mail
From: SL Baur <steve@xemacs.org>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: autoreply function?
Date: 24 Jul 1998 01:29:30 -0700
Sender: owner-ding@hpc.uh.edu
Message-ID: <m2pvev3b4l.fsf@altair.xemacs.org>
References: <upklnpn3v1a.fsf@amadeus.waldherr.org>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035154700 23616 80.91.224.250 (20 Oct 2002 22:58:20 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 22:58:20 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: from gwyn.tux.org (gwyn.tux.org [207.96.122.8])
	by altair.xemacs.org (8.9.1/8.9.1) with ESMTP id BAA12197
	for <steve@altair.xemacs.org>; Fri, 24 Jul 1998 01:30:27 -0700
Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31])
	by gwyn.tux.org (8.8.8/8.8.8) with ESMTP id EAA28986
	for <steve@xemacs.org>; Fri, 24 Jul 1998 04:26:38 -0400
Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id CAS17003; Fri, 24 Jul 1998 02:57:35 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 24 Jul 1998 03:25:59 -0500 (CDT)
Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [209.195.19.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id DAA06204 for <ding@hpc.uh.edu>; Fri, 24 Jul 1998 03:25:47 -0500 (CDT)
Original-Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id EAA25924
	for <ding@gnus.org>; Fri, 24 Jul 1998 04:25:46 -0400 (EDT)
Original-Received: (from steve@localhost)
	by altair.xemacs.org (8.9.1/8.9.1) id BAA12168;
	Fri, 24 Jul 1998 01:29:30 -0700
Mail-Copies-To: never
Original-To: ding@gnus.org
X-Face: (:YAD@JS'&Kz'M}n7eX7gEvPR6U1mJ-kt;asEc2qAv;h{Yw7ckz<7+X_SYeTNAaPui:e~x$
 ,A=gkt*>UPL/}\a/#C~v2%ETiAY_sx;xve0yL??JWTtX_-NUzXyP38UdW#cmN1\4(X!c3m#%IbtB-3
 Z-!xpZi!`E.s{(;aP=b11"!3wQu]1j@^V|;n=B|{l<bZV1.AI`zWV%kPCnUhcgEe\(}/_kNd6,*3ZJ
 Q3o<YQ3^u;7jS=:p0--u3msQO
X-Attribution: sb
In-Reply-To: Stefan Waldherr's message of "21 Jul 1998 20:42:41 +0200"
Original-Lines: 31
X-Mailer: Gnus v5.6.24/XEmacs 21.0 - "Corsican"
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:15718
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:15718

Stefan Waldherr <swa@cs.cmu.edu> writes in ding@gnus.org:

> anyone knows of an autoreply function for gnus? I envision something
> where you read an incoming mail, hit one or two keys and gnus will
> cite the original, append a pre-defined reply and send it.

I have used the following in the past ...

(defun message-patch-ack ()
  "Semi-Automated Patch Acknowledgement."
  (interactive)
  (message-remove-header "from")
  (message-add-header "From: Patch Acknowledgement <steve@xemacs.org>"
                      "X-Emacs-Patch-Ack: yes")

  (message-goto-body)
  (if emacs-beta-version
      (insert "Thanks for the patches, they've been applied to XEmacs-"
              (format "%d.%d-beta%d"
                      emacs-major-version
                      emacs-minor-version
                      emacs-beta-version)
              ".\n\n")
    (insert "Thanks for the patches, they've been applied to XEmacs-"
            (format "%d.%d-pre"
                    emacs-major-version
                    emacs-minor-version)
            ".\n\n")))

(add-hook 'message-load-hook
          (define-key message-mode-map [(control ?c) ?p] 'message-patch-ack))