Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 397e18023881a13e1448bad3c1db0a02026cf864 1 parent 6e89f53
@larsmagne larsmagne authored
Showing with 721 additions and 609 deletions.
  1. +3 −0  GNUS-NEWS
  2. +207 −143 lisp/ChangeLog
  3. +2 −2 lisp/base64.el
  4. +55 −57 lisp/binhex.el
  5. +24 −18 lisp/gnus-agent.el
  6. +48 −31 lisp/gnus-art.el
  7. +1 −1  lisp/gnus-cache.el
  8. +3 −3 lisp/gnus-cus.el
  9. +1 −1  lisp/gnus-ems.el
  10. +1 −1  lisp/gnus-gl.el
  11. +9 −8 lisp/gnus-msg.el
  12. +1 −1  lisp/gnus-range.el
  13. +4 −4 lisp/gnus-salt.el
  14. +13 −10 lisp/gnus-score.el
  15. +3 −3 lisp/gnus-spec.el
  16. +1 −1  lisp/gnus-srvr.el
  17. +2 −2 lisp/gnus-start.el
  18. +23 −23 lisp/gnus-sum.el
  19. +1 −1  lisp/gnus-topic.el
  20. +3 −3 lisp/gnus-util.el
  21. +22 −35 lisp/gnus-xmas.el
  22. +3 −2 lisp/gnus.el
  23. +5 −4 lisp/lpath.el
  24. +13 −0 lisp/mailcap.el
  25. +14 −9 lisp/message.el
  26. +2 −2 lisp/mm-bodies.el
  27. +7 −6 lisp/mm-decode.el
  28. +19 −24 lisp/mm-util.el
  29. +32 −32 lisp/mm-uu.el
  30. +1 −1  lisp/mm-view.el
  31. +2 −2 lisp/mml.el
  32. +11 −14 lisp/nndb.el
  33. +1 −1  lisp/nndoc.el
  34. +3 −3 lisp/nndraft.el
  35. +2 −2 lisp/nnfolder.el
  36. +1 −1  lisp/nnheader.el
  37. +2 −2 lisp/nnkiboze.el
  38. +1 −1  lisp/nnlistserv.el
  39. +1 −1  lisp/nnmail.el
  40. +3 −3 lisp/nnml.el
  41. +2 −2 lisp/nnsoup.el
  42. +6 −6 lisp/nntp.el
  43. +1 −1  lisp/pop3.el
  44. +27 −27 lisp/rfc1843.el
  45. +1 −1  lisp/rfc2047.el
  46. +1 −1  lisp/rfc2231.el
  47. +1 −1  lisp/smiley.el
  48. +1 −1  lisp/time-date.el
  49. +19 −19 lisp/uudecode.el
  50. +5 −0 texi/ChangeLog
  51. +104 −89 texi/gnus.texi
  52. +3 −3 texi/message.texi
