180 |
the end of an article. |
the end of an article. |
181 |
|
|
182 |
If nil, the marking commands do NOT go to the next unread article |
If nil, the marking commands do NOT go to the next unread article |
183 |
(they go to the next article instead). If `never', commands that |
\(they go to the next article instead). If `never', commands that |
184 |
usually go to the next unread article, will go to the next article, |
usually go to the next unread article, will go to the next article, |
185 |
whether it is read or not." |
whether it is read or not." |
186 |
:group 'gnus-summary-marks |
:group 'gnus-summary-marks |
788 |
. gnus-summary-normal-read-face)) |
. gnus-summary-normal-read-face)) |
789 |
"*Controls the highlighting of summary buffer lines. |
"*Controls the highlighting of summary buffer lines. |
790 |
|
|
791 |
A list of (FORM . FACE) pairs. When deciding how a a particular |
A list of (FORM . FACE) pairs. When deciding how a particular summary |
792 |
summary line should be displayed, each form is evaluated. The content |
line should be displayed, each form is evaluated. The content of the |
793 |
of the face field after the first true form is used. You can change |
face field after the first true form is used. You can change how those |
794 |
how those summary lines are displayed, by editing the face field. |
summary lines are displayed, by editing the face field. |
795 |
|
|
796 |
You can use the following variables in the FORM field. |
You can use the following variables in the FORM field. |
797 |
|
|
806 |
(defcustom gnus-alter-header-function nil |
(defcustom gnus-alter-header-function nil |
807 |
"Function called to allow alteration of article header structures. |
"Function called to allow alteration of article header structures. |
808 |
The function is called with one parameter, the article header vector, |
The function is called with one parameter, the article header vector, |
809 |
which it may alter in any way.") |
which it may alter in any way." |
810 |
|
:type '(choice (const :tag "None" nil) |
811 |
|
function) |
812 |
|
:group 'gnus-summary) |
813 |
|
|
814 |
(defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string |
(defvar gnus-decode-encoded-word-function 'mail-decode-encoded-word-string |
815 |
"Variable that says which function should be used to decode a string with encoded words.") |
"Variable that says which function should be used to decode a string with encoded words.") |
1825 |
gnus-article-commands-menu gnus-article-mode-map "" |
gnus-article-commands-menu gnus-article-mode-map "" |
1826 |
(cons "Commands" innards)) |
(cons "Commands" innards)) |
1827 |
;; in Emacs, don't share menu. |
;; in Emacs, don't share menu. |
1828 |
(setq gnus-article-commands-menu |
(setq gnus-article-commands-menu |
1829 |
(copy-keymap gnus-summary-article-menu)) |
(copy-keymap gnus-summary-article-menu)) |
1830 |
(define-key gnus-article-mode-map [menu-bar commands] |
(define-key gnus-article-mode-map [menu-bar commands] |
1831 |
(cons "Commands" gnus-article-commands-menu)))) |
(cons "Commands" gnus-article-commands-menu)))) |
2193 |
(make-local-hook 'pre-command-hook) |
(make-local-hook 'pre-command-hook) |
2194 |
(add-hook 'pre-command-hook 'gnus-set-global-variables nil t) |
(add-hook 'pre-command-hook 'gnus-set-global-variables nil t) |
2195 |
(gnus-run-hooks 'gnus-summary-mode-hook) |
(gnus-run-hooks 'gnus-summary-mode-hook) |
2196 |
(mm-enable-multibyte-mule4) |
(mm-enable-multibyte) |
2197 |
(gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy) |
(gnus-update-format-specifications nil 'summary 'summary-mode 'summary-dummy) |
2198 |
(gnus-update-summary-mark-positions)) |
(gnus-update-summary-mark-positions)) |
2199 |
|
|
2388 |
|
|
2389 |
(defmacro gnus-summary-article-number () |
(defmacro gnus-summary-article-number () |
2390 |
"The article number of the article on the current line. |
"The article number of the article on the current line. |
2391 |
If there isn's an article number here, then we return the current |
If there isn't an article number here, then we return the current |
2392 |
article number." |
article number." |
2393 |
'(progn |
'(progn |
2394 |
(gnus-summary-skip-intangible) |
(gnus-summary-skip-intangible) |
2968 |
(let ((gnus-newsgroup-dormant nil)) |
(let ((gnus-newsgroup-dormant nil)) |
2969 |
(gnus-summary-initial-limit show-all)) |
(gnus-summary-initial-limit show-all)) |
2970 |
(gnus-summary-initial-limit show-all)) |
(gnus-summary-initial-limit show-all)) |
2971 |
;; When untreaded, all articles are always shown. |
;; When unthreaded, all articles are always shown. |
2972 |
(setq gnus-newsgroup-limit |
(setq gnus-newsgroup-limit |
2973 |
(mapcar |
(mapcar |
2974 |
(lambda (header) (mail-header-number header)) |
(lambda (header) (mail-header-number header)) |
3757 |
threads |
threads |
3758 |
(gnus-message 8 "Sorting threads...") |
(gnus-message 8 "Sorting threads...") |
3759 |
(prog1 |
(prog1 |
3760 |
(gnus-sort-threads-1 |
(gnus-sort-threads-1 |
3761 |
threads |
threads |
3762 |
(gnus-make-sort-function gnus-thread-sort-functions)) |
(gnus-make-sort-function gnus-thread-sort-functions)) |
3763 |
(gnus-message 8 "Sorting threads...done")))) |
(gnus-message 8 "Sorting threads...done")))) |
3764 |
|
|
4196 |
gnus-list-identifiers |
gnus-list-identifiers |
4197 |
(mapconcat 'identity gnus-list-identifiers " *\\|")))) |
(mapconcat 'identity gnus-list-identifiers " *\\|")))) |
4198 |
(dolist (header gnus-newsgroup-headers) |
(dolist (header gnus-newsgroup-headers) |
4199 |
(when (string-match (concat "\\(\\(\\(Re: +\\)?\\(" regexp |
(when (string-match (concat "\\(\\(\\(Re: +\\)?\\(" regexp |
4200 |
" *\\)\\)+\\(Re: +\\)?\\)") |
" *\\)\\)+\\(Re: +\\)?\\)") |
4201 |
(mail-header-subject header)) |
(mail-header-subject header)) |
4202 |
(mail-header-set-subject |
(mail-header-set-subject |
4418 |
(gnus-sorted-complement gnus-newsgroup-unreads articles))) |
(gnus-sorted-complement gnus-newsgroup-unreads articles))) |
4419 |
(when gnus-alter-articles-to-read-function |
(when gnus-alter-articles-to-read-function |
4420 |
(setq gnus-newsgroup-unreads |
(setq gnus-newsgroup-unreads |
4421 |
(sort |
(sort |
4422 |
(funcall gnus-alter-articles-to-read-function |
(funcall gnus-alter-articles-to-read-function |
4423 |
gnus-newsgroup-name gnus-newsgroup-unreads) |
gnus-newsgroup-name gnus-newsgroup-unreads) |
4424 |
'<))) |
'<))) |
4530 |
|
|
4531 |
(unless (memq (cdr type) uncompressed) |
(unless (memq (cdr type) uncompressed) |
4532 |
(setq list (gnus-compress-sequence (set symbol (sort list '<)) t))) |
(setq list (gnus-compress-sequence (set symbol (sort list '<)) t))) |
4533 |
|
|
4534 |
(when (gnus-check-backend-function |
(when (gnus-check-backend-function |
4535 |
'request-set-mark gnus-newsgroup-name) |
'request-set-mark gnus-newsgroup-name) |
4536 |
;; propagate flags to server, with the following exceptions: |
;; propagate flags to server, with the following exceptions: |
4549 |
(push (list add 'add (list (cdr type))) delta-marks)) |
(push (list add 'add (list (cdr type))) delta-marks)) |
4550 |
(when del |
(when del |
4551 |
(push (list del 'del (list (cdr type))) delta-marks))))) |
(push (list del 'del (list (cdr type))) delta-marks))))) |
4552 |
|
|
4553 |
(when list |
(when list |
4554 |
(push (cons (cdr type) list) newmarked))) |
(push (cons (cdr type) list) newmarked))) |
4555 |
|
|
4557 |
(unless (gnus-check-group gnus-newsgroup-name) |
(unless (gnus-check-group gnus-newsgroup-name) |
4558 |
(error "Can't open server for %s" gnus-newsgroup-name)) |
(error "Can't open server for %s" gnus-newsgroup-name)) |
4559 |
(gnus-request-set-mark gnus-newsgroup-name delta-marks)) |
(gnus-request-set-mark gnus-newsgroup-name delta-marks)) |
4560 |
|
|
4561 |
;; Enter these new marks into the info of the group. |
;; Enter these new marks into the info of the group. |
4562 |
(if (nthcdr 3 info) |
(if (nthcdr 3 info) |
4563 |
(setcar (nthcdr 3 info) newmarked) |
(setcar (nthcdr 3 info) newmarked) |
4589 |
(let* ((mformat (symbol-value |
(let* ((mformat (symbol-value |
4590 |
(intern |
(intern |
4591 |
(format "gnus-%s-mode-line-format-spec" where)))) |
(format "gnus-%s-mode-line-format-spec" where)))) |
4592 |
(gnus-tmp-group-name (gnus-group-name-decode |
(gnus-tmp-group-name (gnus-group-name-decode |
4593 |
gnus-newsgroup-name |
gnus-newsgroup-name |
4594 |
(gnus-group-name-charset |
(gnus-group-name-charset |
4595 |
nil |
nil |
4596 |
gnus-newsgroup-name))) |
gnus-newsgroup-name))) |
4597 |
(gnus-tmp-article-number (or gnus-current-article 0)) |
(gnus-tmp-article-number (or gnus-current-article 0)) |
5419 |
|
|
5420 |
(defun gnus-summary-toggle-truncation (&optional arg) |
(defun gnus-summary-toggle-truncation (&optional arg) |
5421 |
"Toggle truncation of summary lines. |
"Toggle truncation of summary lines. |
5422 |
With arg, turn line truncation on iff arg is positive." |
With arg, turn line truncation on if arg is positive." |
5423 |
(interactive "P") |
(interactive "P") |
5424 |
(setq truncate-lines |
(setq truncate-lines |
5425 |
(if (null arg) (not truncate-lines) |
(if (null arg) (not truncate-lines) |
5765 |
(list |
(list |
5766 |
(when current-prefix-arg |
(when current-prefix-arg |
5767 |
(completing-read |
(completing-read |
5768 |
"Faq dir: " (and (listp gnus-group-faq-directory) |
"FAQ dir: " (and (listp gnus-group-faq-directory) |
5769 |
(mapcar (lambda (file) (list file)) |
(mapcar (lambda (file) (list file)) |
5770 |
gnus-group-faq-directory)))))) |
gnus-group-faq-directory)))))) |
5771 |
(let (gnus-faq-buffer) |
(let (gnus-faq-buffer) |
5952 |
"Display ARTICLE in article buffer." |
"Display ARTICLE in article buffer." |
5953 |
(when (gnus-buffer-live-p gnus-article-buffer) |
(when (gnus-buffer-live-p gnus-article-buffer) |
5954 |
(with-current-buffer gnus-article-buffer |
(with-current-buffer gnus-article-buffer |
5955 |
(mm-enable-multibyte-mule4))) |
(mm-enable-multibyte))) |
5956 |
(gnus-set-global-variables) |
(gnus-set-global-variables) |
5957 |
(if (null article) |
(if (null article) |
5958 |
nil |
nil |
6006 |
(when (gnus-buffer-live-p gnus-article-buffer) |
(when (gnus-buffer-live-p gnus-article-buffer) |
6007 |
(with-current-buffer gnus-article-buffer |
(with-current-buffer gnus-article-buffer |
6008 |
(if (not gnus-article-decoded-p) ;; a local variable |
(if (not gnus-article-decoded-p) ;; a local variable |
6009 |
(mm-disable-multibyte-mule4)))) |
(mm-disable-multibyte)))) |
6010 |
(when (or all-headers gnus-show-all-headers) |
(when (or all-headers gnus-show-all-headers) |
6011 |
(gnus-article-show-all-headers)) |
(gnus-article-show-all-headers)) |
6012 |
(gnus-article-set-window-start |
(gnus-article-set-window-start |
6406 |
(defun gnus-summary-limit-to-subject (subject &optional header not-matching) |
(defun gnus-summary-limit-to-subject (subject &optional header not-matching) |
6407 |
"Limit the summary buffer to articles that have subjects that match a regexp. |
"Limit the summary buffer to articles that have subjects that match a regexp. |
6408 |
If NOT-MATCHING, excluding articles that have subjects that match a regexp." |
If NOT-MATCHING, excluding articles that have subjects that match a regexp." |
6409 |
(interactive |
(interactive |
6410 |
(list (read-string (if current-prefix-arg |
(list (read-string (if current-prefix-arg |
6411 |
"Exclude subject (regexp): " |
"Exclude subject (regexp): " |
6412 |
"Limit to subject (regexp): ")) |
"Limit to subject (regexp): ")) |
6413 |
nil current-prefix-arg)) |
nil current-prefix-arg)) |
6414 |
(unless header |
(unless header |
6415 |
(setq header "subject")) |
(setq header "subject")) |
6416 |
(when (not (equal "" subject)) |
(when (not (equal "" subject)) |
6417 |
(prog1 |
(prog1 |
6418 |
(let ((articles (gnus-summary-find-matching |
(let ((articles (gnus-summary-find-matching |
6419 |
(or header "subject") subject 'all nil nil |
(or header "subject") subject 'all nil nil |
6420 |
not-matching))) |
not-matching))) |
6421 |
(unless articles |
(unless articles |
6422 |
(error "Found no matches for \"%s\"" subject)) |
(error "Found no matches for \"%s\"" subject)) |
6426 |
(defun gnus-summary-limit-to-author (from &optional not-matching) |
(defun gnus-summary-limit-to-author (from &optional not-matching) |
6427 |
"Limit the summary buffer to articles that have authors that match a regexp. |
"Limit the summary buffer to articles that have authors that match a regexp. |
6428 |
If NOT-MATCHING, excluding articles that have authors that match a regexp." |
If NOT-MATCHING, excluding articles that have authors that match a regexp." |
6429 |
(interactive |
(interactive |
6430 |
(list (read-string (if current-prefix-arg |
(list (read-string (if current-prefix-arg |
6431 |
"Exclude author (regexp): " |
"Exclude author (regexp): " |
6432 |
"Limit to author (regexp): ")) |
"Limit to author (regexp): ")) |
6433 |
current-prefix-arg)) |
current-prefix-arg)) |
6434 |
(gnus-summary-limit-to-subject from "from" not-matching)) |
(gnus-summary-limit-to-subject from "from" not-matching)) |
6435 |
|
|
6487 |
nil |
nil |
6488 |
t)))) |
t)))) |
6489 |
(list header |
(list header |
6490 |
(read-string (format "%s header %s (regexp): " |
(read-string (format "%s header %s (regexp): " |
6491 |
(if current-prefix-arg "Exclude" "Limit to") |
(if current-prefix-arg "Exclude" "Limit to") |
6492 |
header)) |
header)) |
6493 |
current-prefix-arg))) |
current-prefix-arg))) |
6494 |
(when (not (equal "" regexp)) |
(when (not (equal "" regexp)) |
6495 |
(prog1 |
(prog1 |
6496 |
(let ((articles (gnus-summary-find-matching |
(let ((articles (gnus-summary-find-matching |
6497 |
(cons 'extra header) regexp 'all nil nil |
(cons 'extra header) regexp 'all nil nil |
6498 |
not-matching))) |
not-matching))) |
6499 |
(unless articles |
(unless articles |
6500 |
(error "Found no matches for \"%s\"" regexp)) |
(error "Found no matches for \"%s\"" regexp)) |
6993 |
(gnus-message 3 "Couldn't fetch article %s" message-id))))))) |
(gnus-message 3 "Couldn't fetch article %s" message-id))))))) |
6994 |
|
|
6995 |
(defun gnus-refer-article-methods () |
(defun gnus-refer-article-methods () |
6996 |
"Return a list of referrable methods." |
"Return a list of referable methods." |
6997 |
(cond |
(cond |
6998 |
;; No method, so we default to current and native. |
;; No method, so we default to current and native. |
6999 |
((null gnus-refer-article-method) |
((null gnus-refer-article-method) |
7053 |
;; the parent article. |
;; the parent article. |
7054 |
(when (setq to-address (or (message-fetch-field "reply-to") |
(when (setq to-address (or (message-fetch-field "reply-to") |
7055 |
(message-fetch-field "from"))) |
(message-fetch-field "from"))) |
7056 |
(setq params (append |
(setq params (append |
7057 |
(list (cons 'to-address |
(list (cons 'to-address |
7058 |
(funcall gnus-decode-encoded-word-function |
(funcall gnus-decode-encoded-word-function |
7059 |
to-address)))))) |
to-address)))))) |
7060 |
(setq dig (nnheader-set-temp-buffer " *gnus digest buffer*")) |
(setq dig (nnheader-set-temp-buffer " *gnus digest buffer*")) |
7248 |
BACKWARD is non-nil. If BACKWARD is `all', do all articles. |
BACKWARD is non-nil. If BACKWARD is `all', do all articles. |
7249 |
If UNREAD is non-nil, only unread articles will |
If UNREAD is non-nil, only unread articles will |
7250 |
be taken into consideration. If NOT-CASE-FOLD, case won't be folded |
be taken into consideration. If NOT-CASE-FOLD, case won't be folded |
7251 |
in the comparisons. If NOT-MATCHING, return a list of all articles that |
in the comparisons. If NOT-MATCHING, return a list of all articles that |
7252 |
not match REGEXP on HEADER." |
not match REGEXP on HEADER." |
7253 |
(let ((case-fold-search (not not-case-fold)) |
(let ((case-fold-search (not not-case-fold)) |
7254 |
articles d func) |
articles d func) |
7271 |
(gnus-data-unread-p d)) ; Or just unreads. |
(gnus-data-unread-p d)) ; Or just unreads. |
7272 |
(vectorp (gnus-data-header d)) ; It's not a pseudo. |
(vectorp (gnus-data-header d)) ; It's not a pseudo. |
7273 |
(if not-matching |
(if not-matching |
7274 |
(not (string-match |
(not (string-match |
7275 |
regexp |
regexp |
7276 |
(funcall func (gnus-data-header d)))) |
(funcall func (gnus-data-header d)))) |
7277 |
(string-match regexp |
(string-match regexp |
7936 |
"Edit the current article. |
"Edit the current article. |
7937 |
This will have permanent effect only in mail groups. |
This will have permanent effect only in mail groups. |
7938 |
If ARG is nil, edit the decoded articles. |
If ARG is nil, edit the decoded articles. |
7939 |
If ARG is 1, edit the raw articles. |
If ARG is 1, edit the raw articles. |
7940 |
If ARG is 2, edit the raw articles even in read-only groups. |
If ARG is 2, edit the raw articles even in read-only groups. |
7941 |
Otherwise, allow editing of articles even in read-only |
Otherwise, allow editing of articles even in read-only |
7942 |
groups." |
groups." |
7943 |
(interactive "P") |
(interactive "P") |
7944 |
(let (force raw) |
(let (force raw) |
7945 |
(cond |
(cond |
7946 |
((null arg)) |
((null arg)) |
7947 |
((eq arg 1) (setq raw t)) |
((eq arg 1) (setq raw t)) |
7948 |
((eq arg 2) (setq raw t |
((eq arg 2) (setq raw t |
7961 |
(gnus-summary-show-article t) |
(gnus-summary-show-article t) |
7962 |
(when (and (not raw) (gnus-buffer-live-p gnus-article-buffer)) |
(when (and (not raw) (gnus-buffer-live-p gnus-article-buffer)) |
7963 |
(with-current-buffer gnus-article-buffer |
(with-current-buffer gnus-article-buffer |
7964 |
(mm-enable-multibyte-mule4))) |
(mm-enable-multibyte))) |
7965 |
(if (equal gnus-newsgroup-name "nndraft:drafts") |
(if (equal gnus-newsgroup-name "nndraft:drafts") |
7966 |
(setq raw t)) |
(setq raw t)) |
7967 |
(gnus-article-edit-article |
(gnus-article-edit-article |
7968 |
(if raw 'ignore |
(if raw 'ignore |
7969 |
#'(lambda () |
#'(lambda () |
7970 |
(let ((mbl mml-buffer-list)) |
(let ((mbl mml-buffer-list)) |
7971 |
(setq mml-buffer-list nil) |
(setq mml-buffer-list nil) |
7972 |
(mime-to-mml) |
(mime-to-mml) |
7977 |
(add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)))) |
(add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)))) |
7978 |
`(lambda (no-highlight) |
`(lambda (no-highlight) |
7979 |
(let ((mail-parse-charset ',gnus-newsgroup-charset) |
(let ((mail-parse-charset ',gnus-newsgroup-charset) |
7980 |
(mail-parse-ignored-charsets |
(mail-parse-ignored-charsets |
7981 |
',gnus-newsgroup-ignored-charsets)) |
',gnus-newsgroup-ignored-charsets)) |
7982 |
,(if (not raw) '(progn |
,(if (not raw) '(progn |
7983 |
(mml-to-mime) |
(mml-to-mime) |
7984 |
(mml-destroy-buffers) |
(mml-destroy-buffers) |
7985 |
(remove-hook 'kill-buffer-hook |
(remove-hook 'kill-buffer-hook |
7986 |
'mml-destroy-buffers t) |
'mml-destroy-buffers t) |
7987 |
(kill-local-variable 'mml-buffer-list))) |
(kill-local-variable 'mml-buffer-list))) |
7988 |
(gnus-summary-edit-article-done |
(gnus-summary-edit-article-done |
7989 |
,(or (mail-header-references gnus-current-headers) "") |
,(or (mail-header-references gnus-current-headers) "") |
7990 |
,(gnus-group-read-only-p) |
,(gnus-group-read-only-p) |
7991 |
,gnus-summary-buffer no-highlight)))))))) |
,gnus-summary-buffer no-highlight)))))))) |
7992 |
|
|
7993 |
(defalias 'gnus-summary-edit-article-postpone 'gnus-article-edit-exit) |
(defalias 'gnus-summary-edit-article-postpone 'gnus-article-edit-exit) |
8286 |
If N is negative, mark backwards instead. Mark with MARK, ?r by default. |
If N is negative, mark backwards instead. Mark with MARK, ?r by default. |
8287 |
The difference between N and the actual number of articles marked is |
The difference between N and the actual number of articles marked is |
8288 |
returned. |
returned. |
8289 |
Iff NO-EXPIRE, auto-expiry will be inhibited." |
If NO-EXPIRE, auto-expiry will be inhibited." |
8290 |
(interactive "p") |
(interactive "p") |
8291 |
(gnus-summary-show-thread) |
(gnus-summary-show-thread) |
8292 |
(let ((backward (< n 0)) |
(let ((backward (< n 0)) |
8379 |
If MARK is nil, then the default character `?r' is used. |
If MARK is nil, then the default character `?r' is used. |
8380 |
If ARTICLE is nil, then the article on the current line will be |
If ARTICLE is nil, then the article on the current line will be |
8381 |
marked. |
marked. |
8382 |
Iff NO-EXPIRE, auto-expiry will be inhibited." |
If NO-EXPIRE, auto-expiry will be inhibited." |
8383 |
;; The mark might be a string. |
;; The mark might be a string. |
8384 |
(when (stringp mark) |
(when (stringp mark) |
8385 |
(setq mark (aref mark 0))) |
(setq mark (aref mark 0))) |
9349 |
"Save parts matching TYPE to DIR. |
"Save parts matching TYPE to DIR. |
9350 |
If REVERSE, save parts that do not match TYPE." |
If REVERSE, save parts that do not match TYPE." |
9351 |
(interactive |
(interactive |
9352 |
(list (read-string "Save parts of type: " |
(list (read-string "Save parts of type: " |
9353 |
(or (car gnus-summary-save-parts-type-history) |
(or (car gnus-summary-save-parts-type-history) |
9354 |
gnus-summary-save-parts-default-mime) |
gnus-summary-save-parts-default-mime) |
9355 |
'gnus-summary-save-parts-type-history) |
'gnus-summary-save-parts-type-history) |
9356 |
(setq gnus-summary-save-parts-last-directory |
(setq gnus-summary-save-parts-last-directory |
9357 |
(read-file-name "Save to directory: " |
(read-file-name "Save to directory: " |
9358 |
gnus-summary-save-parts-last-directory |
gnus-summary-save-parts-last-directory |
9359 |
nil t)) |
nil t)) |
9360 |
current-prefix-arg)) |
current-prefix-arg)) |
9697 |
`(progn |
`(progn |
9698 |
(gnus-info-set-marks ',info ',(gnus-info-marks info) t) |
(gnus-info-set-marks ',info ',(gnus-info-marks info) t) |
9699 |
(gnus-info-set-read ',info ',(gnus-info-read info)) |
(gnus-info-set-read ',info ',(gnus-info-read info)) |
9700 |
(gnus-get-unread-articles-in-group ',info |
(gnus-get-unread-articles-in-group ',info |
9701 |
(gnus-active ,group)) |
(gnus-active ,group)) |
9702 |
(gnus-group-update-group ,group t) |
(gnus-group-update-group ,group t) |
9703 |
,setmarkundo)))) |
,setmarkundo)))) |
9848 |
mark (car lway) lway name))) |
mark (car lway) lway name))) |
9849 |
(setq func (eval func)) |
(setq func (eval func)) |
9850 |
(define-key map (nth 4 lway) func))))) |
(define-key map (nth 4 lway) func))))) |
9851 |
|
|
9852 |
(defun gnus-summary-make-marking-command-1 (mark way lway name) |
(defun gnus-summary-make-marking-command-1 (mark way lway name) |
9853 |
`(defun ,(intern |
`(defun ,(intern |
9854 |
(format "gnus-summary-put-mark-as-%s%s" |
(format "gnus-summary-put-mark-as-%s%s" |
9865 |
name (cadr lway)) |
name (cadr lway)) |
9866 |
(interactive "p") |
(interactive "p") |
9867 |
(gnus-summary-generic-mark n ,mark ',(nth 2 lway) ,(nth 3 lway)))) |
(gnus-summary-generic-mark n ,mark ',(nth 2 lway) ,(nth 3 lway)))) |
9868 |
|
|
9869 |
(defun gnus-summary-generic-mark (n mark move unread) |
(defun gnus-summary-generic-mark (n mark move unread) |
9870 |
"Mark N articles with MARK." |
"Mark N articles with MARK." |
9871 |
(unless (eq major-mode 'gnus-summary-mode) |
(unless (eq major-mode 'gnus-summary-mode) |