[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-art.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-art.el |
Date: |
Sun, 26 Jul 2009 08:34:54 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 09/07/26 08:34:54
Modified files:
lisp/gnus : ChangeLog gnus-art.el
Log message:
Merge from gnus--devo--0
Revision: address@hidden/emacs--devo--0--patch-1616
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.813&r2=1.814
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-art.el?cvsroot=emacs&r1=1.179&r2=1.180
Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.813
retrieving revision 1.814
diff -u -b -r1.813 -r1.814
--- ChangeLog 24 Jul 2009 03:54:25 -0000 1.813
+++ ChangeLog 26 Jul 2009 08:34:53 -0000 1.814
@@ -3,6 +3,16 @@
* gnus-demon.el (gnus-demon-add-nntp-close-connection):
Fix typo. (Bug#3903)
+2009-07-23 Katsumi Yamaoka <address@hidden>
+
+ * gnus-art.el (gnus-article-mode-map): Bind the "e" key to
+ gnus-article-read-summary-keys rather than gnus-summary-edit-article
+ that should not be used for draft articles.
+ (gnus-article-read-summary-keys): Use key-binding instead of lookup-key
+ that has no concern in minor mode keys.
+ (gnus-article-summary-command, gnus-article-summary-command-nosave):
+ Abolish.
+
2009-07-16 Katsumi Yamaoka <address@hidden>
* nnrss.el (nnrss-request-article): Allow mml-to-mime to generate MIME
Index: gnus-art.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-art.el,v
retrieving revision 1.179
retrieving revision 1.180
diff -u -b -r1.179 -r1.180
--- gnus-art.el 8 Jun 2009 22:47:11 -0000 1.179
+++ gnus-art.el 26 Jul 2009 08:34:54 -0000 1.180
@@ -4270,7 +4270,6 @@
"s" gnus-article-show-summary
"\C-c\C-m" gnus-article-mail
"?" gnus-article-describe-briefly
- "e" gnus-summary-edit-article
"<" beginning-of-buffer
">" end-of-buffer
"\C-c\C-i" gnus-info-find-node
@@ -4281,6 +4280,7 @@
"\C-hc" gnus-article-describe-key-briefly
"\C-hb" gnus-article-describe-bindings
+ "e" gnus-article-read-summary-keys
"\C-d" gnus-article-read-summary-keys
"\M-*" gnus-article-read-summary-keys
"\M-#" gnus-article-read-summary-keys
@@ -6277,27 +6277,6 @@
(interactive)
(gnus-message 6 (substitute-command-keys
"\\<gnus-article-mode-map>\\[gnus-article-goto-next-page]:Next page
\\[gnus-article-goto-prev-page]:Prev page \\[gnus-article-show-summary]:Show
summary \\[gnus-info-find-node]:Run Info
\\[gnus-article-describe-briefly]:This help")))
-(defun gnus-article-summary-command ()
- "Execute the last keystroke in the summary buffer."
- (interactive)
- (let ((obuf (current-buffer))
- (owin (current-window-configuration))
- func)
- (switch-to-buffer gnus-article-current-summary 'norecord)
- (setq func (lookup-key (current-local-map) (this-command-keys)))
- (call-interactively func)
- (set-buffer obuf)
- (set-window-configuration owin)
- (set-window-point (get-buffer-window (current-buffer)) (point))))
-
-(defun gnus-article-summary-command-nosave ()
- "Execute the last keystroke in the summary buffer."
- (interactive)
- (let (func)
- (pop-to-buffer gnus-article-current-summary)
- (setq func (lookup-key (current-local-map) (this-command-keys)))
- (call-interactively func)))
-
(defun gnus-article-check-buffer ()
"Beep if not in an article buffer."
(unless (equal major-mode 'gnus-article-mode)
@@ -6340,7 +6319,7 @@
(pop-to-buffer gnus-article-current-summary)
;; We disable the pick minor mode commands.
(let (gnus-pick-mode)
- (setq func (lookup-key (current-local-map) keys))))
+ (setq func (key-binding keys t))))
(if (or (not func)
(numberp func))
(ding)
@@ -6375,7 +6354,7 @@
(setq in-buffer (current-buffer))
;; We disable the pick minor mode commands.
(if (and (setq func (let (gnus-pick-mode)
- (lookup-key (current-local-map) keys)))
+ (key-binding keys t)))
(functionp func)
(condition-case code
(progn
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-art.el,
Miles Bader <=