Synch to Oort Gnus.
authoryamaoka <yamaoka>
Fri, 14 Feb 2003 23:51:34 +0000 (23:51 +0000)
committeryamaoka <yamaoka>
Fri, 14 Feb 2003 23:51:34 +0000 (23:51 +0000)
lisp/ChangeLog
lisp/gnus-art.el
lisp/ietf-drums.el
lisp/imap.el
lisp/mm-uu.el
lisp/nndoc.el
lisp/nnheader.el
lisp/nntp.el

index 555504a..30ba086 100644 (file)
@@ -1,3 +1,25 @@
+2003-02-14  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-uu.el (mm-uu-uu-filename): Fix use of character constant.
+       
+2003-02-11  Stefan Monnier  <monnier@cs.yale.edu>
+      
+       * nntp.el (nntp-accept-process-output): Don't use point-max to get
+        the buffer's size.
+
+2003-01-31  Joe Buehler  <jhpb@draco.hekimian.com>
+
+       * nnheader.el: Added cygwin to system-type comparisons.
+       
+2003-01-27  Juanma Barranquero  <lektu@terra.es>
+
+       * imap.el (imap-mailbox-status): Fix typo.
+
+2003-02-14  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-art.el (gnus-article-prepare): Don't set agent mark if
+       online.
+
 2003-02-14  Kai Gro\e,A_\e(Bjohann  <kai.grossjohann@uni-duisburg.de>
 
        * gnus-agent.el (gnus-agent-group-make-menu-bar): Include all
 
        * 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.
index 510694a..b36a471 100644 (file)
@@ -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"))
index ae97c7e..4725651 100644 (file)
@@ -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.")
index 301086c..0a2daaf 100644 (file)
@@ -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 \""
index ffc4353..e2f8646 100644 (file)
@@ -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 ()
index b675e26..b97e675 100644 (file)
@@ -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))
index aa94eaa..34e45b1 100644 (file)
@@ -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.
index 0c735f5..526e2fe 100644 (file)
@@ -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)