(gnus-article-read-summary-keys): Work for some `A' prefix keys.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 448df4b..4841a26 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,8 @@
 2008-01-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-       * gnus-art.el (gnus-article-read-summary-send-keys): Use
-       gnus-character-to-event.
+       * gnus-art.el (gnus-article-read-summary-keys): Work for some `A'
+       prefix keys.
+       (gnus-article-read-summary-send-keys): Use gnus-character-to-event.
        (gnus-article-describe-bindings): Simplify; move XEmacs stuff to
        gnus-xmas.el.
 

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 7823bdb..0be9673 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6242,9 +6242,10 @@ not have a face in `gnus-article-boring-faces'."
           "Zc" "ZC" "ZE" "ZQ" "ZZ" "Zn" "ZR" "ZG" "ZN" "ZP"
           "=" "^" "\M-^" "|"))
        (nosave-but-article
-        '("A\r"))
+        '("A " "A<" "A>" "AM" "AP" "AR" "AT" "A\C-?" "A\M-\r" "A\r" "Ab" "Ae"
+          "An" "Ap" [?A (meta return)] [?A delete]))
        (nosave-in-article
-        '("\C-d"))
+        '("AS" "\C-d"))
        (up-to-top
         '("n" "Gn" "p" "Gp"))
        keys new-sum-point)