Lines Matching +refs:cl +refs:set +refs:frame +refs:visible
31 (require 'cl)
159 If `gnus-visible-headers' is non-nil, this variable will be ignored."
165 (defcustom gnus-visible-headers
168 This variable can also be a list of regexp of headers to remain visible.
202 :type '(set (const :tag "Headers with no content." empty)
216 By default, if you set this t, then Gnus will display citations and
428 :set (lambda (symbol value)
429 (set-default symbol (mapcar 'gnus-emphasis-custom-value-to-external
515 (defcustom gnus-saved-headers gnus-visible-headers
588 and the functions to which you may set `gnus-default-article-saver':
643 you could set this variable to something like:
897 If set, this variable overrides `gnus-unbuttonized-mime-types'.
898 To see e.g. security buttons you could set this to
1263 When set to t, it also strips trailing blanks in all MIME parts.
1274 When set to t, it also strips trailing blanks in all MIME parts."
1343 :set (lambda (symbol value)
1344 (set-default
1496 To automatically treat X-PGP-Sig, set it to head.
1632 (set-buffer gnus-article-buffer)
1645 (set-buffer gnus-article-buffer)
1751 ignored visible beg)
1753 ;; `gnus-ignored-headers' and `gnus-visible-headers' may be
1757 (progn (set-buffer gnus-summary-buffer) t)
1759 (setq ignored (when (not gnus-visible-headers)
1766 visible (cond ((stringp gnus-visible-headers)
1767 gnus-visible-headers)
1768 ((and gnus-visible-headers
1769 (listp gnus-visible-headers))
1771 gnus-visible-headers
1773 (set-buffer cur))
1784 ;; `gnus-ignored-headers' and `gnus-visible-headers' to
1785 ;; select which header lines is to remain visible in the
1792 (if (or (and visible (looking-at visible))
2227 (set-buffer gnus-original-article-buffer))
2239 (insert "[no `from' set]\n"))
2270 (set-buffer gnus-original-article-buffer))
2294 (gnus-set-process-query-on-exit-flag
2315 (set-buffer gnus-article-buffer)
2320 (save-excursion (set-buffer gnus-summary-buffer)
2333 (set-buffer gnus-summary-buffer)
2375 (set-buffer gnus-summary-buffer)
2736 (set-buffer gnus-article-buffer)
2760 (gnus-set-mode-line 'article))
3192 (set-buffer (window-buffer w))
3200 nil 'visible))))))
3284 regexp elem beg invisible visible face)
3291 visible (nth 2 elem)
3294 (when (and (match-beginning visible) (match-beginning invisible))
3298 (match-beginning visible) (match-end visible) 'emphasis)
3300 (match-beginning visible) (match-end visible) 'face face)
3336 (let ((gnus-visible-headers
3338 gnus-saved-headers gnus-visible-headers))
3341 (set-buffer save-buffer)
3349 (set-buffer gnus-article-buffer)
3359 (set-buffer gnus-article-current-summary)
3446 (set variable result))
3448 (set dir-var (file-name-directory result)))
3767 (set-buffer gnus-article-buffer)
3823 (set-keymap-parent gnus-article-mode-map widget-keymap)
3871 ;; Fixme: this should use :active (and maybe :visible).
3916 (set (make-local-variable 'tool-bar-map) gnus-summary-tool-bar-map)))
3918 (set (make-local-variable 'page-delimiter) gnus-page-delimiter)
3919 (set (make-local-variable 'gnus-page-broken) nil)
3930 (set (make-local-variable 'nobreak-char-display) nil)
3932 (gnus-set-default-directory)
3935 (set-syntax-table gnus-article-mode-syntax-table)
3961 (set-buffer gnus-summary-buffer)
3964 (gnus-set-global-variables)))
3968 (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
3977 (set-buffer-modified-p nil)
3984 (set-buffer name)
3985 (set (make-local-variable 'gnus-article-edit-mode) nil)
3999 (set-buffer (gnus-get-buffer-create name))
4002 (gnus-summary-set-local-parameters gnus-newsgroup-name)
4007 (defun gnus-article-set-window-start (&optional line)
4008 (set-window-start
4011 (set-buffer gnus-article-buffer)
4028 (set-buffer gnus-summary-buffer))
4037 (set-buffer gnus-article-buffer)
4051 (set-buffer gnus-summary-buffer)
4057 (gnus-summary-set-agent-mark article)
4066 (set-buffer summary-buffer)
4075 (gnus-set-global-variables))
4078 (gnus-set-mode-line 'article)))
4087 (set-buffer summary-buffer)
4105 (gnus-set-mode-line 'summary)
4109 (gnus-set-global-variables)
4123 (gnus-set-mode-line 'article))
4127 (set-window-point (get-buffer-window (current-buffer)) (point))
4204 (set-keymap-parent map gnus-article-mode-map))
4248 (set-buffer gnus-article-buffer)
4295 (set-buffer gnus-summary-buffer)
4311 (set (make-local-variable 'mml-buffer-list) mbl1))
4318 (message-options-set-recipient)
4374 (set-buffer gnus-summary-buffer)
4392 (set (make-local-variable 'mml-buffer-list) mbl1))
4399 (message-options-set-recipient)
4538 ;; We do it this way to make `normal-mode' set the appropriate mode.
4714 (let ((window (get-buffer-window gnus-article-buffer 'visible))
4715 frame)
4719 (setq frame (selected-frame))
4720 (gnus-select-frame-set-input-focus (window-frame window))
4729 (gnus-select-frame-set-input-focus frame)))))
4791 (set-buffer gnus-article-buffer)
4801 (gnus-set-window-start)))))))
4820 (set-buffer gnus-summary-buffer)
4937 ;; may change the point. So we set the window point.
4938 (set-window-point window point)))
5112 (set-buffer gnus-summary-buffer)
5237 (save-excursion (set-buffer gnus-summary-buffer)
5255 " " "All citation text visible")
5257 " " "All headers visible.")
5261 " " "Signature is visible")
5289 (set-buffer gnus-article-buffer)
5338 (not (save-excursion (set-buffer gnus-summary-buffer)
5402 (set-buffer gnus-article-buffer)
5476 (and (pos-visible-in-window-p) ;Not continuation line.
5516 ;; too many number of lines if `scroll-margin' is set as two or greater.
5574 (set-buffer gnus-summary-buffer)
5583 (gnus-article-set-globals)
5602 (set-buffer obuf)
5603 (set-window-configuration owin)
5604 (set-window-point (get-buffer-window (current-buffer)) (point))))
5635 (set-buffer gnus-article-current-summary)
5657 (set-buffer gnus-article-current-summary))
5686 (set-buffer obuf)
5688 (set-window-configuration owin))
5691 (set-window-start (get-buffer-window (current-buffer))
5693 (set-window-point (get-buffer-window (current-buffer))
5697 (set-window-point win new-sum-point)
5698 (set-window-start win new-sum-start)
5699 (set-window-hscroll win new-sum-hscroll))))
5700 (set-window-configuration owin)
5709 (set-buffer gnus-article-current-summary)
5730 (set-buffer gnus-article-current-summary)
5835 (set-buffer gnus-summary-buffer)
5872 (set-buffer gnus-summary-buffer)
5880 (set-buffer gnus-original-article-buffer)
5959 (set-buffer gnus-original-article-buffer)
5960 (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
5979 (set-buffer gnus-summary-buffer)
5982 (set-window-point (gnus-get-buffer-window (current-buffer) t)
5984 (set-buffer buf))))))
6003 (set-keymap-parent gnus-article-edit-mode-map text-mode-map)
6070 (set (make-local-variable 'font-lock-defaults)
6072 (set (make-local-variable 'mail-header-separator) "")
6073 (set (make-local-variable 'gnus-article-edit-mode) t)
6101 (set-buffer gnus-article-buffer)
6107 (set-buffer-modified-p nil)
6123 (set-buffer buf)
6131 (set-buffer gnus-original-article-buffer)
6138 (gnus-set-text-properties (point-min) (point-max) nil)
6140 (set-window-configuration winconf)
6141 (set-buffer buf)
6142 (set-window-start (get-buffer-window buf) start)
6143 (set-window-point (get-buffer-window buf) (point)))
6160 (set-window-configuration winconf)
6163 (set-buffer curbuf)
6164 (set-window-start (get-buffer-window (current-buffer)) window-start)
6271 message ID or a mail address, respectively. If this variable is set to the
6338 address. The REGEXP is processed with `case-fold-search' set to nil."
6520 positives are possible. Note that you can set this variable local to
6523 how to set variables in specific groups."
6532 positives are possible. Note that you can set this variable local to
6535 how to set variables in specific groups."
6544 positives are possible. Note that you can set this variable local to
6547 `gnus-parameters' on how to set variables in specific groups."
6756 (set-buffer (window-buffer (posn-window (event-start event))))
6801 (set-buffer gnus-article-buffer)
6842 (set-buffer gnus-article-buffer)
6853 (end (set-marker (make-marker) (1+ (match-end 0)))))
6867 (set-buffer gnus-article-buffer)
6883 (set-marker marker nil)))
6903 (car (push (set-marker (make-marker) from)
6911 (set-buffer gnus-article-buffer)
6963 (defun gnus-article-set-globals ()
6965 (set-buffer gnus-summary-buffer)
6966 (gnus-set-global-variables)))
6970 (set-buffer gnus-article-buffer)
6986 (gnus-set-mode-line 'article))))
7008 (gnus-set-text-properties
7056 (set-buffer gnus-summary-buffer)
7121 (set-buffer gnus-summary-buffer)
7203 (set-keymap-parent map gnus-article-mode-map))
7212 (set-keymap-parent map gnus-article-mode-map))
7342 (set-buffer gnus-summary-buffer))
7414 (set-buffer gnus-summary-buffer)
7419 (gnus-set-global-variables)
7425 (set-buffer gnus-article-buffer)
7448 (message-options-set 'message-sender user-mail-address)
7449 (message-options-set 'message-recipients user-mail-address)
7450 (message-options-set 'message-sign-encrypt 'not)
7462 (set-buffer gnus-original-article-buffer)
7491 (set-keymap-parent map gnus-article-mode-map))
7523 (set-marker (car region) nil)
7524 (set-marker (cdr region) nil))
7635 (mm-set-handle-multipart-parameter
7637 (cons (set-marker (make-marker) (point-min))
7638 (set-marker (make-marker) (point-max))))))