From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/58541 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: window layout for mml-preview Date: Wed, 22 Sep 2004 22:08:26 +0900 Organization: Emacsen advocacy group Sender: ding-owner@lists.math.uh.edu Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1095858616 3817 80.91.229.6 (22 Sep 2004 13:10:16 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 22 Sep 2004 13:10:16 +0000 (UTC) Original-X-From: ding-owner+M7079@lists.math.uh.edu Wed Sep 22 15:10:04 2004 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CA6sl-0001xa-00 for ; Wed, 22 Sep 2004 15:10:04 +0200 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 1CA6rR-0001MI-00; Wed, 22 Sep 2004 08:08:41 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1CA6rM-0001MD-00 for ding@lists.math.uh.edu; Wed, 22 Sep 2004 08:08:36 -0500 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by util2.math.uh.edu with esmtp (Exim 4.30) id 1CA6rL-0000G9-7u for ding@lists.math.uh.edu; Wed, 22 Sep 2004 08:08:35 -0500 Original-Received: from washington.hostforweb.net (washington.hostforweb.net [69.61.11.2]) by justine.libertine.org (Postfix) with ESMTP id 58BB33A0039 for ; Wed, 22 Sep 2004 08:08:32 -0500 (CDT) Original-Received: from localhost ([127.0.0.1]) by washington.hostforweb.net with asmtp (Exim 4.41) id 1CA6rI-0006s3-Q2 for ding@gnus.org; Wed, 22 Sep 2004 09:08:33 -0400 Original-To: ding@gnus.org 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:BthJQAwJ/Rzot3hJbVoDXUsrKRU= X-Hashcash: 0:040922:ding@gnus.org:d1eb4cf45f0d54d2 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: Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:58541 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:58541 --=-=-= Hi, I've changed No Gnus so that users may be able to fully customize the window layout for the MIME preview buffer with the gnus-buffer-configuration variable. Here's my configuration: --=-=-= 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) (local-set-key "q" (lambda nil (interactive) (let (kill-buffer-hook) (kill-buffer)) (delete-frame (selected-frame)))) (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)))))) --=-=-=--