From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/59726 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: kill frame used for composing Date: Sat, 05 Feb 2005 08:58:25 +0900 Message-ID: References: <87zmykxdky.fsf@mun.ca> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1107561789 21301 80.91.229.2 (5 Feb 2005 00:03:09 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 5 Feb 2005 00:03:09 +0000 (UTC) Cc: ding@gnus.org Original-X-From: ding-owner+M8267@lists.math.uh.edu Sat Feb 05 01:03:08 2005 Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail) by ciao.gmane.org with esmtp (Exim 4.43) id 1CxDOu-00021O-46 for ding-account@gmane.org; Sat, 05 Feb 2005 01:02:12 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1CxDLc-0007he-00; Fri, 04 Feb 2005 17:58:48 -0600 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CxDLS-0007hW-00 for ding@lists.math.uh.edu; Fri, 04 Feb 2005 17:58:38 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by util2.math.uh.edu with esmtp (Exim 4.30) id 1CxDLM-0005LX-2d for ding@lists.math.uh.edu; Fri, 04 Feb 2005 17:58:32 -0600 Original-Received: from washington.hostforweb.net ([69.61.11.2]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1CxDLK-0002VR-00 for ; Sat, 05 Feb 2005 00:58:31 +0100 Original-Received: from yahoobb218118002120.bbtec.net ([218.118.2.120] helo=) by washington.hostforweb.net with esmtpsa (TLSv1:DES-CBC3-SHA:168) (Exim 4.44) id 1CxDLN-0001hr-51; Fri, 04 Feb 2005 18:58:33 -0500 Original-To: Sebastian Luque 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.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux) Cancel-Lock: sha1:UX28LQpQDt7GLbdDbQM2AQgQHbo= X-Antivirus-Scanner: Clean mail though you should still use an Antivirus X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.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: -4.7 (----) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu X-MailScanner-From: ding-owner+m8267@lists.math.uh.edu X-MailScanner-To: ding-account@gmane.org Xref: main.gmane.org gmane.emacs.gnus.general:59726 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:59726 --=-=-= >>>>> In <87zmykxdky.fsf@mun.ca> >>>>> Sebastian Luque wrote: > I'm trying to use a separate frame for sending mail/news, and saw the relevant > section of the manual. The suggested code for getting that frame works ok in > my system. I had to search elsewhere for a way to kill that frame once the > message is sent. The consensus seems to be to put the following line in your ~/.gnus.el: > (message-add-action 'delete-frame 'exit 'postpone 'kill) > but this is not working for me (the frame remains, showing the buffer behind > the sent message). Any help is appreciated. Though it may not be complete, I'm satisfied with the following: --=-=-= Content-Type: application/emacs-lisp Content-Disposition: inline (let* ((default ;; Winodw layout for normal message frames. '(vertical ((width . 80) (height . 40) ;;(left . -1) (top . 1) (user-position . t)) (message 1.0 point))) (bug ;; Window layout for a gnus-bug frame. ;; Note that multiple gnus-bug frames are not supported. '(vertical ((width . 80) (height . 40) ;;(left . -1) (top . 1) (user-position . t)) (if gnus-bug-create-help-buffer '("*Gnus Help Bug*" 0.5)) ("*Gnus Bug*" 1.0 point))) (config `(frame 1.0 (progn (setq gnus-frame-list nil) ;; 2004-03-23 (if (buffer-live-p gnus-summary-buffer) (if (get-buffer gnus-article-buffer) (car (cdr (assq 'article gnus-buffer-configuration))) (car (cdr (assq 'summary gnus-buffer-configuration)))) (car (cdr (assq 'group gnus-buffer-configuration))))) ,default)) (settings '(compose-bounce forward mail-bounce message post reply reply-yank))) (while settings (gnus-add-configuration (list (car settings) config)) (setq settings (cdr settings))) (setcdr (nthcdr 2 (setq config (copy-sequence config))) (list bug)) (gnus-add-configuration (list 'bug config))) (add-hook 'gnus-configure-windows-hook (lambda nil (if (eq major-mode 'message-mode) (let* ((message-frame (selected-frame)) (delete-frame-function `(lambda nil (if (and ;; Uncomment the following line if other windows ;; in message frames are supposed to be important. ;;(eq (selected-window) (next-window)) (eq (selected-frame) ,message-frame)) (delete-frame ,message-frame))))) (setq gnus-frame-list (delq message-frame gnus-frame-list) message-exit-actions `((funcall ,delete-frame-function)) message-postpone-actions message-exit-actions) (if (or (featurep 'xemacs) (< emacs-major-version 21)) (make-local-hook 'kill-buffer-hook)) (add-hook 'kill-buffer-hook `,delete-frame-function t t) ;; Uncomment the following line if you want to show all headers. ;;(set-window-start (selected-window) (point-min)) )))) ;; Don't popup a message frame when sending a queued message. (add-hook 'gnus-message-setup-hook (lambda nil (if (or (memq this-command '(gnus-draft-send-message gnus-draft-send-all-messages gnus-group-send-queue)) (and (featurep 'gnus-delay) (save-excursion (save-restriction (widen) (message-narrow-to-headers) (re-search-forward (concat "^" (regexp-quote gnus-delay-header) ":\\s-+") nil t))))) (let ((config (copy-sequence gnus-buffer-configuration))) (set (make-local-variable 'gnus-buffer-configuration) (cons '(forward (vertical 1.0 (message 1.0 point))) (delq (assq 'forward config) config))) (set (make-local-variable 'gnus-configure-windows-hook) nil))))) ;; Run `mml-preview' on a new frame. 2004-09-22 (gnus-add-configuration '(mml-preview (frame 1.0 (vertical 1.0 (message 1.0)) (vertical ((width . 80) (height . 40) ;;(left . -1) (top . 1) (user-position . t)) (save-excursion (set-buffer mml-preview-buffer) (if (or (featurep 'xemacs) (< emacs-major-version 21)) (make-local-hook 'kill-buffer-hook)) (add-hook 'kill-buffer-hook (lambda nil (delete-frame (selected-frame))) t t) (list 'mml-preview 1.0 'point)))))) --=-=-= Content-Disposition: inline You can find latest version of it at: I'm sorry that I have no time to translate it into English. --=-=-=--