[Emacs-diffs] Changes to emacs/lisp/mail/mh-utils.el

[Pavel Janík]

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)