From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68814 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: gnus-summary-edit-article vs. Unicode Date: Thu, 23 Jul 2009 21:17:00 +0900 Organization: Emacsen advocacy group Message-ID: References: <87y6qgsg4f.fsf@marauder.physik.uni-ulm.de> <87y6qgsalj.fsf@jidanni.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1248351526 19033 80.91.229.12 (23 Jul 2009 12:18:46 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 23 Jul 2009 12:18:46 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M17234@lists.math.uh.edu Thu Jul 23 14:18:39 2009 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1MTxFv-0003ri-0n for ding-account@gmane.org; Thu, 23 Jul 2009 14:18:39 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1MTxF3-0004Zk-H2; Thu, 23 Jul 2009 07:17:45 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1MTxF1-0004ZX-Bj for ding@lists.math.uh.edu; Thu, 23 Jul 2009 07:17:43 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1MTxEz-0001kY-VX for ding@lists.math.uh.edu; Thu, 23 Jul 2009 07:17:43 -0500 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1MTxFY-0007vS-00 for ; Thu, 23 Jul 2009 14:18:16 +0200 Original-Received: from localhost ([127.0.0.1]:55930) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1MTxEQ-0005Bf-HR for ding@gnus.org; Thu, 23 Jul 2009 07:17:07 -0500 X-Hashcash: 1:20:090723:ding@gnus.org::7C6K1+2RXgMaMntH:000008i1 X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.1.50 (gnu/linux) Cancel-Lock: sha1:gI4jQcUqDrzgsyY5DQ+CNZY3SEM= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68814 Archived-At: --=-=-= Content-Type: text/plain; charset=iso-2022-jp >>>>> jidanni@jidanni.org wrote: > Let's say you make a draft, > To: zzz > Subject: 測試 > X-Draft-From: ("nndraft:drafts") > --text follows this line-- > 測試 > and save it with message-dont-send (C-c C-d). OK, now later one day > reenter the *Drafts* group, and view that draft. Now put the cursor in > that draft's buffer, and hit >>> e runs the command gnus-summary-edit-article RS> In a draft summary buffer, `e' runs `gnus-draft-edit-message'. > I know. I'm talking about when you have already put the cursor into the > Draft itself, and then you hit e. >>> Chinese characters present become \333. The cause is that the "e" key is bound to `gnus-summary-edit-article' in the article buffer unconditionally. Here is a patch. Not tested thoroughly, though. --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- gnus-art.el~ 2009-06-01 11:45:19 +0000 +++ gnus-art.el 2009-07-23 12:15:49 +0000 @@ -4270,7 +4270,7 @@ "s" gnus-article-show-summary "\C-c\C-m" gnus-article-mail "?" gnus-article-describe-briefly - "e" gnus-summary-edit-article + "e" gnus-article-read-summary-keys "<" beginning-of-buffer ">" end-of-buffer "\C-c\C-i" gnus-info-find-node @@ -6374,8 +6374,13 @@ (select-window win)))) (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))) + (if (and (let ((maps (current-minor-mode-maps)) + gnus-pick-mode) + (while maps + (when (setq func (lookup-key (pop maps) keys)) + (setq maps nil))) + (or func + (setq func (lookup-key (current-local-map) keys)))) (functionp func) (condition-case code (progn --=-=-=--