summaryrefslogtreecommitdiff
path: root/gnu/packages/patches/emacs-gnus-alias-reference-signature.patch
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2025-06-15 20:55:40 +0900
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2025-06-19 11:29:58 +0200
commit70aa2b6998693fe03d89c09cc9e7345856ad80b8 (patch)
tree6d1675908a69b9508afe6bf50a20f6e0a0dd6bfa /gnu/packages/patches/emacs-gnus-alias-reference-signature.patch
parent8d419976b21d61a1b3c6d919c593cacdf16a37aa (diff)
gnu: emacs-gnus-alias: Update to 1.7.0-0.cf1783a.
* gnu/packages/emacs-xyz.scm (emacs-gnus-alias): Update to 1.7.0-0.cf1783a. [source]: Apply patch. [home-page]: Update URL. [description]: Refine description and fix typos. * gnu/local.mk (dist_patch_DATA): Register patch. Change-Id: I92f48adfdc7f04e9559ddfda75333c0ac6af179e Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
Diffstat (limited to 'gnu/packages/patches/emacs-gnus-alias-reference-signature.patch')
-rw-r--r--gnu/packages/patches/emacs-gnus-alias-reference-signature.patch27
1 files changed, 27 insertions, 0 deletions
diff --git a/gnu/packages/patches/emacs-gnus-alias-reference-signature.patch b/gnu/packages/patches/emacs-gnus-alias-reference-signature.patch
new file mode 100644
index 0000000000..70885434bd
--- /dev/null
+++ b/gnu/packages/patches/emacs-gnus-alias-reference-signature.patch
@@ -0,0 +1,27 @@
+Upstream-status: https://github.com/hexmode/gnus-alias/pull/7
+
+diff --git a/gnus-alias.el b/gnus-alias.el
+index 944d6db..c27d3d1 100644
+--- a/gnus-alias.el
++++ b/gnus-alias.el
+@@ -1134,11 +1134,15 @@ above circumstances rather then generate an error."
+ (gnus-alias-remove-sig)
+
+ ;; add signature maybe
+- (when sig
+- (goto-char (point-max))
+- (unless (bolp) (insert "\n"))
+- (insert "-- \n")
+- (insert (gnus-alias-get-value sig))))
++ (let ((reference-sig (and reference
++ (gnus-alias-get-sig
++ (assoc-string (gnus-alias-get-value reference)
++ gnus-alias-identity-alist t)))))
++ (when (or sig reference-sig)
++ (goto-char (point-max))
++ (unless (bolp) (insert "\n"))
++ (insert "-- \n")
++ (insert (gnus-alias-get-value (or sig reference-sig))))))
+
+ ;; remember last Identity used
+ (setq gnus-alias-current-identity identity)))