From a73f59724c6dae8374a4a36b2edfa65240a019f8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 29 Nov 2001 00:15:39 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 25 +++++++++++++++++++++++++ lisp/gnus-group.el | 4 ++-- lisp/gnus-util.el | 2 +- lisp/imap.el | 2 +- lisp/nnheader.el | 4 ++-- lisp/sieve-manage.el | 8 ++++---- 6 files changed, 35 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 82c6bd4..7e041db 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,28 @@ +2001-11-28 16:00:00 ShengHuo ZHU + + * gnus-uu.el (gnus-uu-save-article): Use #part instead of #mml. + +2001-11-28 12:00:00 ShengHuo ZHU + + * 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 + + * 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 * 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 --- 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 --- 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 --- 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 --- 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 --- 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." -- 1.7.10.4