projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gnus-art.el (gnus-article-next-page-1): Because customized mode-line
[gnus]
/
lisp
/
gnus-art.el
diff --git
a/lisp/gnus-art.el
b/lisp/gnus-art.el
index
d7c0d7a
..
19eee78
100644
(file)
--- a/
lisp/gnus-art.el
+++ b/
lisp/gnus-art.el
@@
-3404,6
+3404,7
@@
possible values."
(inhibit-read-only t)
(inhibit-point-motion-hooks t)
(first t)
(inhibit-read-only t)
(inhibit-point-motion-hooks t)
(first t)
+ (visible-date (mail-fetch-field "Date"))
pos date bface eface)
(save-excursion
(save-restriction
pos date bface eface)
(save-excursion
(save-restriction
@@
-3427,6
+3428,9
@@
possible values."
(delete-region (point-at-bol) (progn
(gnus-article-forward-header)
(point))))
(delete-region (point-at-bol) (progn
(gnus-article-forward-header)
(point))))
+ (when (and (not date)
+ visible-date)
+ (setq date visible-date))
(when date
(article-transform-date date type bface eface)))))))
(when date
(article-transform-date date type bface eface)))))))
@@
-3637,10
+3641,11
@@
function and want to see what the date was before converting."
(let ((type (get-text-property (match-beginning 0)
'gnus-date-type)))
(when (memq type '(lapsed combined-lapsed user-format))
(let ((type (get-text-property (match-beginning 0)
'gnus-date-type)))
(when (memq type '(lapsed combined-lapsed user-format))
- (unless (= window-start
- (save-excursion
- (forward-line 1)
- (point)))
+ (when (and window-start
+ (not (= window-start
+ (save-excursion
+ (forward-line 1)
+ (point)))))
(setq window-start nil))
(save-excursion
(article-date-ut type t (match-beginning 0)))
(setq window-start nil))
(save-excursion
(article-date-ut type t (match-beginning 0)))
@@
-4632,6
+4637,7
@@
If ALL-HEADERS is non-nil, no headers are hidden."
(forward-line -1))
(set-window-point (get-buffer-window (current-buffer)) (point))
(gnus-configure-windows 'article)
(forward-line -1))
(set-window-point (get-buffer-window (current-buffer)) (point))
(gnus-configure-windows 'article)
+ (gnus-run-hooks 'gnus-article-prepare-hook)
t))))))
;;;###autoload
t))))))
;;;###autoload
@@
-4649,8
+4655,7
@@
If ALL-HEADERS is non-nil, no headers are hidden."
gnus-article-image-alist nil)
(gnus-run-hooks 'gnus-tmp-internal-hook)
(when gnus-display-mime-function
gnus-article-image-alist nil)
(gnus-run-hooks 'gnus-tmp-internal-hook)
(when gnus-display-mime-function
- (funcall gnus-display-mime-function))
- (gnus-run-hooks 'gnus-article-prepare-hook)))
+ (funcall gnus-display-mime-function))))
;;;
;;; Gnus Sticky Article Mode
;;;
;;; Gnus Sticky Article Mode
@@
-6317,7
+6322,8
@@
specifies."
(defun gnus-article-next-page-1 (lines)
(condition-case ()
(defun gnus-article-next-page-1 (lines)
(condition-case ()
- (let ((scroll-in-place nil))
+ (let ((scroll-in-place nil)
+ (auto-window-vscroll nil))
(scroll-up lines))
(end-of-buffer
;; Long lines may cause an end-of-buffer error.
(scroll-up lines))
(end-of-buffer
;; Long lines may cause an end-of-buffer error.