From: yamaoka Date: Mon, 14 Jun 1999 10:54:22 +0000 (+0000) Subject: Importing Pterodactyl Gnus v0.87. X-Git-Tag: pgnus-0_87~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=058f69b22af921ad5b50ea86742c009d0b7a7cb4;p=elisp%2Fgnus.git- Importing Pterodactyl Gnus v0.87. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 07c8ed2..218520e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,17 @@ +Mon Jun 14 01:15:59 1999 Lars Magne Ingebrigtsen + + * gnus.el: Pterodactyl Gnus v0.87 is released. + +1999-06-14 02:46:05 Lars Magne Ingebrigtsen + + * mail-source.el (mail-source-fetch-file): Use prescript-delay. + (mail-source-run-script): New function. + (mail-source-fetch-pop): Use it. + +1999-06-13 09:52:11 Lars Magne Ingebrigtsen + + * gnus-art.el (gnus-article-setup-highlight-words): Moved here. + Sun Jun 13 07:30:40 1999 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.86 is released. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index f97f826..b7fef0e 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -892,6 +892,7 @@ See the manual for details." (defvar article-goto-body-goes-to-point-min-p nil) (defvar gnus-article-wash-types nil) +(defvar gnus-article-emphasis-alist nil) (defvar gnus-article-mime-handle-alist-1 nil) (defvar gnus-treatment-function-alist @@ -1996,7 +1997,7 @@ This format is defined by the `gnus-article-time-format' variable." (interactive (gnus-article-hidden-arg)) (unless (gnus-article-check-hidden-text 'emphasis arg) (save-excursion - (let ((alist (or gnus-newsgroup-emphasis-alist gnus-emphasis-alist)) + (let ((alist (or gnus-article-emphasis-alist gnus-emphasis-alist)) (buffer-read-only nil) (props (append '(article-type emphasis) gnus-hidden-properties)) @@ -2019,6 +2020,26 @@ This format is defined by the `gnus-article-time-format' variable." (match-beginning visible) (match-end visible) 'face face) (goto-char (match-end invisible))))))))) +(defun gnus-article-setup-highlight-words (&optional highlight-words) + "Setup newsgroup emphasis alist." + (unless gnus-article-emphasis-alist + (let ((name (and gnus-newsgroup-name + (gnus-group-real-name gnus-newsgroup-name)))) + (make-local-variable 'gnus-article-emphasis-alist) + (setq gnus-article-emphasis-alist + (nconc + (let ((alist gnus-group-highlight-words-alist) elem highlight) + (while (setq elem (pop alist)) + (when (and name (string-match (car elem) name)) + (setq alist nil + highlight (copy-list (cdr elem))))) + highlight) + (copy-list highlight-words) + (if gnus-newsgroup-name + (copy-list (gnus-group-find-parameter + gnus-newsgroup-name 'highlight-words t))) + gnus-emphasis-alist))))) + (defvar gnus-summary-article-menu) (defvar gnus-summary-post-menu) @@ -2484,6 +2505,7 @@ commands: (setq gnus-article-buffer name) (setq gnus-original-article-buffer original) (gnus-set-global-variables))) + (gnus-article-setup-highlight-words) ;; Init original article buffer. (save-excursion (set-buffer (gnus-get-buffer-create gnus-original-article-buffer)) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 0445367..16eb139 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1019,7 +1019,6 @@ variable (string, integer, character, etc).") (defvar gnus-last-article nil) (defvar gnus-newsgroup-history nil) (defvar gnus-newsgroup-charset nil) -(defvar gnus-newsgroup-emphasis-alist nil) (defconst gnus-summary-local-variables '(gnus-newsgroup-name @@ -1053,7 +1052,7 @@ variable (string, integer, character, etc).") gnus-cache-removable-articles gnus-newsgroup-cached gnus-newsgroup-data gnus-newsgroup-data-reverse gnus-newsgroup-limit gnus-newsgroup-limits - gnus-newsgroup-charset gnus-newsgroup-emphasis-alist) + gnus-newsgroup-charset) "Variables that are buffer-local to the summary buffers.") ;; Byte-compiler warning. @@ -2439,8 +2438,7 @@ marks of articles." (gac gnus-article-current) (reffed gnus-reffed-article-number) (score-file gnus-current-score-file) - (default-charset gnus-newsgroup-charset) - (emphasis-alist gnus-newsgroup-emphasis-alist)) + (default-charset gnus-newsgroup-charset)) (save-excursion (set-buffer gnus-group-buffer) (setq gnus-newsgroup-name name @@ -2454,8 +2452,7 @@ marks of articles." gnus-original-article-buffer original gnus-reffed-article-number reffed gnus-current-score-file score-file - gnus-newsgroup-charset default-charset - gnus-newsgroup-emphasis-alist emphasis-alist) + gnus-newsgroup-charset default-charset) ;; The article buffer also has local variables. (when (gnus-buffer-live-p gnus-article-buffer) (set-buffer gnus-article-buffer) @@ -4036,7 +4033,6 @@ If SELECT-ARTICLES, only select those articles from GROUP." (setq gnus-newsgroup-unselected nil) (setq gnus-newsgroup-unreads (gnus-list-of-unread-articles group)) (gnus-summary-setup-default-charset) - (gnus-summary-setup-highlight-words) ;; Adjust and set lists of article marks. (when info @@ -9424,25 +9420,6 @@ returned." (gnus-set-mode-line 'summary) n)) -;; Added by Shenghuo Zhu -(defun gnus-summary-setup-highlight-words (&optional highlight-words) - "Setup newsgroup emphasis alist." - (let ((name (and gnus-newsgroup-name - (gnus-group-real-name gnus-newsgroup-name)))) - (setq gnus-newsgroup-emphasis-alist - (nconc - (let ((alist gnus-group-highlight-words-alist) elem highlight) - (while (setq elem (pop alist)) - (when (and name (string-match (car elem) name)) - (setq alist nil - highlight (copy-list (cdr elem))))) - highlight) - (copy-list highlight-words) - (if gnus-newsgroup-name - (copy-list (gnus-group-find-parameter - gnus-newsgroup-name 'highlight-words t))) - gnus-emphasis-alist)))) - (gnus-summary-make-all-marking-commands) (gnus-ems-redefine) diff --git a/lisp/gnus.el b/lisp/gnus.el index 4eb6be2..8a85814 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -260,7 +260,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "0.86" +(defconst gnus-version-number "0.87" "Version number for this version of Gnus.") (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number) diff --git a/lisp/mail-source.el b/lisp/mail-source.el index 777e504..63929ca 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -69,6 +69,7 @@ This variable is a list of mail source specifiers." (defvar mail-source-keyword-map '((file (:prescript) + (:prescript-delay) (:postscript) (:path (or (getenv "MAIL") (concat "/usr/spool/mail/" (user-login-name))))) @@ -78,6 +79,7 @@ This variable is a list of mail source specifiers." (:predicate identity)) (pop (:prescript) + (:prescript-delay) (:postscript) (:server (getenv "MAILHOST")) (:port 110) @@ -302,6 +304,16 @@ If ARGS, PROMPT is used as an argument to `format'." (zerop (call-process shell-file-name nil nil nil shell-command-switch program))) +(defun mail-source-run-script (script spec &optional delay) + (when script + (if (and (symbolp script) (fboundp script)) + (funcall script) + (mail-source-call-script + (format-spec + script spec)))) + (when delay + (sleep-for delay))) + (defun mail-source-call-script (script) (let ((background nil)) (when (string-match "& *$" script) @@ -317,22 +329,15 @@ If ARGS, PROMPT is used as an argument to `format'." (defun mail-source-fetch-file (source callback) "Fetcher for single-file sources." (mail-source-bind (file source) - (when prescript - (if (and (symbolp prescript) (fboundp prescript)) - (funcall prescript) - (mail-source-call-script - (format-spec - prescript (format-spec-make ?t mail-source-crash-box))))) + (mail-source-run-script + prescript (format-spec-make ?t mail-source-crash-box) + prescript-delay) (let ((mail-source-string (format "file:%s" path))) (if (mail-source-movemail path mail-source-crash-box) (prog1 (mail-source-callback callback path) - (when prescript - (if (and (symbolp prescript) (fboundp prescript)) - (funcall prescript) - (mail-source-call-script - (format-spec - postscript (format-spec-make ?t mail-source-crash-box)))))) + (mail-source-run-script + postscript (format-spec-make ?t mail-source-crash-box))) 0)))) (defun mail-source-fetch-directory (source callback) @@ -351,14 +356,11 @@ If ARGS, PROMPT is used as an argument to `format'." (defun mail-source-fetch-pop (source callback) "Fetcher for single-file sources." (mail-source-bind (pop source) - (when prescript - (if (and (symbolp prescript) - (fboundp prescript)) - (funcall prescript) - (mail-source-call-script - (format-spec - prescript (format-spec-make ?p password ?t mail-source-crash-box - ?s server ?P port ?u user))))) + (mail-source-run-script + prescript + (format-spec-make ?p password ?t mail-source-crash-box + ?s server ?P port ?u user) + prescript-delay) (let ((from (format "%s:%s:%s" server user port)) (mail-source-string (format "pop:%s@%s" user server)) result) @@ -394,15 +396,11 @@ If ARGS, PROMPT is used as an argument to `format'." (if result (prog1 (mail-source-callback callback server) - (when postscript - (if (and (symbolp postscript) - (fboundp postscript)) - (funcall postscript) - (mail-source-call-script - (format-spec - postscript (format-spec-make + (mail-source-run-script + postscript + (format-spec-make ?p password ?t mail-source-crash-box - ?s server ?P port ?u user)))))) + ?s server ?P port ?u user))) ;; We nix out the password in case the error ;; was because of a wrong password being given. (setq mail-source-password-cache diff --git a/texi/gnus.texi b/texi/gnus.texi index 2e4af46..7101c0c 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ @c \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Pterodactyl Gnus 0.86 Manual +@settitle Pterodactyl Gnus 0.87 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -319,7 +319,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Pterodactyl Gnus 0.86 Manual +@title Pterodactyl Gnus 0.87 Manual @author by Lars Magne Ingebrigtsen @page @@ -355,7 +355,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local spool or your mbox file. All at the same time, if you want to push your luck. -This manual corresponds to Pterodactyl Gnus 0.86. +This manual corresponds to Pterodactyl Gnus 0.87. @end ifinfo diff --git a/texi/message.texi b/texi/message.texi index 6d60fe2..60168a8 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Pterodactyl Message 0.86 Manual +@settitle Pterodactyl Message 0.87 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Pterodactyl Message 0.86 Manual +@title Pterodactyl Message 0.87 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Pterodactyl Message 0.86. Message is +This manual corresponds to Pterodactyl Message 0.87. Message is distributed with the Gnus distribution bearing the same version number as this manual.