View
3  GNUS-NEWS
@@ -8,4 +8,7 @@ called to position point.
*** The user can now decide which extra headers should be included in
summary buffers and NOV files.
+*** `gnus-article-display-hook' has been removed. Instead, a number
+of variables starting with `gnus-treat-'.
+
View
350 lisp/ChangeLog
@@ -1,3 +1,67 @@
+Wed Jan 20 00:50:53 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Pterodactyl Gnus v0.72 is released.
+
+1999-01-20 01:39:48 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus.el: Cleaned up trailing whitespace.
+
+ * mm-util.el (mm-read-charset): Work.
+
+1999-01-17 Matt Armstrong <mattdav+matt@best.com>
+
+ * gnus-score.el (gnus-score-find-bnews): Match regexp on the
+ nnheader-translate-file-chars'd group name.
+
+1999-01-20 01:30:30 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * message.el (message-encode-message-body): Fold case.
+
+1999-01-20 01:28:16 Alexei V. Barantsev <barancev@ispras.ru>
+
+ * gnus-xmas.el (gnus-xmas-modeline-glyph): Backquote.
+
+1999-01-20 00:46:15 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * mailcap.el (mailcap-add): New function.
+
+1999-01-18 09:40:37 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus-art.el (article-goto-body-goes-to-point-min-p): New variable.
+ (article-goto-body): Use it.
+ (gnus-treat-article): Ditto.
+
+ * gnus-agent.el (gnus-agent-get-undownloaded-list): Remove the
+ downloaded articles from the downloadeble list.
+
+1999-01-16 17:31:08 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * message.el (message-encode-message-body): Bind
+ mail-parse-charset.
+
+ * mm-util.el (mm-charset-synonym-alist): New variable.
+ (mm-charset-to-coding-system): Use it.
+ (mm-charset-coding-system-alist): Removed.
+ (mm-charset-to-coding-system): Don't use it.
+ (mm-find-charset-region): Use mail-parse-charset.
+
+ * gnus-art.el (gnus-treatment-function-alist): Use
+ gnus-article-display-picons.
+ (gnus-treat-display-xface): Only do if we have xface feature.
+ (gnus-part-display-hook): New function.
+ (gnus-treat-article): Use it.
+ (gnus-treat-article): Use gnus-visual.
+
+ * gnus-msg.el (gnus-setup-posting-charset): Check elem.
+
+ * gnus-art.el (gnus-mm-display-part): Fix the MIME button after
+ displaying.
+
+ * mm-decode.el (mm-insert-part): Use insert-buffer-substring.
+
+ * gnus-score.el (gnus-score-find-bnews): Protect against invalid
+ regexp file names.
+
Sat Jan 16 03:15:57 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.71 is released.
@@ -15,7 +79,7 @@ Sat Jan 16 03:15:57 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-start.el (gnus-ignored-newsgroups-has-to-p): Removed.
* gnus-msg.el (gnus-setup-posting-charset): Allow variables and
- functions.
+ functions.
* message.el (message-posting-charset): New variable.
(message-send-mail): Use it.
@@ -71,7 +135,7 @@ Fri Jan 15 20:50:38 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* mm-view.el (mm-inline-text): Ditto.
* gnus-move.el (gnus-move-group-to-server): Protect against nil
- ranges.
+ ranges.
* mm-decode.el (mm-display-external): Save the buffer.
(mm-remove-part): Kill it.
@@ -86,7 +150,7 @@ Fri Jan 15 20:50:38 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
coding-system-for-read.
* gnus-sum.el (gnus-summary-exit): Do adaptive scoring before
- prepare-exit-hook.
+ prepare-exit-hook.
* mm-view.el (mm-setup-w3): Require w3.
@@ -100,7 +164,7 @@ Fri Jan 15 20:50:38 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* mm-encode.el: Ditto.
* mm-bodies.el (mm-decode-content-transfer-encoding): Message the
- error.
+ error.
* mailcap.el (mailcap-mime-data): SAFER ps.
@@ -165,7 +229,7 @@ Fri Jan 15 20:50:38 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1999-01-12 07:20:31 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-picon.el (gnus-picons-setup-buffer): Don't set major mode.
+ * gnus-picon.el (gnus-picons-setup-buffer): Don't set major mode.
(gnus-picons-setup-p): New variable.
1999-01-11 02:13:12 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -174,7 +238,7 @@ Fri Jan 15 20:50:38 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1999-01-04 12:58:13 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-sum.el (gnus-summary-exit-no-update): Don't use run-hooks.
+ * gnus-sum.el (gnus-summary-exit-no-update): Don't use run-hooks.
(gnus-summary-exit-no-update): Use mapcar.
1999-01-02 14:36:32 Simon Josefsson <jas@pdc.kth.se>
@@ -183,7 +247,7 @@ Fri Jan 15 20:50:38 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-09-26 19:39:31 Simon Josefsson <jas@pdc.kth.se>
- * gnus-sum.el (gnus-update-read-articles):
+ * gnus-sum.el (gnus-update-read-articles):
(gnus-update-marks): Request backend update of mark.
1999-01-03 15:29:52 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -203,7 +267,7 @@ Sun Jan 3 13:32:02 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-picon.el (gnus-picons-setup-buffer): Run the hook.
* gnus-agent.el (gnus-agent-remove-group): New command and
- keystroke.
+ keystroke.
* rfc2047.el (rfc2047-decode-region): Check for us-ascii.
@@ -222,7 +286,7 @@ Sun Jan 3 13:32:02 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-23 Matt Pharr <mmp@graphics.stanford.edu>
* message.el (message-cite-original-without-signature): Use
- message-signature-separator when searching for signature in
+ message-signature-separator when searching for signature in
message-cite-original-without-signature.
1998-12-24 16:25:38 Simon Josefsson <jas@pdc.kth.se>
@@ -238,7 +302,7 @@ Sun Jan 3 13:32:02 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-msg.el (gnus-configure-posting-styles): Also do nil
values.
-
+
* nnheader.el (nnheader-temp-directory): New variable.
(nnheader-temp-directory): Removed.
@@ -249,7 +313,7 @@ Sun Jan 3 13:32:02 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-24 03:02:15 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-art.el (gnus-article-maybe-hide-headers): Check whether the
+ * gnus-art.el (gnus-article-maybe-hide-headers): Check whether the
summary buffer exists.
1998-12-22 Aaron M. Ucko <amu@mit.edu>
@@ -268,7 +332,7 @@ Sun Jan 3 13:32:02 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-21 21:34:22 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * mm-view.el (mm-inline-text): Bind url-current-object.
+ * mm-view.el (mm-inline-text): Bind url-current-object.
1998-12-06 03:05:41 Simon Josefsson <jas@pdc.kth.se>
@@ -296,13 +360,13 @@ Sun Jan 3 13:32:02 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-19 23:02:26 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * nnmail.el (nnmail-split-header-length-limit): New variable.
+ * nnmail.el (nnmail-split-header-length-limit): New variable.
* mm-decode.el (mm-dissect-buffer): Check syntax.
* rfc2231.el (rfc2231-parse-string): Remove check for syntax.
- * rfc2047.el (rfc2047-encodable-p): Use mm-find-charset-region.
+ * rfc2047.el (rfc2047-encodable-p): Use mm-find-charset-region.
(rfc2047-dissect-region): Ditto.
1998-12-17 18:36:43 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -312,7 +376,7 @@ Sun Jan 3 13:32:02 1999 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-16 16:01:22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* rfc2231.el (rfc2231-parse-string): Ignore syntactically invalid
- CT headers.
+ CT headers.
Wed Dec 16 01:44:40 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -354,14 +418,14 @@ Sat Dec 5 16:50:49 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
1998-12-13 10:04:39 Lloyd Zusman <ljz@asfast.com>
- * gnus-xmas.el (gnus-xmas-summary-recenter): Allow numbers.
+ * gnus-xmas.el (gnus-xmas-summary-recenter): Allow numbers.
1998-12-13 09:32:38 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mml.el (mml-insert-mime-headers): Encode description.
* nnfolder.el (nnfolder-request-expire-articles): Go to the date
- line.
+ line.
* gnus-sum.el (gnus-default-charset): Doc fix.
@@ -379,9 +443,9 @@ Wed Dec 9 13:30:29 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
1998-12-13 08:52:45 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-picon.el (gnus-picons-network-display-internal): Don't set
- buffer.
+ buffer.
- * message.el (message-insert-headers): New command and keystroke.
+ * message.el (message-insert-headers): New command and keystroke.
1998-12-07 23:42:14 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -401,7 +465,7 @@ Sun Dec 6 21:58:31 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
* mm-view.el (mm-view-message): New function.
- * mm-encode.el (mm-content-transfer-encoding-defaults): Changed to
+ * mm-encode.el (mm-content-transfer-encoding-defaults): Changed to
qp.
1998-12-07 Karl Kleinpaste <karl@justresearch.com>
@@ -436,7 +500,7 @@ Sun Dec 6 19:36:53 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-art.el (gnus-article-prepare-display): Don't init w3.
- * mm-view.el (mm-inline-text): Bind url-standalone-mode here.
+ * mm-view.el (mm-inline-text): Bind url-standalone-mode here.
Sat Dec 5 18:35:42 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
@@ -462,14 +526,14 @@ Sat Dec 5 18:35:42 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-05 18:33:27 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-picon.el (gnus-picons-setup-buffer): Run picons hook.
- (gnus-picons-setup-hook): New hook.
+ (gnus-picons-setup-hook): New hook.
1998-12-05 Per Abrahamsen <abraham@dina.kvl.dk>
* mailcap.el (mailcap-mime-data): Remove "*" from documentation
- string.
+ string.
(mailcap-mime-extensions): Ditto. Made first sentense fit a
- line.
+ line.
1998-12-05 17:11:04 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -495,7 +559,7 @@ Fri Dec 4 12:13:12 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
1998-12-04 15:29:02 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-msg.el (gnus-message-insert-stylings): Don't insert twice.
+ * gnus-msg.el (gnus-message-insert-stylings): Don't insert twice.
Fri Dec 4 04:09:15 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
@@ -543,7 +607,7 @@ Fri Dec 4 04:09:15 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-art.el (gnus-display-mime): Set window point.
* mm-decode.el (mm-display-external): Only decode when not
- saving.
+ saving.
(mm-alternative-precedence): Prefer multiparts.
(mm-inline-media-tests): Inline multiparts.
@@ -561,7 +625,7 @@ Thu Dec 3 12:53:58 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-03 13:38:36 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-art.el (gnus-mime-view-all-parts): Work with multiparts.
+ * gnus-art.el (gnus-mime-view-all-parts): Work with multiparts.
1998-12-03 Hrvoje Niksic <hniksic@srce.hr>
@@ -583,7 +647,7 @@ Thu Dec 3 12:53:58 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-03 13:03:37 Felix Lee <flee@teleport.com>
- * nntp.el (nntp-after-change-function): Fix.
+ * nntp.el (nntp-after-change-function): Fix.
1998-12-03 12:44:30 Mike McEwan <mike@lotusland.demon.co.uk>
@@ -596,7 +660,7 @@ Thu Dec 3 12:53:58 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-12-02 22:22:03 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-summary-show-article): Destroy parts when
- prefixed.
+ prefixed.
* mm-encode.el (mm-content-transfer-encoding-defaults): Default
application/emacs-lisp to 8bit.
@@ -655,13 +719,13 @@ Tue Dec 1 23:04:25 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
(gnus-article-display-picons): Replace From line.
(gnus-group-display-picons): Replace Newsgroups line.
(gnus-picons-display-glyph): Set baseline.
- (gnus-group-display-picons): Piconize the entire Newsgroups line.
+ (gnus-group-display-picons): Piconize the entire Newsgroups line.
(gnus-picons-xbm-face): Revert to old, standard colors.
* message.el (message-fetch-field): Remove text props.
* gnus-art.el (gnus-article-normalized-header-length): New
- variable.
+ variable.
(article-normalize-headers): New command and keystroke.
* gnus-picon.el (gnus-picons-xbm-face): Changed colors.
@@ -689,18 +753,18 @@ Wed Dec 2 01:43:48 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
(gnus-mime-internalize-part): New command and keystroke.
* mm-decode.el (mm-user-automatic-external-display): New
- variable.
+ variable.
(mm-automatic-external-display-p): New function.
* gnus-picon.el (gnus-picons-xbm-face): Default to sensible
- colors.
+ colors.
1998-12-01 23:52:05 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-sum.el (gnus-summary-repair-multipart): Reselect article.
+ * gnus-sum.el (gnus-summary-repair-multipart): Reselect article.
* gnus-art.el (gnus-with-article): Work in the original article
- buffer.
+ buffer.
(gnus-with-article): Work in read-only groups.
Tue Dec 1 00:15:36 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -742,7 +806,7 @@ Tue Dec 1 00:46:20 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* mm-view.el (mm-setup-w3): Protect url-misc.
* message.el (message-ignored-resent-headers): Remove
- Gnus-Warning.
+ Gnus-Warning.
* mml.el (mml-insert-mime-headers): Use encoding.
(mml-parameter-string): Ditto.
@@ -788,15 +852,15 @@ Mon Nov 30 21:57:00 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-art.el (gnus-with-article): Don't encode.
(gnus-insert-mime-button): Fall back on filename from C-D.
(gnus-mime-display-single): Have dots right on text/plain
- attachments.
+ attachments.
- * mm-decode.el (mm-dissect-buffer): Respect Content-Disposition in
+ * mm-decode.el (mm-dissect-buffer): Respect Content-Disposition in
broken parts.
* gnus-art.el (gnus-with-article): Flush cache and backlog.
* mm-bodies.el (mm-decode-content-transfer-encoding): Also do
- binhex.
+ binhex.
* gnus-sum.el (gnus-summary-reparent-thread): Use new macro.
(gnus-summary-repair-multipart): New command and keystroke.
@@ -823,7 +887,7 @@ Sun Nov 29 23:51:57 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
1998-11-29 23:44:44 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (gnus-mime-display-mixed): Rewrite.
- (gnus-mime-display-single): Don't insert lines between parts.
+ (gnus-mime-display-single): Don't insert lines between parts.
Sun Nov 29 04:55:40 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -895,7 +959,7 @@ Fri Nov 27 12:26:10 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* message.el (message-buffer-name): Check for unique first.
* gnus-art.el (gnus-unbuttonized-mime-type-p): use
- gnus-inhibit-mime-unbuttonizing.
+ gnus-inhibit-mime-unbuttonizing.
* gnus-sum.el (t): Bind M-t.
(gnus-inhibit-unbuttonizing): New variable.
@@ -907,7 +971,7 @@ Fri Nov 27 12:26:10 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* nneething.el (nneething-include-files): New variable.
(nneething-create-mapping): Use it.
- * nntp.el (nntp-possibly-change-group): Use nntp-send-command.
+ * nntp.el (nntp-possibly-change-group): Use nntp-send-command.
* nnvirtual.el (nnvirtual-request-update-mark): Only yodate
ayto-expirable marks.
@@ -917,7 +981,7 @@ Fri Nov 27 12:26:10 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-art.el (gnus-mime-view-all-parts): Set buffer.
* gnus-sum.el (gnus-summary-display-buttonized): Don't pass on
- ARG.
+ ARG.
* gnus-art.el (gnus-article-mode-line-format): Doc fix.
@@ -933,7 +997,7 @@ Tue Nov 24 10:43:06 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-24 11:21:32 Katsumi Yamaoka <yamaoka@jpl.org>
- * gnus-sum.el (gnus-newsgroup-default-charset-alist): Note fj.
+ * gnus-sum.el (gnus-newsgroup-default-charset-alist): Note fj.
1998-11-24 11:14:54 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -941,7 +1005,7 @@ Tue Nov 24 10:43:06 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-24 11:14:39 Matt Armstrong <matta@geoworks.com>
- * mm-decode.el (mm-save-part): Bind coding system for write.
+ * mm-decode.el (mm-save-part): Bind coding system for write.
1998-11-24 10:42:30 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -949,7 +1013,7 @@ Tue Nov 24 10:43:06 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
(gnus-article-mime-part-status): New function.
* message.el (message-send-news): Check the body syntax before
- encoding.
+ encoding.
* gnus-art.el (gnus-unbuttonized-mime-type): New function.
(gnus-mime-display-single): Use it.
@@ -960,7 +1024,7 @@ Tue Nov 24 10:43:06 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-22 08:12:25 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mm-decode.el (mm-preferred-alternative): Default to first
- alternative.
+ alternative.
(mm-preferred-alternative): No, we dont.
Tue Nov 24 03:01:48 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -978,8 +1042,8 @@ Mon Nov 23 01:51:57 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
Mon Nov 23 01:26:40 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
- * gnus-sum.el (gnus-newsgroup-default-charset): Rename
- coding-system -> default-charset.
+ * gnus-sum.el (gnus-newsgroup-default-charset): Rename
+ coding-system -> default-charset.
(gnus-newsgroup-default-charset-alist): Ditto.
(gnus-summary-local-variables): Ditto.
(gnus-set-global-variables): Ditto.
@@ -1004,7 +1068,7 @@ Mon Nov 23 00:54:33 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
* gnus-art.el (article-decode-charset): Overlay
rfc2047-default-charset.
* message.el (message-draft-coding-system): New variable.
- (message-set-auto-save-file-name): Use message-draft-coding-system.
+ (message-set-auto-save-file-name): Use message-draft-coding-system.
* nndraft.el (nndraft-request-article): Ditto.
* gnus-start.el (gnus-start-draft-setup): Set charset nil.
* gnus-agent.el (gnus-agent-queue-setup): Ditto.
@@ -1033,11 +1097,11 @@ Sat Nov 21 09:57:01 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-20 10:34:04 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-art.el (gnus-mime-display-single): Insert blank line before
+ * gnus-art.el (gnus-mime-display-single): Insert blank line before
buttons.
* gnus-sum.el (gnus-summary-display-buttonized): New command and
- keystroke.
+ keystroke.
* gnus-art.el (gnus-mime-display-single): Don't insert a blank
line between parts.
@@ -1055,11 +1119,11 @@ Fri Nov 20 03:50:30 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
Fri Nov 20 03:37:53 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
- * mm-bodies.el (mm-decode-body): Remove buffer-file-coding-system.
+ * mm-bodies.el (mm-decode-body): Remove buffer-file-coding-system.
Fri Nov 20 01:20:38 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
- * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Use
+ * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Use
gnus-newsgroup-coding-system.
(gnus-get-newsgroup-headers): Ditto.
(gnus-get-newsgroup-headers-xover): Ditto.
@@ -1073,7 +1137,7 @@ Fri Nov 20 01:20:38 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
(gnus-mm-display-part): Ditto.
(gnus-mime-display-alternative): Ditto.
(gnus-mime-display-single): Ditto.
- * mm-view.el (mm-inline-text): Use default coding system.
+ * mm-view.el (mm-inline-text): Use default coding system.
Fri Nov 20 00:54:37 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -1089,7 +1153,7 @@ Fri Nov 20 00:54:37 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
(mm-charset-to-coding-system): Use mm-charset-iso-8859-1-forced.
* gnus-cus.el (gnus-group-parameters): Customizable
iso-8859-1-forced.
-
+
Fri Nov 20 05:30:26 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.52 is released.
@@ -1097,13 +1161,13 @@ Fri Nov 20 05:30:26 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-20 04:32:23 Lars Magne Ingebrigtsen <larsi@gnus.org>
* rfc2047.el (rfc2047-encode-message-header): Encode the default
- encoding.
+ encoding.
* gnus-art.el (gnus-mime-display-single): Insert buttons for
undisplayed text types.
* mm-decode.el (mm-automatic-display-p): Only prefer inlinable
- types.
+ types.
1998-11-19 Felix Lee <flee@cygnus.com>
@@ -1134,15 +1198,15 @@ Fri Nov 20 05:30:26 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
(gnus-article-read-summary-keys): Use it.
* mm-decode.el (mm-user-automatic-display): Display all inline
- images.
+ images.
* gnus-art.el (gnus-mime-display-single): Don't buttonize so
- much.
+ much.
(gnus-unbuttonized-mime-types): New variable.
1998-11-19 06:29:03 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-sum.el (gnus-inhibit-user-auto-expire): Changed to t.
+ * gnus-sum.el (gnus-inhibit-user-auto-expire): Changed to t.
* mm-decode.el (mm-quote-arg): Quote semicolons.
@@ -1150,7 +1214,7 @@ Fri Nov 20 05:30:26 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
attachments.
(gnus-mime-externalize-part): New command and keystroke.
- * mm-decode.el (mm-dissect-buffer): Pass on the description info.
+ * mm-decode.el (mm-dissect-buffer): Pass on the description info.
(mm-alternative-precedence): Changed order.
1998-11-07 17:41:47 Simon Josefsson <jas@pdc.kth.se>
@@ -1170,7 +1234,7 @@ Thu Nov 19 04:48:42 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Applied patches from 5.6.45.
* gnus-score.el (gnus-score-find-trace): Print complete file
- paths.
+ paths.
(gnus-score-find-trace): Truncate lines.
* gnus.el (gnus-message-archive-group): Allow function.
@@ -1180,7 +1244,7 @@ Thu Nov 19 04:48:42 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-cus.el (gnus-group-customize): Optional topic.
- * gnus-sum.el (gnus-summary-customize-parameters): New command and
+ * gnus-sum.el (gnus-summary-customize-parameters): New command and
keystroke.
Wed Nov 18 13:46:08 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -1209,7 +1273,7 @@ Wed Nov 18 05:06:44 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-18 04:42:01 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mm-decode.el (mm-inline-media-tests): Check that device-type is
- fbound.
+ fbound.
* gnus-sum.el (gnus-summary-sort): Didn't do reverse.
@@ -1251,10 +1315,10 @@ Wed Nov 18 05:06:44 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-18 02:36:37 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mml.el (mml-generate-mime-1): Do right boundaries when several
- multiparts.
+ multiparts.
* mm-decode.el (mm-user-automatic-display): Default to inline
- jpeg.
+ jpeg.
* mml.el (mml-generate-mime-1): Encode non-text parts.
@@ -1277,17 +1341,17 @@ Wed Nov 18 02:22:23 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
(mml-generate-mime-1): Use unibyte for binaries.
* gnus-art.el (gnus-display-mime): Call
- gnus-article-mime-part-function.
+ gnus-article-mime-part-function.
(gnus-mime-part-function): New function.
(gnus-article-mime-part-function): New function.
- * mml.el (mml-generate-mime-1): Don't insert so many newlines.
+ * mml.el (mml-generate-mime-1): Don't insert so many newlines.
1998-11-16 06:44:19 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mml.el (mml-generate-mime-1): Do it in unibyte buffers.
- * message.el (message-font-lock-keywords): Highlight MML.
+ * message.el (message-font-lock-keywords): Highlight MML.
(message-mml-face): New font.
Mon Nov 16 23:34:12 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -1310,7 +1374,7 @@ Mon Nov 16 02:00:05 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* mm-util.el (mm-find-charset-region): Bogus change for non-Mule.
- * message.el (message-cite-original-without-signature): Ditto.
+ * message.el (message-cite-original-without-signature): Ditto.
(message-cite-original): Quote parts.
Sun Nov 15 22:01:55 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
@@ -1319,12 +1383,12 @@ Sun Nov 15 22:01:55 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-15 20:11:33 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * message.el (message-encode-message-body): Insert MIME warning.
+ * message.el (message-encode-message-body): Insert MIME warning.
* mml.el (mml-read-tag): Look for #tag.
* mm-util.el (mm-find-charset-region): Check whether
- enable-multibyte-characters is bound.
+ enable-multibyte-characters is bound.
Sun Nov 15 02:01:31 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
@@ -1382,10 +1446,10 @@ Sat Nov 14 05:47:57 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
(message-insert-mime-part): New command.
* mm-encode.el (mm-encode-content-transfer-encoding): New
- function.
+ function.
* mm-util.el (mm-content-transfer-encoding-defaults): New
- variable.
+ variable.
(mm-mime-file-types): Taken from TM.
Sat Nov 14 01:51:06 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
@@ -1408,14 +1472,14 @@ Sat Nov 14 01:51:06 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-13 20:30:40 Lars Magne Ingebrigtsen <larsi@gnus.org>
* message.el (message-resend): Bind message-required-mail-headers
- to nil.
+ to nil.
- * mm-view.el (mm-inline-text): Bind w3-strict-width.
+ * mm-view.el (mm-inline-text): Bind w3-strict-width.
* nngateway.el (require): Require cl.
* gnus-art.el (gnus-button-alist): Exclude more chars from news:
- things.
+ things.
Wed Nov 11 02:15:06 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -1437,7 +1501,7 @@ Wed Nov 11 02:15:06 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
(gnus-make-sort-function-1): Ditto.
* gnus-art.el (gnus-mm-display-part): Switch to mm in right
- window.
+ window.
1998-11-12 22:31:58 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -1486,7 +1550,7 @@ Sun Nov 8 01:00:16 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-11-07 Mike McEwan <mike@lotusland.demon.co.uk>
- * gnus-agent.el (gnus-agent-save-group-info): Cater for group info
+ * gnus-agent.el (gnus-agent-save-group-info): Cater for group info
lines where `group' is the last thing on the line.
1998-11-08 00:35:09 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -1499,7 +1563,7 @@ Sun Nov 8 01:00:16 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* mm-decode.el (mm-dissect-multipart): Quote regexp.
* nnmail.el (nnmail-expired-article-p): Protect against bogus
- dates.
+ dates.
* gnus-cus.el (gnus-topic): Required.
@@ -1518,7 +1582,7 @@ Sun Nov 8 01:00:16 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-10-29 12:09:20 Karl Kleinpaste <karl@jprc.com>
* gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Add
- indicators.
+ indicators.
1998-10-29 11:31:11 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -1565,7 +1629,7 @@ Wed Oct 28 02:19:16 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
Tue Oct 27 11:59:31 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
* mm-view.el (mm-inline-text): Postion of html portion.
-
+
1998-10-29 10:26:54 Lars Magne Ingebrigtsen <larsi@gnus.org>
* nntp.el (nntp-list-active-group): Waited for short strings.
@@ -1584,7 +1648,7 @@ Tue Oct 27 11:59:31 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
1998-10-26 23:03:48 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (gnus-button-push): Don't go to
- gnus-article-buffer.
+ gnus-article-buffer.
* mm-view.el (mm-inline-image): Add a newline.
@@ -1617,7 +1681,7 @@ Tue Oct 27 11:59:31 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
* nnheader.el (nnheader-insert-nov): Work when not Xref.
* gnus-sum.el (gnus-ignored-from-addresses): Default to
- user-mail-address.
+ user-mail-address.
(gnus-nov-parse-extra): Didn't return right thing.
1998-10-25 23:25:27 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -1636,7 +1700,7 @@ Sun Oct 25 23:11:44 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-sum.el (gnus-summary-mark-forward): Show thread.
- * gnus-start.el (gnus-check-first-time-used): Ignore dribble.
+ * gnus-start.el (gnus-check-first-time-used): Ignore dribble.
* gnus-agent.el (gnus-agent-fetch-group-1): Bind name.
@@ -1649,7 +1713,7 @@ Sun Oct 25 23:11:44 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-10-25 19:26:11 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-set-mode-line): Check that the spec has been
- set up.
+ set up.
1998-10-25 19:22:03 Joerg Lenneis <lenneis@statrix2.wu-wien.ac.at>
@@ -1658,9 +1722,9 @@ Sun Oct 25 23:11:44 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-10-25 17:56:23 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (gnus-treatment-function-alist): Fix.
- (gnus-summary-save-in-rmail): Use gnus-output-to-rmail.
+ (gnus-summary-save-in-rmail): Use gnus-output-to-rmail.
- * nndoc.el (nndoc-dissect-mime-parts-sub): Recognize first part.
+ * nndoc.el (nndoc-dissect-mime-parts-sub): Recognize first part.
Sun Oct 25 06:23:13 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
@@ -1681,13 +1745,13 @@ Sun Oct 25 06:23:13 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: autoload gnus-uu-post-news.
* mailcap.el (mailcap-mailcap-entry-passes-test): Also check
- needsterm/DISPLAY.
+ needsterm/DISPLAY.
* mm-decode.el (mm-display-part): Default to inline text/.*
- parts.
+ parts.
* mm-bodies.el (mm-decode-content-transfer-encoding): Default to
- 8bit.
+ 8bit.
* gnus-art.el (gnus-mime-copy-part): Use normal-mode.
(gnus-mime-display-single): Inline all text parts.
@@ -1698,14 +1762,14 @@ Sun Oct 25 06:23:13 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* nnml.el (nnml-possibly-create-directory): Rewrite.
(nnml-request-create-group): Change to right server.
- * gnus-xmas.el (gnus-xmas-define): Use byte-code-function-p.
+ * gnus-xmas.el (gnus-xmas-define): Use byte-code-function-p.
- * gnus-sum.el (gnus-set-mode-line): Use truncate-string-to-width.
+ * gnus-sum.el (gnus-set-mode-line): Use truncate-string-to-width.
* gnus.el: rmail-output-to-rmail-file autoload.
* gnus-util.el (gnus-output-to-rmail): Didn't work if not in
- Gnus.
+ Gnus.
* nnheader.el (nnheader-parse-head): Checked wrong variable.
@@ -1719,7 +1783,7 @@ Tue Oct 20 23:37:43 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
Tue Oct 20 23:36:43 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
* gnus-sum.el (gnus-summary-exit): Use mm-destroy-parts.
-
+
* gnus-sum.el (gnus-summary-exit-no-update): Ditto.
Tue Oct 20 16:22:51 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -1729,10 +1793,10 @@ Tue Oct 20 16:22:51 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
1998-10-24 20:51:53 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-valid-move-group-p): Make sure group has a
- value.
+ value.
* gnus-art.el (gnus-article-hidden-text-p): Return nil when not
- hidden.
+ hidden.
* gnus-spec.el (gnus-update-format-specifications): Use the
article mode line spec.
@@ -1755,21 +1819,21 @@ Sat Oct 24 20:31:55 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-10-24 07:54:58 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (article-mime-decode-quoted-printable-buffer):
- Removed.
+ Removed.
(article-de-quoted-unreadable): Narrow to default.
* qp.el (quoted-printable-encode-region): Encode before QP-ing.
* gnus-art.el (article-decode-charset): Decode even when broken
- MIME.
+ MIME.
* gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Return
- name.
+ name.
* gnus-msg.el (gnus-copy-article-buffer): Delete headers.
* gnus-cache.el (gnus-cache-possibly-enter-article): Use
- nnheader.
+ nnheader.
* nnmail.el (nnmail-extra-headers): New variable.
@@ -1801,7 +1865,7 @@ Sat Oct 24 07:41:42 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* mm-bodies.el (mm-decode-body): Check for multibyticity.
* mm-util.el (mm-enable-multibyte): Don't always switch multibyte
- on.
+ on.
1998-10-22 Didier Verna <verna@inf.enst.fr>
@@ -1815,7 +1879,7 @@ Sat Oct 24 07:41:42 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-10-22 04:05:55 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * mm-decode.el (mm-display-external): Protect more and message.
+ * mm-decode.el (mm-display-external): Protect more and message.
Wed Oct 21 03:26:30 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -1830,7 +1894,7 @@ Tue Oct 20 23:37:43 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
Tue Oct 20 23:36:43 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
* gnus-sum.el (gnus-summary-exit): Use mm-destroy-parts.
-
+
* gnus-sum.el (gnus-summary-exit-no-update): Ditto.
Tue Oct 20 16:22:51 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
@@ -1861,12 +1925,12 @@ Tue Oct 20 20:25:03 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-10-20 18:13:08 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-art.el (article-translate-strings):
+ * gnus-art.el (article-translate-strings):
(gnus-article-dumbquotes-map): Don't dot.
* pop3.el (pop3-open-server): Set point right.
- * mm-decode.el (mm-dissect-multipart): Dissect hierarchically.
+ * mm-decode.el (mm-dissect-multipart): Dissect hierarchically.
(mm-dissect-buffer): Ditto.
(mm-destroy-part): Ignore non-handles.
(mm-remove-part): Ditto.
@@ -1878,9 +1942,9 @@ Tue Oct 20 20:25:03 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
Tue Oct 20 02:16:36 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
* mm-uu.el : New file.
-
+
* gnus-art.el (gnus-display-mime): Dissect uu stuffs.
-
+
* mm-bodies.el (mm-decode-content-transfer-encoding): Encoding as
a function.
@@ -1890,21 +1954,21 @@ Tue Oct 20 02:16:36 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
Sat Sep 26 02:03:00 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
- * gnus-sum.el (gnus-multi-decode-encoded-word-string): Rewrite.
-
+ * gnus-sum.el (gnus-multi-decode-encoded-word-string): Rewrite.
+
* gnus-sum.el (gnus-decode-encoded-word-methods): New variable.
-
+
* gnus-sum.el (gnus-decode-encoded-word-methods-cache): New
variable.
-
+
* gnus-sum.el (gnus-encoded-word-method-alist): Deleted.
-
+
* gnus-art.el (gnus-decode-header-methods): New variable.
* gnus-art.el (gnus-decode-header-methods-cache): New variable.
* gnus-art.el (gnus-multi-decode-header): New function.
-
+
Tue Oct 20 00:24:16 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Pterodactyl Gnus v0.35 is released.
@@ -1912,7 +1976,7 @@ Tue Oct 20 00:24:16 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-10-20 00:00:36 Lars Magne Ingebrigtsen <larsi@gnus.org>
* uudecode.el (uudecode-decode-region-external): Insert
- literally.
+ literally.
* gnus-xmas.el (gnus-xmas-mime-button-menu): Moved here.
@@ -1936,7 +2000,7 @@ Tue Oct 20 00:24:16 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-09-26 19:39:31 Simon Josefsson <jas@pdc.kth.se>
- * gnus-sum.el (gnus-update-read-articles):
+ * gnus-sum.el (gnus-update-read-articles):
(gnus-update-marks): Request backend update of mark.
1998-09-26 19:33:58 Simon Josefsson <jas@pdc.kth.se>
@@ -1976,7 +2040,7 @@ Sun Oct 18 13:59:07 1998 Kurt Swanson <ksw@dna.lth.se>
1998-10-19 23:35:08 Joerg Lenneis <lenneis@statrix2.wu-wien.ac.at>
- * nnheader.el (nnheader-article-p): Recognize lower-case headers.
+ * nnheader.el (nnheader-article-p): Recognize lower-case headers.
1998-10-19 Hrvoje Niksic <hniksic@srce.hr>
@@ -2024,7 +2088,7 @@ Sun Oct 18 13:59:07 1998 Kurt Swanson <ksw@dna.lth.se>
1998-10-19 00:50:22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mm-bodies.el (mm-decode-content-transfer-encoding): Use
- uudecode.
+ uudecode.
1998-10-18 18:20:34 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -2036,7 +2100,7 @@ Sun Oct 18 13:59:07 1998 Kurt Swanson <ksw@dna.lth.se>
1998-10-18 00:17:02 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * gnus-art.el (article-translate-strings):
+ * gnus-art.el (article-translate-strings):
1998-10-17 22:51:31 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -2065,7 +2129,7 @@ Sun Oct 18 13:59:07 1998 Kurt Swanson <ksw@dna.lth.se>
* gnus-art.el (gnus-article-setup-buffer): Set params.
* mm-decode.el (mm-user-display-methods): Inline
- "message/delivery-status".
+ "message/delivery-status".
1998-10-11 07:06:38 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -2073,14 +2137,14 @@ Sun Oct 18 13:59:07 1998 Kurt Swanson <ksw@dna.lth.se>
(message-mode): Dof fix.
* gnus-art.el (gnus-summary-save-in-pipe): Default to "cat".
- (gnus-summary-save-in-pipe): No, check gnus-last-shell-command.
+ (gnus-summary-save-in-pipe): No, check gnus-last-shell-command.
* nndoc.el (nndoc-mime-parts-type-p): Be a bit more forgiving.
* message.el (message-make-date): Avoid locale.
* gnus-art.el (gnus-article-edit-done): Allow update before doing
- cache.
+ cache.
* mm-decode.el (mm-display-inline): Goto point-min.
@@ -2092,7 +2156,7 @@ Sun Oct 18 13:59:07 1998 Kurt Swanson <ksw@dna.lth.se>
1998-10-10 -SL Baur <steve@altair.xemacs.org>
- * message.el (message-check): Move message-check macro above where
+ * message.el (message-check): Move message-check macro above where
it is first used.
* gnus-art.el (article-hide-pgp): Hide the PGP 5/GNUPG Hash: line.
@@ -2120,24 +2184,24 @@ Sun Oct 11 02:28:40 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-art.el (gnus-article-edit-exit): Don't do updates.
(article-update-date-lapsed): Record the buffer.
(article-update-date-lapsed): Do all windows that display article
- buffers.
+ buffers.
* nnml.el (nnml-generate-nov-databases-1): Ditto.
- * gnus-score.el (gnus-score-score-files-1): Ignore dotted files.
+ * gnus-score.el (gnus-score-score-files-1): Ignore dotted files.
* gnus-art.el (gnus-insert-mime-button): Mark buttons as
- annoations.
+ annoations.
* gnus-msg.el (gnus-summary-mail-forward): Decode properly.
1998-10-10 22:07:03 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-agent.el (gnus-category-add): Change default category to
- 'false.
+ 'false.
* nnvirtual.el (nnvirtual-update-read-and-marked): Don't nix out
- scores.
+ scores.
* gnus-draft.el (gnus-draft-send): Check server more.
@@ -2146,7 +2210,7 @@ Sun Oct 11 02:28:40 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* mm-view.el (mm-inline-text): Insert richtext properly.
- * gnus-art.el (gnus-insert-mime-button): Store handle in alist.
+ * gnus-art.el (gnus-insert-mime-button): Store handle in alist.
1998-10-03 15:04:27 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -2160,7 +2224,7 @@ Sun Oct 11 02:28:40 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
1998-10-01 07:33:35 Lars Magne Ingebrigtsen <larsi@gnus.org>
* uudecode.el (uu-decode-region-external): Use
- insert-file-contents-literally.
+ insert-file-contents-literally.
* gnus-cache.el (gnus-cache-generate-active): Translate _ to :.
@@ -2169,7 +2233,7 @@ Sun Oct 11 02:28:40 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* uudecode.el: New file.
* mm-bodies.el (mm-decode-content-transfer-encoding): Do
- x-uuencode.
+ x-uuencode.
1998-10-01 05:19:35 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -2213,13 +2277,13 @@ Sat Sep 26 03:04:18 1998 Shenghuo ZHU <zsh@cs.rochester.edu>
1998-09-29 11:35:09 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-art.el (gnus-mime-view-all-parts): New command and
- keystroke.
+ keystroke.
* mm-decode.el (mm-display-external): Translate slashes.
* nnmail.el (nnmail-find-file): Restrict auto-mode-alist.
- * nndraft.el (nndraft-retrieve-headers): Don't copy so much.
+ * nndraft.el (nndraft-retrieve-headers): Don't copy so much.
* mm-decode.el (mm-quote-arg): Quote spaces.
(mm-display-external): Quote args.
@@ -2240,7 +2304,7 @@ Thu Sep 24 20:28:31 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-art.el (gnus-insert-mime-button): Get buffer size.
- * mm-decode.el (mm-display-external): Don't switch for externals.
+ * mm-decode.el (mm-display-external): Don't switch for externals.
(mm-dissect-multipart): Don't include end-sep.
* mm-util.el (mm-get-coding-system-list): New function.
@@ -2289,7 +2353,7 @@ Thu Sep 24 02:29:57 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-art.el: Protect against broken headers.
* mm-decode.el (mm-display-external): Respect needsterm.
- (mm-display-external): Create buffer for external commands.
+ (mm-display-external): Create buffer for external commands.
1998-09-23 22:04:05 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -2307,7 +2371,7 @@ Thu Sep 24 02:29:57 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus-util.el (gnus-output-to-rmail): Reinstated function.
* gnus-sum.el (gnus-select-newsgroup): Set global variables before
- headers.
+ headers.
* gnus-art.el (article-decode-charset): Fold case.
@@ -2338,7 +2402,7 @@ Sun Sep 20 00:27:55 1998 ZHU Shenghuo <zsh@cs.rochester.edu>
1998-09-23 19:30:52 Matt Armstrong <matta@geoworks.com>
* gnus-art.el (article-decode-charset): Narrow to the correct
- region.
+ region.
* mm-bodies.el: Fix autoload.
@@ -2348,7 +2412,7 @@ Sun Sep 20 00:27:55 1998 ZHU Shenghuo <zsh@cs.rochester.edu>
1998-09-22 14:53:35 Lars Magne Ingebrigtsen <larsi@gnus.org>
- * rfc2047.el (rfc2047-decode): Use rfc2047-default-charset.
+ * rfc2047.el (rfc2047-decode): Use rfc2047-default-charset.
1998-09-19 13:58:35 Lars Magne Ingebrigtsen <larsi@gnus.org>
@@ -2357,7 +2421,7 @@ Sun Sep 20 00:27:55 1998 ZHU Shenghuo <zsh@cs.rochester.edu>
* gnus-sum.el (gnus-summary-insert-pseudos): Use mm.
- * gnus-art.el (gnus-article-prepare-display): Make article mode.
+ * gnus-art.el (gnus-article-prepare-display): Make article mode.
(gnus-article-prepare-display): Bind url-standalone-mode.
* mm-decode.el (mm-remove-part): Also delete directory.
@@ -2372,7 +2436,7 @@ Sun Sep 20 00:27:55 1998 ZHU Shenghuo <zsh@cs.rochester.edu>
(nnmbox-possibly-change-newsgroup): Enable multibyte.
* message.el (message-encode-message-body): Don't stomp MIME
- headers.
+ headers.
* gnus-sum.el (gnus-summary-edit-article-done): Don't encode
unless useful.
@@ -2386,11 +2450,11 @@ Sun Sep 20 00:27:55 1998 ZHU Shenghuo <zsh@cs.rochester.edu>
* mm-decode.el (mm-display-external): Use no-conv.
- * rfc2047.el (rfc2047-q-encode-region): Bound properly.
+ * rfc2047.el (rfc2047-q-encode-region): Bound properly.
(rfc2047-charset-encoding-alist): Use B encoding for koi8-r.
* gnus-art.el (gnus-article-mode-map): Bind button2 to
- mouse-click.
+ mouse-click.
1998-09-15 14:38:02 Lars Magne Ingebrigtsen <larsi@gnus.org>
View
4 lisp/base64.el
@@ -135,7 +135,7 @@ base64-encoder-program.")
((> (skip-chars-forward base64-alphabet end) 0)
(setq lim (point))
(while (< inputpos lim)
- (setq bits (+ bits
+ (setq bits (+ bits
(aref base64-alphabet-decoding-vector
(char-int (char-after inputpos)))))
(setq counter (1+ counter)
@@ -264,7 +264,7 @@ base64-encoder-program.")
(delete-region (point-max) (point))
(prog1
(buffer-string)
- (kill-buffer (current-buffer)))))
+ (kill-buffer (current-buffer)))))
(fset 'base64-decode-string 'base64-decode)
View
112 lisp/binhex.el
@@ -3,10 +3,10 @@
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Create Date: Oct 1, 1998
-;; $Revision: 5.3 $
+;; $Revision: 5.4 $
;; Time-stamp: <Tue Oct 6 23:48:38 EDT 1998 zsh>
;; Keywords: binhex
-
+
;; This file is not part of GNU Emacs, but the same permissions
;; apply.
@@ -77,44 +77,44 @@ input and write the converted data to its standard output.")
(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
+ [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
+ (setq crc (logxor (logand (lsh crc 8) 65280)
+ (aref binhex-crc-table
(logxor (logand (lsh crc -8) 255)
char)))
count (1- count)))
@@ -148,7 +148,7 @@ input and write the converted data to its standard output.")
(defun binhex-header (buffer)
(with-current-buffer buffer
(let ((pos (point-min)) len)
- (vector
+ (vector
(prog1
(setq len (char-int (char-after pos)))
(setq pos (1+ pos)))
@@ -158,23 +158,23 @@ input and write the converted data to its standard output.")
(setq pos (1+ pos)))
(buffer-substring pos (setq pos (+ pos 4)))
(buffer-substring pos (setq pos (+ pos 4)))
- (binhex-string-big-endian
+ (binhex-string-big-endian
(buffer-substring pos (setq pos (+ pos 2))))
- (binhex-string-big-endian
+ (binhex-string-big-endian
(buffer-substring pos (setq pos (+ pos 4))))
- (binhex-string-big-endian
+ (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
+ (cond
+ (binhex-repeat
(if (eq char 0)
- (binhex-insert-char (setq binhex-last-char 144) 1
+ (binhex-insert-char (setq binhex-last-char 144) 1
ignored buffer)
- (binhex-insert-char binhex-last-char (- char 1)
+ (binhex-insert-char binhex-last-char (- char 1)
ignored buffer)
(setq binhex-last-char nil))
(setq binhex-repeat nil))
@@ -190,7 +190,7 @@ If HEADER-ONLY is non-nil only decode header and return filename."
(let ((work-buffer nil)
(counter 0)
(bits 0) (tmp t)
- (lim 0) inputpos
+ (lim 0) inputpos
(non-data-chars " \t\n\r:")
file-name-length data-fork-start
header
@@ -200,10 +200,10 @@ If HEADER-ONLY is non-nil only decode header and return filename."
(goto-char start)
(when (re-search-forward binhex-begin-line end t)
(if (boundp 'enable-multibyte-characters)
- (let ((multibyte
+ (let ((multibyte
(default-value 'enable-multibyte-characters)))
(setq-default enable-multibyte-characters nil)
- (setq work-buffer
+ (setq work-buffer
(generate-new-buffer " *binhex-work*"))
(setq-default enable-multibyte-characters multibyte))
(setq work-buffer (generate-new-buffer " *binhex-work*")))
@@ -233,31 +233,31 @@ If HEADER-ONLY is non-nil only decode header and return filename."
(setq file-name-length (char-after (point-min))
data-fork-start (+ (point-min)
file-name-length 22))))
- (if (and (null header)
+ (if (and (null header)
(with-current-buffer work-buffer
(>= (buffer-size) data-fork-start)))
(progn
- (binhex-verify-crc work-buffer
+ (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
+ (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
+ (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
(+ 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
+ (insert-buffer-substring work-buffer
data-fork-start (+ data-fork-start
(aref header 6)))
(delete-region (point) end)))
@@ -268,7 +268,7 @@ If HEADER-ONLY is non-nil only decode header and return filename."
"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
+ (file-name (concat binhex-temporary-file-directory
(binhex-decode-region start end t)
".data")))
(save-excursion
@@ -277,7 +277,7 @@ If HEADER-ONLY is non-nil only decode header and return filename."
(let ((cdir default-directory) default-process-coding-system)
(unwind-protect
(progn
- (set-buffer (setq work-buffer
+ (set-buffer (setq work-buffer
(generate-new-buffer " *binhex-work*")))
(buffer-disable-undo work-buffer)
(insert-buffer-substring cbuf firstline end)
@@ -285,7 +285,7 @@ If HEADER-ONLY is non-nil only decode header and return filename."
(apply 'call-process-region
(point-min)
(point-max)
- binhex-decoder-program
+ binhex-decoder-program
nil
nil
nil
@@ -307,5 +307,3 @@ If HEADER-ONLY is non-nil only decode header and return filename."
(provide 'binhex)
;;; binhex.el ends here
-
-
View
42 lisp/gnus-agent.el
@@ -95,11 +95,8 @@ If nil, only read articles will be expired."
(defvar gnus-agent-file-coding-system 'binary)
(defconst gnus-agent-scoreable-headers
- (list
- "subject" "from" "date" "message-id"
- "references" "chars" "lines" "xref")
- "Headers that are considered when scoring articles
-for download via the Agent.")
+ '("subject" "from" "date" "message-id" "references" "chars" "lines" "xref")
+ "Headers that are considered when scoring articles for download via the Agent.")
;; Dynamic variables
(defvar gnus-headers)
@@ -321,7 +318,7 @@ agent minor mode in all Gnus buffers."
(interactive)
(gnus-open-agent)
(add-hook 'gnus-setup-news-hook 'gnus-agent-queue-setup)
- (unless gnus-agent-send-mail-function
+ (unless gnus-agent-send-mail-function
(setq gnus-agent-send-mail-function message-send-mail-function
message-send-mail-function 'gnus-agent-send-mail))
(unless gnus-agent-covered-methods
@@ -514,12 +511,21 @@ the actual number of articles toggled is returned."
(when (and (not gnus-plugged)
(gnus-agent-method-p gnus-command-method))
(gnus-agent-load-alist gnus-newsgroup-name)
+ ;; First mark all undownloaded articles as undownloaded.
(let ((articles gnus-newsgroup-unreads)
article)
(while (setq article (pop articles))
(unless (or (cdr (assq article gnus-agent-article-alist))
(memq article gnus-newsgroup-downloadable))
- (push article gnus-newsgroup-undownloaded)))))))
+ (push article gnus-newsgroup-undownloaded))))
+ ;; Then mark downloaded downloadable as not-downloadable,
+ ;; if you get my drift.
+ (let ((articles gnus-newsgroup-downloadable)
+ article)
+ (while (setq article (pop articles))
+ (when (cdr (assq article gnus-agent-article-alist))
+ (setq gnus-newsgroup-downloadable
+ (delq article gnus-newsgroup-downloadable))))))))
(defun gnus-agent-catchup ()
"Mark all undownloaded articles as read."
@@ -778,7 +784,7 @@ the actual number of articles toggled is returned."
(pop gnus-agent-group-alist))))
(defun gnus-agent-fetch-headers (group &optional force)
- (let ((articles (if (gnus-agent-load-alist group)
+ (let ((articles (if (gnus-agent-load-alist group)
(gnus-sorted-intersection
(gnus-list-of-unread-articles group)
(gnus-uncompress-range
@@ -786,7 +792,7 @@ the actual number of articles toggled is returned."
(cdr (gnus-active group)))))
(gnus-list-of-unread-articles group)))
(gnus-decode-encoded-word-function 'identity)
- (file (gnus-agent-article-name ".overview" group)))
+ (file (gnus-agent-article-name ".overview" group)))
;; Fetch them.
(gnus-make-directory (nnheader-translate-file-chars
(file-name-directory file)))
@@ -927,7 +933,7 @@ the actual number of articles toggled is returned."
;; Parse them and see which articles we want to fetch.
(setq gnus-newsgroup-dependencies
(make-vector (length articles) 0))
- ;; No need to call `gnus-get-newsgroup-headers-xover' with
+ ;; No need to call `gnus-get-newsgroup-headers-xover' with
;; the entire .overview for group as we still have the just
;; downloaded headers in `gnus-agent-overview-buffer'.
(let ((nntp-server-buffer gnus-agent-overview-buffer))
@@ -935,21 +941,21 @@ the actual number of articles toggled is returned."
(gnus-get-newsgroup-headers-xover articles nil nil group)))
(setq category (gnus-group-category group))
(setq predicate
- (gnus-get-predicate
+ (gnus-get-predicate
(or (gnus-group-get-parameter group 'agent-predicate t)
(cadr category))))
;; Do we want to download everything, or nothing?
(if (or (eq (caaddr predicate) 'gnus-agent-true)
(eq (caaddr predicate) 'gnus-agent-false))
;; Yes.
- (setq arts (symbol-value
- (cadr (assoc (caaddr predicate)
+ (setq arts (symbol-value
+ (cadr (assoc (caaddr predicate)
'((gnus-agent-true articles)
(gnus-agent-false nil))))))
;; No, we need to decide what we want.
(setq score-param
(let ((score-method
- (or
+ (or
(gnus-group-get-parameter group 'agent-score t)
(caddr category))))
(when score-method
@@ -967,7 +973,7 @@ the actual number of articles toggled is returned."
gnus-agent-scoreable-headers)
(push (car list) score-file))
(setq list (cdr list)))
- (setq score-param
+ (setq score-param
(append score-param (list (nreverse score-file)))
score-file nil entries (cdr entries)))
(list score-param))
@@ -1153,7 +1159,7 @@ The following commands are available:
(or (gnus-agent-read-file
(nnheader-concat gnus-agent-directory "lib/categories"))
(list (list 'default 'short nil nil)))))
-
+
(defun gnus-category-write ()
"Write the category alist."
(setq gnus-category-predicate-cache nil
@@ -1172,7 +1178,7 @@ The following commands are available:
(setf (cadr (assq ',category gnus-category-alist)) predicate)
(gnus-category-write)
(gnus-category-list)))))
-
+
(defun gnus-category-edit-score (category)
"Edit the score expression for CATEGORY."
(interactive (list (gnus-category-name)))
@@ -1287,7 +1293,7 @@ The following commands are available:
(defun gnus-agent-false ()
"Return nil."
nil)
-
+
(defun gnus-category-make-function-1 (cat)
"Make a function from category CAT."
(cond
View
79 lisp/gnus-art.el
@@ -570,7 +570,7 @@ displayed by the first non-nil matching CONTENT face."
("\224" "''")
("\225" "*")
("\226" "-")
- ("\227" "-")
+ ("\227" "-")
("\231" "(TM)")
("\233" ">")
("\234" "oe")
@@ -598,6 +598,9 @@ on parts -- for instance, adding Vcard info to a database."
;;; The treatment variables
;;;
+(defvar gnus-part-display-hook nil
+ "Hook called on parts that are to receive treatment.")
+
(defvar gnus-article-treat-custom
'(choice (const :tag "Off" nil)
(const :tag "On" t)
@@ -727,7 +730,8 @@ on parts -- for instance, adding Vcard info to a database."
:group 'gnus-article-treat
:type gnus-article-treat-custom)
-(defcustom gnus-treat-display-xface (if gnus-xemacs 'head nil)
+(defcustom gnus-treat-display-xface (if (and gnus-xemacs (featurep 'xface))
+ 'head nil)
"Display X-Face headers."
:group 'gnus-article-treat
:type gnus-article-treat-custom)
@@ -739,13 +743,15 @@ on parts -- for instance, adding Vcard info to a database."
(defcustom gnus-treat-display-picons (if gnus-xemacs 'head nil)
"Display picons."
- :group 'gnus-article
+ :group 'gnus-article-treat
:type gnus-article-treat-custom)
;;; Internal variables
+(defvar article-goto-body-goes-to-point-min-p nil)
+
(defvar gnus-article-mime-handle-alist-1 nil)
-(defvar gnus-treatment-function-alist
+(defvar gnus-treatment-function-alist
'((gnus-treat-highlight-signature gnus-article-highlight-signature)
(gnus-treat-buttonize gnus-article-add-buttons)
(gnus-treat-buttonize-head gnus-article-add-buttons-to-head)
@@ -774,7 +780,8 @@ on parts -- for instance, adding Vcard info to a database."
(gnus-treat-strip-blank-lines gnus-article-strip-blank-lines)
(gnus-treat-overstrike gnus-article-treat-overstrike)
(gnus-treat-display-xface gnus-article-display-x-face)
- (gnus-treat-display-smileys gnus-smiley-display)))
+ (gnus-treat-display-smileys gnus-smiley-display)
+ (gnus-treat-display-picons gnus-article-display-picons)))
(defvar gnus-article-mime-handle-alist nil)
(defvar article-lapsed-timer nil)
@@ -1411,12 +1418,16 @@ always hide."
(gnus-delete-line))))))
(defun article-goto-body ()
- "Place point at the start of the body."
+ "Place point at the start of the body."
(goto-char (point-min))
- (if (search-forward "\n\n" nil t)
- t
+ (cond
+ (article-goto-body-goes-to-point-min-p
+ t)
+ ((search-forward "\n\n" nil t)
+ t)
+ (t
(goto-char (point-max))
- nil))
+ nil)))
(defun article-strip-multiple-blank-lines ()
"Replace consecutive blank lines with one empty line."
@@ -2517,8 +2528,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(set-buffer (window-buffer (posn-window pos)))
(goto-char (posn-point pos))
(gnus-article-check-buffer)
- (let ((response (x-popup-menu
- t `("MIME Part"
+ (let ((response (x-popup-menu
+ t `("MIME Part"
("" ,@(mapcar (lambda (c)
(cons (caddr c) (car c)))
gnus-mime-button-commands))))))
@@ -2592,7 +2603,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(mm-remove-part data)
(setq contents (mm-get-part data))
(forward-line 2)
- (when charset
+ (when charset
(unless (symbolp charset)
(setq charset (mm-read-coding-system "Charset: ")))
(setq contents (mm-decode-coding-string contents charset)))
@@ -2635,17 +2646,17 @@ If ALL-HEADERS is non-nil, no headers are hidden."
"Pipe MIME part N, which is the numerical prefix."
(interactive "p")
(gnus-article-part-wrapper n 'mm-pipe-part))
-
+
(defun gnus-article-save-part (n)
"Save MIME part N, which is the numerical prefix."
(interactive "p")
(gnus-article-part-wrapper n 'mm-save-part))
-
+
(defun gnus-article-interactively-view-part (n)
"Pipe MIME part N, which is the numerical prefix."
(interactive "p")
(gnus-article-part-wrapper n 'mm-interactively-view-part))
-
+
(defun gnus-article-copy-part (n)
"Pipe MIME part N, which is the numerical prefix."
(interactive "p")
@@ -2655,7 +2666,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
"Pipe MIME part N, which is the numerical prefix."
(interactive "p")
(gnus-article-part-wrapper n 'gnus-mime-externalize-part))
-
+
(defun gnus-article-view-part (n)
"View MIME part N, which is the numerical prefix."
(interactive "p")
@@ -2675,9 +2686,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(let ((id (get-text-property (point) 'gnus-part))
(point (point))
buffer-read-only)
- (delete-region (gnus-point-at-bol) (progn (forward-line 1) (point)))
- (gnus-insert-mime-button
- handle id (list (not (mm-handle-displayed-p handle))))
+ (forward-line 1)
(prog1
(let ((window (selected-window))
(mail-parse-charset gnus-newsgroup-charset))
@@ -2690,6 +2699,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(goto-char point)
(forward-line)
(if (mm-handle-displayed-p handle)
+ ;; This will remove the part.
(mm-display-part handle)
(save-restriction
(narrow-to-region (point) (1+ (point)))
@@ -2699,6 +2709,10 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(1- (length gnus-article-mime-handles))
(car (mm-handle-type handle))))))
(select-window window))))
+ (goto-char point)
+ (delete-region (gnus-point-at-bol) (progn (forward-line 1) (point)))
+ (gnus-insert-mime-button
+ handle id (list (mm-handle-displayed-p handle)))
(goto-char point))))
(defun gnus-article-goto-part (n)
@@ -4115,9 +4129,9 @@ FUNCTION, FUNCTION will be apply to all newsgroups. If item is a
(REGEXP . FUNCTION), FUNCTION will be only apply to thes newsgroups
whose names match REGEXP.
-For example:
+For example:
((\"chinese\" . gnus-decode-encoded-word-region-by-guess)
- mail-decode-encoded-word-region
+ mail-decode-encoded-word-region
(\"chinese\" . rfc1843-decode-region))
")
@@ -4126,15 +4140,15 @@ For example:
(defun gnus-multi-decode-header (start end)
"Apply the functions from `gnus-encoded-word-methods' that match."
(unless (and gnus-decode-header-methods-cache
- (eq gnus-newsgroup-name
+ (eq gnus-newsgroup-name
(car gnus-decode-header-methods-cache)))
(setq gnus-decode-header-methods-cache (list gnus-newsgroup-name))
- (mapc '(lambda (x)
+ (mapc '(lambda (x)
(if (symbolp x)
(nconc gnus-decode-header-methods-cache (list x))
- (if (and gnus-newsgroup-name
+ (if (and gnus-newsgroup-name
(string-match (car x) gnus-newsgroup-name))
- (nconc gnus-decode-header-methods-cache
+ (nconc gnus-decode-header-methods-cache
(list (cdr x))))))
gnus-decode-header-methods))
(let ((xlist gnus-decode-header-methods-cache))
@@ -4151,13 +4165,16 @@ For example:
(defun gnus-treat-article (condition &optional part-number total-parts type)
(let ((length (- (point-max) (point-min)))
(alist gnus-treatment-function-alist)
+ (article-goto-body-goes-to-point-min-p t)
val elem)
- (when (or (not type)
- (catch 'found
- (let ((list gnus-article-treat-types))
- (while list
- (when (string-match (pop list) type)
- (throw 'found t))))))
+ (when (and (gnus-visual-p 'article-highlight 'highlight)
+ (or (not type)
+ (catch 'found
+ (let ((list gnus-article-treat-types))
+ (while list
+ (when (string-match (pop list) type)
+ (throw 'found t)))))))
+ (gnus-run-hooks 'gnus-part-display-hook)
(while (setq elem (pop alist))
(setq val (symbol-value (car elem)))
(when (cond
View
2  lisp/gnus-cache.el
@@ -423,7 +423,7 @@ Returns the list of articles removed."
(defun gnus-cache-update-article (group article)
"If ARTICLE is in the cache, remove it and re-enter it."
(gnus-cache-change-buffer group)
- (when (gnus-cache-possibly-remove-article article nil nil nil t)
+ (when (gnus-cache-possibly-remove-article article nil nil nil t)
(let ((gnus-use-cache nil))
(gnus-cache-possibly-enter-article
gnus-newsgroup-name article (gnus-summary-article-header article)
View
6 lisp/gnus-cus.el
@@ -200,7 +200,7 @@ DOC is a documentation string for the parameter.")
(make-local-variable 'gnus-custom-topic)
(setq gnus-custom-topic topic)
(widget-insert "Customize the ")
- (if group
+ (if group
(widget-create 'info-link
:help-echo "Push me to learn more."
:tag "group parameters"
@@ -220,7 +220,7 @@ DOC is a documentation string for the parameter.")
(make-local-variable 'gnus-custom-params)
(setq gnus-custom-params
(widget-create 'group
- :value (if group
+ :value (if group
(gnus-info-params info)
(gnus-topic-parameters topic))
`(set :inline t
@@ -274,7 +274,7 @@ form, but who cares?"
"Apply changes and bury the buffer."
(interactive)
(if gnus-custom-topic
- (gnus-topic-set-parameters gnus-custom-topic
+ (gnus-topic-set-parameters gnus-custom-topic
(widget-value gnus-custom-params))
(gnus-group-edit-group-done 'params gnus-custom-group
(widget-value gnus-custom-params))
View
2  lisp/gnus-ems.el
@@ -150,7 +150,7 @@
(fset 'gnus-cite-add-face 'gnus-mule-cite-add-face)
(fset 'gnus-max-width-function 'gnus-mule-max-width-function)
(fset 'gnus-summary-set-display-table (lambda ()))
-
+
(when (boundp 'gnus-check-before-posting)
(setq gnus-check-before-posting
(delq 'long-lines
View
2  lisp/gnus-gl.el
@@ -765,7 +765,7 @@ If prefix argument ALL is non-nil, all articles are marked as read."
(defun gnus-gl-get-trace ()
"Insert the contents of the BBBD trace buffer."
(when grouplens-bbb-buffer
- (insert-buffer grouplens-bbb-buffer)))
+ (insert-buffer-substring grouplens-bbb-buffer)))
;;
;; GroupLens minor mode
View
17 lisp/gnus-msg.el
@@ -108,9 +108,10 @@ the second with the current group name.")
(name . user-full-name))
"*Mapping from style parameters to variables.")
-(defcustom gnus-group-posting-charset-alist
+(defcustom gnus-group-posting-charset-alist
'(("^no\\." iso-8859-1)
(".*" iso-8859-1)
+ (message-this-is-news iso-8859-1)
(message-this-is-mail nil)
)
"Alist of regexps (to match group names) and default charsets to be unencoded when posting."
@@ -223,13 +224,13 @@ Thank you for your help in stamping out bugs.
elem)
(catch 'found
(while (setq elem (pop alist))
- (when (or (and (stringp (car alist))
- (string-match (car alist) group))
- (and (gnus-functionp (car alist))
- (funcall (car alist) group))
- (and (symbolp (car alist))
- (symbol-value (car alist))))
- (throw 'found (cadr alist)))))))
+ (when (or (and (stringp (car elem))
+ (string-match (car elem) group))
+ (and (gnus-functionp (car elem))
+ (funcall (car elem) group))
+ (and (symbolp (car elem))
+ (symbol-value (car elem))))
+ (throw 'found (cadr elem)))))))
(defun gnus-inews-add-send-actions (winconf buffer article)
(make-local-hook 'message-sent-hook)
View
2  lisp/gnus-range.el
@@ -233,7 +233,7 @@ RANGE1. The returned range is always a list."
(setq range1 (if (listp (cdr range1)) range1 (list range1))
range2 (if (listp (cdr range2)) range2 (list range2))
r1 (car range1)
- r2 (car range2)
+ r2 (car range2)
r1_min (if (consp r1) (car r1) r1)
r1_max (if (consp r1) (cdr r1) r1)
r2_min (if (consp r2) (car r2) r2)
View
8 lisp/gnus-salt.el
@@ -173,7 +173,7 @@ article number, then stay on current line."
(if (not pos)
(gnus-error 2 "No such line: %s" arg)
(goto-char pos))))
-
+
(defun gnus-pick-article (&optional arg)
"Pick the article on the current line.
If ARG, pick the article on that line instead."
@@ -192,7 +192,7 @@ If ARG, pick the article/thread on that line instead."
(if gnus-thread-hide-subtree
(gnus-uu-mark-thread)
(gnus-summary-mark-as-processable 1)))
-
+
(defun gnus-pick-unmark-article-or-thread (&optional arg)
"If gnus-thread-hide-subtree is t, then unmark the thread on current line.
Otherwise unmark the article on current line.
@@ -203,7 +203,7 @@ If ARG, unmark thread/article on that line instead."
(if gnus-thread-hide-subtree
(gnus-uu-unmark-thread)
(gnus-summary-unmark-as-processable 1)))
-
+
(defun gnus-pick-mouse-pick (e)
(interactive "e")
(mouse-set-point e)
@@ -483,7 +483,7 @@ Two predefined functions are available:
(interactive "P")
(let ((buf (current-buffer))
win)
- (set-buffer gnus-article-buffer)
+ (set-buffer gnus-article-buffer)
(gnus-article-read-summary-keys arg nil t)
(when (setq win (get-buffer-window buf))
(select-window win)
View
23 lisp/gnus-score.el
@@ -387,7 +387,7 @@ If nil, the user will be asked for a duration."
(defcustom gnus-score-thread-simplify nil
"If non-nil, subjects will simplified as in threading."
:group 'gnus-score-various
- :type 'boolean)
+ :type 'boolean)
@@ -672,7 +672,7 @@ used as score."
current-score-file)
(t
(gnus-score-file-name "all"))))))
-
+
(gnus-summary-score-entry
(nth 1 entry) ; Header
match ; Match
@@ -682,7 +682,7 @@ used as score."
nil
temporary)
(not (nth 3 entry)) ; Prompt
- nil ; not silent
+ nil ; not silent
extra) ; non-standard overview.
(when (eq symp 'a)
@@ -1029,7 +1029,7 @@ EXTRA is the possible non-standard header."
(let ((buffer-read-only nil))
;; Set score.
(gnus-summary-update-mark
- (if (= n (or gnus-summary-default-score 0)) ?
+ (if (= n (or gnus-summary-default-score 0)) ? ;Whitespace
(if (< n (or gnus-summary-default-score 0))
gnus-score-below-mark gnus-score-over-mark))
'score))
@@ -2299,7 +2299,7 @@ EXTRA is the possible non-standard header."
(let ((ignored (append gnus-ignored-adaptive-words
(if gnus-adaptive-word-no-group-words
(message-tokenize-header
- (gnus-group-real-name
+ (gnus-group-real-name
gnus-newsgroup-name)
"."))
gnus-default-ignored-adaptive-words)))
@@ -2553,6 +2553,7 @@ GROUP using BNews sys file syntax."
(klen (length kill-dir))
(score-regexp (gnus-score-file-regexp))
(trans (cdr (assq ?: nnheader-file-name-translation-alist)))
+ (group-trans (nnheader-translate-file-chars group t))
ofiles not-match regexp)
(save-excursion
(set-buffer (gnus-get-buffer-create "*gnus score files*"))
@@ -2599,16 +2600,18 @@ GROUP using BNews sys file syntax."
(if (looking-at "not.")
(progn
(setq not-match t)
- (setq regexp (concat "^" (buffer-substring 5 (point-max)) "$")))
+ (setq regexp
+ (concat "^" (buffer-substring 5 (point-max)) "$")))
(setq regexp (concat "^" (buffer-substring 1 (point-max)) "$"))
(setq not-match nil))
;; Finally - if this resulting regexp matches the group name,
;; we add this score file to the list of score files
;; applicable to this group.
(when (or (and not-match
- (not (string-match regexp group)))
- (and (not not-match)
- (string-match regexp group)))
+ (ignore-errors
+ (not (string-match regexp group-trans))))
+ (and (not not-match)
+ (ignore-errors (string-match regexp group-trans))))
(push (car sfiles) ofiles)))
(setq sfiles (cdr sfiles)))
(kill-buffer (current-buffer))
@@ -2902,7 +2905,7 @@ If ADAPT, return the home adaptive file instead."
n times)
(while (natnump (decf n))
(setq score (funcall gnus-decay-score-function score)))
- (setcdr kill (cons score
+ (setcdr kill (cons score
(cdr (cdr kill)))))))))
;; Return whether this score file needs to be saved. By Je-haysuss!
updated))
View
6 lisp/gnus-spec.el
@@ -240,7 +240,7 @@
'(gnus-face t face ,(symbol-value (intern (format "gnus-face-%d" type))))))
(defun gnus-balloon-face-function (form type)
- `(gnus-put-text-property
+ `(gnus-put-text-property
(point) (progn ,@form (point))
'balloon-help
,(intern (format "gnus-balloon-face-%d" type))))
@@ -316,7 +316,7 @@
(if (or (= delim ?\()
(= delim ?\{)
(= delim ?\<))
- (replace-match (concat "\"("
+ (replace-match (concat "\"("
(cond ((= delim ?\() "mouse")
((= delim ?\{) "face")
(t "balloon"))
@@ -545,7 +545,7 @@ If PROPS, insert the result."
(symbol-value (intern (format "gnus-%s-line-format" type)))
(symbol-value (intern (format "gnus-%s-line-format-alist" type)))
insertable)))
-
+
(provide 'gnus-spec)
View
2  lisp/gnus-srvr.el
@@ -654,7 +654,7 @@ buffer.
(error "Couldn't enter %s" group))
(unless (gnus-group-read-group nil no-article group)
(error "Couldn't enter %s" group)))))
-
+
(defun gnus-browse-select-group ()
"Select the current group."
(interactive)
View
4 lisp/gnus-start.el
@@ -1251,7 +1251,7 @@ for new groups, and subscribe the new groups as zombies."
(if active (- (1+ (cdr active)) (car active)) t))
;; Shorten the select method if possible, if we need to
;; store it at all (native groups).
- (let ((method (gnus-method-simplify
+ (let ((method (gnus-method-simplify
(or gnus-override-subscribe-method
(gnus-group-method group)))))
(if method
@@ -1810,7 +1810,7 @@ newsgroup."
;; Let the Gnus agent save the active file.
(when (and gnus-agent real-active)
(gnus-agent-save-groups method))
-
+
(go