CVS update by viteno packages ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/20 07:44:13
Modified: packages ChangeLog
Log:
Package release
Revision Changes Path
1.592 +4 -0 XEmacs/packages/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/ChangeLog,v
retrieving revision 1.591
retrieving revision 1.592
diff -u -p -r1.591 -r1.592
--- ChangeLog 2005/12/19 14:19:24 1.591
+++ ChangeLog 2005/12/20 06:44:12 1.592
＠＠ -1,3 +1,7 ＠＠
+2005-12-20 Norbert Koch <viteno(a)xemacs.org>
+
+ * Packages released: fortran-modes.
+
2005-12-19 Norbert Koch <viteno(a)xemacs.org>
* Packages released: gnus.
- 1 participants
- 0 comments
CVS update by viteno packages/xemacs-packages/fortran-modes ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/20 07:38:51
Modified: packages/xemacs-packages/fortran-modes ChangeLog fortran.el
Log:
Sync fortran.el with GNU Emacs 21.3.1
Revision Changes Path
1.14 +4 -0 XEmacs/packages/xemacs-packages/fortran-modes/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/fortran-modes/ChangeLog,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -p -r1.13 -r1.14
--- ChangeLog 2004/02/11 16:08:31 1.13
+++ ChangeLog 2005/12/20 06:38:51 1.14
＠＠ -1,3 +1,7 ＠＠
+2005-12-20 Sergio Ballestrero <s.ballestrero(a)firenze.linux.it>
+
+ * fortran.el: Sync with Emacs 21.3.1.
+
2004-02-11 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.04 released.
1.4 +119 -21 XEmacs/packages/xemacs-packages/fortran-modes/fortran.el
Index: fortran.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/fortran-modes/fortran.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -p -r1.3 -r1.4
--- fortran.el 2003/01/06 18:31:12 1.3
+++ fortran.el 2005/12/20 06:38:51 1.4
＠＠ -119,12 +119,12 ＠＠ Fortran indentation plus `fortran-commen
:group 'fortran-indent
:group 'fortran-comment)
-(defcustom comment-line-start nil
+(defcustom fortran-comment-line-start nil
"*Delimiter inserted to start new full-line comment."
:type '(choice string (const nil))
:group 'fortran-comment)
-(defcustom comment-line-start-skip nil
+(defcustom fortran-comment-line-start-skip nil
"*Regexp to match the start of a full-line comment."
:type '(choice string (const nil))
:group 'fortran-comment)
＠＠ -489,6 +489,8 ＠＠ This variable used in TAB format mode.")
(define-key fortran-mode-map "\C-c\C-r" 'fortran-column-ruler)
(define-key fortran-mode-map "\C-c\C-p" 'fortran-previous-statement)
(define-key fortran-mode-map "\C-c\C-n" 'fortran-next-statement)
+ (define-key fortran-mode-map "\C-c\C-d" 'fortran-join-line) ; like f90
+ (define-key fortran-mode-map "\M-^" 'fortran-join-line) ; subvert delete-indentation
(define-key fortran-mode-map "\t" 'fortran-indent-line)
(define-key fortran-mode-map "0" 'fortran-electric-line-number)
(define-key fortran-mode-map "1" 'fortran-electric-line-number)
＠＠ -659,12 +661,12 ＠＠ with no args, if that value is non-nil."
(setq indent-line-function 'fortran-indent-line)
(make-local-variable 'comment-indent-function)
(setq comment-indent-function 'fortran-comment-hook)
- (make-local-variable 'comment-line-start-skip)
- (setq comment-line-start-skip
+ (make-local-variable 'fortran-comment-line-start-skip)
+ (setq fortran-comment-line-start-skip
"^[Cc*]\\(\\([^ \t\n]\\)\\2\\2*\\)?[ \t]*\\|^#.*")
- (make-local-variable 'comment-line-start)
- (setq comment-line-start "c")
- (make-local-variable 'comment-start-skip)
+ (make-local-variable 'fortran-comment-line-start)
+ (setq fortran-comment-line-start "c")
+ (make-local-variable 'fortran-comment-start-skip)
(setq comment-start-skip "![ \t]*")
(make-local-variable 'comment-start)
(setq comment-start nil)
＠＠ -688,6 +690,8 ＠＠ with no args, if that value is non-nil."
(make-local-variable 'fortran-tab-mode-string)
(setq fortran-tab-mode-string " TAB-format")
(setq indent-tabs-mode (fortran-analyze-file-format))
+ (set (make-local-variable 'fill-paragraph-function) 'fortran-fill-paragraph)
+ (set (make-local-variable 'normal-auto-fill-function) 'fortran-auto-fill)
(run-hooks 'fortran-mode-hook))
(defun fortran-comment-hook ()
＠＠ -706,7 +710,7 ＠＠ or on a new line inserted before this li
(interactive)
(beginning-of-line)
;; Recognize existing comments of either kind.
- (cond ((looking-at comment-line-start-skip)
+ (cond ((looking-at fortran-comment-line-start-skip)
(fortran-indent-line))
((fortran-find-comment-start-skip) ; catches any inline comment and
; leaves point after comment-start-skip
＠＠ -731,7 +735,7 ＠＠ or on a new line inserted before this li
(beginning-of-line)
(insert "\n")
(forward-char -1))
- (insert comment-line-start)
+ (insert fortran-comment-line-start)
(insert-char (if (stringp fortran-comment-indent-char)
(aref fortran-comment-indent-char 0)
fortran-comment-indent-char)
＠＠ -849,8 +853,8 ＠＠ See also `fortran-window-create'."
"Break line at point and insert continuation marker and alignment."
(interactive)
(delete-horizontal-space)
- (if (save-excursion (beginning-of-line) (looking-at comment-line-start-skip))
- (insert "\n" comment-line-start " ")
+ (if (save-excursion (beginning-of-line) (looking-at fortran-comment-line-start-skip))
+ (insert "\n" fortran-comment-line-start " ")
(if indent-tabs-mode
(progn
(insert "\n\t")
＠＠ -945,13 +949,13 ＠＠ non-comment Fortran statement in the fil
(beginning-of-line)
(setq continue-test
(and
- (not (looking-at comment-line-start-skip))
+ (not (looking-at fortran-comment-line-start-skip))
(or (looking-at
(concat "[ \t]*" (regexp-quote fortran-continuation-string)))
(or (looking-at " [^ 0\n]")
(looking-at "\t[1-9]")))))
(while (and (setq not-first-statement (= (forward-line -1) 0))
- (or (looking-at comment-line-start-skip)
+ (or (looking-at fortran-comment-line-start-skip)
(looking-at "[ \t]*$")
(looking-at " [^ 0\n]")
(looking-at "\t[1-9]")
＠＠ -974,7 +978,7 ＠＠ non-comment Fortran statement in the fil
(while (and (setq not-last-statement
(and (= (forward-line 1) 0)
(not (eobp))))
- (or (looking-at comment-line-start-skip)
+ (or (looking-at fortran-comment-line-start-skip)
(looking-at "[ \t]*$")
(looking-at " [^ 0\n]")
(looking-at "\t[1-9]")
＠＠ -1220,7 +1224,7 ＠＠ The marks are pushed."
(not (fortran-line-number-indented-correctly-p))))
(fortran-indent-to-column cfi)
(beginning-of-line)
- (if (and (not (looking-at comment-line-start-skip))
+ (if (and (not (looking-at fortran-comment-line-start-skip))
(fortran-find-comment-start-skip))
(fortran-indent-comment))))
;; Never leave point in left margin.
＠＠ -1312,7 +1316,7 ＠＠ An abbrev before point is expanded if `a
(save-excursion
(beginning-of-line)
(cond ((looking-at "[ \t]*$"))
- ((looking-at comment-line-start-skip)
+ ((looking-at fortran-comment-line-start-skip)
(cond ((eq fortran-comment-indent-style 'relative)
(setq icol (+ icol fortran-comment-line-extra-indent)))
((eq fortran-comment-indent-style 'fixed)
＠＠ -1372,7 +1376,7 ＠＠ For comment lines, returns indentation o
non-indentation text within the comment."
(save-excursion
(beginning-of-line)
- (cond ((looking-at comment-line-start-skip)
+ (cond ((looking-at fortran-comment-line-start-skip)
(goto-char (match-end 0))
(skip-chars-forward
(if (stringp fortran-comment-indent-char)
＠＠ -1400,7 +1404,7 ＠＠ notes: 1) A non-zero/non-blank character
4) A TAB followed by a digit indicates a continuation line."
(save-excursion
(beginning-of-line)
- (if (looking-at comment-line-start-skip)
+ (if (looking-at fortran-comment-line-start-skip)
(if fortran-comment-indent-style
(let ((char (if (stringp fortran-comment-indent-char)
(aref fortran-comment-indent-char 0)
＠＠ -1540,7 +1544,7 ＠＠ nil else."
(cond
((bolp) nil) ; bol is never inside a string
((save-excursion ; comment lines too
- (beginning-of-line)(looking-at comment-line-start-skip)) nil)
+ (beginning-of-line)(looking-at fortran-comment-line-start-skip)) nil)
(t (let (;; ok, serious now. Init some local vars:
(parse-state '(0 nil nil nil nil nil 0))
(quoted-comment-start (if comment-start
＠＠ -1556,7 +1560,7 ＠＠ nil else."
(while not-done
(if (or ;; skip to next line if:
;; - comment line?
- (looking-at comment-line-start-skip)
+ (looking-at fortran-comment-line-start-skip)
;; - at end of line?
(eolp)
;; - not in a string and after comment-start?
＠＠ -1621,7 +1625,7 ＠＠ automatically breaks the line at a previ
(quote
(save-excursion
(goto-char bol)
- (if (looking-at comment-line-start-skip)
+ (if (looking-at fortran-comment-line-start-skip)
nil ; OK to break quotes on comment lines.
(move-to-column fill-column)
(cond ((fortran-is-in-string-p (point))
＠＠ -1745,6 +1749,100 ＠＠ file before the end or the first `fortra
'(fortran-tab-mode-string
(indent-tabs-mode fortran-tab-mode-string))
minor-mode-alist)))
+
+; fortran-join-line and fill
+; imported from GNU Emacs 21.3.1 by s.ballestrero(a)firenze.linux.it
+
+(defun fortran-remove-continuation ()
+ (if (looking-at "\\( [^ 0\n]\\|\t[1-9]\\|&\\)")
+ (progn (replace-match "")
+ (delete-indentation)
+ t)))
+
+(defun fortran-join-line (arg)
+ "Join current line to the previous one and re-indent.
+With a prefix argument, repeat this operation that many times.
+If the prefix argument ARG is negative, join the next -ARG lines.
+Continuation lines are correctly handled."
+ (interactive "*p")
+ (save-excursion
+ (when (> 0 arg)
+ (setq arg (- arg))
+ (forward-line arg))
+ (while (not (zerop arg))
+ (beginning-of-line)
+ (or (fortran-remove-continuation)
+ (delete-indentation))
+ (setq arg (1- arg)))
+ (fortran-indent-line)))
+
+(defun fortran-fill-paragraph (&optional justify)
+ "Fill surrounding comment block as paragraphs, else fill statement.
+Intended as the value of `fill-paragraph-function'."
+ (interactive "P")
+ (save-excursion
+ (beginning-of-line)
+ (if (not (looking-at fortran-comment-line-start-skip))
+ (fortran-fill-statement)
+ ;; We're in a comment block. Find the start and end of a
+ ;; paragraph, delimited either by non-comment lines or empty
+ ;; comments. (Get positions as markers, since the
+ ;; `indent-region' below can shift the block's end).
+ (let* ((non-empty-comment
+ (concat fortran-comment-line-start-skip "[^ \t\n]"))
+ (start (save-excursion
+ ;; Find (start of) first line.
+ (while (and (zerop (forward-line -1))
+ (looking-at non-empty-comment)))
+ (or (looking-at non-empty-comment)
+ (forward-line)) ; overshot
+ (point-marker)))
+ (end (save-excursion
+ ;; Find start of first line past region to fill.
+ (while (progn
+ (forward-line)
+ (looking-at non-empty-comment)))
+ (point-marker))))
+ ;; Indent the block, find the string comprising the effective
+ ;; comment start skip and use that as a fill-prefix for
+ ;; filling the region.
+ (indent-region start end nil)
+ (let ((paragraph-ignore-fill-prefix nil)
+ (fill-prefix (progn
+ (beginning-of-line)
+ (looking-at fortran-comment-line-start-skip)
+ (match-string 0))))
+ (let (fill-paragraph-function)
+ (fill-region start end justify))) ; with normal `fill-paragraph'
+ (set-marker start nil)
+ (set-marker end nil))))
+ t)
+
+(defun fortran-fill-statement ()
+ "Fill a fortran statement up to `fill-column'."
+ (interactive)
+ (let ((auto-fill-function #'fortran-auto-fill))
+ (if (not (save-excursion
+ (beginning-of-line)
+ (or (looking-at "[ \t]*$")
+ (looking-at fortran-comment-line-start-skip)
+ (and comment-start-skip
+ (looking-at (concat "[ \t]*"
+ comment-start-skip))))))
+ (save-excursion
+ ;; Find beginning of statement.
+ (fortran-next-statement)
+ (fortran-previous-statement)
+ ;; Re-indent initially.
+ (fortran-indent-line)
+ ;; Replace newline plus continuation field plus indentation with
+ ;; single space.
+ (while (progn
+ (forward-line)
+ (fortran-remove-continuation)))
+ (fortran-previous-statement)))
+ (fortran-indent-line)))
+
;; XEmacs additions
;;;###autoload(add-to-list 'auto-mode-alist '("\\.f\\(?:or\\)?\\'" . fortran-mode))
- 1 participants
- 0 comments
CVS update by viteno xemacs ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/19 23:51:18
Modified: xemacs version.sh
Log:
Update xemacs_extra_name.
Revision Changes Path
1.1382 +1 -1 XEmacs/xemacs/version.sh
Index: version.sh
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v
retrieving revision 1.1381
retrieving revision 1.1382
diff -u -p -r1.1381 -r1.1382
--- version.sh 2005/12/18 22:51:14 1.1381
+++ version.sh 2005/12/19 22:51:17 1.1382
＠＠ -8,5 +8,5 ＠＠ emacs_kit_version=
infodock_major_version=4
infodock_minor_version=0
infodock_build_version=8
-xemacs_extra_name="(+CVS-20051218)"
+xemacs_extra_name="(+CVS-20051219)"
xemacs_release_date="2005-12-19"
- 1 participants
- 0 comments
CVS update by viteno xemacs-builds/viteno ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/19 15:27:58
Modified: xemacs-builds/viteno package-index setup-packages.ini
Log:
Package database backup:
- gnus-1.88
Revision Changes Path
1.267 +6 -6 XEmacs/xemacs-builds/viteno/package-index
Index: package-index
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/package-index,v
retrieving revision 1.266
retrieving revision 1.267
diff -u -p -r1.266 -r1.267
--- package-index 2005/12/19 06:58:46 1.266
+++ package-index 2005/12/19 14:27:57 1.267
＠＠ -2263,19 +2263,19 ＠＠
(package-get-update-base-entry (quote
(gnus
(standards-version 1.1
- version "1.87"
+ version "1.88"
author-version "5.10.7"
- date "2005-11-15"
- build-date "2005-11-15"
+ date "2005-12-19"
+ build-date "2005-12-19"
maintainer "Steve Youngs <steve(a)youngs.au.com>"
distribution xemacs
priority medium
category "standard"
dump nil
description "The Gnus Newsreader and Mailreader."
- filename "gnus-1.87-pkg.tar.gz"
- md5sum "77d4711e6b56a8f8cb81333b8215605c"
- size 3444860
+ filename "gnus-1.88-pkg.tar.gz"
+ md5sum "457be4a7628ac1db377421115f574161"
+ size 3454877
provides (binhex canlock compface deuglify earcon flow-fill format-spec gnus-agent gnus-art gnus-async gnus-audio gnus-bcklg gnus-cache gnus-cite gnus-cus gnus-delay gnus-demon gnus-diary gnus-dired gnus-draft gnus-dup gnus-eform gnus-ems gnus-fun gnus-gl gnus-group gnus-int gnus-kill gnus-logic gnus-mh gnus-ml gnus-mlspl gnus-move gnus-msg gnus-nocem gnus-picon gnus-range gnus-registry gnus-salt gnus-score gnus-setup gnus-sieve gnus-soup gnus-spec gnus-srvr gnus-start gnus-sum gnus-topic gnus-undo gnus-util gnus-uu gnus-vm gnus-win gnus-xmas gnus ietf-drums imap mail-parse mail-prsvr mail-source mailcap message messagexmas messcompat mm-bodies mm-decode mm-encode mm-extern mm-partial mm-url mm-util mm-uu mm-view mml-sec mml-smime mml mml1991 mml2015 nnagent nnbabyl nndb nndiary nndir nndoc nndraft nneething nnfolder nngateway nnheader nnheaderxm nnimap nnkiboze nnlistserv nnmail nnmaildir nnmbox nnmh nnml nnnil nnoo nnrss nnslashdot nnsoup nnspool nntp nnultimate nnvirt!
ual nnwarchive nnweb nnwfm parse-time qp rfc1843 rfc2045 rfc2047 rfc2231 score-mode smiley smime spam-report spam-stat spam time-date utf7 uudecode webmail yenc gnus-idna gpg-ring gpg hashcash vcard)
requires (gnus mail-lib xemacs-base eterm sh-script net-utils os-utils dired mh-e sieve ps-print w3 pgg mailcrypt ecrypto sasl)
type regular
1.255 +2 -2 XEmacs/xemacs-builds/viteno/setup-packages.ini
Index: setup-packages.ini
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/setup-packages.ini,v
retrieving revision 1.254
retrieving revision 1.255
diff -u -p -r1.254 -r1.255
--- setup-packages.ini 2005/12/19 06:58:46 1.254
+++ setup-packages.ini 2005/12/19 14:27:57 1.255
＠＠ -84,8 +84,8 ＠＠ version: 1.14
install: packages/rmail-1.14-pkg.tar.gz 96995
＠ gnus
-version: 1.87
-install: packages/gnus-1.87-pkg.tar.gz 3444860
+version: 1.88
+install: packages/gnus-1.88-pkg.tar.gz 3454877
＠ tm
version: 1.38
- 1 participants
- 0 comments
CVS update by viteno packages/xemacs-packages/gnus ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/19 15:21:57
Modified: packages/xemacs-packages/gnus ChangeLog Makefile
Log:
Increment VERSION in Makefile
Revision Changes Path
1.97 +4 -0 XEmacs/packages/xemacs-packages/gnus/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/ChangeLog,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -p -r1.96 -r1.97
--- ChangeLog 2005/12/19 13:35:21 1.96
+++ ChangeLog 2005/12/19 14:21:56 1.97
＠＠ -1,3 +1,7 ＠＠
+2005-12-19 Norbert Koch <viteno(a)xemacs.org>
+
+ * Makefile (VERSION): XEmacs package 1.88 released.
+
2005-12-19 Steve Youngs <steve(a)sxemacs.org>
* Sync with upstream stable branch.
1.110 +1 -1 XEmacs/packages/xemacs-packages/gnus/Makefile
Index: Makefile
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/Makefile,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -p -r1.109 -r1.110
--- Makefile 2005/11/15 06:35:47 1.109
+++ Makefile 2005/12/19 14:21:56 1.110
＠＠ -17,7 +17,7 ＠＠
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
-VERSION = 1.87
+VERSION = 1.88
AUTHOR_VERSION = 5.10.7
MAINTAINER = Steve Youngs <steve(a)youngs.au.com>
PACKAGE = gnus
- 1 participants
- 0 comments
CVS update by viteno packages ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/19 15:19:25
Modified: packages ChangeLog
Log:
Package release
Revision Changes Path
1.591 +2 -0 XEmacs/packages/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/ChangeLog,v
retrieving revision 1.590
retrieving revision 1.591
diff -u -p -r1.590 -r1.591
--- ChangeLog 2005/12/19 06:55:42 1.590
+++ ChangeLog 2005/12/19 14:19:24 1.591
＠＠ -1,5 +1,7 ＠＠
2005-12-19 Norbert Koch <viteno(a)xemacs.org>
+ * Packages released: gnus.
+
* Packages released: python-modes.
2005-12-08 Norbert Koch <viteno(a)xemacs.org>
- 1 participants
- 0 comments
CVS update by viteno packages/xemacs-packages/gnus/texi, emacs-mime.texi ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/19 14:35:36
Modified: packages/xemacs-packages/gnus/texi ChangeLog.upstream
emacs-mime.texi gnus.texi message.texi
Log:
Commit Steve Young's sync to upstream.
Revision Changes Path
1.96 +5 -0 XEmacs/packages/xemacs-packages/gnus/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/ChangeLog,v
retrieving revision 1.95
retrieving revision 1.96
diff -u -p -r1.95 -r1.96
--- ChangeLog 2005/11/15 06:35:47 1.95
+++ ChangeLog 2005/12/19 13:35:21 1.96
＠＠ -1,3 +1,8 ＠＠
+2005-12-19 Steve Youngs <steve(a)sxemacs.org>
+
+ * Sync with upstream stable branch.
+ Please see the ChangeLog.upstream files for details.
+
2005-11-15 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.87 released.
1.8 +210 -0 XEmacs/packages/xemacs-packages/gnus/lisp/ChangeLog.upstream
Index: ChangeLog.upstream
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/ChangeLog.upstream,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- ChangeLog.upstream 2005/11/15 03:45:41 1.7
+++ ChangeLog.upstream 2005/12/19 13:35:24 1.8
＠＠ -1,3 +1,172 ＠＠
+2005-12-18 Lars Magne Ingebrigtsen <larsi(a)gnus.org>
+
+ * dns.el (query-dns): Make sure we check the buffer size before
+ removing tcp headers.
+
+2005-12-16 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * gnus-art.el (gnus-signature-separator): Fix custom type.
+
+ * mm-decode.el (mm-inlined-types): Fix custom type.
+ (mm-keep-viewer-alive-types): Ditto.
+ (mm-automatic-display): Ditto.
+ (mm-attachment-override-types): Ditto.
+ (mm-inline-override-types): Ditto.
+ (mm-automatic-external-display): Ditto.
+
+2005-12-12 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * gnus-art.el (gnus-buttonized-mime-types): Mention addition of
+ multipart/alternative and add xref to mm-discouraged-alternatives
+ in doc string.
+
+ * mm-decode.el (mm-discouraged-alternatives): Add xref to
+ gnus-buttonized-mime-types in doc string.
+
+2005-12-12 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * rfc2047.el (rfc2047-charset-to-coding-system): Recognize
+ us-ascii as a MIME charset.
+
+ * mm-bodies.el (mm-decode-content-transfer-encoding): Protect
+ against the case where the 2nd arg TYPE is nil.
+
+2005-12-09 Reiner Steib <Reiner.Steib(a)gmx.de>
+
+ * gnus-start.el (gnus-no-server-1): Mention
+ `gnus-level-default-subscribed' in doc string.
+
+2005-11-26 Dave Love <fx(a)gnu.org>
+
+ * tls.el (open-tls-stream): Rename arg SERVICE to PORT.
+ (tls-program, tls-success): Provide openssl alternative.
+
+ * starttls.el: Doc fixes.
+ (starttls-open-stream-gnutls, starttls-open-stream): Rename arg
+ SERVICE to PORT.
+
+2005-12-09 Reiner Steib <Reiner.Steib(a)gmx.de>
+
+ * gnus-start.el (gnus-start-draft-setup): Enforce
+ `gnus-draft-mode' for nndraft:drafts at startup.
+
+ * gnus.el (gnus-splash): Change custom group.
+ (gnus-group-get-parameter, gnus-group-parameter-value): Describe
+ allow-list argument.
+
+ * gnus-agent.el (gnus-agent-article-alist-save-format): Format doc
+ string.
+
+2005-12-09 ARISAWA Akihiro <ari(a)mbf.ocn.ne.jp> (tiny change)
+
+ * mm-decode.el (mm-display-external): Add lacked cdr.
+
+2005-12-08 Reiner Steib <Reiner.Steib(a)gmx.de>
+
+ * mm-decode.el (mm-discouraged-alternatives): Fix custom type.
+ Suggest image/.* in the doc string.
+
+2005-12-07 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * mm-decode.el (mm-display-external): Use nametemplate (defined in
+ RFC1524) if it is in mailcap or add a suffix according to
+ mailcap-mime-extensions when generating a temp filename; postpone
+ deleting a temp file for 2 seconds for some wrappers, shell
+ scripts, and so on, which might exit right after having started a
+ viewer command as a background job.
+
+2005-12-06 Reiner Steib <Reiner.Steib(a)gmx.de>
+
+ * gnus-art.el (gnus-default-article-saver): Add user-defined
+ `function' to custom type.
+
+2005-12-02 ARISAWA Akihiro <ari(a)mbf.ocn.ne.jp> (tiny change)
+
+ * mm-view.el (mm-inline-text-html-render-with-w3m): Fix misplaced
+ parens.
+
+2005-12-01 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * gnus-xmas.el (gnus-use-toolbar): Revert.
+ (gnus-xmas-setup-toolbar): Use global default-toolbar if
+ gnus-use-toolbar is default.
+
+ * messagexmas.el (message-use-toolbar): Revert.
+ (message-setup-toolbar): Use global default-toolbar if
+ message-use-toolbar is default.
+
+2005-11-30 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * gnus-xmas.el (gnus-use-toolbar): Determine the default value
+ according to default-toolbar-visible-p.
+
+ * messagexmas.el (message-use-toolbar): Ditto.
+
+2005-11-29 Reiner Steib <Reiner.Steib(a)gmx.de>
+
+ * gnus-cache.el (gnus-cache-rename-group): Wrap doc strings and
+ long lines.
+ (gnus-cache-delete-group): Wrap doc strings.
+
+ * gnus-agent.el (gnus-agent-rename-group)
+ (gnus-agent-delete-group): Wrap doc strings.
+
+2005-11-24 Pascal Rigaux <pixel(a)mandriva.com> (tiny change)
+
+ * rfc2231.el (rfc2231-parse-string): Support non-ascii chars.
+
+2005-11-22 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * nnmail.el (nnmail-fancy-expiry-target): Use current-time instead
+ of current-time-string.
+
+2005-11-20 Stefan Schimanski <schimmi(a)debian.org> (tiny change)
+
+ * nnmail.el (nnmail-fancy-expiry-target): Protect against invalid
+ date header.
+
+2005-11-16 Boris Samorodov <bsam(a)ipt.ru> (tiny patch)
+
+ * imap.el (imap-kerberos4-open): Ignore SSL stuff.
+
+2005-11-14 Kevin Greiner <kevin.greiner(a)compsol.cc>
+
+ * gnus-agent.el (gnus-agent-article-alist-save-format): Changed
+ internal variable to a custom variable. Changed default value
+ from compressed(2) to uncompressed(1).
+ (gnus-agent-read-agentview): Reversed revision 7.8 to restore
+ support for uncompressed agentview files. Taken together, reading
+ the agentview file should now be 6-7 times faster.
+ (gnus-agent-long-article,
+ gnus-agent-short-article, gnus-agent-score): Renamed category
+ keywords to match gnus-cus.
+ (gnus-agent-summary-fetch-series): Modified to protect against
+ gnus-agent-summary-fetch-group clearing processable flags.
+ (gnus-agent-synchronize-group-flags): Update live group buffer as
+ synchronization may occur due to the user toggling the plugged
+ status.
+ (gnus-agent-braid-nov): Now tests new nov entries
+ for duplicates which are removed. The invalid sort check then
+ triggers a rescan after the sort as sorting may have moved
+ duplicate entries such that they can be cheaply detected.
+ (gnus-agent-read-local): Trivial fix to format of
+ error message to display actual error condition.
+ (gnus-agent-save-local): Avoid saving symbols that are bound to
+ nil as they simply result in a warning message in
+ gnus-agent-read-local.
+ (gnus-agent-fetch-group-1): Clear downloadable flag when article
+ successfully downloaded.
+ (gnus-agent-regenerate-group): Use
+ gnus-agent-synchronize-group-flags to reset read status in both
+ gnus and server.
+
+ * nntp.el (nntp-end-of-line): Doc fix.
+ (nntp-authinfo-rejected): New error condition.
+ (nntp-wait-for): Use new error condition to signal authentication
+ error.
+ (nntp-retrieve-data): Rethrow new error condition to break out of
+ recursive call to nntp-send-authinfo.
+
2005-11-13 Katsumi Yamaoka <yamaoka(a)jpl.org>
* gnus-start.el (gnus-dribble-read-file): Use make-local-variable
＠＠ -126,6 +295,47 ＠＠
(gnus-xmas-setup-toolbar): New function.
(gnus-xmas-setup-group-toolbar): Use it.
(gnus-xmas-setup-summary-toolbar): Use it.
+
+2005-11-30 Stefan Monnier <monnier(a)iro.umontreal.ca>
+
+ * gnus-delay.el (gnus-delay-group): Don't autoload.
+ It's useless and could trigger a bug in cus-dep.el causing ldefs-boot
+ to be re-loaded when customizing the `gnus-delay' group.
+
+2005-11-19 Chong Yidong <cyd(a)stupidchicken.com>
+
+ * message.el: Revert last changes.
+ (message-insert-citation-line): Use newlines.
+
+2005-11-17 Chong Yidong <cyd(a)stupidchicken.com>
+
+ * message.el (message-courtesy-message)
+ (message-mark-insert-begin, message-mark-insert-end)
+ (message-elide-ellipsis, message-cancel-message)
+ (message-add-header, message-change-subject)
+ (message-cross-post-followup-to-header)
+ (message-cross-post-insert-note, message-reduce-to-to-cc)
+ (message-widen-reply, message-delete-not-region)
+ (message-kill-to-signature, message-insert-signature)
+ (message-insert-importance-high, message-insert-importance-low)
+ (message-insert-or-toggle-importance)
+ (message-insert-disposition-notification-to)
+ (message-indent-citation, message-yank-original)
+ (message-cite-original-without-signature, message-cite-original)
+ (message-insert-citation-line, message-position-on-field)
+ (message-fix-before-sending, message-send-mail-partially)
+ (message-send-mail, message-send-mail-with-sendmail)
+ (message-send-mail-with-qmail, message-send-news)
+ (message-check-news-header-syntax, message-generate-headers)
+ (message-insert-courtesy-copy, message-fill-address)
+ (message-fill-header, message-shorten-references)
+ (message-setup-1, message-cancel-news)
+ (message-forward-make-body-plain) (message-forward-make-body-mime)
+ (message-forward-make-body-mml) (message-encode-message-body)
+ (message-forward-make-body-digest-plain)
+ (message-forward-make-body-digest-mime)
+ (message-use-alternative-email-as-from): Insert `hard-newline'
+ instead of ordinary newlines.
2005-11-09 Katsumi Yamaoka <yamaoka(a)jpl.org>
1.9 +82 -42 XEmacs/packages/xemacs-packages/gnus/lisp/gnus-agent.el
Index: gnus-agent.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/gnus-agent.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -p -r1.8 -r1.9
--- gnus-agent.el 2005/11/15 03:45:43 1.8
+++ gnus-agent.el 2005/12/19 13:35:24 1.9
＠＠ -213,6 +213,18 ＠＠ unplugged."
:group 'gnus-agent
:type 'boolean)
+(defcustom gnus-agent-article-alist-save-format 1
+ "Indicates whether to use compression(2), versus no
+compression(1), when writing agentview files. The compressed
+files do save space but load times are 6-7 times higher. A group
+must be opened then closed for the agentview to be updated using
+the new format."
+ ;; Wouldn't symbols instead numbers be nicer? --rsteib
+:version "22.1"
+:group 'gnus-agent
+:type '(radio (const :format "Compressed" 2)
+ (const :format "Uncompressed" 1)))
+
;;; Internal variables
(defvar gnus-agent-history-buffers nil)
＠＠ -357,17 +369,17 ＠＠ manipulated as follows:
(gnus-agent-cat-defaccessor
gnus-agent-cat-high-score agent-high-score)
(gnus-agent-cat-defaccessor
- gnus-agent-cat-length-when-long agent-length-when-long)
+ gnus-agent-cat-length-when-long agent-long-article)
(gnus-agent-cat-defaccessor
- gnus-agent-cat-length-when-short agent-length-when-short)
+ gnus-agent-cat-length-when-short agent-short-article)
(gnus-agent-cat-defaccessor
gnus-agent-cat-low-score agent-low-score)
(gnus-agent-cat-defaccessor
gnus-agent-cat-predicate agent-predicate)
(gnus-agent-cat-defaccessor
- gnus-agent-cat-score-file agent-score-file)
+ gnus-agent-cat-score-file agent-score)
(gnus-agent-cat-defaccessor
- gnus-agent-cat-enable-undownloaded-faces agent-enable-undownloaded-faces)
+ gnus-agent-cat-enable-undownloaded-faces agent-enable-undownloaded-faces)
;; This form is equivalent to defsetf except that it calls make-symbol
＠＠ -858,9 +870,11 ＠＠ be a select method."
;;;###autoload
(defun gnus-agent-rename-group (old-group new-group)
- "Rename fully-qualified OLD-GROUP as NEW-GROUP. Always updates the agent, even when
-disabled, as the old agent files would corrupt gnus when the agent was
-next enabled. Depends upon the caller to determine whether group renaming is supported."
+ "Rename fully-qualified OLD-GROUP as NEW-GROUP.
+Always updates the agent, even when disabled, as the old agent
+files would corrupt gnus when the agent was next enabled.
+Depends upon the caller to determine whether group renaming is
+supported."
(let* ((old-command-method (gnus-find-method-for-group old-group))
(old-path (directory-file-name
(let (gnus-command-method old-command-method)
＠＠ -888,9 +902,11 ＠＠ next enabled. Depends upon the caller to
;;;###autoload
(defun gnus-agent-delete-group (group)
- "Delete fully-qualified GROUP. Always updates the agent, even when
-disabled, as the old agent files would corrupt gnus when the agent was
-next enabled. Depends upon the caller to determine whether group deletion is supported."
+ "Delete fully-qualified GROUP.
+Always updates the agent, even when disabled, as the old agent
+files would corrupt gnus when the agent was next enabled.
+Depends upon the caller to determine whether group deletion is
+supported."
(let* ((command-method (gnus-find-method-for-group group))
(path (directory-file-name
(let (gnus-command-method command-method)
＠＠ -1134,20 +1150,22 ＠＠ downloadable."
(when gnus-newsgroup-processable
(setq gnus-newsgroup-downloadable
(let* ((dl gnus-newsgroup-downloadable)
- (gnus-newsgroup-downloadable
- (sort (gnus-copy-sequence gnus-newsgroup-processable) '<))
- (fetched-articles (gnus-agent-summary-fetch-group)))
- ;; The preceeding call to (gnus-agent-summary-fetch-group)
- ;; updated gnus-newsgroup-downloadable to remove each
- ;; article successfully fetched.
+ (processable (sort (gnus-copy-sequence gnus-newsgroup-processable) '<))
+ (gnus-newsgroup-downloadable processable))
+ (gnus-agent-summary-fetch-group)
+
+ ;; For each article that I processed that is no longer
+ ;; undownloaded, remove its processable mark.
- ;; For each article that I processed, remove its
- ;; processable mark IF the article is no longer
- ;; downloadable (i.e. it's already downloaded)
- (dolist (article gnus-newsgroup-processable)
- (unless (memq article gnus-newsgroup-downloadable)
- (gnus-summary-remove-process-mark article)))
- (gnus-sorted-ndifference dl fetched-articles)))))
+ (mapc #'gnus-summary-remove-process-mark
+ (gnus-sorted-ndifference gnus-newsgroup-processable gnus-newsgroup-undownloaded))
+
+ ;; The preceeding call to (gnus-agent-summary-fetch-group)
+ ;; updated the temporary gnus-newsgroup-downloadable to
+ ;; remove each article successfully fetched. Now, I
+ ;; update the real gnus-newsgroup-downloadable to only
+ ;; include undownloaded articles.
+ (gnus-sorted-ndifference dl (gnus-sorted-ndifference processable gnus-newsgroup-undownloaded))))))
(defun gnus-agent-summary-fetch-group (&optional all)
"Fetch the downloadable articles in the group.
＠＠ -1240,7 +1258,13 ＠＠ This can be added to `gnus-select-articl
'gnus-range-add
'gnus-remove-from-range)
(cdr info-marks)
- range)))))))))
+ range))))))))
+
+ ;;Marks can be synchronized at any time by simply toggling from
+ ;;unplugged to plugged. If that is what is happening right now, make
+ ;;sure that the group buffer is up to date.
+ (when (gnus-buffer-live-p gnus-group-buffer)
+ (gnus-group-update-group group t)))
nil))
(defun gnus-agent-save-active (method)
＠＠ -1330,7 +1354,7 ＠＠ downloaded into the agent."
(when (re-search-forward
(concat "^" (regexp-quote group) " ") nil t)
(save-excursion
- (setq oactive-max (read (current-buffer)) ;; max
+ (setq oactive-max (read (current-buffer)) ;; max
oactive-min (read (current-buffer)))) ;; min
(gnus-delete-line)))
(when active
＠＠ -1824,7 +1848,7 ＠＠ article numbers will be returned."
(defsubst gnus-agent-read-article-number ()
"Reads the article number at point. Returns nil when a valid article number can not be read."
- ;; It is unfortunite but the read function quietly overflows
+ ;; It is unfortunate but the read function quietly overflows
;; integer. As a result, I have to use string operations to test
;; for overflow BEFORE calling read.
(when (looking-at "[0-9]+\t")
＠＠ -1913,6 +1937,7 ＠＠ doesn't exist, to valid the overview buf
(goto-char p))
(setq last (or last -134217728))
+ (while (catch 'problems
(let (sort art)
(while (not (eobp))
(setq art (gnus-agent-read-article-number))
＠＠ -1924,12 +1949,27 ＠＠ doesn't exist, to valid the overview buf
;; Art num out of order - enable sort
(setq sort t)
(forward-line 1))
+ ((= art last)
+ ;; Bad repeat of art number - delete this line
+ (beginning-of-line)
+ (delete-region (point) (progn (forward-line 1) (point))))
(t
;; Good art num
(setq last art)
(forward-line 1))))
(when sort
- (sort-numeric-fields 1 (point-min) (point-max)))))))
+ ;; something is seriously wrong as we simply shouldn't see out-of-order data.
+ ;; First, we'll fix the sort.
+ (sort-numeric-fields 1 (point-min) (point-max))
+
+ ;; but now we have to consider that we may have duplicate rows...
+ ;; so reset to beginning of file
+ (goto-char (point-min))
+ (setq last -134217728)
+
+ ;; and throw a code that restarts this scan
+ (throw 'problems t))
+ nil))))))
;; Keeps the compiler from warning about the free variable in
;; gnus-agent-read-agentview.
＠＠ -1946,11 +1986,6 ＠＠ doesn't exist, to valid the overview buf
'gnus-agent-file-loading-cache
'gnus-agent-read-agentview))))
-;; Save format may be either 1 or 2. Two is the new, compressed
-;; format that is still being tested. Format 1 is uncompressed but
-;; known to be reliable.
-(defconst gnus-agent-article-alist-save-format 2)
-
(defun gnus-agent-read-agentview (file)
"Load FILE and do a `read' there."
(with-temp-buffer
＠＠ -1964,8 +1999,6 ＠＠ doesn't exist, to valid the overview buf
changed-version)
(cond
- ((< version 2)
- (error "gnus-agent-read-agentview no longer supports version %d. Stop gnus, manually evaluate gnus-agent-convert-to-compressed-agentview, then restart gnus." version))
((= version 0)
(let ((inhibit-quit t)
entry)
＠＠ -1996,7 +2029,8 ＠＠ doesn't exist, to valid the overview buf
(setq uncomp (cons (cons article-id state) uncomp)))
sequence)))
alist)
- (setq alist (sort uncomp 'car-less-than-car)))))
+ (setq alist (sort uncomp 'car-less-than-car)))
+ (setq changed-version (not (= 2 gnus-agent-article-alist-save-format)))))
(when changed-version
(let ((gnus-agent-article-alist alist))
(gnus-agent-save-alist gnus-agent-read-agentview)))
＠＠ -2110,7 +2144,7 ＠＠ modified) original contents, they are fi
;; NOTE: The '+ 0' ensure that min and max are both numerics.
(set group (cons (+ 0 min) (+ 0 max))))
(error
- (gnus-message 3 "Warning - invalid agent local: %s on line %d: "
+ (gnus-message 3 "Warning - invalid agent local: %s on line %d: %s"
file line (error-message-string err))))
(forward-line 1)
(setq line (1+ line))))
＠＠ -2141,13 +2175,14 ＠＠ modified) original contents, they are fi
((member (symbol-name symbol) '("+dirty" "+method"))
nil)
(t
- (prin1 symbol)
(let ((range (symbol-value symbol)))
+ (when range
+ (prin1 symbol)
(princ " ")
(princ (car range))
(princ " ")
(princ (cdr range))
- (princ "\n")))))
+ (princ "\n"))))))
my-obarray))))))))
(defun gnus-agent-get-local (group &optional gmane method)
＠＠ -2402,7 +2437,9 ＠＠ modified) original contents, they are fi
(dolist (article marked-articles)
(gnus-summary-set-agent-mark article t))
(dolist (article fetched-articles)
- (if gnus-agent-mark-unread-after-downloaded
+ (when gnus-agent-mark-unread-after-downloaded
+ (setq gnus-newsgroup-downloadable
+ (delq article gnus-newsgroup-downloadable))
(gnus-summary-mark-article
article gnus-unread-mark))
(when (gnus-summary-goto-subject article nil t)
＠＠ -3191,7 +3228,7 ＠＠ missing NOV entry. Run gnus-agent-regen
((setq type
(cond
((not (integerp fetch-date))
- 'read) ;; never fetched article (may expire
+ 'read) ;; never fetched article (may expire
;; right now)
((not (file-exists-p
(concat dir (number-to-string
＠＠ -3871,8 +3908,9 ＠＠ If REREAD is not nil, downloaded article
(gnus-agent-possibly-alter-active group group-active)))))
(when (and reread gnus-agent-article-alist)
- (gnus-make-ascending-articles-unread
+ (gnus-agent-synchronize-group-flags
group
+ (list (list
(if (listp reread)
reread
(delq nil (mapcar (function (lambda (c)
＠＠ -3880,7 +3918,9 ＠＠ If REREAD is not nil, downloaded article
(car c))
((cdr c)
(car c)))))
- gnus-agent-article-alist))))
+ gnus-agent-article-alist)))
+ 'del '(read)))
+ gnus-command-method)
(when (gnus-buffer-live-p gnus-group-buffer)
(gnus-group-update-group group t)))
1.8 +8 -3 XEmacs/packages/xemacs-packages/gnus/lisp/gnus-art.el
Index: gnus-art.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/gnus-art.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- gnus-art.el 2005/11/15 03:45:43 1.7
+++ gnus-art.el 2005/12/19 13:35:24 1.8
＠＠ -225,7 +225,9 ＠＠ only of boring text. Boring text is con
This can also be a list of regexps. In that case, it will be checked
from head to tail looking for a separator. Searches will be done from
the end of the buffer."
-:type '(repeat string)
+:type '(choice :format "%{%t%}: %[Value Menu%]\n%v"
+ (regexp)
+ (repeat :tag "List of regexp" regexp))
:group 'gnus-article-signature)
(defcustom gnus-signature-limit nil
＠＠ -535,7 +537,8 ＠＠ Gnus provides the following functions:
(function-item gnus-summary-save-in-file)
(function-item gnus-summary-save-body-in-file)
(function-item gnus-summary-save-in-vm)
- (function-item gnus-summary-write-to-file)))
+ (function-item gnus-summary-write-to-file)
+ (function)))
(defcustom gnus-rmail-save-name 'gnus-plain-save-name
"A function generating a file name to save articles in Rmail format.
＠＠ -821,7 +824,9 ＠＠ This variable is only used when `gnus-in
"List of MIME types that should be given buttons when rendered inline.
If set, this variable overrides `gnus-unbuttonized-mime-types'.
To see e.g. security buttons you could set this to
-`(\"multipart/signed\")'.
+`(\"multipart/signed\")'. You could also add \"multipart/alternative\" to
+this list to display radio buttons that allow you to choose one of two
+media types those mails include. See also `mm-discouraged-alternatives'.
This variable is only used when `gnus-inhibit-mime-unbuttonizing' is nil."
:version "22.1"
:group 'gnus-article-mime
1.7 +16 -9 XEmacs/packages/xemacs-packages/gnus/lisp/gnus-cache.el
Index: gnus-cache.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/gnus-cache.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- gnus-cache.el 2005/11/15 03:45:44 1.6
+++ gnus-cache.el 2005/12/19 13:35:24 1.7
＠＠ -730,9 +730,11 ＠＠ If GROUP is non-nil, also cater to `gnus
;;;###autoload
(defun gnus-cache-rename-group (old-group new-group)
- "Rename OLD-GROUP as NEW-GROUP. Always updates the cache, even when
-disabled, as the old cache files would corrupt gnus when the cache was
-next enabled. Depends upon the caller to determine whether group renaming is supported."
+ "Rename OLD-GROUP as NEW-GROUP.
+Always updates the cache, even when disabled, as the old cache
+files would corrupt Gnus when the cache was next enabled. It
+depends on the caller to determine whether group renaming is
+supported."
(let ((old-dir (gnus-cache-file-name old-group ""))
(new-dir (gnus-cache-file-name new-group "")))
(gnus-rename-file old-dir new-dir t))
＠＠ -740,9 +742,12 ＠＠ next enabled. Depends upon the caller to
(let ((no-save gnus-cache-active-hashtb))
(unless gnus-cache-active-hashtb
(gnus-cache-read-active))
- (let* ((old-group-hash-value (gnus-gethash old-group gnus-cache-active-hashtb))
- (new-group-hash-value (gnus-gethash new-group gnus-cache-active-hashtb))
- (delta (or old-group-hash-value new-group-hash-value)))
+ (let* ((old-group-hash-value
+ (gnus-gethash old-group gnus-cache-active-hashtb))
+ (new-group-hash-value
+ (gnus-gethash new-group gnus-cache-active-hashtb))
+ (delta
+ (or old-group-hash-value new-group-hash-value)))
(gnus-sethash new-group old-group-hash-value gnus-cache-active-hashtb)
(gnus-sethash old-group nil gnus-cache-active-hashtb)
＠＠ -752,9 +757,11 ＠＠ next enabled. Depends upon the caller to
;;;###autoload
(defun gnus-cache-delete-group (group)
- "Delete GROUP. Always updates the cache, even when
-disabled, as the old cache files would corrupt gnus when the cache was
-next enabled. Depends upon the caller to determine whether group deletion is supported."
+ "Delete GROUP from the cache.
+Always updates the cache, even when disabled, as the old cache
+files would corrupt gnus when the cache was next enabled.
+Depends upon the caller to determine whether group deletion is
+supported."
(let ((dir (gnus-cache-file-name group "")))
(gnus-delete-directory dir))
1.5 +1 -2 XEmacs/packages/xemacs-packages/gnus/lisp/gnus-delay.el
Index: gnus-delay.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/gnus-delay.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- gnus-delay.el 2005/11/15 03:45:44 1.4
+++ gnus-delay.el 2005/12/19 13:35:24 1.5
＠＠ -39,7 +39,6 ＠＠
(require 'gnus-draft)
(autoload 'parse-time-string "parse-time" nil nil)
-;;;###autoload
(defgroup gnus-delay nil
"Arrange for sending postings later."
:version "22.1"
＠＠ -195,5 +194,5 ＠＠ Checking delayed messages is skipped if
;; coding: iso-8859-1
;; End:
-;;; arch-tag: fb2ad634-a897-4142-a503-f5991ec2349d
+;; arch-tag: fb2ad634-a897-4142-a503-f5991ec2349d
;;; gnus-delay.el ends here
1.8 +11 -6 XEmacs/packages/xemacs-packages/gnus/lisp/gnus-start.el
Index: gnus-start.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/gnus-start.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- gnus-start.el 2005/11/15 03:45:49 1.7
+++ gnus-start.el 2005/12/19 13:35:25 1.8
＠＠ -717,11 +717,12 ＠＠ the first newsgroup."
(defun gnus-no-server-1 (&optional arg slave)
"Read network news.
-If ARG is a positive number, Gnus will use that as the
-startup level. If ARG is nil, Gnus will be started at level 2.
-If ARG is non-nil and not a positive number, Gnus will
-prompt the user for the name of an NNTP server to use.
-As opposed to `gnus', this command will not connect to the local server."
+If ARG is a positive number, Gnus will use that as the startup
+level. If ARG is nil, Gnus will be started at level 2
+\(`gnus-level-default-subscribed' minus one). If ARG is non-nil
+and not a positive number, Gnus will prompt the user for the name
+of an NNTP server to use. As opposed to \\[gnus], this command
+will not connect to the local server."
(interactive "P")
(let ((val (or arg (1- gnus-level-default-subscribed))))
(gnus val t slave)
＠＠ -805,8 +806,12 ＠＠ prompt the user for the name of an NNTP
"Make sure the draft group exists."
(gnus-request-create-group "drafts" '(nndraft ""))
(unless (gnus-gethash "nndraft:drafts" gnus-newsrc-hashtb)
+ (gnus-message 3 "Subscribing drafts group")
(let ((gnus-level-default-subscribed 1))
- (gnus-subscribe-group "nndraft:drafts" nil '(nndraft "")))
+ (gnus-subscribe-group "nndraft:drafts" nil '(nndraft ""))))
+ (unless (equal (gnus-group-get-parameter "nndraft:drafts" 'gnus-dummy t)
+ '((gnus-draft-mode)))
+ (gnus-message 3 "Setting up drafts group")
(gnus-group-set-parameter
"nndraft:drafts" 'gnus-dummy '((gnus-draft-mode)))))
1.8 +39 -32 XEmacs/packages/xemacs-packages/gnus/lisp/gnus-xmas.el
Index: gnus-xmas.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/gnus-xmas.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- gnus-xmas.el 2005/11/15 03:45:51 1.7
+++ gnus-xmas.el 2005/12/19 13:35:25 1.8
＠＠ -681,38 +681,45 ＠＠ the width is used for the toolbar displa
(when (featurep 'toolbar)
(if (and gnus-use-toolbar
(message-xmas-setup-toolbar toolbar nil "gnus"))
- (let* ((bar (or (intern-soft (format "%s-toolbar" gnus-use-toolbar))
- 'default-toolbar))
- (bars (delq bar (list 'top-toolbar 'bottom-toolbar
- 'right-toolbar 'left-toolbar)))
- hw)
- (while bars
- (remove-specifier (symbol-value (pop bars)) (current-buffer)))
- (unless (eq bar 'default-toolbar)
- (set-specifier default-toolbar nil (current-buffer)))
- (set-specifier (symbol-value bar) toolbar (current-buffer))
- (when (setq hw (cdr (assq gnus-use-toolbar
- '((default . default-toolbar-height)
- (top . top-toolbar-height)
- (bottom . bottom-toolbar-height)))))
- (set-specifier (symbol-value hw) (car gnus-toolbar-thickness)
- (current-buffer)))
- (when (setq hw (cdr (assq gnus-use-toolbar
- '((default . default-toolbar-width)
- (right . right-toolbar-width)
- (left . left-toolbar-width)))))
- (set-specifier (symbol-value hw) (cdr gnus-toolbar-thickness)
- (current-buffer))))
- (set-specifier default-toolbar nil (current-buffer))
- (remove-specifier top-toolbar (current-buffer))
- (remove-specifier bottom-toolbar (current-buffer))
- (remove-specifier right-toolbar (current-buffer))
- (remove-specifier left-toolbar (current-buffer)))
- (set-specifier default-toolbar-visible-p t (current-buffer))
- (set-specifier top-toolbar-visible-p t (current-buffer))
- (set-specifier bottom-toolbar-visible-p t (current-buffer))
- (set-specifier right-toolbar-visible-p t (current-buffer))
- (set-specifier left-toolbar-visible-p t (current-buffer))))
+ (let ((bar (or (intern-soft (format "%s-toolbar" gnus-use-toolbar))
+ 'default-toolbar))
+ (height (car gnus-toolbar-thickness))
+ (width (cdr gnus-toolbar-thickness))
+ (cur (current-buffer))
+ bars)
+ (set-specifier (symbol-value bar) toolbar cur)
+ (set-specifier default-toolbar-height height cur)
+ (set-specifier default-toolbar-width width cur)
+ (set-specifier top-toolbar-height height cur)
+ (set-specifier bottom-toolbar-height height cur)
+ (set-specifier right-toolbar-width width cur)
+ (set-specifier left-toolbar-width width cur)
+ (if (eq bar 'default-toolbar)
+ (progn
+ (remove-specifier default-toolbar-visible-p cur)
+ (remove-specifier top-toolbar cur)
+ (remove-specifier top-toolbar-visible-p cur)
+ (remove-specifier bottom-toolbar cur)
+ (remove-specifier bottom-toolbar-visible-p cur)
+ (remove-specifier right-toolbar cur)
+ (remove-specifier right-toolbar-visible-p cur)
+ (remove-specifier left-toolbar cur)
+ (remove-specifier left-toolbar-visible-p cur))
+ (set-specifier (symbol-value (intern (format "%s-visible-p" bar)))
+ t cur)
+ (setq bars (delq bar (list 'default-toolbar
+ 'bottom-toolbar 'top-toolbar
+ 'right-toolbar 'left-toolbar)))
+ (while bars
+ (set-specifier (symbol-value (intern (format "%s-visible-p"
+ (pop bars))))
+ nil cur))))
+ (let ((cur (current-buffer)))
+ (set-specifier default-toolbar-visible-p nil cur)
+ (set-specifier top-toolbar-visible-p nil cur)
+ (set-specifier bottom-toolbar-visible-p nil cur)
+ (set-specifier right-toolbar-visible-p nil cur)
+ (set-specifier left-toolbar-visible-p nil cur)))))
(defun gnus-xmas-setup-group-toolbar ()
(gnus-xmas-setup-toolbar gnus-group-toolbar))
1.10 +4 -2 XEmacs/packages/xemacs-packages/gnus/lisp/gnus.el
Index: gnus.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/gnus.el,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- gnus.el 2005/11/15 03:45:51 1.9
+++ gnus.el 2005/12/19 13:35:25 1.10
＠＠ -934,7 +934,7 ＠＠ be set in `.emacs' instead."
(t
()))
"Face for the splash screen."
-:group 'gnus)
+:group 'gnus-start)
;; backward-compatibility alias
(put 'gnus-splash-face 'face-alias 'gnus-splash)
＠＠ -3820,6 +3820,7 ＠＠ If you call this function inside a loop,
(defun gnus-group-get-parameter (group &optional symbol allow-list)
"Return the group parameters for GROUP.
If SYMBOL, return the value of that symbol in the group parameters.
+If ALLOW-LIST, also allow list as a result.
Most functions should use `gnus-group-find-parameter', which
also examines the topic parameters."
(let ((params (gnus-info-params (gnus-get-info group))))
＠＠ -3829,7 +3830,8 ＠＠ also examines the topic parameters."
(defun gnus-group-parameter-value (params symbol &optional
allow-list present-p)
- "Return the value of SYMBOL in group PARAMS."
+ "Return the value of SYMBOL in group PARAMS.
+If ALLOW-LIST, also allow list as a result."
;; We only wish to return group parameters (dotted lists) and
;; not local variables, which may have the same names.
;; But first we handle single elements...
1.7 +7 -0 XEmacs/packages/xemacs-packages/gnus/lisp/imap.el
Index: imap.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/imap.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- imap.el 2005/11/15 03:45:52 1.6
+++ imap.el 2005/12/19 13:35:25 1.7
＠＠ -591,6 +591,13 ＠＠ sure of changing the value of `foo'."
(while (and (memq (process-status process) '(open run))
(set-buffer buffer) ;; XXX "blue moon" nntp.el bug
(goto-char (point-min))
+ ;; Athena IMTEST can output SSL verify errors
+ (or (while (looking-at "^verify error:num=")
+ (forward-line))
+ t)
+ (or (while (looking-at "^TLS connection established")
+ (forward-line))
+ t)
;; cyrus 1.6.x (13? < x <= 22) queries capabilities
(or (while (looking-at "^C:")
(forward-line))
1.8 +3 -1 XEmacs/packages/xemacs-packages/gnus/lisp/message.el
Index: message.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/message.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- message.el 2005/11/15 03:45:53 1.7
+++ message.el 2005/12/19 13:35:25 1.8
＠＠ -3317,7 +3317,9 ＠＠ prefix, and don't delete any headers."
(defun message-insert-citation-line ()
"Insert a simple citation line."
(when message-reply-headers
- (insert (mail-header-from message-reply-headers) " writes:\n\n")))
+ (insert (mail-header-from message-reply-headers) " writes:")
+ (newline)
+ (newline)))
(defun message-position-on-field (header &rest afters)
(let ((case-fold-search t))
1.5 +39 -32 XEmacs/packages/xemacs-packages/gnus/lisp/messagexmas.el
Index: messagexmas.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/messagexmas.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- messagexmas.el 2005/11/15 03:45:53 1.4
+++ messagexmas.el 2005/12/19 13:35:25 1.5
＠＠ -95,38 +95,45 ＠＠ the width is used for the toolbar displa
(when (featurep 'toolbar)
(if (and message-use-toolbar
(message-xmas-setup-toolbar message-toolbar))
- (let* ((bar (or (intern-soft (format "%s-toolbar" message-use-toolbar))
- 'default-toolbar))
- (bars (delq bar (list 'top-toolbar 'bottom-toolbar
- 'right-toolbar 'left-toolbar)))
- hw)
- (while bars
- (remove-specifier (symbol-value (pop bars)) (current-buffer)))
- (unless (eq bar 'default-toolbar)
- (set-specifier default-toolbar nil (current-buffer)))
- (set-specifier (symbol-value bar) message-toolbar (current-buffer))
- (when (setq hw (cdr (assq message-use-toolbar
- '((default . default-toolbar-height)
- (top . top-toolbar-height)
- (bottom . bottom-toolbar-height)))))
- (set-specifier (symbol-value hw) (car message-toolbar-thickness)
- (current-buffer)))
- (when (setq hw (cdr (assq message-use-toolbar
- '((default . default-toolbar-width)
- (right . right-toolbar-width)
- (left . left-toolbar-width)))))
- (set-specifier (symbol-value hw) (cdr message-toolbar-thickness)
- (current-buffer))))
- (set-specifier default-toolbar nil (current-buffer))
- (remove-specifier top-toolbar (current-buffer))
- (remove-specifier bottom-toolbar (current-buffer))
- (remove-specifier right-toolbar (current-buffer))
- (remove-specifier left-toolbar (current-buffer)))
- (set-specifier default-toolbar-visible-p t (current-buffer))
- (set-specifier top-toolbar-visible-p t (current-buffer))
- (set-specifier bottom-toolbar-visible-p t (current-buffer))
- (set-specifier right-toolbar-visible-p t (current-buffer))
- (set-specifier left-toolbar-visible-p t (current-buffer))))
+ (let ((bar (or (intern-soft (format "%s-toolbar" message-use-toolbar))
+ 'default-toolbar))
+ (height (car message-toolbar-thickness))
+ (width (cdr message-toolbar-thickness))
+ (cur (current-buffer))
+ bars)
+ (set-specifier (symbol-value bar) message-toolbar cur)
+ (set-specifier default-toolbar-height height cur)
+ (set-specifier default-toolbar-width width cur)
+ (set-specifier top-toolbar-height height cur)
+ (set-specifier bottom-toolbar-height height cur)
+ (set-specifier right-toolbar-width width cur)
+ (set-specifier left-toolbar-width width cur)
+ (if (eq bar 'default-toolbar)
+ (progn
+ (remove-specifier default-toolbar-visible-p cur)
+ (remove-specifier top-toolbar cur)
+ (remove-specifier top-toolbar-visible-p cur)
+ (remove-specifier bottom-toolbar cur)
+ (remove-specifier bottom-toolbar-visible-p cur)
+ (remove-specifier right-toolbar cur)
+ (remove-specifier right-toolbar-visible-p cur)
+ (remove-specifier left-toolbar cur)
+ (remove-specifier left-toolbar-visible-p cur))
+ (set-specifier (symbol-value (intern (format "%s-visible-p" bar)))
+ t cur)
+ (setq bars (delq bar (list 'default-toolbar
+ 'bottom-toolbar 'top-toolbar
+ 'right-toolbar 'left-toolbar)))
+ (while bars
+ (set-specifier (symbol-value (intern (format "%s-visible-p"
+ (pop bars))))
+ nil cur))))
+ (let ((cur (current-buffer)))
+ (set-specifier default-toolbar-visible-p nil cur)
+ (set-specifier top-toolbar-visible-p nil cur)
+ (set-specifier bottom-toolbar-visible-p nil cur)
+ (set-specifier right-toolbar-visible-p nil cur)
+ (set-specifier left-toolbar-visible-p nil cur)))))
(defun message-xmas-exchange-point-and-mark ()
"Exchange point and mark, but allow for XEmacs' optional argument."
1.8 +1 -0 XEmacs/packages/xemacs-packages/gnus/lisp/mm-bodies.el
Index: mm-bodies.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/mm-bodies.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- mm-bodies.el 2005/11/15 03:45:53 1.7
+++ mm-bodies.el 2005/12/19 13:35:25 1.8
＠＠ -227,6 +227,7 ＠＠ If TYPE is `text/plain' CRLF->LF transla
(message "Error while decoding: %s" error)
nil))
(when (and
+ type
(memq encoding '(base64 x-uuencode x-uue x-binhex x-yenc))
(string-match "\\`text/" type))
(goto-char (point-min))
1.8 +61 -27 XEmacs/packages/xemacs-packages/gnus/lisp/mm-decode.el
Index: mm-decode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/mm-decode.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- mm-decode.el 2005/11/15 03:45:53 1.7
+++ mm-decode.el 2005/12/19 13:35:25 1.8
＠＠ -283,7 +283,7 ＠＠ before the external MIME handler is invo
"List of media types that are to be displayed inline.
See also `mm-inline-media-tests', which says how to display a media
type inline."
-:type '(repeat string)
+:type '(repeat regexp)
:group 'mime-display)
(defcustom mm-keep-viewer-alive-types
＠＠ -292,7 +292,7 ＠＠ type inline."
"List of media types for which the external viewer will not be killed
when selecting a different article."
:version "22.1"
-:type '(repeat string)
+:type '(repeat regexp)
:group 'mime-display)
(defcustom mm-automatic-display
＠＠ -304,7 +304,7 ＠＠ when selecting a different article."
"application/pkcs7-signature" "application/x-pkcs7-mime"
"application/pkcs7-mime")
"A list of MIME types to be displayed automatically."
-:type '(repeat string)
+:type '(repeat regexp)
:group 'mime-display)
(defcustom mm-attachment-override-types '("text/x-vcard"
＠＠ -313,17 +313,17 ＠＠ when selecting a different article."
"application/pkcs7-signature"
"application/x-pkcs7-signature")
"Types to have \"attachment\" ignored if they can be displayed inline."
-:type '(repeat string)
+:type '(repeat regexp)
:group 'mime-display)
(defcustom mm-inline-override-types nil
"Types to be treated as attachments even if they can be displayed inline."
-:type '(repeat string)
+:type '(repeat regexp)
:group 'mime-display)
(defcustom mm-automatic-external-display nil
"List of MIME type regexps that will be displayed externally automatically."
-:type '(repeat string)
+:type '(repeat regexp)
:group 'mime-display)
(defcustom mm-discouraged-alternatives nil
＠＠ -335,8 +335,13 ＠＠ for instance, text/html parts are very u
somewhat unwanted, then the value of this variable should be set
to:
- (\"text/html\" \"text/richtext\")"
-:type '(repeat string)
+ (\"text/html\" \"text/richtext\")
+
+Adding \"image/.*\" might also be useful. Spammers use it as the
+prefered part of multipart/alternative messages. See also
+`gnus-buttonized-mime-types', to which adding \"multipart/alternative\"
+enables you to choose manually one of two types those mails include."
+:type '(repeat regexp) ;; See `mm-preferred-alternative-precedence'.
:group 'mime-display)
(defcustom mm-tmp-directory
＠＠ -761,7 +766,19 ＠＠ external if displayed external."
(gnus-map-function mm-file-name-rewrite-functions
(file-name-nondirectory filename))
dir))
- (setq file (mm-make-temp-file (expand-file-name "mm." dir))))
+ (setq file (mm-make-temp-file (expand-file-name "mm." dir)))
+ (let ((newname
+ ;; Use nametemplate (defined in RFC1524) if it is
+ ;; specified in mailcap.
+ (if (assoc "nametemplate" mime-info)
+ (format (cdr (assoc "nametemplate" mime-info)) file)
+ ;; Add a suffix according to `mailcap-mime-extensions'.
+ (concat file (car (rassoc (mm-handle-media-type handle)
+ mailcap-mime-extensions))))))
+ (unless (string-equal file newname)
+ (when (file-exists-p file)
+ (rename-file file newname))
+ (setq file newname))))
(let ((coding-system-for-write mm-binary-coding-system))
(write-region (point-min) (point-max) file nil 'nomesg))
(message "Viewing with %s" method)
＠＠ -819,6 +836,9 ＠＠ external if displayed external."
(ignore-errors (kill-buffer buffer))))))
'inline)
(t
+ ;; Deleting the temp file should be postponed for some wrappers,
+ ;; shell scripts, and so on, which might exit right after having
+ ;; started a viewer command as a background job.
(let ((command (mm-mailcap-command
method file (mm-handle-type handle))))
(unwind-protect
＠＠ -830,24 +850,38 ＠＠ external if displayed external."
shell-command-switch command)
(set-process-sentinel
(get-buffer-process buffer)
- `(lambda (process state)
- (when (eq 'exit (process-status process))
- ;; Don't use `ignore-errors'.
- (condition-case nil
- (delete-file ,file)
- (error))
- (condition-case nil
- (delete-directory ,(file-name-directory file))
- (error))
- (condition-case nil
- (kill-buffer ,buffer)
- (error))
- (condition-case nil
- ,(macroexpand (list 'mm-handle-set-undisplayer
- (list 'quote handle)
- nil))
- (error))
- (message "Displaying %s...done" ,command)))))
+ (lexical-let ;; Don't use `let'.
+ ;; Function used to remove temp file and directory.
+ ((fn `(lambda nil
+ ;; Don't use `ignore-errors'.
+ (condition-case nil
+ (delete-file ,file)
+ (error))
+ (condition-case nil
+ (delete-directory
+ ,(file-name-directory file))
+ (error))))
+ ;; Form uses to kill the process buffer and
+ ;; remove the undisplayer.
+ (fm `(progn
+ (kill-buffer ,buffer)
+ ,(macroexpand
+ (list 'mm-handle-set-undisplayer
+ (list 'quote handle)
+ nil))))
+ ;; Message to be issued when the process exits.
+ (done (format "Displaying %s...done" command))
+ ;; In particular, the timer object (which is
+ ;; a vector in Emacs but is a list in XEmacs)
+ ;; requires that it is lexically scoped.
+ (timer (run-at-time 2.0 nil 'ignore)))
+ (lambda (process state)
+ (when (eq 'exit (process-status process))
+ (if (memq timer timer-list)
+ (timer-set-function timer fn)
+ (funcall fn))
+ (ignore-errors (eval fm))
+ (message "%s" done))))))
(mm-handle-set-external-undisplayer
handle (cons file buffer)))
(message "Displaying %s..." command))
1.7 +13 -13 XEmacs/packages/xemacs-packages/gnus/lisp/mm-view.el
Index: mm-view.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/mm-view.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- mm-view.el 2005/11/15 03:45:54 1.6
+++ mm-view.el 2005/12/19 13:35:25 1.7
＠＠ -250,19 +250,19 ＠＠
(point-min) (point-max)
(list 'keymap w3m-minor-mode-map
;; Put the mark meaning this part was rendered by emacs-w3m.
- 'mm-inline-text-html-with-w3m t))))
- (mm-handle-set-undisplayer
- handle
- `(lambda ()
- (let (buffer-read-only)
- (if (functionp 'remove-specifier)
- (mapcar (lambda (prop)
- (remove-specifier
- (face-property 'default prop)
- (current-buffer)))
- '(background background-pixmap foreground)))
- (delete-region ,(point-min-marker)
- ,(point-max-marker))))))))
+ 'mm-inline-text-html-with-w3m t)))
+ (mm-handle-set-undisplayer
+ handle
+ `(lambda ()
+ (let (buffer-read-only)
+ (if (functionp 'remove-specifier)
+ (mapcar (lambda (prop)
+ (remove-specifier
+ (face-property 'default prop)
+ (current-buffer)))
+ '(background background-pixmap foreground)))
+ (delete-region ,(point-min-marker)
+ ,(point-max-marker)))))))))
(defun mm-links-remove-leading-blank ()
;; Delete the annoying three spaces preceding each line of links
1.7 +8 -2 XEmacs/packages/xemacs-packages/gnus/lisp/nnmail.el
Index: nnmail.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/nnmail.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- nnmail.el 2005/11/15 03:45:57 1.6
+++ nnmail.el 2005/12/19 13:35:26 1.7
＠＠ -1872,9 +1872,15 ＠＠ See the Info node `(gnus)Fancy Mail Spli
(case-fold-search nil)
(from (or (message-fetch-field "from") ""))
(to (or (message-fetch-field "to") ""))
- (date (date-to-time
- (or (message-fetch-field "date") (current-time-string))))
+ (date (message-fetch-field "date"))
(target 'delete))
+ (setq date (if date
+ (condition-case err
+ (date-to-time date)
+ (error
+ (message "%s" (error-message-string err))
+ (current-time)))
+ (current-time)))
(dolist (regexp-target-pair (reverse nnmail-fancy-expiry-targets) target)
(setq header (car regexp-target-pair))
(cond
1.7 +17 -5 XEmacs/packages/xemacs-packages/gnus/lisp/nntp.el
Index: nntp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/nntp.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- nntp.el 2005/11/15 03:45:58 1.6
+++ nntp.el 2005/12/19 13:35:26 1.7
＠＠ -102,7 +102,7 ＠＠ This command is used by the various nntp
(defvoo nntp-end-of-line "\r\n"
"*String to use on the end of lines when talking to the NNTP server.
This is \"\\r\\n\" by default, but should be \"\\n\" when
-using and indirect connection method (nntp-open-via-*).")
+using an indirect connection method (nntp-open-via-*).")
(defvoo nntp-via-rlogin-command "rsh"
"*Rlogin command used to connect to an intermediate host.
＠＠ -259,6 +259,13 ＠＠ Within a string, %s is replaced with the
port number on server. The program should accept IMAP commands on
stdin and return responses to stdout.")
+(defvar nntp-authinfo-rejected nil
+"A custom error condition used to report 'Authentication Rejected' errors.
+Condition handlers that match just this condition ensure that the nntp
+backend doesn't catch this error.")
+(put 'nntp-authinfo-rejected 'error-conditions '(error nntp-authinfo-rejected))
+(put 'nntp-authinfo-rejected 'error-message "Authorization Rejected")
+
;;; Internal functions.
＠＠ -313,12 +320,15 ＠＠ be restored and the command retried."
(set-buffer (process-buffer process))
(goto-char (point-min))
(while (and (or (not (memq (char-after (point)) '(?2 ?3 ?4 ?5)))
- (looking-at "480"))
+ (looking-at "48[02]"))
(memq (process-status process) '(open run)))
- (when (looking-at "480")
+ (cond ((looking-at "480")
(nntp-handle-authinfo process))
- (when (looking-at "^.*\n")
- (delete-region (point) (progn (forward-line 1) (point))))
+ ((looking-at "482")
+ (nnheader-report 'nntp (get 'nntp-authinfo-rejected 'error-message))
+ (signal 'nntp-authinfo-rejected nil))
+ ((looking-at "^.*\n")
+ (delete-region (point) (progn (forward-line 1) (point)))))
(nntp-accept-process-output process)
(goto-char (point-min)))
(prog1
＠＠ -411,6 +421,8 ＠＠ be restored and the command retried."
(wait-for
(nntp-wait-for process wait-for buffer decode))
(t t)))
+ (nntp-authinfo-rejected
+ (signal 'nntp-authinfo-rejected (cdr err)))
(error
(nnheader-report 'nntp "Couldn't open connection to %s: %s"
address err))
1.8 +2 -2 XEmacs/packages/xemacs-packages/gnus/lisp/rfc2047.el
Index: rfc2047.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/rfc2047.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- rfc2047.el 2005/11/15 03:46:00 1.7
+++ rfc2047.el 2005/12/19 13:35:26 1.8
＠＠ -831,11 +831,11 ＠＠ If your Emacs implementation can't decod
(memq 'gnus-all mail-parse-ignored-charsets)
(memq charset mail-parse-ignored-charsets))
(setq charset mail-parse-charset))
- (let ((cs (mm-coding-system-p (mm-charset-to-coding-system charset))))
+ (let ((cs (mm-charset-to-coding-system charset)))
(cond ((eq cs 'ascii)
(setq cs (or (mm-charset-to-coding-system mail-parse-charset)
'raw-text)))
- (cs)
+ ((setq cs (mm-coding-system-p cs)))
((and charset
(listp mail-parse-ignored-charsets)
(memq 'gnus-unknown mail-parse-ignored-charsets))
1.7 +11 -1 XEmacs/packages/xemacs-packages/gnus/lisp/rfc2231.el
Index: rfc2231.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/lisp/rfc2231.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- rfc2231.el 2005/11/15 03:46:00 1.6
+++ rfc2231.el 2005/12/19 13:35:26 1.7
＠＠ -127,7 +127,17 ＠＠ The list will be on the form
(> c ?\177)) ;; EXTENSION: Support non-ascii chars.
(not (memq c stoken)))
(setq value (buffer-substring
- (point) (progn (forward-sexp) (point)))))
+ (point)
+ (progn
+ (forward-sexp)
+ ;; We might not have reached at the end of
+ ;; the value because of non-ascii chars,
+ ;; so we should jump over them if any.
+ (while (and (not (eobp))
+ (> (char-after) ?\177))
+ (forward-char 1)
+ (forward-sexp))
+ (point)))))
(t
(error "Invalid header: %s" string)))
(if number
1.8 +47 -0 XEmacs/packages/xemacs-packages/gnus/texi/ChangeLog.upstream
Index: ChangeLog.upstream
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/texi/ChangeLog.upstream,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- ChangeLog.upstream 2005/11/15 03:46:31 1.7
+++ ChangeLog.upstream 2005/12/19 13:35:32 1.8
＠＠ -1,3 +1,50 ＠＠
+2005-12-12 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * gnus.texi (MIME Commands): Mention addition of
+ multipart/alternative to gnus-buttonized-mime-types and add xref
+ to mm-discouraged-alternatives.
+
+ * emacs-mime.texi (Display Customization): Mention addition of
+ "image/.*" and add xref to gnus-buttonized-mime-types in the
+ mm-discouraged-alternatives section.
+
+2005-12-05 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * pgg.texi (User Commands): Fix description of pgg-verify-region.
+ (Selecting an implementation): Fix descriptions.
+
+2005-11-30 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * message.texi (Various Message Variables): Addition.
+
+2005-11-29 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * message.texi: Fix default values.
+
+2005-11-25 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * message.texi (Header Commands): Clarify descriptions of
+ message-cross-post-followup-to, message-reduce-to-to-cc, and
+ message-insert-wide-reply.
+ (Various Commands): Fix kindex for message-kill-to-signature;
+ clarify description of message-tab.
+
+2005-11-22 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * message.texi (Mailing Lists): Fix description about MFT.
+
+ * gnus.texi (Emacs Lisp): Use ~/.gnus.el instead of ~/.emacs.
+
+2005-11-17 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * gnus.texi (Slow Terminal Connection): Replace old description
+ with new one.
+
+2005-11-16 Katsumi Yamaoka <yamaoka(a)jpl.org>
+
+ * gnus.texi (Oort Gnus): Use ~/.gnus.el instead of ~/.emacs;
+ replace X-Draft-Headers with X-Draft-From.
+
2005-11-14 Katsumi Yamaoka <yamaoka(a)jpl.org>
* gnus.texi (Various Various): Fix the default value of
1.7 +6 -0 XEmacs/packages/xemacs-packages/gnus/texi/emacs-mime.texi
Index: emacs-mime.texi
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/texi/emacs-mime.texi,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- emacs-mime.texi 2005/11/15 03:46:32 1.6
+++ emacs-mime.texi 2005/12/19 13:35:32 1.7
＠＠ -322,6 +322,12 ＠＠ you could say something like:
(remove "text/html" mm-automatic-display))
＠end lisp
+Adding ＠code{"image/.*"} might also be useful. Spammers use it as the
+prefered part of ＠samp{multipart/alternative} messages. See also
+＠code{gnus-buttonized-mime-types} (＠pxref{MIME Commands, ,MIME Commands,
+gnus, Gnus Manual}), to which adding ＠code{"multipart/alternative"}
+enables you to choose manually one of two types those mails include.
+
＠item mm-inline-large-images
＠vindex mm-inline-large-images
When displaying inline images that are larger than the window, Emacs
1.10 +22 -13 XEmacs/packages/xemacs-packages/gnus/texi/gnus.texi
Index: gnus.texi
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/texi/gnus.texi,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -p -r1.9 -r1.10
--- gnus.texi 2005/11/15 03:46:33 1.9
+++ gnus.texi 2005/12/19 13:35:32 1.10
＠＠ -9319,6 +9319,12 ＠＠ To see e.g. security buttons but no othe
variable to ＠code{("multipart/signed")} and leave
＠code{gnus-unbuttonized-mime-types} at the default value.
+You could also add ＠code{"multipart/alternative"} to this list to
+display radio buttons that allow you to choose one of two media types
+those mails include. See also ＠code{mm-discouraged-alternatives}
+(＠pxref{Display Customization, ,Display Customization, emacs-mime, The
+Emacs MIME Manual}).
+
＠item gnus-inhibit-mime-unbuttonizing
＠vindex gnus-inhibit-mime-unbuttonizing
If this is non-＠code{nil}, then all ＠acronym{MIME} parts get buttons. The
＠＠ -26032,7 +26038,7 ＠＠ The new variable ＠code{gnus-parameters}
Earlier this was done only via ＠kbd{G p} (or ＠kbd{G c}), which stored
the parameters in ＠file{~/.newsrc.eld}, but via this variable you can
enjoy the powers of customize, and simplified backups since you set the
-variable in ＠file{~/.emacs} instead of ＠file{~/.newsrc.eld}. The
+variable in ＠file{~/.gnus.el} instead of ＠file{~/.newsrc.eld}. The
variable maps regular expressions matching group names to group
parameters, a'la:
＠lisp
＠＠ -26047,7 +26053,7 ＠＠ parameters, a'la:
＠item
Smileys (＠samp{:-)}, ＠samp{;-)} etc) are now iconized for Emacs too.
-Put ＠code{(setq gnus-treat-display-smileys nil)} in ＠file{~/.emacs} to
+Put ＠code{(setq gnus-treat-display-smileys nil)} in ＠file{~/.gnus.el} to
disable it.
＠item
＠＠ -26074,8 +26080,8 ＠＠ appropriate headers and a note in the bo
followups (see the variables ＠code{message-cross-post-＠var{*}}).
＠item
-References and X-Draft-Headers are no longer generated when you start
-composing messages and ＠code{message-generate-headers-first} is
+References and X-Draft-From headers are no longer generated when you
+start composing messages and ＠code{message-generate-headers-first} is
＠code{nil}.
＠item
＠＠ -26316,7 +26322,8 ＠＠ It was aliased to ＠kbd{Y c}
(＠code{gnus-summary-insert-cached-articles}). The new function filters
out other articles.
-＠item Some limiting commands accept a ＠kbd{C-u} prefix to negate the match.
+＠item
+Some limiting commands accept a ＠kbd{C-u} prefix to negate the match.
If ＠kbd{C-u} is used on subject, author or extra headers, i.e., ＠kbd{/
s}, ＠kbd{/ a}, and ＠kbd{/ x}
＠＠ -26767,7 +26774,7 ＠＠ minimum. You can, in fact, make do with
useful data is in the summary buffer, anyway. Set this variable to
＠samp{^NEVVVVER} or ＠samp{From:}, or whatever you feel you need.
-Set this hook to all the available hiding commands:
+Use the following to enable all the available hiding features:
＠lisp
(setq gnus-treat-hide-headers 'head
gnus-treat-hide-signature t
＠＠ -28495,8 +28502,10 ＠＠ interpreted.) If you decide that you do
certain things, it's trivial to have it do something a different way.
(Well, at least if you know how to write Lisp code.) However, that's
beyond the scope of this manual, so we are simply going to talk about
-some common constructs that you normally use in your ＠file{.emacs} file
-to customize Gnus.
+some common constructs that you normally use in your ＠file{~/.gnus.el}
+file to customize Gnus. (You can also use the ＠file{~/.emacs} file, but
+in order to set things of Gnus up, it is much better to use the
+(a)file{~/.gnus.el} file, ＠xref{Startup Files}.)
If you want to set the variable ＠code{gnus-florgbnize} to four (4), you
write the following:
＠＠ -28507,12 +28516,12 ＠＠ write the following:
This function (really ``special form'') ＠code{setq} is the one that can
set a variable to some value. This is really all you need to know. Now
-you can go and fill your ＠file{.emacs} file with lots of these to change
-how Gnus works.
+you can go and fill your ＠file{~/.gnus.el} file with lots of these to
+change how Gnus works.
-If you have put that thing in your ＠file{.emacs} file, it will be read
-and ＠code{eval}ed (which is lisp-ese for ``run'') the next time you
-start Emacs. If you want to change the variable right away, simply say
+If you have put that thing in your ＠file{~/.gnus.el} file, it will be
+read and ＠code{eval}ed (which is Lisp-ese for ``run'') the next time you
+start Gnus. If you want to change the variable right away, simply say
＠kbd{C-x C-e} after the closing parenthesis. That will ＠code{eval} the
previous ``form'', which is a simple ＠code{setq} statement here.
1.8 +57 -32 XEmacs/packages/xemacs-packages/gnus/texi/message.texi
Index: message.texi
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/gnus/texi/message.texi,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- message.texi 2005/11/15 03:46:36 1.7
+++ message.texi 2005/12/19 13:35:33 1.8
＠＠ -249,7 +249,10 ＠＠ supersede the message in the current buf
Headers matching the ＠code{message-ignored-supersedes-headers} are
removed before popping up the new message buffer. The default is＠*
＠samp{^Path:\\|^Date\\|^NNTP-Posting-Host:\\|^Xref:\\|^Lines:\\|＠*
-^Received:\\|^X-From-Line:\\|Return-Path:\\|^Supersedes:}.
+^Received:\\|^X-From-Line:\\|^X-Trace:\\|^X-Complaints-To:\\|＠*
+Return-Path:\\|^Supersedes:\\|^NNTP-Posting-Date:\\|^X-Trace:\\|＠*
+^X-Complaints-To:\\|^Cancel-Lock:\\|^Cancel-Key:\\|^X-Hashcash:\\|＠*
+^X-Payment:}.
＠＠ -330,7 +333,7 ＠＠ undeliverable.
＠vindex message-ignored-bounced-headers
Headers that match the ＠code{message-ignored-bounced-headers} regexp
will be removed before popping up the buffer. The default is
-＠samp{^\\(Received\\|Return-Path\\):}.
+＠samp{^\\(Received\\|Return-Path\\|Delivered-To\\):}.
＠node Mailing Lists
＠＠ -339,7 +342,7 ＠＠ will be removed before popping up the bu
＠cindex Mail-Followup-To
Sometimes while posting to mailing lists, the poster needs to direct
followups to the post to specific places. The Mail-Followup-To (MFT)
-was created to enable just this. Two example scenarios where this is
+was created to enable just this. Three example scenarios where this is
useful:
＠itemize ＠bullet
＠＠ -681,26 +684,30 ＠＠ stripped on replying, see ＠code{message-
＠kindex C-c C-f x
＠findex message-cross-post-followup-to
＠vindex message-cross-post-default
+＠vindex message-cross-post-note-function
＠cindex X-Post
＠cindex cross-post
-Ask for an additional ＠samp{Newsgroups} and ＠samp{FollowUp-To} for a
-cross-post. ＠code{message-cross-post-followup-to} mangles
-＠samp{FollowUp-To} and ＠samp{Newsgroups} header to point to group.
-If ＠code{message-cross-post-default} is ＠code{nil} or if called with a
-prefix-argument ＠samp{Follow-Up} is set, but the message is not
-cross-posted.
+Set up the ＠samp{FollowUp-To} header with a target newsgroup for a
+cross-post, add that target newsgroup to the ＠samp{Newsgroups} header if
+it is not a member of ＠samp{Newsgroups}, and insert a note in the body.
+If ＠code{message-cross-post-default} is ＠code{nil} or if this command is
+called with a prefix-argument, only the ＠samp{FollowUp-To} header will
+be set but the the target newsgroup will not be added to the
+＠samp{Newsgroups} header. The function to insert a note is controlled
+by the ＠code{message-cross-post-note-function} variable.
＠item C-c C-f t
＠kindex C-c C-f t
＠findex message-reduce-to-to-cc
Replace contents of ＠samp{To} header with contents of ＠samp{Cc} or
-＠samp{Bcc} header.
+＠samp{Bcc} header. (Iff ＠samp{Cc} header is not present, ＠samp{Bcc}
+header will be used instead.)
＠item C-c C-f w
＠kindex C-c C-f w
＠findex message-insert-wide-reply
Insert ＠samp{To} and ＠samp{Cc} headers as if you were doing a wide
-reply.
+reply even if the message was not made for a wide reply first.
＠item C-c C-f a
＠kindex C-c C-f a
＠＠ -839,8 +846,8 ＠＠ typed a non-＠acronym{ASCII} domain name.
The ＠code{message-use-idna} variable control whether ＠acronym{IDNA} is
used. If the variable is ＠code{nil} no ＠acronym{IDNA} encoding will
ever happen, if it is set to the symbol ＠code{ask} the user will be
-queried, and if set to ＠code{t} ＠acronym{IDNA} encoding happens
-automatically (the default).
+queried, and if set to ＠code{t} (which is the default if ＠acronym{IDNA}
+is fully available) ＠acronym{IDNA} encoding happens automatically.
＠findex message-idna-to-ascii-rhs
If you want to experiment with the ＠acronym{IDNA} encoding, you can
＠＠ -1081,7 +1088,7 ＠＠ The text is killed and replaced with the
(＠samp{[...]}).
＠item C-c C-z
-＠kindex C-c C-x
+＠kindex C-c C-z
＠findex message-kill-to-signature
Kill all the text up to the signature, or if that's missing, up to the
end of the message (＠code{message-kill-to-signature}).
＠＠ -1125,9 +1132,9 ＠＠ prompt for a new buffer name.
＠kindex TAB
＠findex message-tab
＠vindex message-tab-body-function
-If non-＠code{nil} execute the function specified in
-＠code{message-tab-body-function}. Otherwise use the function bound to
-＠kbd{TAB} in ＠code{text-mode-map} or ＠code{global-map}.
+If ＠code{message-tab-body-function} is non-＠code{nil}, execute the
+function it specifies. Otherwise use the function bound to ＠kbd{TAB} in
+＠code{text-mode-map} or ＠code{global-map}.
＠end table
＠＠ -1417,13 +1424,14 ＠＠ header when the message is already ＠code
＠item message-required-mail-headers
＠vindex message-required-mail-headers
＠xref{News Headers}, for the syntax of this variable. It is
-＠code{(From Date Subject (optional . In-Reply-To) Message-ID Lines
+＠code{(From Subject Date (optional . In-Reply-To) Message-ID
(optional . User-Agent))} by default.
＠item message-ignored-mail-headers
＠vindex message-ignored-mail-headers
-Regexp of headers to be removed before mailing. The default is
-＠samp{^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:}.
+Regexp of headers to be removed before mailing. The default is＠*
+＠samp{^[GF]cc:\\|^Resent-Fcc:\\|^Xref:\\|^X-Draft-From:\\|＠*
+^X-Gnus-Agent-Meta-Information:}.
＠item message-default-mail-headers
＠vindex message-default-mail-headers
＠＠ -1694,7 +1702,8 ＠＠ All these conditions are checked by defa
＠item message-ignored-news-headers
＠vindex message-ignored-news-headers
Regexp of headers to be removed before posting. The default is＠*
-＠samp{^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|^X-Draft-From:}.
+＠samp{^NNTP-Posting-Host:\\|^Xref:\\|^[BGF]cc:\\|^Resent-Fcc:\\|＠*
+^X-Draft-From:\\|^X-Gnus-Agent-Meta-Information:}.
＠item message-default-news-headers
＠vindex message-default-news-headers
＠＠ -1847,12 +1856,13 ＠＠ say.
＠item message-default-charset
＠vindex message-default-charset
＠cindex charset
-Symbol naming a ＠acronym{MIME} charset. Non-＠acronym{ASCII}
-characters in messages are assumed to be encoded using this charset.
-The default is ＠code{nil}, which means ask the user. (This variable
-is used only on non-＠sc{mule} Emacsen. ＠xref{Charset Translation, ,
-Charset Translation, emacs-mime, Emacs MIME Manual}, for details on
-the ＠sc{mule}-to-＠acronym{MIME} translation process.
+Symbol naming a ＠acronym{MIME} charset. Non-＠acronym{ASCII} characters
+in messages are assumed to be encoded using this charset. The default
+is ＠code{iso-8859-1} on non-＠sc{mule} Emacsen; otherwise ＠code{nil},
+which means ask the user. (This variable is used only on non-＠sc{mule}
+Emacsen.) ＠xref{Charset Translation, , Charset Translation, emacs-mime,
+Emacs MIME Manual}, for details on the ＠sc{mule}-to-＠acronym{MIME}
+translation process.
＠item message-signature-separator
＠vindex message-signature-separator
＠＠ -1954,9 +1964,12 ＠＠ message composition doesn't break too ba
＠item message-send-method-alist
＠vindex message-send-method-alist
+＠findex message-mail-p
+＠findex message-news-p
+＠findex message-send-via-mail
+＠findex message-send-via-news
+Alist of ways to send outgoing messages. Each element has the form:
-Alist of ways to send outgoing messages. Each element has the form
-
＠lisp
(＠var{type} ＠var{predicate} ＠var{function})
＠end lisp
＠＠ -1967,20 +1980,32 ＠＠ A symbol that names the method.
＠item predicate
A function called without any parameters to determine whether the
-message is a message of type ＠var{type}.
+message is a message of type ＠var{type}. The function will be called in
+the buffer where the message is.
＠item function
A function to be called if ＠var{predicate} returns non-＠code{nil}.
＠var{function} is called with one parameter -- the prefix.
＠end table
+The default is:
+
＠lisp
((news message-news-p message-send-via-news)
(mail message-mail-p message-send-via-mail))
＠end lisp
-
-
+The ＠code{message-news-p} function returns non-＠code{nil} if the message
+looks like news, and the ＠code{message-send-via-news} function sends the
+message according to the ＠code{message-send-news-function} variable
+(＠pxref{News Variables}). The ＠code{message-mail-p} function returns
+non-＠code{nil} if the message looks like mail, and the
+＠code{message-send-via-mail} function sends the message according to the
+＠code{message-send-mail-function} variable (＠pxref{Mail Variables}).
+
+All the elements in this alist will be tried in order, so a message
+containing both a valid ＠samp{Newsgroups} header and a valid ＠samp{To}
+header, for example, will be sent as news, and then as mail.
＠end table
- 1 participants
- 0 comments
CVS update by viteno xemacs-builds/viteno ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/19 07:58:46
Modified: xemacs-builds/viteno package-index setup-packages.ini
Log:
Package database backup:
- python-modes-1.07
Revision Changes Path
1.266 +9 -9 XEmacs/xemacs-builds/viteno/package-index
Index: package-index
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/package-index,v
retrieving revision 1.265
retrieving revision 1.266
diff -u -p -r1.265 -r1.266
--- package-index 2005/12/06 11:24:10 1.265
+++ package-index 2005/12/19 06:58:46 1.266
＠＠ -326,19 +326,19 ＠＠
(package-get-update-base-entry (quote
(python-modes
(standards-version 1.1
- version "1.06"
+ version "1.07"
author-version "No-Upstream-Ver"
- date "2004-04-13"
- build-date "2004-04-13"
+ date "2005-12-19"
+ build-date "2005-12-19"
maintainer "Skip Montanaro <skip(a)pobox.com>"
distribution xemacs
priority low
category "standard"
dump nil
description "Python support."
- filename "python-modes-1.06-pkg.tar.gz"
- md5sum "ecda2909abf566525b9c2e7bc6c58e54"
- size 92702
+ filename "python-modes-1.07-pkg.tar.gz"
+ md5sum "574cac0c86f8e19c684017989ea25801"
+ size 92924
provides (pydoc python-mode)
requires (xemacs-base mail-lib edit-utils fsf-compat)
type regular
＠＠ -1738,7 +1738,7 ＠＠
version "1.46"
author-version "11.55"
date "2005-02-12"
- build-date "2005-11-22"
+ build-date "2005-12-08"
maintainer "Uwe Brauer <oub(a)mat.ucm.es>"
distribution xemacs
priority medium
＠＠ -1746,8 +1746,8 ＠＠
dump nil
description "Basic TeX/LaTeX support."
filename "auctex-1.46-pkg.tar.gz"
- md5sum "5fd90caa65342e6afea5c50f46938fb5"
- size 709284
+ md5sum "0d7170230b9300fcef5eb57a7b4e6fbf"
+ size 710140
provides (auc-old auc-tex bib-cite font-latex latex multi-prompt tex-buf tex-info tex-jp tex-mik tex-site tex texmathp hilit-LaTeX tex-font tex-fptex)
requires (xemacs-base)
type regular
1.254 +3 -3 XEmacs/xemacs-builds/viteno/setup-packages.ini
Index: setup-packages.ini
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/setup-packages.ini,v
retrieving revision 1.253
retrieving revision 1.254
diff -u -p -r1.253 -r1.254
--- setup-packages.ini 2005/12/06 11:24:10 1.253
+++ setup-packages.ini 2005/12/19 06:58:46 1.254
＠＠ -181,7 +181,7 ＠＠ install: packages/vhdl-1.20-pkg.tar.gz 3
＠ auctex
version: 1.46
-install: packages/auctex-1.46-pkg.tar.gz 709284
+install: packages/auctex-1.46-pkg.tar.gz 710140
＠ crisp
version: 1.15
＠＠ -400,8 +400,8 ＠＠ version: 1.02
install: packages/ruby-modes-1.02-pkg.tar.gz 21889
＠ python-modes
-version: 1.06
-install: packages/python-modes-1.06-pkg.tar.gz 92702
+version: 1.07
+install: packages/python-modes-1.07-pkg.tar.gz 92924
＠ perl-modes
version: 1.08
- 1 participants
- 0 comments
CVS update by viteno packages/xemacs-packages/python-modes ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/19 07:55:56
Modified: packages/xemacs-packages/python-modes ChangeLog Makefile
Log:
Increment VERSION in Makefile
Revision Changes Path
1.17 +4 -0 XEmacs/packages/xemacs-packages/python-modes/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/python-modes/ChangeLog,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- ChangeLog 2005/12/17 10:03:17 1.16
+++ ChangeLog 2005/12/19 06:55:55 1.17
＠＠ -1,3 +1,7 ＠＠
+2005-12-19 Norbert Koch <viteno(a)xemacs.org>
+
+ * Makefile (VERSION): XEmacs package 1.07 released.
+
2005-12-10 Ville Skyttä <scop(a)xemacs.org>
* pydoc.el (pydoc-initialize): Make python search for
1.15 +1 -1 XEmacs/packages/xemacs-packages/python-modes/Makefile
Index: Makefile
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/python-modes/Makefile,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -p -r1.14 -r1.15
--- Makefile 2005/12/17 10:03:17 1.14
+++ Makefile 2005/12/19 06:55:55 1.15
＠＠ -17,7 +17,7 ＠＠
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
-VERSION = 1.06
+VERSION = 1.07
AUTHOR_VERSION =
MAINTAINER = Skip Montanaro <skip(a)pobox.com>
PACKAGE = python-modes
- 1 participants
- 0 comments
CVS update by viteno packages ...
19 years
CVS Monitor
CVS Monitor
User: viteno
Date: 05/12/19 07:55:43
Modified: packages ChangeLog
Log:
Package release
Revision Changes Path
1.590 +4 -0 XEmacs/packages/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/ChangeLog,v
retrieving revision 1.589
retrieving revision 1.590
diff -u -p -r1.589 -r1.590
--- ChangeLog 2005/12/08 15:44:11 1.589
+++ ChangeLog 2005/12/19 06:55:42 1.590
＠＠ -1,3 +1,7 ＠＠
+2005-12-19 Norbert Koch <viteno(a)xemacs.org>
+
+ * Packages released: python-modes.
+
2005-12-08 Norbert Koch <viteno(a)xemacs.org>
* Sumo packages released.
- 1 participants
- 0 comments