diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2022-04-14 12:13:27 +0200 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2022-04-14 18:39:35 +0200 |
| commit | bd67ffa1790b620b2beebdc32080d70b76e71029 (patch) | |
| tree | f8559d074b452f3ac650a19561add03318d08dca /lisp/mail/emacsbug.el | |
| parent | 17b639aabb457ca6ffbcb6fdb73c03571fb0e360 (diff) | |
| download | emacs-bd67ffa1790b620b2beebdc32080d70b76e71029.tar.gz | |
Have submit-emacs-patch prompt for patch file before subject
* emacsbug.el (submit-emacs-patch): Prompt for patch file and use that
to guess the subject.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -rw-r--r-- | lisp/mail/emacsbug.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 1bda609d105..8cb4a00009f 100644 --- a/lisp/mail/emacsbug.el +++ b/lisp/mail/emacsbug.el @@ -488,7 +488,14 @@ and send the mail again%s." Interactively, you will be prompted for SUBJECT and a patch FILE name (which will be attached to the mail). You will end up in a Message buffer where you can explain more about the patch." - (interactive "sThis patch is about: \nfPatch file name: ") + (interactive + (let* ((file (read-file-name "Patch file name: ")) + (guess (with-temp-buffer + (insert-file-contents file) + (mail-fetch-field "Subject")))) + (list (read-string (format-prompt "This patch is about" guess) + nil nil guess) + file))) (switch-to-buffer "*Patch Help*") (let ((inhibit-read-only t)) (erase-buffer) |