From 00fe36a6d7cfc415d0e16e6e341ae3492286ca00 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 15 Apr 2020 22:05:42 +0100 Subject: [PATCH] el/dot-emacs.el: Arrange for mail/news frames to be 80 columns wide. --- el/dot-emacs.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/el/dot-emacs.el b/el/dot-emacs.el index 46b8fbd..4372f82 100644 --- a/el/dot-emacs.el +++ b/el/dot-emacs.el @@ -854,6 +854,13 @@ Use this to arrange for per-server settings.") '(defalias 'nnimap-transform-headers (symbol-function 'mdw-nnimap-transform-headers))) +(defadvice gnus-other-frame (around mdw-hack-frame-width compile activate) + "Always arrange for mail/news frames to be 80 columns wide." + (let ((default-frame-alist (cons `(width . ,(+ 80 mdw-frame-width-fudge)) + (cl-delete 'width default-frame-alist + :key #'car)))) + ad-do-it)) + ;;;-------------------------------------------------------------------------- ;;; Utility functions. -- 2.11.0