mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Add current subject to future history in `message-change-subject'

Browse source 
* lisp/gnus/message.el (message-change-subject): Read the new subject
with the old subject in the "future history".
* etc/NEWS (minutes): Announce the feature.  (Bug#79815)
This commit is contained in:
Rudolf Adamkovič 2025-11-11 13:07:18 +01:00 • committed by Eli Zaretskii
parent a542ed23e4
commit 6743a7d747
2 changed files with 40 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

67
lisp/gnus/message.el
View file

@ -2400,36 +2400,43 @@ Leading \"Re: \" is not stripped by this function. Use the function
;;; Suggested by Jonas Steverud @ www.dtek.chalmers.se/~d4jonas/
(defun message-change-subject (new-subject)
"Ask for NEW-SUBJECT header, append (was: <Old Subject>)."
(interactive
(list
(read-from-minibuffer "New subject: "))
message-mode)
(cond ((and (not (or (null new-subject) ; new subject not empty
(zerop (string-width new-subject))
(string-match "^[ \t]*$" new-subject))))
(save-excursion
(let ((old-subject
(save-restriction
(message-narrow-to-headers)
(message-fetch-field "Subject"))))
(cond ((not old-subject)
(error "No current subject"))
((not (string-match
(concat "^[ \t]*"
(regexp-quote new-subject)
"[ \t]*$")
old-subject)) ; yes, it really is a new subject
;; delete eventual Re: prefix
(setq old-subject
(message-strip-subject-re old-subject))
(message-goto-subject)
(delete-line)
(insert (concat "Subject: "
new-subject
" (was: "
old-subject ")\n")))))))))
(defun message-change-subject (&optional new-subject)
"Change subject to NEW-SUBJECT with \"(was: <Old Subject>)\" suffix.
If NEW-SUBJECT is nil, the user is prompted for the new subject, with
the old subject in \"future history\"."
(interactive nil message-mode)
(let ((old-subject (save-restriction
(message-narrow-to-headers)
(message-fetch-field "Subject"))))
(if (not old-subject)
(error "No current subject")
(let ((new-subject (or new-subject
(read-from-minibuffer "New subject: "
nil nil nil nil
old-subject))))
(cond
;; Abort on empty subject.
((or (null new-subject)
(zerop (string-width new-subject))
(string-match "^[ \t]*$" new-subject))
(message "Subject empty"))
;; Abort on unchanged subject.
((string-match
(concat "^[ \t]*"
(regexp-quote new-subject)
"[ \t]*$")
old-subject)
(message "Subject unchanged"))
;; Otherwise, proceed.
(t
(save-excursion
(message-goto-subject)
(delete-line)
(insert (concat "Subject: "
new-subject
" (was: "
(message-strip-subject-re old-subject)
")\n")))))))))
(defun message-mark-inserted-region (beg end &optional verbatim)
"Mark some region in the current article with enclosing tags.