Mercurial > emacs
comparison lisp/gnus/gnus-sum.el @ 31785:51cea22fd2aa
Merge from Gnus trunk.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 20 Sep 2000 16:54:57 +0000 |
| parents | 9968f55ad26e |
| children | 5155c0078eb9 |
comparison
equal
deleted
inserted
replaced
| 31784:33d474f4b866 | 31785:51cea22fd2aa |
|---|---|
| 883 "*All orphans get this score added. Set in the score file." | 883 "*All orphans get this score added. Set in the score file." |
| 884 :group 'gnus-score-default | 884 :group 'gnus-score-default |
| 885 :type '(choice (const nil) | 885 :type '(choice (const nil) |
| 886 integer)) | 886 integer)) |
| 887 | 887 |
| 888 (defcustom gnus-summary-save-parts-default-mime "image/.*" | |
| 889 "*A regexp to match MIME parts when saving multiple parts of a message | |
| 890 with gnus-summary-save-parts (X m). This regexp will be used by default | |
| 891 when prompting the user for which type of files to save." | |
| 892 :group 'gnus-summary | |
| 893 :type 'regexp) | |
| 894 | |
| 895 | |
| 888 ;;; Internal variables | 896 ;;; Internal variables |
| 889 | 897 |
| 890 (defvar gnus-article-mime-handles nil) | 898 (defvar gnus-article-mime-handles nil) |
| 891 (defvar gnus-article-decoded-p nil) | 899 (defvar gnus-article-decoded-p nil) |
| 892 (defvar gnus-scores-exclude-files nil) | 900 (defvar gnus-scores-exclude-files nil) |
| 899 | 907 |
| 900 (defvar gnus-thread-indent-array nil) | 908 (defvar gnus-thread-indent-array nil) |
| 901 (defvar gnus-thread-indent-array-level gnus-thread-indent-level) | 909 (defvar gnus-thread-indent-array-level gnus-thread-indent-level) |
| 902 (defvar gnus-sort-gathered-threads-function 'gnus-thread-sort-by-number | 910 (defvar gnus-sort-gathered-threads-function 'gnus-thread-sort-by-number |
| 903 "Function called to sort the articles within a thread after it has been gathered together.") | 911 "Function called to sort the articles within a thread after it has been gathered together.") |
| 912 | |
| 913 (defvar gnus-summary-save-parts-type-history nil) | |
| 914 (defvar gnus-summary-save-parts-last-directory nil) | |
| 904 | 915 |
| 905 ;; Avoid highlighting in kill files. | 916 ;; Avoid highlighting in kill files. |
| 906 (defvar gnus-summary-inhibit-highlight nil) | 917 (defvar gnus-summary-inhibit-highlight nil) |
| 907 (defvar gnus-newsgroup-selected-overlay nil) | 918 (defvar gnus-newsgroup-selected-overlay nil) |
| 908 (defvar gnus-inhibit-limiting nil) | 919 (defvar gnus-inhibit-limiting nil) |
| 3298 (nnheader-nov-read-message-id) ; id | 3309 (nnheader-nov-read-message-id) ; id |
| 3299 (nnheader-nov-field) ; refs | 3310 (nnheader-nov-field) ; refs |
| 3300 (nnheader-nov-read-integer) ; chars | 3311 (nnheader-nov-read-integer) ; chars |
| 3301 (nnheader-nov-read-integer) ; lines | 3312 (nnheader-nov-read-integer) ; lines |
| 3302 (unless (eobp) | 3313 (unless (eobp) |
| 3303 (nnheader-nov-field)) ; misc | 3314 (if (looking-at "Xref: ") |
| 3315 (goto-char (match-end 0))) | |
| 3316 (nnheader-nov-field)) ; Xref | |
| 3304 (nnheader-nov-parse-extra)))) ; extra | 3317 (nnheader-nov-parse-extra)))) ; extra |
| 3305 | 3318 |
| 3306 (widen)) | 3319 (widen)) |
| 3307 | 3320 |
| 3308 (when gnus-alter-header-function | 3321 (when gnus-alter-header-function |
| 9193 | 9206 |
| 9194 (defun gnus-summary-save-parts (type dir n &optional reverse) | 9207 (defun gnus-summary-save-parts (type dir n &optional reverse) |
| 9195 "Save parts matching TYPE to DIR. | 9208 "Save parts matching TYPE to DIR. |
| 9196 If REVERSE, save parts that do not match TYPE." | 9209 If REVERSE, save parts that do not match TYPE." |
| 9197 (interactive | 9210 (interactive |
| 9198 (list (read-string "Save parts of type: " "image/.*") | 9211 (list (read-string "Save parts of type: " |
| 9199 (read-file-name "Save to directory: " nil nil t) | 9212 (or (car gnus-summary-save-parts-type-history) |
| 9213 gnus-summary-save-parts-default-mime) | |
| 9214 'gnus-summary-save-parts-type-history) | |
| 9215 (setq gnus-summary-save-parts-last-directory | |
| 9216 (read-file-name "Save to directory: " | |
| 9217 gnus-summary-save-parts-last-directory | |
| 9218 nil t)) | |
| 9200 current-prefix-arg)) | 9219 current-prefix-arg)) |
| 9201 (gnus-summary-iterate n | 9220 (gnus-summary-iterate n |
| 9202 (let ((gnus-display-mime-function nil) | 9221 (let ((gnus-display-mime-function nil) |
| 9203 (gnus-inhibit-treatment t)) | 9222 (gnus-inhibit-treatment t)) |
| 9204 (gnus-summary-select-article)) | 9223 (gnus-summary-select-article)) |