Fix issues with OpenPGP header

* doc/misc/message.texi (OpenPGP Header): Mention correct hook
* lisp/gnus/message.el (message-openpgp-header): Improve customize type
(message-add-openpgp-header): Insert header into correct buffer
(bug#42913).

diff --git a/doc/misc/message.texi b/doc/misc/message.texi
index 204a6386e0118bb702e5d8d6d91a11c4baf1f6a1..55b166eb8b08532cf36d41ff8077f6458db9f089 100644 (file)
--- a/doc/misc/message.texi
+++ b/doc/misc/message.texi
@@ -1265,7 +1265,7 @@ for a long time.  For more details, see
 To use this in Message, say:
 
 @lisp
-(add-hook 'message-send-hook 'message-add-openpgp-header)
+(add-hook 'message-header-setup-hook 'message-add-openpgp-header)
 @end lisp
 
 @noindent

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index ab625be9e370666712c614f1cc8113ce34be240f..07ff48903857ba4569ef2d24747d64e30bc11665 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -2751,16 +2751,17 @@ OpenPGP header will be left out.  If all the values are nil,
 or `message-openpgp-header' is itself nil, the OpenPGP header
 will not be inserted."
   :type '(choice
-         (const nil :tag "Don't add OpenPGP header")
-         (list (choice (string :tag "ID")
-                       (const nil :tag "No ID"))
+         (const :tag "Don't add OpenPGP header" nil)
+         (list :tag "Use OpenPGP header"
+               (choice (string :tag "ID")
+                       (const :tag "No ID" nil))
                (choice (string :tag "Key")
-                       (const nil :tag "No Key"))
-               (choice (other nil :tag "None")
-                       (const "unprotected" :tag "Unprotected")
-                       (const "sign" :tag "Sign")
-                       (const "encrypt" :tag "Encrypt")
-                       (const "signencrypt" :tag "Sign and Encrypt"))))
+                       (const :tag "No Key" nil))
+               (choice (other :tag "None" nil)
+                       (const :tag "Unprotected" "unprotected")
+                       (const :tag "Sign" "sign")
+                       (const :tag "Encrypt" "encrypt")
+                       (const :tag "Sign and Encrypt" "signencrypt"))))
   :version "28.1")
 
 (defun message-add-openpgp-header ()
@@ -2768,32 +2769,34 @@ will not be inserted."
 
 Header will be constructed as specified in `message-openpgp-header'.
 
-Consider adding this function to `message-send-hook'."
+Consider adding this function to `message-header-setup-hook'"
   ;; See https://tools.ietf.org/html/draft-josefsson-openpgp-mailnews-header
   (when (and message-openpgp-header
             (or (nth 0 message-openpgp-header)
                 (nth 1 message-openpgp-header)
                 (nth 2 message-openpgp-header)))
-    (with-temp-buffer
-      (insert "OpenPGP: ")
-      ;; add ID
-      (let (need-sep)
-       (when (nth 0 message-openpgp-header)
-         (insert "id=" (nth 0 message-openpgp-header))
-         (setq need-sep t))
-       ;; add URL
-       (when (nth 1 message-openpgp-header)
-         (when need-sep (insert "; "))
-         (if (string-match-p ";")
-             (insert "url=\"" (nth 1 message-openpgp-header) "\"")
-           (insert "url=\"" (nth 1 message-openpgp-header) "\""))
-         (setq need-sep t))
-       ;; add preference
-       (when (nth 2 message-openpgp-header)
-         (when need-sep (insert "; "))
-         (insert "preference=" (nth 2 message-openpgp-header))))
-      ;; insert header
-      (message-add-header (buffer-string)))))
+    (message-add-header
+     (with-temp-buffer
+       (insert "OpenPGP: ")
+       ;; add ID
+       (let (need-sep)
+        (when (nth 0 message-openpgp-header)
+          (insert "id=" (nth 0 message-openpgp-header))
+          (setq need-sep t))
+        ;; add URL
+        (when (nth 1 message-openpgp-header)
+          (when need-sep (insert "; "))
+          (if (string-match-p ";")
+              (insert "url=\"" (nth 1 message-openpgp-header) "\"")
+            (insert "url=\"" (nth 1 message-openpgp-header) "\""))
+          (setq need-sep t))
+        ;; add preference
+        (when (nth 2 message-openpgp-header)
+          (when need-sep (insert "; "))
+          (insert "preference=" (nth 2 message-openpgp-header))))
+       ;; insert header
+       (buffer-string)))
+    (message-sort-headers)))
 
 \f