From 2ef4a67a5e751019521e997ffabb22232e935b2a Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 14 Feb 2003 23:51:34 +0000 Subject: [PATCH] Synch to Oort Gnus. --- lisp/ChangeLog | 24 +++++++++++++++++++++++- lisp/gnus-art.el | 4 +++- lisp/ietf-drums.el | 2 +- lisp/imap.el | 2 +- lisp/mm-uu.el | 2 +- lisp/nndoc.el | 2 +- lisp/nnheader.el | 3 ++- lisp/nntp.el | 2 +- 8 files changed, 33 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 555504a..30ba086 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,25 @@ +2003-02-14 ShengHuo ZHU + + * mm-uu.el (mm-uu-uu-filename): Fix use of character constant. + +2003-02-11 Stefan Monnier + + * nntp.el (nntp-accept-process-output): Don't use point-max to get + the buffer's size. + +2003-01-31 Joe Buehler + + * nnheader.el: Added cygwin to system-type comparisons. + +2003-01-27 Juanma Barranquero + + * imap.el (imap-mailbox-status): Fix typo. + +2003-02-14 ShengHuo ZHU + + * gnus-art.el (gnus-article-prepare): Don't set agent mark if + online. + 2003-02-14 Kai Gro,A_(Bjohann * gnus-agent.el (gnus-agent-group-make-menu-bar): Include all @@ -12841,7 +12863,7 @@ * mail-source.el (mail-sources): Revert to nil. - * nnmail (nnmail-spool-file): Revert to `((file))'. + * nnmail.el (nnmail-spool-file): Revert to `((file))'. * qp.el: Don't require mm-util. (quoted-printable-decode-region): Rewritten. diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 510694a..b36a471 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -3820,7 +3820,9 @@ If ALL-HEADERS is non-nil, no headers are hidden." (cons gnus-newsgroup-name article)) (set-buffer gnus-summary-buffer) (setq gnus-current-article article) - (if (memq article gnus-newsgroup-undownloaded) + (if (and (memq article gnus-newsgroup-undownloaded) + (not (gnus-online (gnus-find-method-for-group + gnus-newsgroup-name)))) (progn (gnus-summary-set-agent-mark article) (message "Message marked for downloading")) diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el index ae97c7e..4725651 100644 --- a/lisp/ietf-drums.el +++ b/lisp/ietf-drums.el @@ -52,7 +52,7 @@ "Textual token including full stop.") (defvar ietf-drums-qtext-token (concat ietf-drums-no-ws-ctl-token "\041\043-\133\135-\177") - "Non-white-space control characters, plus the rest of ASCII excluding + "Non-white-space control characters, plus the rest of ASCII excluding backslash and doublequote.") (defvar ietf-drums-tspecials "][()<>@,;:\\\"/?=" "Tspecials.") diff --git a/lisp/imap.el b/lisp/imap.el index 301086c..0a2daaf 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -1287,7 +1287,7 @@ Returns non-nil if successful." ITEMS can be a symbol or a list of symbols, valid symbols are one of the STATUS data items -- ie 'messages, 'recent, 'uidnext, 'uidvalidity or 'unseen. If ITEMS is a list of symbols, a list of values is -returned, if ITEMS is a symbol only it's value is returned." +returned, if ITEMS is a symbol only its value is returned." (with-current-buffer (or buffer (current-buffer)) (when (imap-ok-p (imap-send-command-wait (list "STATUS \"" diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el index ffc4353..e2f8646 100644 --- a/lisp/mm-uu.el +++ b/lisp/mm-uu.el @@ -207,7 +207,7 @@ Return that buffer." (if (looking-at ".+") (setq file-name (let ((nnheader-file-name-translation-alist - '((?/ . ?,) (? . ?_) (?* . ?_) (?$ . ?_)))) + '((?/ . ?,) (?\ . ?_) (?* . ?_) (?$ . ?_)))) (nnheader-translate-file-chars (match-string 0)))))) (defun mm-uu-binhex-filename () diff --git a/lisp/nndoc.el b/lisp/nndoc.el index b675e26..b97e675 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -630,7 +630,7 @@ from the document.") (setq subject (concat " (" (match-string 1) ")")) (when (re-search-forward "^From: \\(.*\\)" nil t) (setq from (concat "<" - (cadr (funcall gnus-extract-address-components + (cadr (funcall gnus-extract-address-components (match-string 1))) ">"))) (if (re-search-forward "^Date: +\\([^(]*\\)" nil t) (setq date (match-string 1)) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index aa94eaa..34e45b1 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -1303,7 +1303,8 @@ If FULL, translate everything." ;; We translate -- but only the file name. We leave the directory ;; alone. (if (and (featurep 'xemacs) - (memq system-type '(cygwin32 win32 w32 mswindows windows-nt))) + (memq system-type '(cygwin32 win32 w32 mswindows windows-nt + cygwin))) ;; This is needed on NT and stuff, because ;; file-name-nondirectory is not enough to split ;; file names, containing ':', e.g. diff --git a/lisp/nntp.el b/lisp/nntp.el index 0c735f5..526e2fe 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -1345,7 +1345,7 @@ password contained in '~/.nntp-authinfo'." (save-excursion (set-buffer (or (nntp-find-connection-buffer nntp-server-buffer) nntp-server-buffer)) - (let ((len (/ (point-max) 1024)) + (let ((len (/ (buffer-size) 1024)) message-log-max) (unless (< len 10) (setq nntp-have-messaged t) -- 1.7.10.4