From 62a075b01678c6a6f5d2a69c9ea6904a3927f1b4 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 17 Apr 2018 19:34:40 +0200 Subject: [PATCH] Make the `c' command work in a single-article Gnus view * lisp/gnus/gnus-art.el (gnus-article-read-summary-keys): Make `c' work from the article buffer (bug#31195) when no summary buffer is shown. --- lisp/gnus/gnus-art.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 0b349ea2d22..869ff4e661f 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -6673,7 +6673,7 @@ not have a face in `gnus-article-boring-faces'." (interactive "P") (gnus-article-check-buffer) (let ((nosaves - '("q" "Q" "c" "r" "\C-c\C-f" "m" "a" "f" "WDD" "WDW" + '("q" "Q" "r" "\C-c\C-f" "m" "a" "f" "WDD" "WDW" "Zc" "ZC" "ZE" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP" "=" "^" "\M-^" "|")) (nosave-but-article @@ -6739,7 +6739,8 @@ not have a face in `gnus-article-boring-faces'." ;; We disable the pick minor mode commands. (setq func (let (gnus-pick-mode) (key-binding keys t))) - (when (get func 'disabled) + (when (and (symbolp func) + (get func 'disabled)) (error "Function %s disabled" func)) (if (and func (functionp func) -- 2.39.2