From f08670270206439ed672793573159c611a6f1379 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 19 Aug 2011 08:52:18 +0000 Subject: [PATCH] gnus-art.el (gnus-insert-mime-button, gnus-mime-display-alternative): Make button keymap non-sticky after buttons. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-art.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 230bd8a6508..64ac50fe8f0 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-08-19 Katsumi Yamaoka + + * gnus-art.el (gnus-insert-mime-button, gnus-mime-display-alternative): + Make button keymap non-sticky after buttons. + 2011-08-18 David Engster * nnmairix.el (nnmairix-request-set-mark) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 28c6aca367c..c6e0180dadc 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -5700,7 +5700,8 @@ all parts." gnus-callback gnus-mm-display-part gnus-part ,gnus-tmp-id article-type annotation - gnus-data ,handle)) + gnus-data ,handle + rear-nonsticky t)) (setq e (if (bolp) ;; Exclude a newline. (1- (point)) @@ -6013,7 +6014,8 @@ If displaying \"text/html\" is discouraged \(see ,gnus-mouse-face-prop ,gnus-article-mouse-face face ,gnus-article-button-face gnus-part ,id - article-type multipart)) + article-type multipart + rear-nonsticky t)) (widget-convert-button 'link from (point) :action 'gnus-widget-press-button :button-keymap gnus-widget-button-keymap) @@ -6037,7 +6039,8 @@ If displaying \"text/html\" is discouraged \(see ,gnus-mouse-face-prop ,gnus-article-mouse-face face ,gnus-article-button-face gnus-part ,id - gnus-data ,handle)) + gnus-data ,handle + rear-nonsticky t)) (widget-convert-button 'link from (point) :action 'gnus-widget-press-button :button-keymap gnus-widget-button-keymap) -- 2.39.2