*** empty log message ***

etc/ChangeLog

+2000-09-19  Gerd Moellmann  <gerd@gnu.org>
+
+	* splash.xpm: New file.
+
 2000-09-11  Dave Love  <fx@gnu.org>
 
 	* gnus.xbm, gnus.xpm, gnus-pointer.xpm, gnus-pointer.xbm: New

lisp/ChangeLog

 2000-09-19  Gerd Moellmann  <gerd@gnu.org>
 
+	* gnus/: Update to emacs-21-branch of the Gnus CVS repository.
+	* gnus/binhex.el, gnus/flow-fill.el, gnus/format-spec.el
+	* gnus/gnus-ml.el, gnus/gnus-mlspl.el, gnus/ietf-drums.el,
+	* gnus/imap.el, gnus/mail-parse.el, gnus/mail-prsvr.el,
+	* gnus/mail-source.el, gnus/mailcap.el, gnus/mm-bodies.el,
+	* gnus/mm-decode.el, gnus/mm-encode.el, gnus/mm-partial.el,
+	* gnus/mm-util.el, gnus/mm-uu.el, gnus/mm-view.el,
+	* gnus/mml.el, gnus/nnimap.el, gnus/nnslashdot.el,
+	* gnus/nnultimate.el, gnus/nnwarchive.el, gnus/qp.el,
+	* gnus/rfc1843.el, gnus/rfc2045.el, gnus/rfc2047.el,
+	* gnus/rfc2104.el, gnus/rfc2231.el, gnus/time-date.el,
+	* gnus/utf7.el, gnsu/uudecode.el, gnus/webmail.el: New files.
+
 	* startup.el (fancy-splash-text): New variable.
 	(fancy-splash-delay, fancy-splash-image): New user-options.
 	(fancy-splash-insert, fancy-splash-head, fancy-splash-tail)

lisp/gnus/binhex.el

