+2006-01-10 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * nnrss.el (nnrss-wash-html-in-text-plain-parts): New variable.
+ (nnrss-request-article): Render text/plain parts as HTML.
+
+ * gnus-art.el (gnus-article-wash-html-with-w3m): No need to narrow
+ the buffer.
+
2006-01-05 Katsumi Yamaoka <yamaoka@jpl.org>
* nnrss.el (nnrss-request-article): Fix the way to fill text/plain
(defun gnus-article-wash-html-with-w3m ()
"Wash the current buffer with emacs-w3m."
(mm-setup-w3m)
- (save-restriction
- (narrow-to-region (point) (point-max))
- (let ((w3m-safe-url-regexp mm-w3m-safe-url-regexp)
- w3m-force-redisplay)
- (w3m-region (point-min) (point-max)))
- (when (and mm-inline-text-html-with-w3m-keymap
- (boundp 'w3m-minor-mode-map)
- w3m-minor-mode-map)
- (add-text-properties
- (point-min) (point-max)
- (list 'keymap w3m-minor-mode-map
- ;; Put the mark meaning this part was rendered by emacs-w3m.
- 'mm-inline-text-html-with-w3m t)))))
+ (let ((w3m-safe-url-regexp mm-w3m-safe-url-regexp)
+ w3m-force-redisplay)
+ (w3m-region (point-min) (point-max)))
+ (when (and mm-inline-text-html-with-w3m-keymap
+ (boundp 'w3m-minor-mode-map)
+ w3m-minor-mode-map)
+ (add-text-properties
+ (point-min) (point-max)
+ (list 'keymap w3m-minor-mode-map
+ ;; Put the mark meaning this part was rendered by emacs-w3m.
+ 'mm-inline-text-html-with-w3m t))))
(defun article-hide-list-identifiers ()
"Remove list identifies from the Subject header.
(defvar nnrss-compatible-encoding-alist '((iso-8859-1 . windows-1252))
"Alist of encodings and those supersets.
The cdr of each element is used to decode data if it is available when
-the car is what the data specify as the encoding. Or, the car is used
+the car is what the data specify as the encoding. Or, the car is used
for decoding when the cdr that the data specify is not available.")
+(defvar nnrss-wash-html-in-text-plain-parts nil
+ "*Non-nil means render text in text/plain parts as HTML.
+The function specified by the `mm-text-html-renderer' variable will be
+used to render text. If it is nil, text will simply be folded. This
+variable is not used in T-gnus.")
+
(nnoo-define-basics nnrss)
;;; Interface functions
+2006-01-10 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * gnus.texi (RSS): Document nnrss-wash-html-in-text-plain-parts.
+
2006-01-06 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus.texi (Group Parameters): Fix description.
@code{nnmail-pathname-coding-system} \e$BJQ?t$NCM$rE,@Z$K@_Dj$7$J$1$l$P$J$j\e(B
\e$B$^$;$s!#\e(B
+@code{nnrss} \e$B%P%C%/%(%s%I$O\e(B @samp{text/plain} \e$B$+\e(B @samp{text/html} \e$B$N5-;v\e(B
+\e$B$r:n$j$^$9!#$I$A$i$r:n$k$+$O\e(B @code{mime-preview-condition} \e$BJQ?t$NCM$K$h$C\e(B
+\e$B$F7h$^$j$^$9!#$b$7\e(B @uref{http://emacs-w3m.namazu.org/, emacs-w3m} \e$B$K4^$^\e(B
+\e$B$l$F$$$k\e(B @code{mime-w3m} \e$B%b%8%e!<\e(B
+\e$B%k\e(B (@pxref{SEMI MUAs, ,@acronym{SEMI} MUA \e$B$G\e(B HTML \e$B%a!<%k$rFI$`\e(B,
+emacs-w3m-ja, Emacs-w3m-ja}) \e$B$r;H$C$F$$$k$N$J$i$P!"\e(B@samp{text/html} \e$B$N5-\e(B
+\e$B;v$r:n$k$h$&$K!"<+F0E*$K\e(B @code{mime-preview-condition} \e$BJQ?t$,@_Dj$5$l$k\e(B
+\e$B$G$7$g$&!#\e(B
+
@cindex OPML
\e$B$"$J$?$N9VFIL\O?$r\e(B @acronym{OPML} \e$B%U%)!<%^%C%H\e(B (Outline Processor Markup
Language) \e$B$G%m!<%I\e(B/\e$B%;!<%V$9$k$?$a$K!"0J2<$N%3%^%s%I$r;H$&$3$H$b$G$-$^$9!#\e(B
(add-to-list 'nnmail-extra-headers nnrss-url-field)
@end lisp
-@code{nnrss} \e$B%P%C%/%(%s%I$O\e(B @samp{text/plain} \e$B$+\e(B @samp{text/html} \e$B$N5-;v\e(B
-\e$B$r:n$j$^$9!#$I$A$i$r:n$k$+$O\e(B @code{mime-preview-condition} \e$BJQ?t$NCM$K$h$C\e(B
-\e$B$F7h$^$j$^$9!#$b$7\e(B @uref{http://emacs-w3m.namazu.org/, emacs-w3m} \e$B$K4^$^\e(B
-\e$B$l$F$$$k\e(B @code{mime-w3m} \e$B%b%8%e!<\e(B
-\e$B%k\e(B (@pxref{SEMI MUAs, ,@acronym{SEMI} MUA \e$B$G\e(B HTML \e$B%a!<%k$rFI$`\e(B,
-emacs-w3m-ja, Emacs-w3m-ja}) \e$B$r;H$C$F$$$k$N$J$i$P!"\e(B@samp{text/html} \e$B$N5-\e(B
-\e$B;v$r:n$k$h$&$K!"<+F0E*$K\e(B @code{mime-preview-condition} \e$BJQ?t$,@_Dj$5$l$k\e(B
-\e$B$G$7$g$&!#\e(B
-
@node Customizing W3
@subsection W3 \e$B$N%+%9%?%^%$%:\e(B
@cindex W3
XEmacs and want to use non-@acronym{ASCII} group names, you should set
the value for the @code{nnmail-pathname-coding-system} variable properly.
+The @code{nnrss} back end generates @samp{multipart/alternative}
+@acronym{MIME} articles in which each contains a @samp{text/plain} part
+and a @samp{text/html} part.
+
@cindex OPML
You can also use the following commands to import and export your
subscriptions from a file in @acronym{OPML} format (Outline Processor
the feeds from local files in @code{nnrss-directory}. You can use
the command @code{nnrss-generate-download-script} to generate a
download script using @command{wget}.
+
+@item nnrss-wash-html-in-text-plain-parts
+Non-@code{nil} means that @code{nnrss} renders text in @samp{text/plain}
+parts as @acronym{HTML}. The function specified by the
+@code{mm-text-html-renderer} variable (@pxref{Display Customization,
+,Display Customization, emacs-mime, The Emacs MIME Manual}) will be used
+to render text. If it is @code{nil}, which is the default, text will
+simply be folded. Leave it @code{nil}, if you prefer to see
+@samp{text/html} parts.
@end table
The following code may be helpful, if you want to show the description in
(add-to-list 'nnmail-extra-headers nnrss-url-field)
@end lisp
-The @code{nnrss} back end generates @samp{multipart/alternative}
-@acronym{MIME} articles in which each contains a @samp{text/plain} part
-and a @samp{text/html} part. Even if you have added @code{"text/html"}
-to the @code{mm-discouraged-alternatives} variable (@pxref{Display
+Even if you have added @code{"text/html"} to the
+@code{mm-discouraged-alternatives} variable (@pxref{Display
Customization, ,Display Customization, emacs-mime, The Emacs MIME
Manual}) since you don't want to see @acronym{HTML} parts, it might be
more useful especially in @code{nnrss} groups to display
projects / elisp / gnus.git- / commitdiff