From cd5b82c3b85262a5bfdb3e22da5ccb6a612250e8 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Fri, 14 Feb 2003 20:28:13 +0000 Subject: [PATCH] 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. --- lisp/ChangeLog | 19 ++++++++++++++++++- lisp/gnus-group.el | 2 +- 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, 26 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index afe48b054..30ba086df 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,20 @@ +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 @@ -12846,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-group.el b/lisp/gnus-group.el index 3c0b6cd5e..d5ceb073b 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -960,7 +960,7 @@ simple manner.") ;; Emacs 21 tool bar. Should be no-op otherwise. (defun gnus-group-make-tool-bar () - (if (and + (if (and (condition-case nil (require 'tool-bar) (error nil)) (fboundp 'tool-bar-add-item-from-menu) (default-value 'tool-bar-mode) diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el index ae97c7e05..47256511e 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 4413fb57d..aa26b06b1 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -1304,7 +1304,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 e7770baf7..22f217586 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 101bb4023..3d28f8ea7 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 61f4ce9d8..96dc094e1 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -727,7 +727,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 7f50446bc..30167c836 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -1280,7 +1280,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) -- 2.25.1