Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 82c6bd4..7e041db 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,28 @@
+2001-11-28 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-uu.el (gnus-uu-save-article): Use #part instead of #mml.
+
+2001-11-28 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnheader.el (nnheader-find-nov-line): Don't use macro
+       gnus-delete-line.
+
+       * gnus-group.el (gnus-group-name-decode): Defun instead of defsubst.
+       (gnus-group-name-charset): Ditto.
+
+       * gnus-util.el (gnus-buffer-live-p): Ditto.
+
+2001-11-28 11:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * sieve-manage.el (sieve-manage-stream-alist): Backslash before
+       open parenthesis in doc.
+       (sieve-manage-authenticator-alist): Typo in doc.
+       * imap.el (imap-authenticator-alist): Typo in doc.
+       (imap-stream-alist): Backslash.
+
+       * gnus-sum.el (gnus-summary-limit-to-author): Missing arguments.
+         Thanks to david.goldberg6@verizon.net (David S. Goldberg)
+
 2001-11-27 14:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-topic.el (gnus-topic-mode): Add LOCAL for add-hook.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 834bf93..0e0fecf 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1024,7 +1024,7 @@ The following commands are available:
     (when gnus-carpal
       (gnus-carpal-setup-buffer 'group))))
 
-(defsubst gnus-group-name-charset (method group)
+(defun gnus-group-name-charset (method group)
   (if (null method)
       (setq method (gnus-find-method-for-group group)))
   (let ((item (assoc method gnus-group-name-charset-method-alist))
@@ -1038,7 +1038,7 @@ The following commands are available:
                  result (cdr item))))
       result)))
 
-(defsubst gnus-group-name-decode (string charset)
+(defun gnus-group-name-decode (string charset)
   (if (and string charset (featurep 'mule))
       (decode-coding-string string charset)
     string))

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 9556f3e..6c58869 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -497,7 +497,7 @@ If N, return the Nth ancestor instead."
        (setq ids (cdr ids)))
       (car ids))))
 
-(defsubst gnus-buffer-live-p (buffer)
+(defun gnus-buffer-live-p (buffer)
   "Say whether BUFFER is alive or not."
   (and buffer
        (get-buffer buffer)

diff --git a/lisp/imap.el b/lisp/imap.el
index 2c402c2..417b0c1 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -290,7 +290,7 @@ stream.")
 
 NAME names the authenticator.  CHECK is a function returning non-nil if
 the server support the authenticator and AUTHENTICATE is a function
-for doing the actuall authentification.")
+for doing the actual authentication.")
 
 (defvar imap-error nil
   "Error codes from the last command.")

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 5d4229f..a0ea2f2 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -101,7 +101,6 @@ This variable is a substitute for `mm-text-coding-system-for-write'.")
   (autoload 'mail-position-on-field "sendmail")
   (autoload 'message-remove-header "message")
   (autoload 'gnus-point-at-eol "gnus-util")
-  (autoload 'gnus-delete-line "gnus-util" nil nil 'macro)
   (autoload 'gnus-buffer-live-p "gnus-util"))
 
 ;;; Header access macros.
@@ -476,7 +475,8 @@ the line could be found."
        (setq prev (point))
        (while (and (not (numberp (setq num (read cur))))
                    (not (eobp)))
-         (gnus-delete-line))
+         (delete-region (progn (beginning-of-line) (point))
+                        (progn (forward-line 1) (point))))
        (cond ((> num article)
               (setq max (point)))
              ((< num article)

diff --git a/lisp/sieve-manage.el b/lisp/sieve-manage.el
index b87d7cd..e004d62 100644 (file)
--- a/lisp/sieve-manage.el
+++ b/lisp/sieve-manage.el
@@ -65,7 +65,7 @@
 ;;
 ;; 2001-10-31 Committed to Oort Gnus.
 ;;
-;; $Id: sieve-manage.el,v 1.1.2.1 2001-11-01 08:25:40 yamaoka Exp $
+;; $Id: sieve-manage.el,v 1.1.2.2 2001-11-29 00:15:39 yamaoka Exp $
 
 ;;; Code:
 
@@ -107,7 +107,7 @@
     (starttls  sieve-manage-starttls-p         sieve-manage-starttls-open))
   "Definition of network streams.
 
-(NAME CHECK OPEN)
+\(NAME CHECK OPEN)
 
 NAME names the stream, CHECK is a function returning non-nil if the
 server support the stream and OPEN is a function for opening the
@@ -121,11 +121,11 @@ stream.")
     (plain      sieve-manage-plain-p          sieve-manage-plain-auth))
   "Definition of authenticators.
 
-(NAME CHECK AUTHENTICATE)
+\(NAME CHECK AUTHENTICATE)
 
 NAME names the authenticator.  CHECK is a function returning non-nil if
 the server support the authenticator and AUTHENTICATE is a function
-for doing the actuall authentification.")
+for doing the actual authentication.")
 
 (defcustom sieve-manage-default-port 2000
   "Default port number for managesieve protocol."