+;;; binhex.el -- elisp native binhex decode
+;; Copyright (c) 1998 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.
+
+;; GNU Emacs 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.
+
+;; GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(eval-when-compile (require 'cl))
+
+(if (not (fboundp 'char-int))
+    (fset 'char-int 'identity))
+
+(defvar binhex-decoder-program "hexbin"
+  "*Non-nil value should be a string that names a uu decoder.
+The program should expect to read binhex data on its standard
+input and write the converted data to its standard output.")
+
+(defvar binhex-decoder-switches '("-d")
+  "*List of command line flags passed to the command named by binhex-decoder-program.")
+
+(defconst binhex-alphabet-decoding-alist
+  '(( ?\! . 0) ( ?\" . 1) ( ?\# . 2) ( ?\$ . 3) ( ?\% . 4) ( ?\& . 5)
+    ( ?\' . 6) ( ?\( . 7) ( ?\) . 8) ( ?\* . 9) ( ?\+ . 10) ( ?\, . 11)
+    ( ?\- . 12) ( ?0 . 13) ( ?1 . 14) ( ?2 . 15) ( ?3 . 16) ( ?4 . 17)
+    ( ?5 . 18) ( ?6 . 19) ( ?8 . 20) ( ?9 . 21) ( ?@ . 22) ( ?A . 23)
+    ( ?B . 24) ( ?C . 25) ( ?D . 26) ( ?E . 27) ( ?F . 28) ( ?G . 29)
+    ( ?H . 30) ( ?I . 31) ( ?J . 32) ( ?K . 33) ( ?L . 34) ( ?M . 35)
+    ( ?N . 36) ( ?P . 37) ( ?Q . 38) ( ?R . 39) ( ?S . 40) ( ?T . 41)
+    ( ?U . 42) ( ?V . 43) ( ?X . 44) ( ?Y . 45) ( ?Z . 46) ( ?\[ . 47)
+    ( ?\` . 48) ( ?a . 49) ( ?b . 50) ( ?c . 51) ( ?d . 52) ( ?e . 53)
+    ( ?f . 54) ( ?h . 55) ( ?i . 56) ( ?j . 57) ( ?k . 58) ( ?l . 59)
+    ( ?m . 60) ( ?p . 61) ( ?q . 62) ( ?r . 63)))
+
+(defun binhex-char-map (char)
+  (cdr (assq char binhex-alphabet-decoding-alist)))
+
+;;;###autoload
+(defconst binhex-begin-line
+  "^:...............................................................$")
+(defconst binhex-body-line
+  "^[^:]...............................................................$")
+(defconst binhex-end-line ":$")
+
+(defvar binhex-temporary-file-directory
+  (cond ((fboundp 'temp-directory) (temp-directory))
+	((boundp 'temporary-file-directory) temporary-file-directory)
+	("/tmp/")))
+
+(if (string-match "XEmacs" emacs-version)
+    (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)))))
+
+(defvar binhex-crc-table
+  [0  4129  8258  12387  16516  20645  24774  28903
+      33032  37161  41290  45419  49548  53677  57806  61935
+      4657  528  12915  8786  21173  17044  29431  25302
+      37689  33560  45947  41818  54205  50076  62463  58334
+      9314  13379  1056  5121  25830  29895  17572  21637
+      42346  46411  34088  38153  58862  62927  50604  54669
+      13907  9842  5649  1584  30423  26358  22165  18100
+      46939  42874  38681  34616  63455  59390  55197  51132
+      18628  22757  26758  30887  2112  6241  10242  14371
+      51660  55789  59790  63919  35144  39273  43274  47403
+      23285  19156  31415  27286  6769  2640  14899  10770
+      56317  52188  64447  60318  39801  35672  47931  43802
+      27814  31879  19684  23749  11298  15363  3168  7233
+      60846  64911  52716  56781  44330  48395  36200  40265
+      32407  28342  24277  20212  15891  11826  7761  3696
+      65439  61374  57309  53244  48923  44858  40793  36728
+      37256  33193  45514  41451  53516  49453  61774  57711
+      4224  161  12482  8419  20484  16421  28742  24679
+      33721  37784  41979  46042  49981  54044  58239  62302
+      689  4752  8947  13010  16949  21012  25207  29270
+      46570  42443  38312  34185  62830  58703  54572  50445
+      13538  9411  5280  1153  29798  25671  21540  17413
+      42971  47098  34713  38840  59231  63358  50973  55100
+      9939  14066  1681  5808  26199  30326  17941  22068
+      55628  51565  63758  59695  39368  35305  47498  43435
+      22596  18533  30726  26663  6336  2273  14466  10403
+      52093  56156  60223  64286  35833  39896  43963  48026
+      19061  23124  27191  31254  2801  6864  10931  14994
+      64814  60687  56684  52557  48554  44427  40424  36297
+      31782  27655  23652  19525  15522  11395  7392  3265
+      61215  65342  53085  57212  44955  49082  36825  40952
+      28183  32310  20053  24180  11923  16050  3793  7920])
+
+(defun binhex-update-crc (crc char &optional count)
+  (if (null count) (setq count 1))
+  (while (> count 0)
+    (setq crc (logxor (logand (lsh crc 8) 65280)
+		      (aref binhex-crc-table
+			    (logxor (logand (lsh crc -8) 255)
+				    char)))
+	  count (1- count)))
+  crc)
+
+(defun binhex-verify-crc (buffer start end)
+  (with-current-buffer buffer
+    (let ((pos start) (crc 0) (last (- end 2)))
+      (while (< pos last)
+	(setq crc (binhex-update-crc crc (char-after pos))
+	      pos (1+ pos)))
+      (if (= crc (binhex-string-big-endian (buffer-substring last end)))
+	  nil
+	(error "CRC error")))))
+
+(defun binhex-string-big-endian (string)
+  (let ((ret 0) (i 0) (len (length string)))
+    (while (< i len)
+      (setq ret (+ (lsh ret 8) (char-int (aref string i)))
+	    i (1+ i)))
+    ret))
+
+(defun binhex-string-little-endian (string)
+  (let ((ret 0) (i 0) (shift 0) (len (length string)))
+    (while (< i len)
+      (setq ret (+ ret (lsh (char-int (aref string i)) shift))
+	    i (1+ i)
+	    shift (+ shift 8)))
+    ret))
+
+(defun binhex-header (buffer)
+  (with-current-buffer buffer
+    (let ((pos (point-min)) len)
+      (vector
+       (prog1
+	   (setq len (char-int (char-after pos)))
+	 (setq pos (1+ pos)))
+       (buffer-substring pos (setq pos (+ pos len)))
+       (prog1
+	   (setq len (char-int (char-after pos)))
+	 (setq pos (1+ pos)))
+       (buffer-substring pos (setq pos (+ pos 4)))
+       (buffer-substring pos (setq pos (+ pos 4)))
+       (binhex-string-big-endian
+	(buffer-substring pos (setq pos (+ pos 2))))
+       (binhex-string-big-endian
+	(buffer-substring pos (setq pos (+ pos 4))))
+       (binhex-string-big-endian
+	(buffer-substring pos (setq pos (+ pos 4))))))))
+
+(defvar binhex-last-char)
+(defvar binhex-repeat)
+
+(defun binhex-push-char (char &optional count ignored buffer)
+  (cond
+   (binhex-repeat
+    (if (eq char 0)
+	(binhex-insert-char (setq binhex-last-char 144) 1
+			    ignored buffer)
+      (binhex-insert-char binhex-last-char (- char 1)
+			  ignored buffer)
+      (setq binhex-last-char nil))
+    (setq binhex-repeat nil))
+   ((= char 144)
+    (setq binhex-repeat t))
+   (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.
+If HEADER-ONLY is non-nil only decode header and return filename."
+  (interactive "r")
+  (let ((work-buffer nil)
+	(counter 0)
+	(bits 0) (tmp t)
+	(lim 0) inputpos
+	(non-data-chars " \t\n\r:")
+	file-name-length data-fork-start
+	header
+	binhex-last-char binhex-repeat)
+    (unwind-protect
+	(save-excursion
+	  (goto-char start)
+	  (when (re-search-forward binhex-begin-line end t)
+	    (if (and (not (string-match "XEmacs\\|Lucid" emacs-version))
+		     (boundp 'enable-multibyte-characters))
+		(let ((multibyte
+		       (default-value 'enable-multibyte-characters)))
+		  (setq-default enable-multibyte-characters nil)
+		  (setq work-buffer (generate-new-buffer " *binhex-work*"))
+		  (setq-default enable-multibyte-characters multibyte))
+	      (setq work-buffer (generate-new-buffer " *binhex-work*")))
+	    (buffer-disable-undo work-buffer)
+	    (beginning-of-line)
+	    (setq bits 0 counter 0)
+	    (while tmp
+	      (skip-chars-forward non-data-chars end)
+	      (setq inputpos (point))
+	      (end-of-line)
+	      (setq lim (point))
+	      (while (and (< inputpos lim)
+			  (setq tmp (binhex-char-map (char-after inputpos))))
+		(setq bits (+ bits tmp)
+		      counter (1+ counter)
+		      inputpos (1+ inputpos))
+		(cond ((= counter 4)
+		       (binhex-push-char (lsh bits -16) 1 nil work-buffer)
+		       (binhex-push-char (logand (lsh bits -8) 255) 1 nil
+					 work-buffer)
+		       (binhex-push-char (logand bits 255) 1 nil
+					 work-buffer)
+		       (setq bits 0 counter 0))
+		      (t (setq bits (lsh bits 6)))))
+	      (if (null file-name-length)
+		  (with-current-buffer work-buffer
+		    (setq file-name-length (char-after (point-min))
+			  data-fork-start (+ (point-min)
+					     file-name-length 22))))
+	      (if (and (null header)
+		       (with-current-buffer work-buffer
+			 (>= (buffer-size) data-fork-start)))
+		  (progn
+		    (binhex-verify-crc work-buffer
+				       1 data-fork-start)
+		    (setq header (binhex-header work-buffer))
+		    (if header-only (setq tmp nil counter 0))))
+	      (setq tmp (and tmp (not (eq inputpos end)))))
+	    (cond
+	     ((= counter 3)
+	      (binhex-push-char (logand (lsh bits -16) 255) 1 nil
+				work-buffer)
+	      (binhex-push-char (logand (lsh bits -8) 255) 1 nil
+				work-buffer))
+	     ((= counter 2)
+	      (binhex-push-char (logand (lsh bits -10) 255) 1 nil
+				work-buffer))))
+	  (if header-only nil
+	    (binhex-verify-crc work-buffer
+			       data-fork-start
+			       (+ data-fork-start (aref header 6) 2))
+	    (or (markerp end) (setq end (set-marker (make-marker) end)))
+	    (goto-char start)
+	    (insert-buffer-substring work-buffer
+				     data-fork-start (+ data-fork-start
+							(aref header 6)))
+	    (delete-region (point) end)))
+      (and work-buffer (kill-buffer work-buffer)))
+    (if header (aref header 1))))
+
+(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 (concat binhex-temporary-file-directory
+			   (binhex-decode-region start end t)
+			   ".data")))
+    (save-excursion
+      (goto-char start)
+      (when (re-search-forward binhex-begin-line nil t)
+	(let ((cdir default-directory) default-process-coding-system)
+	  (unwind-protect
+	      (progn
+		(set-buffer (setq work-buffer
+				  (generate-new-buffer " *binhex-work*")))
+		(buffer-disable-undo work-buffer)
+		(insert-buffer-substring cbuf firstline end)
+		(cd binhex-temporary-file-directory)
+		(apply 'call-process-region
+		       (point-min)
+		       (point-max)
+		       binhex-decoder-program
+		       nil
+		       nil
+		       nil
+		       binhex-decoder-switches))
+	    (cd cdir) (set-buffer cbuf)))
+	(if (and file-name (file-exists-p file-name))
+	    (progn
+	      (goto-char start)
+	      (delete-region start end)
+	      (let (format-alist)
+		(insert-file-contents-literally file-name)))
+	  (error "Can not binhex")))
+      (and work-buffer (kill-buffer work-buffer))
+      (ignore-errors
+	(if file-name (delete-file file-name))))))
+
+(provide 'binhex)
+
+;;; binhex.el ends here

lisp/gnus/flow-fill.el

+;;; flow-fill.el --- interprete RFC2646 "flowed" text
+
+;; Copyright (C) 2000 Free Software Foundation, Inc.
+
+;; Author: Simon Josefsson <jas@pdc.kth.se>
+;; Keywords: mail
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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.
+
+;; GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;; This implement decoding of RFC2646 formatted text, including the
+;; quoted-depth wins rules.
+
+;; Theory of operation: search for lines ending with SPC, save quote
+;; length of line, remove SPC and concatenate line with the following
+;; line if quote length of following line matches current line.
+
+;; When no further concatenations are possible, we've found a
+;; paragraph and we let `fill-region' fill the long line into several
+;; lines with the quote prefix as `fill-prefix'.
+
+;; Todo: encoding
+
+;; History:
+
+;; 2000-02-17  posted on ding mailing list
+;; 2000-02-19  use `point-at-{b,e}ol' in XEmacs
+;; 2000-03-11  no compile warnings for point-at-bol stuff
+;; 2000-03-26  commited to gnus cvs
+
+;;; Code:
+
+(eval-and-compile
+  (defalias 'fill-flowed-point-at-bol
+	(if (fboundp 'point-at-bol)
+	    'point-at-bol
+	  'line-beginning-position))
+  
+  (defalias 'fill-flowed-point-at-eol
+	(if (fboundp 'point-at-eol)
+	    'point-at-eol
+	  'line-end-position)))
+
+(defun fill-flowed (&optional buffer)
+  (save-excursion
+    (set-buffer (or (current-buffer) buffer))
+    (goto-char (point-min))
+    (while (re-search-forward " $" nil t)
+      (when (save-excursion
+	      (beginning-of-line)
+	      (looking-at "^\\(>*\\)\\( ?\\)"))
+	(let ((quote (match-string 1)))
+	  (if (string= quote "")
+	      (setq quote nil))
+	  (when (and quote (string= (match-string 2) ""))
+	    (save-excursion
+	      ;; insert SP after quote for pleasant reading of quoted lines
+	      (beginning-of-line)
+	      (when (> (skip-chars-forward ">") 0)
+		(insert " "))))
+	  (while (and (save-excursion
+			(backward-char 3)
+			(looking-at "[^-][^-] "))
+		      (save-excursion
+			(unless (eobp)
+			  (forward-char 1)
+			  (if quote
+			      (looking-at (format "^\\(%s\\)\\([^>]\\)" quote))
+			    (looking-at "^ ?")))))
+	    (save-excursion
+	      (replace-match (if (string= (match-string 2) " ")
+				 "" "\\2")))
+	    (backward-delete-char -1)
+	    (end-of-line))
+	  (let ((fill-prefix (when quote (concat quote " "))))
+	    (fill-region (fill-flowed-point-at-bol)
+			 (fill-flowed-point-at-eol)
+			 'left 'nosqueeze)))))))
+
+(provide 'flow-fill)
+
+;;; flow-fill.el ends here

lisp/gnus/format-spec.el

+;;; format-spec.el --- functions for formatting arbitrary formatting strings
+;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+
+;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;; Keywords: tools
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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.
+
+;; GNU Emacs 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 GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(eval-when-compile (require 'cl))
+
+(defun format-spec (format specification)
+  "Return a string based on FORMAT and SPECIFICATION.
+FORMAT is a string containing `format'-like specs like \"bash %u %k\",
+while SPECIFICATION is an alist mapping from format spec characters
+to values."
+  (with-temp-buffer
+    (insert format)
+    (goto-char (point-min))
+    (while (search-forward "%" nil t)
+      (cond
+       ;; Quoted percent sign.
+       ((eq (char-after) ?%)
+	(delete-char 1))
+       ;; Valid format spec.
+       ((looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)")
+	(let* ((num (match-string 1))
+	       (spec (string-to-char (match-string 2)))
+	       (val (cdr (assq spec specification))))
+	  (delete-region (1- (match-beginning 0)) (match-end 0))
+	  (unless val
+	    (error "Invalid format character: %s" spec))
+	  (insert (format (concat "%" num "s") val))))
+       ;; Signal an error on bogus format strings.
+       (t
+	(error "Invalid format string"))))
+    (buffer-string)))
+
+(defun format-spec-make (&rest pairs)
+  "Return an alist suitable for use in `format-spec' based on PAIRS.
+PAIRS is a list where every other element is a character and a value,
+starting with a character."
+  (let (alist)
+    (while pairs
+      (unless (cdr pairs)
+	(error "Invalid list of pairs"))
+      (push (cons (car pairs) (cadr pairs)) alist)
+      (setq pairs (cddr pairs)))
+    (nreverse alist)))
+
+(provide 'format-spec)
+
+;;; format-spec.el ends here

lisp/gnus/gnus-load.el

-;;; gnus-load.el --- automatically extracted custom dependencies
-;;
-;;; Code:
-
-(put 'nnmail 'custom-loads '("nnmail"))
-(put 'gnus-article-emphasis 'custom-loads '("gnus-art"))
-(put 'gnus-article-headers 'custom-loads '("gnus-sum" "gnus-art"))
-(put 'nnmail-procmail 'custom-loads '("nnmail"))
-(put 'gnus-score-kill 'custom-loads '("gnus-kill"))
-(put 'gnus-visual 'custom-loads '("smiley" "gnus" "gnus-picon" "gnus-art" "earcon"))
-(put 'gnus-score-expire 'custom-loads '("gnus-score" "gnus-kill"))
-(put 'gnus-summary-maneuvering 'custom-loads '("gnus-sum"))
-(put 'gnus-start 'custom-loads '("gnus" "gnus-util" "gnus-start" "gnus-int" "gnus-group"))
-(put 'gnus-extract-view 'custom-loads '("gnus-uu" "gnus-sum"))
-(put 'gnus-various 'custom-loads '("gnus-sum"))
-(put 'gnus-article-washing 'custom-loads '("gnus-art"))
-(put 'gnus-score-files 'custom-loads '("gnus-score"))
-(put 'message-news 'custom-loads '("message"))
-(put 'gnus-thread 'custom-loads '("gnus-sum"))
-(put 'languages 'custom-loads '("cus-edit"))
-(put 'development 'custom-loads '("cus-edit"))
-(put 'gnus-treading 'custom-loads '("gnus-sum"))
-(put 'nnmail-various 'custom-loads '("nnmail"))
-(put 'extensions 'custom-loads '("wid-edit"))
-(put 'message-various 'custom-loads '("message"))
-(put 'gnus-summary-exit 'custom-loads '("gnus-sum"))
-(put 'news 'custom-loads '("message" "gnus"))
-(put 'gnus 'custom-loads '("nnmail" "gnus" "gnus-win" "gnus-uu" "gnus-eform" "gnus-dup" "gnus-demon" "gnus-cache" "gnus-async" "gnus-art"))
-(put 'gnus-summary-visual 'custom-loads '("gnus-sum"))
-(put 'gnus-group-listing 'custom-loads '("gnus-group"))
-(put 'gnus-score 'custom-loads '("gnus" "gnus-nocem"))
-(put 'gnus-group-select 'custom-loads '("gnus-sum"))
-(put 'message-buffers 'custom-loads '("message"))
-(put 'gnus-threading 'custom-loads '("gnus-sum"))
-(put 'gnus-score-decay 'custom-loads '("gnus-score"))
-(put 'help 'custom-loads '("cus-edit"))
-(put 'gnus-nocem 'custom-loads '("gnus-nocem"))
-(put 'gnus-cite 'custom-loads '("gnus-cite"))
-(put 'gnus-demon 'custom-loads '("gnus-demon"))
-(put 'gnus-message 'custom-loads '("message"))
-(put 'gnus-score-default 'custom-loads '("gnus-sum" "gnus-score"))
-(put 'nnmail-duplicate 'custom-loads '("nnmail"))
-(put 'message-interface 'custom-loads '("message"))
-(put 'nnmail-files 'custom-loads '("nnmail"))
-(put 'gnus-edit-form 'custom-loads '("gnus-eform"))
-(put 'emacs 'custom-loads '("cus-edit"))
-(put 'gnus-summary-mail 'custom-loads '("gnus-sum"))
-(put 'gnus-topic 'custom-loads '("gnus-topic"))
-(put 'wp 'custom-loads '("cus-edit"))
-(put 'gnus-summary-choose 'custom-loads '("gnus-sum"))
-(put 'widget-browse 'custom-loads '("wid-browse"))
-(put 'external 'custom-loads '("cus-edit"))
-(put 'message-headers 'custom-loads '("message"))
-(put 'message-forwarding 'custom-loads '("message"))
-(put 'message-faces 'custom-loads '("message"))
-(put 'environment 'custom-loads '("cus-edit"))
-(put 'gnus-article-mime 'custom-loads '("gnus-sum" "gnus-art"))
-(put 'gnus-duplicate 'custom-loads '("gnus-dup"))
-(put 'nnmail-retrieve 'custom-loads '("nnmail"))
-(put 'widgets 'custom-loads '("wid-edit" "wid-browse"))
-(put 'earcon 'custom-loads '("earcon"))
-(put 'hypermedia 'custom-loads '("wid-edit"))
-(put 'gnus-group-levels 'custom-loads '("gnus-group"))
-(put 'gnus-summary-format 'custom-loads '("gnus-sum"))
-(put 'gnus-files 'custom-loads '("nnmail" "gnus"))
-(put 'gnus-windows 'custom-loads '("gnus-win"))
-(put 'gnus-article-buttons 'custom-loads '("gnus-art"))
-(put 'gnus-summary 'custom-loads '("gnus" "gnus-sum"))
-(put 'gnus-article-hiding 'custom-loads '("gnus-sum" "gnus-art"))
-(put 'gnus-group 'custom-loads '("gnus" "gnus-topic"))
-(put 'gnus-article-various 'custom-loads '("gnus-sum" "gnus-art"))
-(put 'gnus-summary-marks 'custom-loads '("gnus-sum"))
-(put 'gnus-article-saving 'custom-loads '("gnus-art"))
-(put 'nnmail-expire 'custom-loads '("nnmail"))
-(put 'message-mail 'custom-loads '("message"))
-(put 'faces 'custom-loads '("wid-edit" "cus-edit" "message" "gnus"))
-(put 'gnus-summary-various 'custom-loads '("gnus-sum"))
-(put 'applications 'custom-loads '("cus-edit"))
-(put 'gnus-extract-archive 'custom-loads '("gnus-uu"))
-(put 'message 'custom-loads '("message"))
-(put 'message-sending 'custom-loads '("message"))
-(put 'editing 'custom-loads '("cus-edit"))
-(put 'gnus-score-adapt 'custom-loads '("gnus-score"))
-(put 'message-insertion 'custom-loads '("message"))
-(put 'gnus-extract-post 'custom-loads '("gnus-uu"))
-(put 'mail 'custom-loads '("message" "gnus"))
-(put 'gnus-summary-sort 'custom-loads '("gnus-sum"))
-(put 'customize 'custom-loads '("wid-edit" "custom" "cus-face" "cus-edit"))
-(put 'nnmail-split 'custom-loads '("nnmail"))
-(put 'gnus-asynchronous 'custom-loads '("gnus-async"))
-(put 'gnus-article-highlight 'custom-loads '("gnus-art"))
-(put 'gnus-extract 'custom-loads '("gnus-