autoreply function?

autoreply function?

[Stefan Waldherr]

Hi,

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. This feature would really be cool if
you have to reply more or less the same stuff to a number of incoming mails
(not at the same time, of course).

Thanks,
Stefan.
-- 
Stefan Waldherr                   fax +49 431 8058 136
                               e-Mail swa@cs.cmu.edu
                                  www http://www.waldherr.org/

Re: autoreply function?

[David S. Goldberg]

[-- Attachment #1: Type: text/plain, Size: 374 bytes --]

It's not exactly what you want, but here's a starting point.  It uses
forward instead of reply because that was desirable for the project I
designed it for (a sort of moderator function).  It should be pretty
easy to tailor it to your needs.

--
Dave Goldberg
Post: The Mitre Corporation\MS B305\202 Burlington Rd.\Bedford, MA 01730
Phone: 781-271-3887
Email: dsg@mitre.org

[-- Attachment #2: Type: text/plain, Size: 1124 bytes --]

(defun auto-reject-message ()
  "Forward to the current message back to its originator.  Prompt for
a rejection message file to include."
  (interactive)
  (call-interactively 'gnus-summary-show-article)
  (let ((auto-rejection-file 
	 (completing-read "Rejection File: "
			  (mapcar 'list
				  (directory-files
				   auto-rejection-dir nil
				   (regexp-quote auto-rejection-file-prefix)))
			  nil t auto-rejection-file-prefix))
	(auto-rejected-user (save-excursion
			      (set-buffer gnus-article-buffer)
			      (or (message-fetch-field "Reply-To")
				  (message-fetch-field "From")))))
    (if (= (length auto-rejection-file) 0)
	(setq auto-rejection-file auto-default-rejection-file))
    (if (not auto-rejected-user)
	(error "Error in message structure: no Reply-To or From lines."))
    (gnus-summary-mail-forward t)
    (goto-char (point-min))
    (search-forward mail-header-separator nil 'limit nil)
    (insert "\n")
    (insert-file-contents (concat auto-rejection-dir auto-rejection-file))
    (goto-char (point-min))
    (message-goto-to)
    (insert auto-rejected-user)
    (message-send-and-exit)))

Re: autoreply function?

[Paul Franklin]

Well, I do something sort of weird to achieve the same effect:

(defun pdf-gnus-group-hack-cwd ()
  "Change the current directory, so POP mail gets checked."
  (setq default-directory nnml-directory))
(add-hook 'gnus-group-mode-hook 'pdf-gnus-group-hack-cwd)

With this in place, I start with the keystrokes
	R C-x i
and then I use filename completion to enter the response I want.

You should probably not use nnml-directory, and you might actually
want to set it in a message-mode hook.  (Setting it here will only
set it for message buffers coming from Gnus.  I think.)  Another
idea is
  (setq default-directory (concat gnus-directory "tmpl/"))
(I was setting the current directory for different reasons, and
stumbled upon this "feature", which I originally considered a side
effect.)

--Paul

>>>>> Stefan Waldherr writes:

 > 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. This feature would really be cool if you have to reply
 > more or less the same stuff to a number of incoming mails (not at
 > the same time, of course).

Re: autoreply function?

[SL Baur]

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))