From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/40856
Path: main.gmane.org!not-for-mail
From: Benjamin Rutt <rutt+news@cis.ohio-state.edu>
Newsgroups: gmane.emacs.gnus.general
Subject: request feedback on new function gnus-dired-attach
Date: Fri, 14 Dec 2001 19:19:44 -0500
Sender: owner-ding@hpc.uh.edu
Message-ID: <wc3wuzp5o7z.fsf@eta.cis.ohio-state.edu>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035176343 3100 80.91.224.250 (21 Oct 2002 04:59:03 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:59:03 +0000 (UTC)
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 11656 invoked from network); 15 Dec 2001 05:19:22 -0000
Original-Received: from malifon.math.uh.edu (mail@129.7.128.13)
  by mastaler.com with SMTP; 15 Dec 2001 05:19:22 -0000
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 16F7Bd-0001Tm-00; Fri, 14 Dec 2001 23:16:37 -0600
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 14 Dec 2001 23:16:24 -0600 (CST)
Original-Received: from epithumia.math.uh.edu (epithumia.math.uh.edu [129.7.128.2])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id XAA21099
	for <ding@hpc.uh.edu>; Fri, 14 Dec 2001 23:16:18 -0600 (CST)
Original-Received: (from tibbs@localhost)
	by epithumia.math.uh.edu (8.11.2/8.11.1) id fBF5GPT29137
	for ding@hpc.uh.edu; Fri, 14 Dec 2001 23:16:25 -0600
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id SAA20590
	for <ding@hpc.uh.edu>; Fri, 14 Dec 2001 18:19:39 -0600 (CST)
Original-Received: (qmail 4620 invoked by alias); 15 Dec 2001 00:19:46 -0000
Original-Received: (qmail 4615 invoked from network); 15 Dec 2001 00:19:46 -0000
Original-Received: from mail.cis.ohio-state.edu (HELO cis.ohio-state.edu) (root@164.107.115.5)
  by gnus.org with SMTP; 15 Dec 2001 00:19:46 -0000
Original-Received: from eta.cis.ohio-state.edu (rutt@eta.cis.ohio-state.edu [164.107.112.62])
	by cis.ohio-state.edu (8.9.1/8.9.1) with ESMTP id TAA07971
	for <ding@gnus.org>; Fri, 14 Dec 2001 19:19:45 -0500 (EST)
Original-Received: (from rutt@localhost)
	by eta.cis.ohio-state.edu (8.9.1/8.9.1) id TAA02745;
	Fri, 14 Dec 2001 19:19:45 -0500 (EST)
X-Authentication-Warning: eta.cis.ohio-state.edu: rutt set sender to rutt@cis.ohio-state.edu using -f
Original-Sender: Benjamin Rutt <rutt@cis.ohio-state.edu>
Original-To: ding@gnus.org
X-Face: (&zE&hBC"G~kYNV6dt5#[X'%{!h5@/oUyc`CRNn#d6e2qi%~4N.?_ys_bQ3&7.*<sT[z7&l.=5[f_0Xy<w)'9'k_Fw3HgM3v=6&iidyHP6m=NqIbH98O[0[PRkp_rya3,uWFyRT/,h?nr7z]j+%zJ3\:CE5=CrNPy=N7G)UE*#Kx&#uv/}jN<4QWoS)V:N9R[N?(O".F]TVdsAZrHdbf=BK#?\-4y4*}]7BONxj,Z(X"Nw;jD)\_p|aF!L"LX^){wkdk(}F8~:`H9Ou&6aLa2c)Y8^Bu_nac[4DAvonEv,ls{W
Mail-Followup-To: ding@gnus.org
Original-Lines: 79
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.1
 (sparc-sun-solaris2.6)
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:40856
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:40856

After getting inspired today to clean out my TODO list, I defined the
following function, to make it easier to attach (multiple) files in
gnus via dired buffers.  (This is in response to a thread with the
subject 'how to attach multiple attachments simultaneously' on
gnu.emacs.gnus during late November of this year...it has since
expired from my news server, otherwise I'd probably followup to it).
I'd love to get the following feedback:

1) reports of failures under setups other than GNU Emacs 21+Oort,
   which is the system I've tested it on

2) whether and how to integrate this code into gnus.  You'll note that
   the last line:

(define-key dired-mode-map [(control c) (control a)] 'gnus-dired-attach)

   is somewhat ugly, since we are defining a dired keymap in another
   area of code.  Paul Jarc, on the above g.e.g thread, suggested that
   we define a gnus-dired minor mode which can contain the keymap.
   But I'm not sure if that's better, since ultimately we're still
   stealing a possible future dired keybinding (C-c C-a currently
   isn't defined in dired-mode).  Maybe that last line should simply
   go in users ~/.gnus so the users control the keybinding override?

3) whether you think this should exist as a separate file that isn't
   included in gnus.

4) any other feedback

Here begins the code.  It should be enough to place this code in your
~~/.gnus, evaluate it, and then start attaching files from dired
buffers via C-c C-a (with or without starting message compositions
first).  Thanks.

----------------------------------------------------------------------

(defun gnus-dired-attach ()
  "Attach dired's marked files to a gnus message composition."
  (interactive)
  (let* ((files-to-attach
	  ;; don't attach directories
	  (delq nil
		(mapcar
		 (lambda (f) (if (file-directory-p f) nil f))
		 (nreverse (dired-map-over-marks (dired-get-filename) nil)))))
	 (destination nil)
	 (files-str (mapconcat
		     (lambda (f) (file-name-nondirectory f)) files-to-attach
		     ", "))
	 (bufs (message-buffers)))
    
    ;; set up destination message buffer
    (if (and bufs
	     (y-or-n-p "Attach files to existing message buffer? "))
	(setq destination
	      (if (= (length bufs) 1)
		  (get-buffer (car bufs))
		(completing-read "Attach to which message buffer: "
				 (mapcar
				  (lambda (b)
				    (cons b (get-buffer b)))
				  bufs)
				 nil t)))
      ;; setup a new gnus message buffer
      (gnus-setup-message 'message (message-mail))
      (setq destination (current-buffer)))

    ;; set buffer to destination buffer, and attach files
    (set-buffer destination)
    (goto-char (point-max)) ;attach at end of buffer
    (while files-to-attach
      (mml-attach-file (car files-to-attach)
		       (or (mm-default-file-encoding (car files-to-attach))
			   "application/octet-stream") nil)
      (setq files-to-attach (cdr files-to-attach)))
    (message "attached files %s" files-str)))
(define-key dired-mode-map [(control c) (control a)] 'gnus-dired-attach)
-- 
Benjamin