procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow attaching files at point using 'gnus-dired-attach'

Browse source 
* lisp/gnus/gnus-dired.el (gnus-dired-attach-at-end): Add option.
(gnus-dired-attach): Respect it.
* doc/misc/gnus.texi (Other modes): Document it.  (Bug#69141)
This commit is contained in:
Philip Kaludercic 2024-02-15 12:10:12 +01:00
parent 2379360077
commit 6893106fe9
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/misc/gnus.texi
View file

@ -26695,9 +26695,12 @@ buffers. It is enabled with
@table @kbd
@item C-c C-m C-a
@findex gnus-dired-attach
@vindex gnus-dired-attach-at-end
@cindex attachments, selection via dired
Send dired's marked files as an attachment (@code{gnus-dired-attach}).
You will be prompted for a message buffer.
You will be prompted for a message buffer. By default it will attach
files to the end of the message buffer, but you can modify that
behaviour by customising @code{gnus-dired-attach-at-end}.
@item C-c C-m C-l
@findex gnus-dired-find-file-mailcap

9
lisp/gnus/gnus-dired.el
View file

@ -111,6 +111,12 @@ See `mail-user-agent' for more information."
(autoload 'gnus-completing-read "gnus-util")
(defcustom gnus-dired-attach-at-end t
"Non-nil means that files should be attached at the end of a buffer."
:group 'mail ;; dired?
:version "30.1"
:type 'boolean)
;; Method to attach files to a mail composition.
(defun gnus-dired-attach (files-to-attach)
"Attach dired's marked files to a gnus message composition.
@ -161,7 +167,8 @@ filenames."
;; set buffer to destination buffer, and attach files
(set-buffer destination)
(goto-char (point-max)) ;attach at end of buffer
(when gnus-dired-attach-at-end
(goto-char (point-max))) ;attach at end of buffer
(while files-to-attach
(mml-attach-file (car files-to-attach)
(or (mm-default-file-type (car files-to-attach))