+2000-04-21 14:11:39 David S. Goldberg <dsg@mitre.org>
+
+ * gnus-art.el (gnus-boring-article-headers): Work on long CCs as
+ well.
+
+2000-04-21 14:06:43 Rui Zhu <sprache@iname.com>
+
+ * gnus-art.el (gnus-article-mode): Fix variable name.
+
+2000-04-21 13:54:51 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * mm-view.el: Fix autoload.
+
+ * flow-fill.el (flow-fill): Fix provide.
+
+ * gnus-draft.el (gnus-draft-send): Bind message-setup-hook to
+ nil.
+
+2000-04-20 22:24:04 Shenghuo ZHU <zsh@cs.rochester.edu>
+
+ * gnus-win.el (gnus-configure-windows): Revert to switch-to-buffer.
+
+2000-04-21 05:22:18 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * gnus-util.el (gnus-netrc-machine): Didn't work.
+
2000-04-20 21:22:10 Shenghuo ZHU <zsh@cs.rochester.edu>
* gnus-draft.el (gnus-draft-setup): Restore to mml.
-;;; fill-flowed.el --- interprete RFC2646 "flowed" text
+;;; flow-fill.el --- interprete RFC2646 "flowed" text
;; Copyright (C) 2000 Free Software Foundation, Inc.
;; Author: Simon Josefsson <jas@pdc.kth.se>
(fill-flowed-point-at-eol)
'left 'nosqueeze)))))))
-(provide 'fill-flowed)
+(provide 'flow-fill)
-;;; fill-flowed.el ends here
+;;; flow-fill.el ends here
(const :tag "Followup-to identical to newsgroups." followup-to)
(const :tag "Reply-to identical to from." reply-to)
(const :tag "Date less than four days old." date)
- (const :tag "Very long To header." long-to)
- (const :tag "Multiple To headers." many-to))
+ (const :tag "Very long To and/or Cc header." long-to)
+ (const :tag "Multiple To and/or Cc headers." many-to))
:group 'gnus-article-hiding)
(defcustom gnus-signature-separator '("^-- $" "^-- *$")
4))
(gnus-article-hide-header "date"))))
((eq elem 'long-to)
- (let ((to (message-fetch-field "to")))
+ (let ((to (message-fetch-field "to"))
+ (cc (message-fetch-field "cc")))
(when (> (length to) 1024)
- (gnus-article-hide-header "to"))))
+ (gnus-article-hide-header "to"))
+ (when (> (length cc) 1024)
+ (gnus-article-hide-header "cc"))))
((eq elem 'many-to)
- (let ((to-count 0))
+ (let ((to-count 0)
+ (cc-count 0))
(goto-char (point-min))
(while (re-search-forward "^to:" nil t)
(setq to-count (1+ to-count)))
(forward-line -1)
(narrow-to-region (point) (point-max))
(gnus-article-hide-header "to"))
- (setq to-count (1- to-count)))))))))))))
+ (setq to-count (1- to-count))))
+ (goto-char (point-min))
+ (while (re-search-forward "^cc:" nil t)
+ (setq cc-count (1+ cc-count)))
+ (when (> cc-count 1)
+ (while (> cc-count 0)
+ (goto-char (point-min))
+ (save-restriction
+ (re-search-forward "^cc:" nil nil cc-count)
+ (forward-line -1)
+ (narrow-to-region (point) (point-max))
+ (gnus-article-hide-header "cc"))
+ (setq cc-count (1- cc-count)))))))))))))
(defun gnus-article-hide-header (header)
(save-excursion
(make-local-variable 'gnus-article-mime-handles)
(make-local-variable 'gnus-article-decoded-p)
(make-local-variable 'gnus-article-mime-handle-alist)
- (make-local-variable 'gnus-article-washed-types)
+ (make-local-variable 'gnus-article-wash-types)
(gnus-set-default-directory)
(buffer-disable-undo)
(setq buffer-read-only t)
message-inhibit-body-encoding))
(message-send-hook (and group (not (equal group "nndraft:queue"))
message-send-hook))
+ (message-setup-hook nil)
type method)
;; We read the meta-information that says how and where
;; this message is to be sent.
(when (assoc "default" (car rest))
(push (car rest) result))
(pop rest)))
- (setq result (nreverse result))
- (if (null result)
- nil
+ (when result
+ (setq result (nreverse result))
(while (and result
- (not (equalp port (or (gnus-netrc-get result) "nntp"))))
+ (not (equal port (gnus-netrc-get (car result) "port"))))
(pop result))
- result)))
+ (car result))))
(defun gnus-netrc-get (alist type)
"Return the value of token TYPE from ALIST."
(gnus-delete-windows-in-gnusey-frames))
;; Just remove some windows.
(gnus-remove-some-windows)
- (set-buffer nntp-server-buffer))
+ (switch-to-buffer nntp-server-buffer))
(select-frame frame)))
(let (gnus-window-frame-focus)
- (set-buffer nntp-server-buffer)
+ (switch-to-buffer nntp-server-buffer)
(gnus-configure-frame split)
(when gnus-window-frame-focus
(select-frame (window-frame gnus-window-frame-focus))))))))
rmail-update-summary url-retrieve
temp-directory babel-fetch babel-wash
find-coding-systems-for-charsets sc-cite-regexp
- vcard-pretty-print make-symbolic-link))
+ vcard-pretty-print image-type-available-p
+ make-overlay overlay-put make-symbolic-link))
(maybe-bind '(global-face-data
mark-active transient-mark-mode mouse-selection-click-count
mouse-selection-click-count-buffer buffer-display-table
rmail-summary-exists rmail-select-summary rmail-update-summary
url-generic-parse-url valid-image-instantiator-format-p
babel-fetch babel-wash sc-cite-regexp
- vcard-pretty-print
+ vcard-pretty-print image-type-available-p
coding-system-get find-coding-system
find-coding-systems-for-charsets find-coding-systems-region
font-lock-set-defaults function-max-args get-charset-property
(autoload 'gnus-article-prepare-display "gnus-art")
(autoload 'vcard-parse-string "vcard")
(autoload 'vcard-format-string "vcard")
- (autoload 'fill-flowed "fill-flowed")
+ (autoload 'fill-flowed "flow-fill")
(autoload 'diff-mode "diff-mode"))
;; Avoid byte compile warning.
+2000-04-21 13:45:52 Pavel Janik <Pavel.Janik@inet.cz>
+
+ * gnus.texi (Mail Source Specifiers): Example for :plugged.
+
2000-04-20 20:37:48 Pavel Janik <Pavel.Janik@inet.cz>
* gnus.texi (Limiting): Fix.
@item L
\e$(B5-;v$N9T?t!#\e(B
@item c
-\e$(B5-;v$NJ8;z?t!#\e(B
+\e$(B5-;v$NJ8;z?t!#$3$NL>A0;XDj;R$O\e(B (nnfolder \e$(B$N$h$&$J\e(B) \e$(B$$$/$D$+$NA*BrJ}K!$r\e(B
+\e$(B%5%]!<%H$7$^$;$s!#\e(B
@item I
\e$(B%9%l%C%I$N%l%Y%k$K$h$k;z2<$2\e(B (@pxref{Customizing Threading})\e$(B!#\e(B
@item T
@item :plugged
@code{nil} \e$(B$G$J$+$C$?$i!"\e(Bgnus \e$(B$,\e(B @dfn{unplugged} \e$(B$G$"$C$F$b%a!<%k$r<hF@\e(B
-\e$(B$7$^$9!#\e(B
+\e$(B$7$^$9!#$b$7$"$J$?$,%G%#%l%/%H%j$r%a!<%k%=!<%9$K;H$C$F$$$k$J$i$P!"$3$NNc\e(B
+\e$(B$N$h$&$K;XDj$9$k$3$H$,$G$-$^$9\e(B:
+
+@lisp
+(setq mail-sources
+ '((directory :path "/home/pavel/.Spool/"
+ :suffix ""
+ :plugged t)))
+@end lisp
+
+\e$(B$"$J$?$,\e(B @dfn{unplugged} \e$(B$G$"$C$F$b\e(B gnus \e$(B$O%a!<%k$r<hF@$7$^$9!#$3$l$O!"\e(B
+\e$(B%m!<%+%k$N%a!<%k$H%K%e!<%9$r;H$&>l9g$KJXMx$G$9!#\e(B
@end table
@end table
@item L
Number of lines in the article.
@item c
-Number of characters in the article.
+Number of characters in the article. This specifier is not supported in some
+methods (like nnfolder).
@item I
Indentation based on thread level (@pxref{Customizing Threading}).
@item T
@table @code
@item :plugged
-If non-nil, fetch the mail even when Gnus is unplugged.
+If non-nil, fetch the mail even when Gnus is unplugged. If you use
+directory source to get mail, you can specify it as in this example:
+
+@lisp
+(setq mail-sources
+ '((directory :path "/home/pavel/.Spool/"
+ :suffix ""
+ :plugged t)))
+@end lisp
+
+Gnus will then fetch your mail even when you are unplugged. This is
+useful when you use local mail and news.
@end table
@end table
projects / elisp / gnus.git- / commitdiff