Lines Matching +defs:article +defs:window
47 (defvar gnus-original-article-buffer)
55 (autoload 'gnus-get-buffer-window "gnus-win")
103 (defmacro gnus-eval-in-buffer-window (buffer &rest forms)
104 "Pop to BUFFER, evaluate FORMS, and then return to the original window."
108 `(let* ((,tempvar (selected-window))
110 (,w (gnus-get-buffer-window ,buf 'visible)))
115 (select-window ,w)
116 (set-buffer (window-buffer ,w)))
119 (select-window ,tempvar)))))
121 (put 'gnus-eval-in-buffer-window 'lisp-indent-function 1)
122 (put 'gnus-eval-in-buffer-window 'edebug-form-spec '(form body))
235 "Return the value of the header FIELD of current article."
244 "Fetch FIELD from the original version of the current article."
245 (with-current-buffer gnus-original-article-buffer
397 "Specifies date format depending on age of article.
400 the article is less than this number, then use `format-time-string'
401 with the corresponding FORMAT for displaying the date of the article.
551 (if (< (current-column) (/ (window-width) 2))
552 (set-window-hscroll (gnus-get-buffer-window (current-buffer) t) 0)
554 (end (window-end (gnus-get-buffer-window (current-buffer) t)))
557 ;; Find the longest line currently displayed in the window.
558 (goto-char (window-start))
566 (if (> max (window-width))
567 (set-window-hscroll
568 (gnus-get-buffer-window (current-buffer) t)
569 (min (- (current-column) (/ (window-width) 3))
570 (+ 2 (- max (window-width)))))
571 (set-window-hscroll (gnus-get-buffer-window (current-buffer) t) 0))
931 "Append the current article to an Rmail file named FILENAME."
957 (gnus-convert-article-to-rmail)
988 "Append the current article to a mail file named FILENAME."
1043 (defun gnus-convert-article-to-rmail ()
1044 "Convert article in current buffer to Rmail message format."
1046 ;; Convert article directly into Babyl format.
1116 (defun gnus-set-window-start (&optional point)
1117 "Set the window start to POINT, or (point) if nil."
1118 (let ((win (gnus-get-buffer-window (current-buffer) t)))
1120 (set-window-start win (or point (point))))))
1419 (save-window-excursion
1449 (setq n (/ (1- (window-width)) max)) ; items per line
1450 (setq width (/ (1- (window-width)) n)) ; width of each item
1482 (cond ((memq window-system '(x mac))
1484 ((eq window-system 'w32)
1489 (defun gnus-frame-or-window-display-name (object)
1490 "Given a frame or window, return the associated display name.
1496 (setq object (window-frame object))))
1516 ((fboundp 'force-window-update)
1517 'force-window-update)