Skip to content

GitLab

emacs
emacs
Commit 23f87bed authored by Miles Bader's avatar Miles Bader
Browse files
Options

Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 

Merge from emacs--gnus--5.10, gnus--rel--5.10

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0
   tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464

 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1
   Import from CVS branch gnus-5_10-branch

 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2
   Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0

 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19
   Remove autoconf-generated files from archive

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20
   Update from CVS
parent 2a223f35
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 83980 additions and 29697 deletions
ChangeLog
View file @ 23f87bed
......@@ -6,6 +6,12 @@
* config.bat: Update URLs in the comments.
2004-08-02 Reiner Steib <Reiner.Steib@gmx.de>
* Makefile.in (install-arch-indep): Added pgg and sieve.
* info/.cvsignore: Added pgg and sieve.
2004-07-05 Andreas Schwab <schwab@suse.de>
* Makefile.in (install-arch-indep): Remove .arch-inventory files.
......
Makefile.in
View file @ 23f87bed
......@@ -475,7 +475,7 @@ install-arch-indep: mkdir info
chmod a+r ${infodir}/dir); \
fi; \
cd ${srcdir}/info ; \
for f in ada-mode* autotype* calc* ccmode* cl* dired-x* ebrowse* ediff* efaq* eintr* elisp* emacs* emacs-xtra* eshell* eudc* flymake* forms* gnus* idlwave* info* message* mh-e* pcl-cvs* reftex* sc* ses* speedbar* tramp* vip* widget* woman* smtpmail*; do \
for f in ada-mode* autotype* calc* ccmode* cl* dired-x* ebrowse* ediff* efaq* eintr* elisp* emacs* emacs-mime* emacs-xtra* eshell* eudc* flymake* forms* gnus* idlwave* info* message* mh-e* pcl-cvs* pgg* reftex* sc* ses* sieve* speedbar* tramp* vip* widget* woman* smtpmail*; do \
(cd $${thisdir}; \
${INSTALL_DATA} ${srcdir}/info/$$f ${infodir}/$$f; \
chmod a+r ${infodir}/$$f); \
......@@ -485,7 +485,7 @@ install-arch-indep: mkdir info
thisdir=`/bin/pwd`; \
if [ `(cd ${srcdir}/info && /bin/pwd)` != `(cd ${infodir} && /bin/pwd)` ]; \
then \
for f in ada-mode autotype calc ccmode cl dired-x ebrowse ediff efaq elisp eintr emacs emacs-mime emacs-xtra eshell eudc flymake forms gnus idlwave info message mh-e pcl-cvs reftex sc ses speedbar tramp vip viper widget woman smtpmail; do \
for f in ada-mode autotype calc ccmode cl dired-x ebrowse ediff efaq elisp eintr emacs emacs-mime emacs-xtra eshell eudc flymake forms gnus idlwave info message mh-e pcl-cvs pgg reftex sc ses sieve speedbar tramp vip viper widget woman smtpmail; do \
(cd $${thisdir}; \
${INSTALL_INFO} --info-dir=${infodir} ${infodir}/$$f); \
done; \
......
etc/ChangeLog
View file @ 23f87bed
......@@ -46,6 +46,18 @@
* NEWS: Document all new tutorials.
2004-08-05 Reiner Steib <Reiner.Steib@gmx.de>
* GNUS-NEWS: Import from the v5_10 branch of the Gnus repository.
* NEWS (Gnus package): Gnus includes Sieve and PGG. Gnus changes
are described in GNUS-NEWS.
2004-08-02 Reiner Steib <Reiner.Steib@gmx.de>
* gnus.xpm, gnus-pointer.xbm, gnus-pointer.xpm: Import from the
v5_10 branch of the Gnus repository.
2004-07-14 Luc Teirlinck <teirllm@auburn.edu>
* MORE.STUFF: Tramp is now distributed with Emacs.
......
etc/GNUS-NEWS 0 → 100644
View file @ 23f87bed
This diff is collapsed.
etc/NEWS
View file @ 23f87bed
......@@ -264,6 +264,15 @@ This is like `strokes-global-set-stroke', but it allows you to bind
the stroke directly to a string to insert. This is convenient for
using strokes as an input method.
** Gnus package
*** Gnus now includes Sieve and PGG
Sieve is a library for managing Sieve scripts. PGG is a library to handle
PGP/MIME.
*** There are many news features, bug fixes and improvements.
See the file GNUS-NEWS or the node "Oort Gnus" in the Gnus manual for details.
+++
** Desktop package
......
lisp/ChangeLog
View file @ 23f87bed
......@@ -773,6 +773,16 @@
* ps-print.el (ps-begin-file): Improve the DSC compliance of the
generated PostScript.
2004-08-17 Reiner Steib <Reiner.Steib@gmx.de>
* net/tls.el (tls-process-connection-type): Fix docstring. (Sync
with Gnus v5_10 branch.)
2004-08-16 Reiner Steib <Reiner.Steib@gmx.de>
* calendar/time-date.el (time-to-number-of-days): New function.
Imported from from Gnus.
2004-07-22 Kim F. Storm <storm@cua.dk>
* progmodes/make-mode.el: Fix comments.
......
lisp/calendar/time-date.el
View file @ 23f87bed
;;; time-date.el --- date and time handling functions
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
;; Copyright (C) 1998, 1999, 2000, 2004 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Masanobu Umeda <umerin@mse.kyutech.ac.jp>
......@@ -38,7 +38,7 @@
(parse-time-string
;; `parse-time-string' isn't sufficiently general or
;; robust. It fails to grok some of the formats that
;; timzeone does (e.g. dodgy post-2000 stuff from some
;; timezone does (e.g. dodgy post-2000 stuff from some
;; Elms) and either fails or returns bogus values. Lars
;; reverted this change, but that loses non-trivially
;; often for me. -- fx
......@@ -177,6 +177,11 @@ The Gregorian date Sunday, December 31, 1bce is imaginary."
(- (/ (1- year) 100)) ; - century years
(/ (1- year) 400)))) ; + Gregorian leap years
(defun time-to-number-of-days (time)
"Return the number of days represented by TIME.
The number of days will be returned as a floating point number."
(/ (+ (* 1.0 65536 (car time)) (cadr time)) (* 60 60 24)))
;;;###autoload
(defun safe-date-to-time (date)
"Parse a string that represents a date-time and return a time value.
......
lisp/gnus/ChangeLog
View file @ 23f87bed
This diff is collapsed.
lisp/gnus/ChangeLog.2 0 → 100644
View file @ 23f87bed
This diff is collapsed.
lisp/gnus/TODO 0 → 100644
View file @ 23f87bed
2004-08-22 Reiner Steib <Reiner.Steib@gmx.de>
* Disclaimer: This is *temporary* file to keep track of the changes
in the trunk, that have or have not made it into the Gnus branch.
2004--08-22 Reiner Steib <Reiner.Steib@gmx.de>
* Add `:version "21.4"' to all new defcustoms. Grep ChangeLog and
ChangeLog.1 for "new variable". Also check if the `:version
"21.1"' and `:version "21.3"' entries are correct.
2002-10-02 Karl Berry <karl@gnu.org>
* In directory ./man:
* emacs-mime.texi, gnus-faq.texi, gnus.texi, message.texi,
pgg.texi, sieve.texi: Per rms, update all manuals to use @copying
instead of @ifinfo. Also use @ifnottex instead of @ifinfo around
the top node, where needed for the sake of the HTML output.
(The Gnus manual is not fixed since it's not clear to me how it
works; and the Tramp manual already uses @copying, although in an
unusual way. All others were changed.)
==> Done. Not yet in Gnus repository.
2004-06-29 Kim F. Storm <storm@cua.dk>
* nntp.el (nntp-authinfo-file): Add :group 'nntp.
* nnimap.el (nnimap-authinfo-file, nnimap-prune-cache):
Add :group 'nnimap.
==> applied, here and in Gnus repository.
2004-05-18 Stefan Monnier <monnier@iro.umontreal.ca>
* mm-view.el (mm-insert-inline): Make it work in read-only buffer.
* gnus-win.el (gnus-all-windows-visible-p): Don't consider
non-visible windows.
2004-05-07 Stefan Monnier <monnier@iro.umontreal.ca>
* rfc2047.el (rfc2047-encode-message-header): Don't encode non-address
headers as address headers (which breaks if subject has a single ").
==> already in Gnus
2004-05-06 Stefan Monnier <monnier@iro.umontreal.ca>
* nnimap.el (nnimap-demule): Avoid string-as-multibyte.
==> applied, here and in Gnus repository.
2004-04-21 Richard M. Stallman <rms@gnu.org>
* mailcap.el (mailcap-mime-data): Mark as risky.
==> applied, here and in Gnus repository.
2004-03-27 Juanma Barranquero <lektu@terra.es>
* gnus-srvr.el (gnus-server-prepare): Remove spurious call to `cdr'.
==> already in Gnus
2004-03-22 Stefan Monnier <monnier@iro.umontreal.ca>
* gnus-art.el: Use inhibit-read-only instead of buffer-read-only.
(gnus-narrow-to-page): Don't assume point-min == 1.
(gnus-article-edit-mode): Derive from message-mode.
(gnus-button-alist): Add buttons to (info "(emacs)Keymaps").
* gnus-score.el (gnus-score-find-bnews): Simplify and don't assume
point-min == 1.
* imap.el (imap-parse-address-list, imap-parse-body-ext):
Disable incorrect use of `assert'.
==> applied / modified
2004-03-05 Stefan Monnier <monnier@iro.umontreal.ca>
* message.el (message-mode): Fix last change.
==> applied
2004-03-04 Stefan Monnier <monnier@iro.umontreal.ca>
* message.el (message-mode): Set comment-start-skip.
==> applied
2004-02-08 Andreas Schwab <schwab@suse.de>
* nnlistserv.el (nnlistserv-kk-wash-article): Fix paren nesting.
* gnus-score.el (gnus-summary-increase-score): Fix format string.
==> applied; here and in Gnus v5-10. Already fixed in No Gnus.
2003-06-25 Sam Steingold <sds@gnu.org>
* gnus-group.el (gnus-group-suspend): Avoid some consing.
==> hunk FAILED / not very important / skip
2003-06-11 Sam Steingold <sds@gnu.org>
* pop3.el (pop3-leave-mail-on-server): New user variable.
(pop3-movemail): Delete mail only when it is nil.
==> applied / Was not documented in the Gnus manual, added it.
2003-05-10 Juanma Barranquero <lektu@terra.es>
* message.el (message-buffer-naming-style): Fix typo.
==> variable has been removed.
2003-05-07 Dave Love <fx@gnu.org>
[Partial sync with Gnus.]
* rfc2047.el (rfc2047-header-encoding-alist): Add Followup-To.
(rfc2047-encode-message-header): Fold when encoding not necessary.
(rfc2047-encode-region): Skip \n as whitespace.
(rfc2047-fold-region): Fix whitespace regexps. Don't break just
after the header name.
(rfc2047-unfold-region): Fix regexp and whitespace-skipping.
2003-05-06 Jesper Harder <harder@ifa.au.dk>
* gnus-cus.el (gnus-group-customize, gnus-score-parameters):
Don't quote nil and t in docstrings.
* gnus-score.el (gnus-score-lower-thread): Likewise.
* gnus-art.el (gnus-article-mime-match-handle-function): Likewise.
==> already in Gnus
2003-02-28 ShengHuo ZHU <zsh@cs.rochester.edu>
* nnfolder.el (nnfolder-request-accept-article): Don't use
mail-header-unfold-field.
* imap.el (imap-ssl-open): Don't depend on ssl.el.
* nntp.el (nntp-open-ssl-stream): Don't depend on ssl.el.
2003-02-18 Juanma Barranquero <lektu@terra.es>
* ietf-drums.el (ietf-drums-remove-whitespace): Fix character constant.
2003-02-14 Juanma Barranquero <lektu@terra.es>
* mm-uu.el (mm-uu-dissect): Fix use of character constant.
==> already done. [2003-02-14 ShengHuo ZHU synced stuff to Gnus]
2003-02-11 Stefan Monnier <monnier@cs.yale.edu>
* nntp.el (nntp-accept-process-output): Don't use point-max to get
the buffer's size.
==> already done. [2003-02-14 ShengHuo ZHU synced stuff to Gnus]
2003-01-31 Joe Buehler <jhpb@draco.hekimian.com>
* nnheader.el: Added cygwin to system-type comparisons.
==> already done.
2004-08-22 Reiner Steib <Reiner.Steib@gmx.de>
* It seems that the last few changes and all older changes have
already been applied in Gnus repository, e.g. by ShengHuo ZHU
<zsh@cs.rochester.edu>.
# Local Variables:
# coding: iso-2022-7bit
# mode: change-log
# End:
# arch-tag: e6e5d695-4d00-46b1-a49d-508a2418a483
lisp/gnus/bar.xbm 0 → 100644
View file @ 23f87bed
#define noname_width 6
#define noname_height 48
static char noname_bits[] = {
0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,
0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,
0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,0x0c,
0x0c,0x0c,0x0c};
lisp/gnus/bar.xpm 0 → 100644
View file @ 23f87bed
/* XPM */
static char * picon-bar_xpm[] = {
"6 48 2 1",
" c white s background",
". c black",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. ",
" .. "};
lisp/gnus/binhex.el
View file @ 23f87bed
;;; binhex.el --- elisp native binhex decode
;; Copyright (c) 1998 Free Software Foundation, Inc.
;; Copyright (c) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Create Date: Oct 1, 1998
;; Keywords: binhex news
;; This file is part of GNU Emacs.
......@@ -26,20 +25,33 @@
;;; Code:
(autoload 'executable-find "executable")
(eval-when-compile (require 'cl))
(defalias 'binhex-char-int
(if (fboundp 'char-int)
'char-int
'identity))
(eval-and-compile
(defalias 'binhex-char-int
(if (fboundp 'char-int)
'char-int
'identity)))
(defvar binhex-decoder-program "hexbin"
"*Non-nil value should be a string that names a uu decoder.
(defcustom binhex-decoder-program "hexbin"
"*Non-nil value should be a string that names a binhex decoder.
The program should expect to read binhex data on its standard
input and write the converted data to its standard output.")
input and write the converted data to its standard output."
:type 'string
:group 'gnus-extract)
(defcustom binhex-decoder-switches '("-d")
"*List of command line flags passed to the command `binhex-decoder-program'."
:group 'gnus-extract
:type '(repeat string))
(defvar binhex-decoder-switches '("-d")
"*List of command line flags passed to the command `binhex-decoder-program'.")
(defcustom binhex-use-external
(executable-find binhex-decoder-program)
"*Use external binhex program."
:group 'gnus-extract
:type 'boolean)
(defconst binhex-alphabet-decoding-alist
'(( ?\! . 0) ( ?\" . 1) ( ?\# . 2) ( ?\$ . 3) ( ?\% . 4) ( ?\& . 5)
......@@ -69,13 +81,16 @@ input and write the converted data to its standard output.")
((boundp 'temporary-file-directory) temporary-file-directory)
("/tmp/")))
(if (featurep 'xemacs)
(defalias 'binhex-insert-char 'insert-char)
(defun binhex-insert-char (char &optional count ignored buffer)
(if (or (null buffer) (eq buffer (current-buffer)))
(insert-char char count)
(with-current-buffer buffer
(insert-char char count)))))
(eval-and-compile
(defalias 'binhex-insert-char
(if (featurep 'xemacs)
'insert-char
(lambda (char &optional count ignored buffer)
"Insert COUNT copies of CHARACTER into BUFFER."
(if (or (null buffer) (eq buffer (current-buffer)))
(insert-char char count)
(with-current-buffer buffer
(insert-char char count)))))))
(defvar binhex-crc-table
[0 4129 8258 12387 16516 20645 24774 28903
......@@ -184,8 +199,9 @@ input and write the converted data to its standard output.")
(t
(binhex-insert-char (setq binhex-last-char char) 1 ignored buffer))))
(defun binhex-decode-region (start end &optional header-only)
"Binhex decode region between START and END.
;;;###autoload
(defun binhex-decode-region-internal (start end &optional header-only)
"Binhex decode region between START and END without using an external program.
If HEADER-ONLY is non-nil only decode header and return filename."
(interactive "r")
(let ((work-buffer nil)
......@@ -258,12 +274,14 @@ If HEADER-ONLY is non-nil only decode header and return filename."
(and work-buffer (kill-buffer work-buffer)))
(if header (aref header 1))))
;;;###autoload
(defun binhex-decode-region-external (start end)
"Binhex decode region between START and END using external decoder."
(interactive "r")
(let ((cbuf (current-buffer)) firstline work-buffer status
(file-name (expand-file-name
(concat (binhex-decode-region start end t) ".data")
(concat (binhex-decode-region-internal start end t)
".data")
binhex-temporary-file-directory)))
(save-excursion
(goto-char start)
......@@ -296,6 +314,14 @@ If HEADER-ONLY is non-nil only decode header and return filename."
(ignore-errors
(if file-name (delete-file file-name))))))
;;;###autoload
(defun binhex-decode-region (start end)
"Binhex decode region between START and END."
(interactive "r")
(if binhex-use-external
(binhex-decode-region-external start end)
(binhex-decode-region-internal start end)))
(provide 'binhex)
;;; arch-tag: 8476badd-1e76-4f1d-a640-f9a38c72eed8
......
lisp/gnus/blink.pbm 0 → 100644
View file @ 23f87bed
This diff was suppressed by a .gitattributes entry.
lisp/gnus/blink.xpm 0 → 100644
View file @ 23f87bed
/* XPM */
static char * blink_xpm[] = {
"13 14 3 1",
" c None",
". c #000000",
"+ c #FFDD00",
" ....... ",
" ..+++++.. ",
" .+++++++++. ",
".+++++++++++.",
".+++++++..++.",
".+++++++..++.",
".++...++++++.",
".+++++++++++.",
".++++++++.++.",
".++.+++++.++.",
".+++.....+++.",
" .+++++++++. ",
" ..+++++.. ",
" ....... "};
lisp/gnus/braindamaged.xpm 0 → 100644
View file @ 23f87bed
/* XPM */
static char * mad_xpm[] = {
"13 14 3 1",
" c None",
". c #000000",
"+ c #FFDD00",
" ....... ",
" ..+++++.. ",
" .+++++++++. ",
".++...++++++.",
".++.+.+...++.",
".++...+.+.++.",
".++++++...++.",
".+.+++++++.+.",
".+.+++++++.+.",
".++.+++++.++.",
".+++.....+++.",
" .+++++++++. ",
" ..+++++.. ",
" ....... "};
lisp/gnus/canlock.el 0 → 100644
View file @ 23f87bed
;;; canlock.el --- functions for Cancel-Lock feature
;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.
;; Author: Katsumi Yamaoka <yamaoka@jpl.org>
;; Keywords: news, cancel-lock, hmac, sha1, rfc2104
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; Canlock is a library for generating and verifying Cancel-Lock and/or
;; Cancel-Key header in news articles. This is used to protect articles
;; from rogue cancel, supersede or replace attacks. The method is based
;; on draft-ietf-usefor-cancel-lock-01.txt which was released on November
;; 3rd 1998. For instance, you can add Cancel-Lock (and possibly Cancel-
;; Key) header in a news article by using a hook which will be evaluated
;; just before sending an article as follows:
;;
;; (add-hook '*e**a*e-header-hook 'canlock-insert-header t)
;;
;; Verifying Cancel-Lock is mainly a function of news servers, however,
;; you can verify your own article using the command `canlock-verify' in
;; the (raw) article buffer. You will be prompted for the password for
;; each time if the option `canlock-password' or `canlock-password-for-
;; verify' is nil. Note that setting these options is a bit unsafe.
;;; Code:
(eval-when-compile
(require 'cl))
(require 'sha1)
(defvar mail-header-separator)
(defgroup canlock nil
"The Cancel-Lock feature."
:group 'applications)
(defcustom canlock-password nil
"Password to use when signing a Cancel-Lock or a Cancel-Key header."
:type '(radio (const :format "Not specified " nil)
(string :tag "Password" :size 0))
:group 'canlock)
(defcustom canlock-password-for-verify canlock-password
"Password to use when verifying a Cancel-Lock or a Cancel-Key header."
:type '(radio (const :format "Not specified " nil)
(string :tag "Password" :size 0))
:group 'canlock)
(defcustom canlock-force-insert-header nil
"If non-nil, insert a Cancel-Lock or a Cancel-Key header even if the
buffer does not look like a news message."
:type 'boolean
:group 'canlock)
(eval-when-compile
(defmacro canlock-string-as-unibyte (string)
"Return a unibyte string with the same individual bytes as STRING."
(if (fboundp 'string-as-unibyte)
(list 'string-as-unibyte string)
string)))
(defun canlock-sha1 (message)
"Make a SHA-1 digest of MESSAGE as a unibyte string of length 20 bytes."
(let (sha1-maximum-internal-length)
(sha1 message nil nil 'binary)))
(defun canlock-make-cancel-key (message-id password)
"Make a Cancel-Key header."
(when (> (length password) 20)
(setq password (canlock-sha1 password)))
(setq password (concat password (make-string (- 64 (length password)) 0)))
(let ((ipad (mapconcat (lambda (byte)
(char-to-string (logxor 54 byte)))
password ""))
(opad (mapconcat (lambda (byte)
(char-to-string (logxor 92 byte)))
password "")))
(base64-encode-string
(canlock-sha1
(concat opad
(canlock-sha1