[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/mh-utils.el
From: |
Pavel Janík |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/mh-utils.el |
Date: |
Tue, 25 Dec 2001 06:18:39 -0500 |
Index: emacs/lisp/mail/mh-utils.el
diff -c emacs/lisp/mail/mh-utils.el:1.30 emacs/lisp/mail/mh-utils.el:1.31
*** emacs/lisp/mail/mh-utils.el:1.30 Thu Dec 20 13:25:13 2001
--- emacs/lisp/mail/mh-utils.el Tue Dec 25 06:18:39 2001
***************
*** 301,307 ****
(if (not clean-message-header)
(mh-start-of-uncleaned-message)))
(mh-display-msg msg folder))))
! (if (not (= (1+ (window-height)) (screen-height))) ;not horizontally split
(shrink-window (- (window-height) mh-summary-height)))
(mh-recenter nil)
(if (not (memq msg mh-seen-list)) (setq mh-seen-list (cons msg
mh-seen-list)))
--- 301,307 ----
(if (not clean-message-header)
(mh-start-of-uncleaned-message)))
(mh-display-msg msg folder))))
! (if (not (= (1+ (window-height)) (frame-height))) ;not horizontally split
(shrink-window (- (window-height) mh-summary-height)))
(mh-recenter nil)
(if (not (memq msg mh-seen-list)) (setq mh-seen-list (cons msg
mh-seen-list)))
***************
*** 970,976 ****
(t
;; will error message fit on one line?
(goto-line 2)
! (if (and (< (buffer-size) (screen-width))
(eobp))
(error "%s"
(buffer-substring 1 (progn (goto-char 1)
--- 970,976 ----
(t
;; will error message fit on one line?
(goto-line 2)
! (if (and (< (buffer-size) (frame-width))
(eobp))
(error "%s"
(buffer-substring 1 (progn (goto-char 1)