master 63ac91a 2/2: Fix interactive spec of message-beginning-of-line

[Lars Ingebrigtsen]

branch: master
commit 63ac91a2ec8e03e1b5d1ed68e79de2a0dcc5ec8e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix interactive spec of message-beginning-of-line
    
    * lisp/gnus/message.el (message-beginning-of-line): Fix problem
    with C-S-a getting translated to C-a in message-mode (bug#39545).
---
 lisp/gnus/message.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 4179827..d4b057f 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6497,7 +6497,7 @@ When called without a prefix argument, header value 
spanning
 multiple lines is treated as a single line.  Otherwise, even if
 N is 1, when point is on a continuation header line, it will be
 moved to the beginning "
-  (interactive "p")
+  (interactive "^p")
   (cond
    ;; Go to beginning of header or beginning of line.
    ((and message-beginning-of-line (message-point-in-header-p))