mirror of
https://https.git.savannah.gnu.org/git/guix.git/
synced 2025-07-14 11:00:36 +02:00
70aa2b6998
* 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>
27 lines
1 KiB
Diff
27 lines
1 KiB
Diff
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)))
|