Re: Forwarding rfc822 messages

[Mario Peter <empee0@googlemail.com>]

On Nov 01 2010, 04:51, Dave Goldberg <david.goldberg6@verizon.net> wrote:
> At work, where I manage a group of sysadmins, we use a trouble ticket
> system (RT) that allows many in my group to handle tickets entirely
> through email.  Our users are not aware of this and often sent replies
> with CCs directly to particular admins, resulting in several copies of
> messages, some of which lack the necessary CC to keep a message
> tracked by RT falls off the list.  When it happens with me (I do use
> the web interface so I can tell if a message in my inbox has not been
> included) I want to get the message into the ticket - perhaps it
> contains troubleshooting data that we've asked the user to provide.
> Simple forwarding can be a pain because then I'd have to fill in the
> Subject in a particular way.  Easier for me is to start a reply on a
> proper email in the ticket and then attach the other message as part
> of the composition.  So my summary line format includes the message
> number and I've written this simple function, bound to C-c C-m C-m.
>
> (defun dsg-message-attach-article (group message)
>   (interactive
>    (list (completing-read
> 	  "Group: " gnus-active-hashtb nil
> 	  (gnus-read-active-file-p)
> 	  nil
> 	  'gnus-group-history)
> 	 (read-number "Message: " t)))
>   (let ((tmp (get-buffer-create (generate-new-buffer-name "*MSGTMP*"))))
>     (save-excursion
>       (set-buffer tmp)
>       (gnus-request-article-this-buffer message group))
>     (mml-attach-buffer (buffer-name tmp) "message/rfc822")))

I tried this out today at work, it's a cool solution and I got used to
it quickly.  I made a little change to be able to attach more than one
article:

(defun dsg-message-attach-article (group message)
  (interactive
   (list (completing-read
	  "Group: " gnus-active-hashtb nil
	  (gnus-read-active-file-p)
	  nil
	  'gnus-group-history)
	 (read-number "Message: ")))
  (let ((tmp (get-buffer-create
              (generate-new-buffer-name
               (concat "*MSGTMP-" (number-to-string message) "*")))))
    (save-excursion
      (set-buffer tmp)
      (gnus-request-article-this-buffer message group))
    (mml-attach-buffer (buffer-name tmp) "message/rfc822")))


Thanks for this!! I did not get used to the article number in the
summary line though ;-) so I get the number now with a little helper.

The solution using the kill-ring as Lars proposed has charme too - you don't have
to remember a number...  hmmm

Mario
-- 
Mario Peter
de,pl,en
http://www.mpeter.de