diff options
author | Robert J. Chassell <bob@gnu.org> | 2010-02-24 22:07:26 +0000 |
---|---|---|
committer | Robert J. Chassell <bob@gnu.org> | 2010-02-24 22:07:26 +0000 |
commit | d0644a08e3c5d125cc68025125398296549561dc (patch) | |
tree | aa44302356e9f27e90c61faf1e30c6643c5a3c05 /share | |
parent | 9f65c0f29636a170ad73bbc2fbfeef20b4f909e9 (diff) | |
download | emacs-d0644a08e3c5d125cc68025125398296549561dc.tar.gz |
Merge: add word to sentence in trunk/doc/lispintro/emacs-lisp-intro.texi, in section Finding More Information
Diffstat (limited to 'share')
35 files changed, 56643 insertions, 0 deletions
diff --git a/share/emacs/site-lisp/w3m/ChangeLog b/share/emacs/site-lisp/w3m/ChangeLog new file mode 100644 index 00000000000..a8c7aca637a --- /dev/null +++ b/share/emacs/site-lisp/w3m/ChangeLog @@ -0,0 +1,10203 @@ +2010-02-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Turn truncate-lines off for text/plain pages. + +2010-02-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify-images): Add menu to images. + (w3m-download-this-image, w3m-print-this-image-url): New functions. + (w3m-link-menu): Add them; enable menu only when url or image is there. + +2010-02-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-window-hscroll): Revert 2010-01-13 change. + +2010-02-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-cache-available-p): Now, pages with neither Last-Modified + header and ETag header are treated as dynamically-generated pages. + (w3m-cache-header-delete-variable-part): Contination lines are also + removed. + +2010-02-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-local-dirlist-cgi, w3m-set-display-ins-del): + Honor w3m-command-environment. + Suggested by Toru TSUNEYOSHI <t_tuneyosi@hotmail.com>. + +2010-02-01 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-redisplay-this-page): Save positions. + +2010-02-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-reload-this-page): Save positions. + + * w3m-hist.el (w3m-history-store-position) + (w3m-history-restore-position): Use line number and column number to + save positions. + +2010-01-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-previous-page): Restore positions as well when + jumping within a page. + (w3m-view-this-url-1): Reset hscroll after retrieving a new page. + (w3m-view-this-url): Save positions first. + (w3m-delete-buffer): Restore positions in a page being left. + (w3m-goto-url): Don't save positions here. + + * w3m-util.el (w3m-popup-buffer): Restore positions only when buffer to + be displayed is hidden, not always. + +2010-01-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-next-anchor, w3m-previous-anchor, w3m-next-form) + (w3m-previous-form, w3m-next-image, w3m-previous-image): Remove unused + var `st'. + +2010-01-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Make it work as before for group: urls. + +2010-01-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-doc-view-map): New variable. + (w3m-view-this-url-1): Improve the way to keep the window configuration + for the case where w3m-new-session-in-background is non-nil. + (w3m-doc-view): Use w3m-doc-view-map. + (w3m-doc-view-quit): New function. + +2010-01-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bug.el (report-emacs-w3m-bug) + * w3m-session.el (w3m-session-save, w3m-session-automatic-save) + (w3m-session-deleted-save, w3m-session-crash-recovery-save) + * w3m.el (w3m-key-binding): Use save-current-buffer instead of + save-excursion. + + * mew-w3m.el (mew-w3m-view-inline-image, mew-mime-text/html-w3m) + * w3m-xmas.el (w3m-window-hscroll) + * w3mhack.el (toplevel, w3mhack-generate-load-file): Use + with-current-buffer rather than save-excursion + set-buffer. + + * w3m-cookie.el (w3m-cookie-parse-args): Use with-current-buffer rather + than save-excursion + set-buffer; no need to use save-restriction and + narrow-to-region; remove duplicate set-syntax-table. + +2010-01-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-print-this-url): Exclude empty image-alt string. + + * w3m-form.el (w3m-form-parse-and-fontify): Strip text props from + string elements contained in w3m-current-forms so as to enable XEmacs + to read ~/.w3m/.sessions file. + +2010-01-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-refontify-anchor, w3m-cache-setup) + (w3m-cache-remove-oldest, w3m-cache-remove, w3m-cache-contents) + (w3m-cache-request-contents, w3m-view-this-url-1) + (w3m-download-this-url, w3m-goto-url) + * w3m-session.el (w3m-session-save) + * w3m-bookmark.el (w3m-bookmark-sections, w3m-bookmark-write-file) + (w3m-bookmark-kill-entries, w3m-bookmark-undo, w3m-bookmark-iterator) + * w3m-util.el (w3m-unseen-buffer-p): Use with-current-buffer rather + than save-excursion + set-buffer. + + * w3m.el (toplevel, w3m-highlight-current-anchor-1): Use point-at-eol + rather than `(save-excursion (end-of-line) (point))'. + + * w3m-util.el: Autoload w3m-history-restore-position when compiling; + autoload w3m-fb-frame-parameter only when compiling. + +2010-01-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-next-buffer): Save and restore positions. + (w3m-close-window): Save positions. + + * w3m-hist.el (w3m-history-store-position) + (w3m-history-restore-position): Save and restore hscroll. + + * w3m-util.el (w3m-popup-buffer): Restore positions. + +2009-11-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-check-rss): Ignore future entries to + display site announcements. + +2009-11-03 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-region-cite-mark): Add new selection. + (mew-w3m-region): Rewrite. + +2009-11-02 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-region-cite-mark): New option. + (mew-w3m-region): New function. + (mew-mime-text/html-w3m): Use `mew-w3m-region' instead of `w3m-region'. + +2009-09-02 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-image.el (w3m-imagick-convert-program-available-p): If someone + set `w3m-imagick-convert-program' to nil before load emacs-w3m, do not + show warning message for ImageMagick's `convert'. + +2009-09-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-mail.el (w3m-mail-embed-base-url, w3m-mail-compose-with-mml) + (w3m-mail-compose-with-vm): Don't use + default-enable-multibyte-characters that is obsolete in Emacs 23.2. + +2009-09-01 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-content-type-alist): Support + `browse-url-default-windows|macosx-browser'. Thanks to Leo. + Cf. [emacs-w3m:11035]. + + * w3m-ems.el (w3m-form-button, w3m-form-button-mouse) + (w3m-form-button-pressed, w3m-tab-unselected) + (w3m-tab-unselected-retrieving, w3m-tab-unselected-unseen) + (w3m-tab-selected, w3m-tab-selected-retrieving, w3m-tab-background) + (w3m-tab-selected-background, w3m-tab-mouse): Add type ns. Thanks to + Leo. Cf. [emacs-w3m:11034]. + +2009-08-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-toggle-inline-images-internal): Do not display image, if + its url is local and current url is not local. + +2009-08-24 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-output-coding-system): Use `utf-8' except for emacs-21 + under Japaese environment. + +2009-08-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-use-symbol): Set nil with emacs-23 or later. + cf. [emacs-w3m:11002]. + +2009-08-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-util.el (w3m-puny-decode-url): Decode the part of hostname only. + Add doc-strings. + (w3m-puny-encode-url): Add doc-strings. + +2009-08-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-puny-utf-16be): New variable. + (w3m-url-readable-string): Call `w3m-puny-decode-url'. + (w3m-url-transfer-encode-string): Call `w3m-puny-encode-url'. + (w3m-header-line-insert): Call `w3m-puny-decode-url'. + (w3m-input-url): Call `w3m-puny-decode-url' for initial URL. + + * w3m-util.el (top): Add the variable definition of `w3m-puny-utf-16be' + to avoid byte-compile warnings. + (w3m-puny-code-regex, w3m-puny-code-nonascii, w3m-puny-base) + (w3m-puny-tmin, w3m-puny-tmax, w3m-puny-damp, w3m-puny-skew) + (w3m-puny-initial-bias, w3m-puny-initial-n, w3m-puny-delimiter): New + constants. + (w3m-puny-adapt, w3m-puny-decode-digit, w3m-puny-encode-digit) + (w3m-puny-decode1, w3m-puny-decode, w3m-puny-decode-url) + (w3m-puny-encode1, w3m-puny-encode, w3m-puny-encode-url): New + functions. + +2009-08-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-decode-anchor-string): Convert contol-characters to + space. + +2009-07-17 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-about-retrieve): When type is `nil', decode cached + contents to display source of 404 page. Reported by Dan Jacobson + <jidanni@jidanni.org>. + (w3m-do-cleanup-temp-files): New customize variable. + (w3m-cleanup-temp-files): Use it. + (toplevel): Call it when emacs-w3m shutdown. + +2009-07-04 Naohiro Aota <naota@elisp.net> + + * w3m-search.el (w3m-search-thing-at-point-arg): New variable. + (w3m-search-read-query): Use it. + + * w3m-util.el (w3m-current-title): Set title to "<retrieving>>" when + w3m is retrieving a page. + +2009-06-13 Kevin Ryde <user42@zip.com.au> + + * w3m.el (w3m-view-recenter): Only nil,t,integer, not a cons. + (w3m-search-name-anchor, w3m-view-this-url-1): No arg to w3m-recenter. + (w3m-next-anchor, w3m-previous-anchor, w3m-next-form, + w3m-previous-form, w3m-next-image, w3m-previous-image): Don't + recenter, leave recentering just for following a link, not Tab etc + within the buffer. + (w3m-recenter): Remove NAME arg, believe don't need to differentiate + URLs with an anchor or not since with no anchor `point' is at the + start of the buffer and can't be recentered anyway. + Use C-u style "(recenter '(4))" for the `t' middle-of-screen case. + No need for code to avoid redisplay, `recenter' doesn't redisplay in + the integer or C-u cases. + +2009-06-13 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-fontify-anchors): Decode entities of name anchor. + +2009-05-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-cache-available-p): Analyze the cache-control header more + strictly. + (w3m-scroll-up-or-next-url): Bind w3m-prefer-cache to `t' when goto + the w3m-next-url. + (w3m-scroll-down-or-previous-url): Bind w3m-prefer-cache to `t' when + goto the w3m-previous-url. + +2009-05-23 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-reload-this-page): Add new argument `no-popup'; Call + w3m-goto-url() with the argument. + (w3m-goto-url-with-timer): Use it. + +2009-04-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bookmark.el (w3m-bookmark-make-item) + * w3m-cookie.el (w3m-cookie-create) + * w3m-dtree.el (w3m-dtree-expand-file-name, w3m-dtree-directory-name) + * w3m-form.el (w3m-form-normalize-action, w3m-form-p) + (w3m-form-set-method, w3m-form-put-property, w3m-form-field-parse) + (w3m-form-real-reset) + * w3m-hist.el (w3m-history-set-current) + * w3m-namazu.el (w3m-namazu-call-process) + * w3m-proc.el (w3m-process-p, w3m-process-kill-process) + (w3m-process-error-handler) + * w3m-session.el (w3m-session-history-to-save, w3m-session-make-item) + * w3m-tabmenu.el (w3m-tab-menubar-make-items-1) + * w3m-util.el (w3m-get-buffer-create, w3m-kill-buffer) + (w3m-current-title, w3m-buffer-title, w3m-buffer-number) + (w3m-buffer-set-number, w3m-buffer-name-add-title) + (w3m-generate-new-buffer, w3m-lefttab-exist-p, w3m-righttab-exist-p) + (w3m-url-valid, w3m-time-newer-p, w3m-time-lapse-seconds) + (w3m-url-local-p, w3m-url-authinfo, w3m-url-strip-authinfo) + (w3m-url-strip-fragment, w3m-url-strip-query, w3m-which-command) + (w3m-assoc-ignore-case, w3m-unseen-buffer-p) + * w3m-xmas.el (w3m-make-glyph) + * w3m.el (w3m-clear-local-variables, w3m-copy-local-variables) + (w3m-arrived-p, w3m-arrived-put, w3m-arrived-get) + (w3m-url-transfer-encode-string, w3m-entity-value) + (w3m-decode-anchor-string, w3m-toggle-inline-images-internal) + (w3m-canonicalize-url, w3m-cache-header-delete-variable-part) + (w3m-w3m-canonicalize-url, w3m-view-this-url-1) + * mime-w3m.el (mime-w3m-setup): Don't use defsubst. + + * w3m-hist.el (w3m-history-plist-put, w3m-history-remove-properties): + Don't inline w3m-history-add-properties. + +2009-04-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-cache-available-p): Work around too large integer in + Cache-Control header. + +2009-04-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-to-file-name): Fix regexp used for stripping + localhost part; make url a Tramp name if it is guessed. + +2009-04-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-to-file-name): Allow "file:/foo.html" in addition to + "file://foo.html" and "file:///foo.html". + +2009-04-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bookmark.el (w3m-bookmark-buffer): Use the time 0 as modtime of + the bookmark buffer by default. + +2009-04-22 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-this-url-1): Pass url to sentinel. + (w3m-recenter): Save excursion. + +2009-04-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-recenter): New user option. + (w3m-recenter): New function. + (w3m-search-name-anchor, w3m-view-this-url-1, w3m-next-anchor) + (w3m-previous-anchor, w3m-next-form, w3m-previous-form, w3m-next-image) + (w3m-previous-image): Use it. + +2009-04-20 Kevin Ryde <user42@zip.com.au> + + * w3m.el (w3m-local-find-file-regexps): Make regexp-opt group regexps + explicitly. + +2009-04-14 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-cache-available-p): The control of expire is added. + (w3m-w3m-retrieve-1): The case where the option "no_cache=1" is put has + been increased. + +2009-04-12 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-select-buffer-delete-buffer, w3m-goto-url) + (w3m-delete-buffers): Unqueue image retrieving process manually. + (w3m-idle-images-show): Widen narrowing. + + * w3m-proc.el (w3m-process-stop): Don't unqueue image retrieving + process. + + * w3m.el (w3m-message-silent): New variable. + (w3m-message): Use it: when the variable is `t', don't show a message. + (w3m-idle-images-show): Use it. + (w3m-w3m-dump-head): lexical-let it. + (w3m-w3m-dump-extra): Ditto. + (w3m-w3m-retrieve): Ditto. + (w3m-retrieve-and-render): Ditto. + (w3m-refresh-minimum-interval): New variable. + (w3m-check-refresh-attribute): Use it. + (w3m-view-previous-page): When visiting pages by history-back or + history-next, don't just ignore refresh, but wait for a while. + (w3m-idle-images-show): When there are events pended, re-create the + idle timer; Check current position's item every time loop starts. + (w3m-idle-images-show-unqueue): Set w3m-idle-images-show-timer + properly. + (w3m-arrived-add): Revert recent changes. + + * w3m-favicon.el (w3m-favicon-retrieve): lexical-let w3m-message-silent. + +2009-04-02 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-arrived-add): If url has a multi-byte character, do not + do recursive-call itself. If decoded url does not have a multi-byte + character, do not do recursive-call itself. + +2009-03-28 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-goto-url-with-timer): When going to the same url, use + `w3m-reload-this-page'. + (w3m-image-no-idle-timer): New variable. + (w3m-toggle-inline-images-internal): Use it. + (w3m-arrived-add): Add also decoded url. + (w3m-goto-url): Restore forms also when url is local. + +2009-03-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-link-menu): Always provide title string. Suggested by + David Abrahams <dave@boostpro.com>. + Cf. <URL:http://news.gmane.org/group/gmane.emacs.w3m/thread=8126>. + +2009-03-17 Victor Ren <victor.ren@ericsson.com> + + * w3m.el (w3m-url-to-file-name): Support "file://c:/" in addition to + "file:///c:/". + +2009-03-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-w3m-parse-header): The value of w3m-document-charset is + not used excluding x-moe-internal. + +2009-03-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-decode-buffer): If context-charset is x-moe-internal, + x-moe-internal is used as charset regardless of w3m-type. + (w3m-w3m-parse-header): Add w3m-document-charset to handle of the + headers. If w3m-document-charset is x-moe-internal, charset sets to + x-moe-internal compulsorily. If x-w3m-content-encoding is exist, the + value of x-w3m-content-encoding is used as encoding method regardless + of w3m-type. + +2009-03-03 Naohiro Aota <naota@elisp.net> + + * w3m-hist.el (w3m-history-slimmed-history-flat, w3m-history-slim): New + functions. + + * w3m-session.el (w3m-session-history-to-save): Use it. + +2009-02-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Require w3m-session instead of autoloading it. + + * w3m-session.el: Don't require w3m; require w3m-util; silent warnings. + (w3m-session-select): Use w3m-get-buffer-create instead of + get-buffer-create to kill the session select buffer when quitting. + + * w3m-util.el (w3m-delete-frames-and-windows): Delete frames if the + other windows visit buffers being related to emacs-w3m or the session + select buffer. + (w3m-replace-in-string): eval-and-compile. + +2009-02-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Autoload w3m-go-to-linknum. + (w3m-lynx-like-map, w3m-info-like-map): Bind `C-c C-l' to it. + (w3m-mode): Mention w3m-go-to-linknum in doc string. + + * w3m-util.el (w3m-read-number): New function. + + * w3m-lnum.el (w3m-go-to-linknum): Use w3m-read-number. + +2008-04-12 Jose A. Ortega Ruiz <jao@gnu.org> + + * w3m-lnum.el (w3m-go-to-linknum): New function. + +2009-02-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-session.el (w3m-session-ignore-errors): New macro. + (w3m-session-save, w3m-session-automatic-save) + (w3m-session-deleted-save, w3m-session-crash-recovery-save) + (w3m-session-crash-recovery-remove, w3m-session-select-mode) + (w3m-session-select, w3m-session-make-menu-items) + (w3m-session-last-autosave-session, w3m-session-last-crashed-session): + Use it. + + (toplevel): Require cl when compiling. + (w3m-session-crash-recovery-save) + (w3m-session-select-list-all-sessions): Remove unused variables. + +2009-02-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-session.el (w3m-session-last-crashed-session): Fix tiny typo. + +2009-02-15 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-idle-images-show): If detect deleted buffer, unqueue + processes related to the buffer. + + * w3m-session.el (w3m-session-crash-recovery): Change the default to t. + +2009-02-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-buffer-setup): Add keymap that cycles buffers as usual to + mode-line-buffer-identification. + +2009-02-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bookmark.el (w3m-bookmark-view, w3m-bookmark-view-new-session) + (w3m-bookmark-make-menu-items): Check if bookmark file exists. + +2009-02-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-header-line-insert): Don't decode url containing + non-ASCII characters already. e.g. about://weather/WHERE + +2009-02-03 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-cid-retrieve): Remove a wrong set-buffer(). + +2009-02-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-input-url): Offer decoded url in the minibuffer. + (w3m-copy-buffer): Copy w3m-current-coding-system. + (w3m-header-line-insert): Display decoded url. + +2009-02-02 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-idle-images-show): Change the order of image retrieving. + (w3m-toggle-inline-images-internal): Use `w3m-idle-image-item' + text-property. + (w3m-goto-url): Add new argument `no-popup'. + (w3m-goto-url-with-timer): Call w3m-goto-url with `no-popup' nil. + +2009-02-01 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-toggle-inline-images-internal): Add new argument + `safe-regexp'. + (w3m-toggle-inline-images): Pass `safe-regexp' to + w3m-toggle-inline-images-internal when called non-interactively. + +2009-01-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-proc.el: Autoload w3m-idle-images-show-unqueue when compiling. + +2009-01-27 Naohiro Aota <naota@elisp.net> + + * w3m-proc.el (w3m-process-stop): Call `w3m-idle-images-show-unqueue'. + + * w3m.el (w3m-idle-images-show-timer, w3m-idle-images-show-list) + (w3m-idle-images-show-interval): New variables. + (w3m-idle-images-show, w3m-idle-images-show-unqueue): New functions. + (w3m-toggle-inline-images-internal): Use them. + +2009-01-26 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-content-type-alist): Add "application/x-pdf" content + type. + +2009-01-21 Kevin Ryde <user42@zip.com.au> + + * w3m.el (w3m-search-name-anchor): Return true meaning "found" if + point is already at the anchor position. + +2009-01-21 Naohiro Aota <naota@elisp.net> + + * w3m-session.el (w3m-session-last-autosave-session): Check if + autosaved sessions set exists before asking whether to load the last + sessions set; Search older sessions sets when the last sessions set + doesn't exist (maybe it is removed by user); Load autosaved sessions + set when w3m-session-load-last-sessions is non-nil. + (w3m-session-load-last-sessions): Fix docstring; Change `auto' to `t'. + (w3m-session-crash-recovery-title): New variable. + (w3m-session-load-crashed-sessions): Ditto. + (w3m-session-crash-recovery-save): New function. + + * w3m.el (w3m-goto-url): Save sessions set for crash recovering. + (w3m-delete-buffer): Ditto. + (w3m): Load crashed sessions if necessary. Suggested by Samuel Wales + <samologist@gmail.com>. + +2009-01-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify-anchors): Use new `w3m-balloon-help' + text-property for balloon help. + (w3m-fontify-images): Ditto and create help together href, alt and URL + of image. + +2009-01-19 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-image-anchor): Fix docstring. + (toplevel): Fix w3m-image-anchor-face's alias. + +2009-01-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify-images): Put the 'full alt text' on new + 'w3m-image-alt' property. + (w3m-print-this-url): Print the content of 'w3m-image-alt'. + + * w3m-util.el (w3m-image-alt): New macro. + +2009-01-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/Makefile.in (.texi.info): Use --no-split. + +2009-01-11 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m): Move last session restoring asking afterward, so that + the restoring wouldn't be avoided by w3m-input-url's input. + + * w3m-session.el (w3m-session-last-autosave-session): Follow the above + change. + +2009-01-10 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m): Check whether to load the last autosaved + sessions. Suggested by Samuel Wales <samologist@gmail.com>. + + * w3m-session.el (w3m-session-automatic-keep-number): New variable. + Suggested by Samuel Wales <samologist@gmail.com>. + (w3m-session-automatic-save): Use it. + (w3m-session-last-autosave-session): New function. + (w3m-session-load-last-sessions): New variable. + + * w3m.el (w3m-image-anchor): New face. + (w3m-fontify-images): Use it. + +2009-01-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-language): Allow the value like "Japanese (UTF-8)" of + current-language-environment. + + * w3m-symbol.el (w3m-symbol): Ditto. + + * w3mhack.el (w3mhack-makeinfo): Use locale-coding-system for Emacs to + encode Japanese messages. + +2009-01-09 Naohiro Aota <naota@elisp.net> + + * w3m.el (w3m-create-text-page, w3m-goto-url): Check if the url is + arrived before getting real-url. + +2009-01-06 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (top): Add the variable definitions of + `w3m-tab-menubar-make-items-preitems' and `w3m-session-menu-items-pre' + to avoid byte-compile warnings. + (w3m-setup-menu): Move the postion of session menu. + (w3m-mouse-major-mode-menu): Add session menu. + + * w3m-xmas.el (autoload): Add w3m-setup-session-menu. + (w3m-menu-on-forefront): Treat "Session" menu. + (w3m-setup-menu): Call `w3m-setup-session-menu'. + +2008-12-30 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-select-buffer-mode-map): Bind `w3m-select-buffer-quit' to + C-g. + + * w3m-session.el (w3m-session-select-mode-map): Bind + `w3m-session-select-quit' to C-g. + + * w3m-form.el (w3m-form-input-select-keymap): Bind + `w3m-form-input-select-keymap' to C-g. + (w3m-form-input-map-keymap): Bind `w3m-form-input-map-exit' to C-g. + +2008-12-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-session.el (w3m-session-select-mode-map): Add new key. + (w3m-session-select-mode): Modify doc-string. + (w3m-session-select-rename): New command. + (w3m-session-rename): New function. + +2008-12-17 Naohiro Aota <naota@elisp.net> + + * w3m.el (autoload): Add w3m-setup-session-menu. + (w3m-menubar): Moved session menu to w3m-session-menu-items. + (top): Call w3m-setup-session-menu. + + * w3m-session.el: Change to use major mode; Add session menu. + (w3m-session-unknown-title): New option. + +2008-12-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-compatible-encoding-alist): Add (gb2312 . gbk). + +2008-12-12 David Engster <dengste@eml.cc> + + * w3m-proc.el (w3m-process-wait-process): Reduce sit-for time. + (w3m-process-sentinel): Wait for process output (on Emacs only). + +2008-12-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-show-redirection-error-information): Improve the + error message. + +2008-12-10 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-next-anchor): Go to the first anchor when next + anchor is not found. + (w3m-previous-anchor): Go to the last anchor when previous anchor + is not found. + (w3m-url-encode-string): Encode SPC only when encode-space is + non-nil. + + * w3m-form.el (w3m-form-make-form-data): Follow the above change. + + * w3m.el (w3m-gmane-url-at-point): Ditto. + (w3m-canonicalize-url): Ditto. + +2008-12-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el (w3m-make-ccl-coding-system): Use define-coding-system if + it is available. + +2008-12-06 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-show-redirection-error-information): New function. + (w3m-retrieve-and-render): Use it. + (w3m-w3m-retrieve-1): Return 'redirection-exceeded if redirect counter + exceeded. + (w3m-w3m-retrieve): Return "X-w3m-error/redirection" if attr eq + 'redirection-exceeded. + (w3m-w3m-attributes-1): Return dummy attribute if redirect counter + exceeded. + +2008-12-05 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-same-window-p): New function. + (w3m-form-input-textarea): Use it. + + * w3m.el (w3m-local-find-file-regexps): Try to open with emacs-w3m as + many types as possible. + +2008-12-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify): Remove hidden anchors like "<a href=url> </a>". + cf. [emacs-w3m:10484] + +2008-12-01 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-input-textarea): Use the whole current window + for the textarea when `same-window-buffer-names' contains the buffer + name "*w3m form textarea*"; simplify the window size calculation. + +2008-11-21 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-w3m-parse-header): Also remove parameters when charset is + specified. + +2008-11-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-visited-file-modtime): New function. + + * w3m-bookmark.el (w3m-bookmark-file-modtime): Just return result of + file-attributes(). + +2008-11-11 Naohiro Aota <nao.aota@gmail.com> + + * w3m-antenna.el (w3m-antenna-check-rss): Support RSS2.0. Check also + items. + (w3m-antenna-alist): Update site-class if needed. + + * w3m-bookmark.el (w3m-bookmark-buffer, w3m-bookmark-verify-modtime): + Replace visited-file-modtime with w3m-visited-file-modtime. + +2008-10-28 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-view-header): Check if current page is source of + about:something. + +2008-10-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-active-region-or-url-at-point): Take notice of the link + under the point as well; return the url of the current page by default + if the new optional argument `default=current' is given. + (w3m-input-url): Make w3m-active-region-or-url-at-point return the url + of the current page by default; modify the prompt string according to + whether there is an initial input. + (w3m-download, w3m-goto-url, w3m-goto-url-new-session): Simplify args + passed to w3m-input-url. + (w3m-view-this-url): Make w3m-active-region-or-url-at-point return the + url of the current page by default. + +2008-10-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-italic): Make it be a underline face on a non-window + system by default. + +2008-09-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-toggle-inline-images-internal) + (w3m-resize-inline-image-internal): Confirm whether to retrieve + insecure image only once, or don't confirm it if + w3m-confirm-leaving-secure-page is nil. Suggested by Dan Jacobson + <jidanni@jidanni.org>. + (w3m-confirm-leaving-secure-page): Doc fix. + + * w3mhack.el (w3mhack-makeinfo): Remove Emacs 19 stuff; remove TeX + directives first; don't call texinfo-mode. + +2008-09-21 Akinori MUSHA <knu@iDaemons.org> + + * doc/emacs-w3m.texi (Image Variables): Fix syntax error. + + * doc/emacs-w3m-ja.texi (Image Variables): Ditto. + +2008-09-17 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-buffer-local-url): New constant variable. + (w3m-buffer-local-url-p): New function. + (w3m-goto-url): Also process buffer local url. + (w3m-region): Use w3m-buffer-local-url as url if it is not set. + (w3m-safe-view-this-url, w3m-mouse-safe-view-this-url): Check if url is + buffer local. + +2008-09-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-download): Add doc string. + (w3m-lynx-like-map): Bind M-d key to w3m-download. + (w3m-mode): Add w3m-download to major mode info; clarify description of + w3m-download-this-url. + +2008-09-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-gmane-url-at-point): Return a url used for asking Gmane + for the thread that begins with the current article instead of the + whole thread if it is run on the Message-ID header. + (w3m-examine-command-line-args): Make it an alias to `(lambda nil)' + instead of `ignore' after it is run for the first time in order to + silence the byte compiler. + +2008-09-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-use-favicon): Assume w3m-image.elc is always loaded. + (w3m-resize-inline-image-internal): Change it to a normal function from + an inline function; remove interactive. + (w3m-zoom-in-image, w3m-zoom-out-image): Error if ImageMagick's convert + program is not available; improve doc string. + (w3m-auto-show): Don't make the cursor position disappear after + executing beginning-of-buffer and end-of-buffer. + +2008-08-25 David Hansen <david.hansen@gmx.net> + + * w3m.el (w3m-about-header): Fixed typo. + +2008-08-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-source, w3m-view-header): Save points positioned + last in pages. Suggested by Dan Jacobson <jidanni@jidanni.org>. + +2008-07-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el: Bind w3m-image-default-background when compiling. + +2008-07-20 Naohiro Aota <nao.aota@gmail.com> + + * w3m-hist.el (w3m-history-restore-position): Run + w3m-after-cursor-move-hook after restoring cursor position. + +2008-07-18 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-image-default-background): New variable. + + * w3m-ems.el (w3m-create-image): Use it. + (w3m-initialize-graphic-icons): Check if xpm is available. Reported by + Diego 'Flameeyes' Petten,Ar(B <flameeyes@gmail.com>. + + * w3m-filter.el (w3m-filter-wikipedia): Improve regexp. + +2008-07-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-engine-alist): Test if mule-version is + bound (XEmacs does not provide it). + +2008-06-30 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-input, w3m-form-input-password): Process + readonly attribute. + +2008-06-25 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-toggle-inline-images-internal): Make it non-interactive. + + * w3m-form.el (w3m-form-input-textarea): Make buffer unmodified when + user selected to reuse saved text; parse readonly attribute; kill newly + generated buffer when the reusing question aborted. + (w3m-form-textarea-info): Also provide readonly info. + (w3m-fontify-textareas): Parse readonly attribute. + (w3m-form-parse-and-fontify): Ditto. + (w3m-form-input): Ignore cursor moving while read from minibuffer. + (w3m-form-input-password): Ditto. + (w3m-form-input-file): Ditto. + + * w3m.el (w3m-toggle-inline-image): Don't toggle images that are + outside of the region even if they are identical to the ones in the + region; don't do recursive call of itself; rearrange the source code. + (w3m-toggle-inline-images): Check whether images are safe even if it is + called with w3m-display-inline-images=t and force=t; rearrange the + source code. + (w3m-toggle-inline-images-internal): Add new optional argument: + `begin-pos' and `end-pos'. Only process region from `begin-pos' to + `end-pos'. + +2008-06-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-toggle-inline-image): Work for an image in which there is + the region end within its anchor. Reported by Dan Jacobson + <jidanni@jidanni.org>. + + * w3m-util.el (w3m-deactivate-region): Use zmacs-deactivate-region for + XEmacs. + +2008-06-22 Naohiro Aota <nao.aota@gmail.com> + + * w3m-search.el (w3m-search-engine-alist): Improve detection of utf-8 + capability. + (w3m-search-engine-alist): Abolish `yahoo beta' entry; Improve `blog' + entry to work like `google' entry. + + * w3m-session.el: Add coding cookie. + +2008-06-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-submit-form-safety-check): New user option. Suggested by + Dan Jacobson <jidanni@jidanni.org>. + (w3m-submit-form): Use it. + +2008-06-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-auto-show): Scrool horizontally after executing a search + command. + +2008-06-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-use-header-line-title): Modify the doc-string. + +2008-06-06 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-select-buffer): Don't delete other windows. + + * w3m-filter.el (w3m-filter-wikipedia): New function. + (w3m-filter-rules): Add w3m-filter-wikipedia. + +2008-06-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Add coding cookie. + +2008-06-02 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-detect-meta-charset): Use also ';' as delimiter. + +2008-05-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-examine-command-line-args): Treat the null string given + as a url in the command line args as `w3m-home-page' or "about:". + +2008-05-28 Naohiro Aota <nao.aota@gmail.com> + + * doc/emacs-w3m.texi (Inline Images): Update. + + * doc/emacs-w3m-ja.texi (Inline Images): Ditto. + +2008-05-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-readable-string): Don't decode url if it looks not to + have been encoded. + (w3m-current-longest-line): New variable. + (w3m-set-current-longest-line): New function. + (w3m-scroll-left, w3m-shift-left): Don't scroll the window endlessly; + beep if the window can't be scrolled any more. + (w3m-scroll-right, w3m-shift-right): Beep if the window can't be + scrolled any more. + +2008-05-25 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-relationship-estimate-rules): Fix regexp for Google + search within EmacsWiki. + +2008-05-20 Naohiro Aota <nao.aota@gmail.com> + + * README: Add information about how to create `configure' script. + + * README.ja: Ditto. + + * w3m.el (w3m-goto-url): Delayed encoding of fragment part. + +2008-05-18 Naohiro Aota <nao.aota@gmail.com> + + * w3m-cookie.el (w3m-cookie-save-current-site-cookies): New function. + (w3m-cookie-save): Add optional argument "domain". + +2008-05-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-add-text-properties): New inline macro. + (mew-w3m-view-inline-image): Use `mew-w3m-add-text-properties'. + (mew-mime-text/html-w3m): Ditto. + +2008-05-09 Naohiro Aota <nao.aota@gmail.com> + + * w3m-cookie.el (w3m-cookie-save): Make it interactive function. + (w3m-cookie-save-cookies): New variable. + (w3m-cookie-shutdown): Use it. + + * w3m.el (toplevel): Shutdown cookie system when exiting emacs. + +2008-05-08 Naohiro Aota <nao.aota@gmail.com> + + * w3m-cookie.el (w3m-cookie-shutdown): Fixed docstring. + +2008-05-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-filter.el (w3m-filter-amazon): Fix string to search the body. + +2008-04-30 Naohiro Aota <nao.aota@gmail.com> + + * doc/emacs-w3m-ja.texi: Update translation. + + * w3m.el (w3m-goto-url): Use w3m-current-coding-system first to encode + url if available; Also encode name part when url is local. + (w3m-ignored-image-url-regexp): New variable. + (w3m-toggle-inline-images-internal): Don't display image whose url + match `w3m-ignored-image-url-regexp'. + (w3m-decode-entities, w3m-decode-entities-string): Replace + "(match-beginning 2)" with "(match-end 1)" to deal with emacs-21's + strange behavior. + +2008-04-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-filter.el (w3m-filter-rules): Support Mixi with SSL. + +2008-04-22 TAKAHASHI Kaoru <kaoru@kaisei.org> + + * doc/ptexinfmt.el: Fix Comments. + (texinfo-format-geq, texinfo-format-leq,): Support @geq and @leq. + +2008-04-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-filter.el (w3m-filter-rules): Add rule for the site of Allatanys. + (w3m-filter-allatanys): New function. + + * w3m.el (w3m-relationship-estimate-rules): Fix regexp for Google + search within EmacsWiki. Add rule for Google Mobile Proxy. + +2008-04-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (top): Add the variables definition of `w3m-bookmark-mode', + `w3m-bookmark-menu-items', `w3m-bookmark-menu-items-pre' and + `w3m-tab-menubar-make-items-preitems' avoid byte-compile warnings. + (w3m-rmouse-menubar): New user option. + (w3m-setup-menu): Add the setup of `w3m-rmouse-menubar'. + (w3m-mouse-major-mode-menu): Rewrite to use `w3m-rmouse-menubar'. + (w3m-link-menu): Add `w3m-external-view-this-url'. + +2008-04-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-turnoff-inline-images): New command. + (w3m-toggle-inline-images): If force is 'turnoff, turn off to display + images. + (w3m-menubar): Add w3m-turnoff-inline-images. + (w3m-lynx-like-map): Ditto. + (w3m-info-like-map): Ditto. + (w3m-mode): Ditto. + +2008-04-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-relationship-estimate-rules): Fix custom type. + +2008-04-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-relationship-estimate-rules): Support Google search + within EmacsWiki. cf. [emacs-w3m:10067] + +2008-03-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-mouse-safe-view-this-url): Remove redundant confirmation + of whether to follow link. + +2008-03-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-doc-view-content-types): New variable. + (w3m-doc-view): New function. + (w3m-create-page): Use it. + (w3m-content-type-alist): Add application/dvi. + (w3m-delete-buffer): Save windows layout. + +2008-03-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-image.el (w3m-imagick-convert-program-available-p): Don't use + w3m-imagick-convert-data which may issue a warning when checking + whether the convert program supports png32. cf. [emacs-w3m:10048] + +2008-03-03 Naohiro Aota <nao.aota@gmail.com> + + * doc/emacs-w3m.texi (Inline Images): Updated. + + * doc/emacs-w3m-ja.texi (Inline Images): Ditto. + + * w3m.el (w3m-toggle-inline-images): Only toggle in the region if + Transient Mark mode. + (w3m-toggle-inline-image): Ditto. + +2008-02-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-arrived-intern): Protect against null string. It enables + url completion even for null string. Suggested by Aota-san. + +2008-02-07 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-expand-path-name): New function. + (w3m-expand-url): Remove useless expanded path-name check. + +2008-02-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (install-lisp, install-icons, install-icons30): Quote + directory name that might contain whitespace. + + * doc/Makefile.in (install): Ditto. + + * aclocal.m4 (AC_PATH_LISPDIR): Ditto; always report prefix name. + + * mkinstalldirs: Replace it with the 2006-05-11.19 version. + +2008-01-30 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-fontify-anchors): Don't expand icon's url when it is nil. + +2008-01-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-safe-url-regexp): Add note to doc string. + (w3m-fontify): Hold the value of w3m-safe-url-regexp with the + w3m-safe-url-regexp text-property. + (w3m-toggle-inline-image, w3m-toggle-inline-images) + (w3m-safe-view-this-url, w3m-mouse-safe-view-this-url): Check whether + url is safe by comparing it with the value of the w3m-safe-url-regexp + text property; prompt a user to confirm whether to proceed. + (w3m-safe-toggle-inline-image, w3m-safe-toggle-inline-images): Abolish. + (w3m-minor-mode-command-alist): Map w3m-toggle-inline-image and + w3m-toggle-inline-images to themselves. + +2008-01-20 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-search-name-anchor): Accept and optional argument + `no-record'. + (w3m-goto-url): Going other page's anchor, call + `w3m-search-name-anchor' with 3rd argument t. + +2008-01-16 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-input-textarea-coding-system): Revert. + (w3m-form-input-textarea): Set w3m-form-input-textarea-coding-system to + use in w3m-form-coding-system-accept-region-p. + +2008-01-15 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-textarea-file-coding-system): New variable. + (w3m-form-input-textarea-save): Use it. + (w3m-form-input-textarea): Ditto. + (w3m-form-input-textarea-coding-system): Abolish. + +2008-01-11 Naohiro Aota <nao.aota@gmail.com> + + * w3m-filter.el (w3m-filter-iframe): New function. + (w3m-filter-rules): Add rule for inserting link to the url iframe + displays. + +2008-01-09 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-coding-system-accept-region-p): Abolish. + + * w3m-ems.el (w3m-form-coding-system-accept-region-p): Use + select-safe-coding-system if unencodable-char-position is not + available. + + * w3m-xmas.el (w3m-form-coding-system-accept-region-p): Use + decode-coding-string and encode-coding-string instead of + unencodable-char-position; Only warn coding-system problem. + +2008-01-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-decode-string): Don't replace +'s with spaces. + +2007-12-27 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-coding-system-accept-region-p): New function. + (w3m-form-input-textarea-save, w3m-form-input-textarea-set): Use it. + +2007-12-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-session.el (w3m-session-goto-session): Go to the current w3m + buffer in data of session. + +2007-12-24 Naohiro Aota <nao.aota@gmail.com> + + * w3m-session.el (w3m-session-history-to-save): New function. + (w3m-session-save): Also record history data. + (w3m-session-automatic-save, w3m-session-deleted-save): Ditto. + (w3m-session-select): Follow the format change. + (w3m-session-goto-session): Also restore history data. + +2007-12-23 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-tabmenu.el (w3m-tab-menubar-force-update): New function. + (top): Register `w3m-tab-menubar-force-update' to + `w3m-display-functions'. + +2007-12-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-lynx-like-map): Bind `w3m-move-unseen-buffer'. + (w3m-info-like-map): Ditto. + (w3m-buffer-unseen): New buffer local variable. + (w3m-set-buffer-unseen): New function. + (w3m-set-buffer-seen): Ditto. + (w3m-move-unseen-buffer): Ditto. + (w3m-remove-local-hook): Ditto. + (w3m-goto-url): Set buffer to unseen. + (w3m-select-buffer-generate-contents): Support `unseen'. + + * w3m-util.el (top): Add the variable definition of `w3m-buffer-unseen' + to avoid byte-compile warnings. + (w3m-unseen-buffer-p): New inline macro. + + * w3m-tabmenu.el (w3m-tab-menubar-make-items-1): Support `unseen'. + + * w3m-ems.el (w3m-remove-local-hook): New function. + (w3m-tab-unselected-unseen): New face. + (w3m-tab-line): Support `unseen'. + +2007-12-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-mode): Set show-trailing-whitespace to nil. + +2007-12-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el (w3m-favicon-default-background): New user option. + (w3m-favicon-set-image): Don't set background color of favicon here. + (w3m-favicon-convert): Set the background color of favicon according to + w3m-favicon-default-background. + + * w3m-ems.el (w3m-tab-line): Don't set the background color of favicon + here. + + * w3m-image.el (w3m-imagick-identify-program): New user option. + +2007-12-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-kill-stray-processes): Do not kill + process when the buffer associated to it is alive. + (w3m-process-sentinel): Do not call a handler when its parent + buffer have been killed. + +2007-12-15 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-submit): Remove query part from the form's + action url when using get method. + +2007-12-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el (w3m-favicon-size): Change the value form into + the cons of WIDTH and HEIGHT. + (w3m-favicon-convert-args): New user option. + (w3m-favicon-convert): Pass it to convert. + + * w3m-ems.el (w3m-tab-mouse-track-selected-tab): Follow change of + w3m-favicon-size. + +2007-12-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el (w3m-tab-line): Set the background color of favicon + for Emacs 22+. + + * w3m-favicon.el (w3m-favicon-set-image): Ditto. + + * w3m-image.el (w3m-imagick-convert-program-available-p): Check + whether the convert program supports the image type png32 for + Emacs 22+. + (w3m-imagick-convert-buffer, w3m-imagick-start-convert-buffer): + Use png32 if it is available. + +2007-12-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el (w3m-favicon-convert): Make last change revert. + +2007-12-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el (w3m-favicon-convert): Apply the background color + of header line or mode line to pixels of which the color is + transparent. + +2007-12-06 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-goto-url): Canonicalize the url when it is called + non-interactively. + +2007-12-01 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-name-anchor-from-hist): New buffer-local variable. + (w3m-clear-local-variables): Also clear w3m-name-anchor-from-hist. + (w3m-goto-url): Save and restoe w3m-name-anchor-from-hist. + (w3m-search-name-anchor): Record (point)s of before and after + following a name-anchor. + (w3m-view-previous-page): If possible, move back the cursor to the + point where it was before following name-anchors. + +2007-11-30 Naohiro Aota <nao.aota@gmail.com> + + * w3m-proc.el (w3m-process-y-or-n-p): Ignore space to avoid + answering y without intention. + +2007-11-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url-new-session): Use + w3m-active-region-or-url-at-point. Reported by Naohiro Aota. + + * w3m-ems.el (w3m-create-image): Don't modify case-fold-search. + + * w3m-xmas.el (w3m-create-image): Ditto; parse image data to + identify its type in the beginning position. + +2007-11-29 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-w3m-dump-extra, w3m-w3m-retrieve): Removed image + data type tests. + + * w3m-xmas.el (w3m-create-image): Parse image data first, use + server's content-type when it failed to identify type. + + * w3m-ems.el (w3m-create-image): Ditto. + +2007-11-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-engine-alist): Fix google news entry. + + * w3m-ems.el (w3m-create-image): Parse image data if it failed in + identifying type. + + * w3m-xmas.el (w3m-create-image): Ditto. + +2007-11-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-resize-inline-image-internal): Validate image url. + Reported by Naohiro Aota <nao.aota@gmail.com>. + +2007-11-27 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-toggle-inline-images-internal): Confirm retrieving + non-secure image. + (w3m-resize-inline-image-internal): Ditto. + +2007-11-27 Katsumi Yamaoka <yamaoka@jpl.org>, + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-retrieve-and-render): Permit leaving safe pages + without confirmation for several safe commands. + +2007-11-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-symbol.el: Autoload w3m-mule-unicode-p when compiling. + + * w3m-proc.el: Update the way to suppress compile warning for gensym. + +2007-11-26 Trent W. Buck <trentbuck@gmail.com> + + * w3m.el (w3m-confirm-leaving-secure-page): New user option. + (w3m-retrieve-and-render): Use it. + +2007-11-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-use-japanese-menu): Default to nil for XEmacs 21.4 and + SXEmacs. + (w3m-link-map): New variable. + (w3m-fontify-anchors): Add menu to links. + (w3m-read-file-name): Don't use default file name if it is "". + (w3m-link-menu): Define. + +2007-11-06 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-redisplay-with-charset): Strip first 'about://source/' + before setf w3m-arrived-content-charset. + (w3m-redisplay-and-reset): Ditto. + +2007-11-05 Naohiro Aota <nao.aota@gmail.com> + + * w3m-filter.el (w3m-filter-rules): Add rule for the site of imepita. + (w3m-filter-imepita): New function. + +2007-11-03 David Hansen <david.hansen@gmx.net> + + * w3m-proc.el (w3m-process-wait-process): Preserve the current buffer + \(work around an Emacs bug\). + +2007-11-03 David Hansen <david.hansen@gmx.net> + + * w3m.el (w3m-relationship-oddmuse-estimate): Follow new page layout. + +2007-11-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-ucs-to-char): Alias to unicode-to-char, ucs-to-char, + or int-to-char. + + * w3m-ems.el (w3m-ucs-to-char): Always define it. + + * w3m.el (w3m-ucs-to-char): Abolish. + +2007-10-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-module-list): Don't compile mew-w3m.el and + mew-shimbun.el if there is only the official Mew XEmacs package that is + extremely old. + + * w3m-proc.el: Update the way to suppress compile warning for gensym. + + * w3m-util.el (w3m-list-buffers): Check if w3m-fb-mode is bound. + + * w3m.el (w3m-copy-buffer, w3m-mouse-major-mode-menu): Remove unused + let-bound variables. + +2007-10-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (install-lisp): Don't install w3m-ems.el for XEmacs and + w3m-xmas.el for GNU Emacs. + +2007-10-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * *, doc/*: Fix expressions of the copyright notices. + + * w3mhack.el (w3mhack-makeinfo): Don't split Info file to pieces. + + * doc/emacs-w3m.texi, doc/emacs-w3m-ja.texi: Use @copying and + @insertcopying to put up the copyright notice. + (Coding convention of Shimbun): Don't use @itemx with @@multitable. + + * doc/ptexinfmt.el (texinfo-copying-text, texinfo-copying) + (texinfo-insertcopying, texinfo-format-scan): Add them for old Emacsen. + + * doc/Makefile.in (install): Remove installed *.info-[0-9] files; + install only *.info files. + (.texi.dvi): Don't specify "-l ja" to texi2dvi. + (clean): No need to remove *.info-[0-9] and *.info-[0-9][0-9] files. + +2007-10-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-find-coding-system): Return symbol, not coding + system object. + +2007-10-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-entity-regexp, w3m-entity-value): Accept case-insensitive + numeric character references. + +2007-10-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-message): Work with XEmacs. + +2007-10-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el: Bind w3m-use-title-buffer-name (see the comment). + + * Makefile.in (very-slow): Add missing semicolon. + +2007-10-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (install-lisp): Don't install ChangeLog~. + +2007-10-02 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-show-error-information): When emacs-w3m cannot find + host, set charset to us-ascii. + +2007-10-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-show-decoded-url): Add entry for nikkei.co.jp. + +2007-09-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-decode-buffer): Don't decode escaped URLs. + (w3m-toggle-inline-images-internal): Escape non-ASCII characters in the + URL of the image before retrieving it. + +2007-09-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-safe-view-this-url): When a function which is + specified by `w3m-goto-article-function' returns the + `w3m-goto-url' symbol, it falls back to emacs-w3m displaying + functions. Cf. [emacs-w3m:09660] + (w3m-goto-article-function): Its comment is updated to follow the + above change. + (w3m-entity-value, w3m-decode-entities-string): Change to save + working memory. + +2007-09-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-entity-regexp): Bind max-specpdl-size for old Emacsen. + (w3m): Revert 2007-09-19 change. + +2007-09-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * NEWS: New file. + +2007-09-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-examine-command-line-args): Don't pass negative number to + nthcdr. + + * w3m-session.el (w3m-session-save, w3m-session-select): Use mapc + instead of mapcar. + +2007-09-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Changes to stricten entities decoded by + `w3m-decode-entities'. + (w3m-entity-table, w3m-entity-reverse-table): New constants. + (w3m-entity-regexp): Stricten. + (w3m-entity-alist, w3m-entity-db, w3m-entity-db-size): Abolished. + (w3m-entity-value, w3m-decode-entities, w3m-decode-entities-string, + w3m-encode-specials-string): Rewritten to use the above constants. + +2007-09-21 TAKAHASHI Kaoru <kaoru@kaisei.org> + + * doc/ptexinfmt.el: Support @fonttextsize, @textdegree. + +2007-09-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-examine-command-line-args): Rewrite. + (w3m): Always call it; set the 2nd arg new-session when Emacs 21 or + XEmacs runs in the batch mode. + +2007-09-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-examine-command-line-args): Inhibit Emacs head from + displaying startup screen when emacs-w3m runs in the batch mode; + improve parsing of arguments. + +2007-09-13 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-expand-path-name): Save the matched data surely. + +2007-09-09 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-expand-url): Use "/" as path when it of base-uri is not + defined; Clear query of base-uri when empty query exist; Changes to + follow RFC3986. + +2007-09-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el (w3m-euc-japan-encoder, w3m-iso-latin-1-encoder): Use + mule-version to decide whether to redefine them. + + * w3m.el: Use emacs-version instead of emacs-major-version to show the + version of Emacs that emacs-w3m doesn't support. + +2007-09-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-local-file-type): Regard news:* urls as text/html. + (w3m-w3m-retrieve): Return nil if retrieving failed. + (w3m-show-error-information): Improve error message for news:* urls. + +2007-09-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_PATH_EMACS): Improve expression of Emacs version. + + * doc/ptexinfmt.el (ptexinfmt-broken-facility) + (ptexinfmt-defun-if-broken, ptexinfmt-defun-if-void) + (ptexinfmt-defvar-if-void): Don't use old-style backquotes. + (texinfo-format-cedilla-accent): Quote `,'. + + * w3m-antenna.el (w3m-antenna-site-key, w3m-antenna-site-title) + (w3m-antenna-site-class, w3m-antenna-site-url) + (w3m-antenna-site-last-modified, w3m-antenna-site-size) + (w3m-antenna-site-size-detected): Don't use old-style backquotes. + + * w3m-ccl.el (w3m-ccl-write-repeat, w3m-euc-japan-decoder) + (w3m-euc-japan-encoder, w3m-iso-latin-1-decoder) + (w3m-iso-latin-1-encoder): Don't use old-style backquotes. + + * w3m-dtree.el (w3m-dtree-has-child): Don't use old-style backquotes. + + * w3m-form.el (w3m-form-method, w3m-form-action, w3m-form-charlst) + (w3m-form-enctype, w3m-form-plist, w3m-form-get-property, w3m-form-put) + (w3m-form-get): Don't use old-style backquotes. + + * w3m-namazu.el (w3m-namazu-default-index-customize-spec): Don't use + old-style backquotes. + + * w3m-util.el (w3m-static-if, w3m-static-when, w3m-static-unless) + (w3m-condition-case, w3m-add-text-properties) + (w3m-get-text-property-around, w3m-action, w3m-anchor, w3m-image) + (w3m-submit, w3m-anchor-sequence): Don't use old-style backquotes. + + * w3m.el (w3m-dirlist-cgi-program): Don't use old-style backquotes. + + * w3mhack.el (char-before, match-string-no-properties) + (set-text-properties): Don't use old-style backquotes. + + * w3m-filter.el: Set file's coding-system to euc-japan in order to + enable non-Mule XEmacsen to byte-compile this module. + +2007-08-31 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (top): Remove unnecessary space at the line end. + (w3m-use-title-buffer-name): New option. + (w3m-copy-buffer): Use `w3m-generate-new-buffer' instead of + `generate-new-buffer'. + (w3m-pack-buffer-numbers): Call `w3m-form-set-number' with new name of + buffer. + (w3m-buffer-setup): Use `w3m-generate-new-buffer' instead of + `generate-new-buffer'. + (w3m-buffer-setup): Do not display title if w3m-use-title-buffer-name + is non-nil. + (w3m-modeline-title): Retrun "" if w3m-use-title-buffer-name is + non-nil. + (w3m-goto-url): Call `w3m-buffer-name-add-title' when display. + (w3m): Use `w3m-generate-new-buffer' instead of `generate-new-buffer'. + (w3m-use-header-line-title): New option. + + * w3m-form.el (w3m-form-set-number): Change 2'nd argument to `newname' + from `count'. + + * w3m-util.el (top): Add the variable definition of + `w3m-use-title-buffer-name' to avoid byte-compile warnings. + (w3m-buffer-number): Support the feature of buffer-name with title. + (w3m-buffer-set-number): Ditto. + (w3m-generate-new-buffer): Ditto. + (w3m-buffer-name-lessp): Ditto. + (w3m-buffer-name-add-title): New inline macro. + + * w3m-ems.el (top): Add the variable definition of + `w3m-use-header-line-title' to avoid byte-compile warnings. + (w3m-setup-header-line): If `w3m-use-header-line-title' is not nil, + display title and URI. + +2007-08-30 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-proc.el (top): Add the function definition of + `w3m-decode-coding-string-with-priority' to avoid byte-compile + warnings. + + * w3m-ems.el (top): Add the variable definition of + `w3m-default-coding-system' and `w3m-coding-system' to avoid + byte-compile warnings. + + * w3m-xmas.el (top): Add the variable definition of `w3m-coding-system' + to avoid byte-compile warnings. + +2007-08-29 Naohiro Aota <nao.aota@gmail.com> + + * w3m-proc.el (w3m-process-filter): Decode realm string. + + * w3m.el (w3m-url-decode-string): Define latter half as a function : + w3m-decode-coding-string-with-priority ,and use it. + + * w3m-ems.el (w3m-decode-coding-string-with-priority): New function. + + * w3m-xmas.el (w3m-decode-coding-string-with-priority): Return string + itself unless find-coding-system is defined as built-in function. + +2007-08-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-uri-replace-alist): Add key of "alc:". + (w3m-relationship-estimate-rules): Add alc's rule. + (w3m-relationship-alc-estimate): New function. + + * w3m-search.el (w3m-search-engine-alist): Add rule of + http://eow.alc.co.jp/. + + * w3m-filter.el (w3m-filter-rules): Add w3m-filter-alc. + (w3m-filter-alc): New function. Supper `goFairWord'. + +2007-08-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-mailto-url): Make it work even with no rfc2368.el. + +2007-08-21 Eugene Oleinik <eo@aoizora.org> + + * w3m-filter.el (w3m-filter-google-separator): New user option. + (w3m-filter-google): Replace hard-coded ones with it. + (w3m-filter): Iterate through all cases in w3m-filter-rules. + (w3m-filter-replace-regexp): New function. + +2007-08-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-detect-xml-type): New function that treats + application/xml looking like xhtml+xml as text/html. + (w3m-content-type-alist): Use it for application/xml. + (w3m-w3m-parse-header): Parse Alternates header for a real url. + (w3m-w3m-retrieve-1): Retrieve real url according to Alternates header. + (w3m-external-view): Treat xhtml+xml as html. + +2007-07-30 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el: Changes to download contents after submitting form. + (w3m-form-download): New variable. + (w3m-fontify-textareas, w3m-form-parse-and-fontify): Combine the above + variable into expressions which represent form actions. + (w3m-form-submit): Accept and optional argument `download'. + + * w3m.el: Changes to download contents after submitting form. + (w3m-download): Accept and optional argument `post-data'. + (w3m-download-this-url): `w3m-form-download' is binded locally. + (w3m-view-this-url): Ditto. + (w3m-submit-form): Ditto. + +2007-07-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ucs.el (font-ccl-encoder-alist): Bind it for XEmacs 21.5. + +2007-07-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-relationship-estimate-rules): Make Google rule support + images. + +2007-07-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-session.el (w3m-session-select, w3m-session-selected): Add spec + for dark tty. + (w3m-session-select): Use read-key-sequence rather than read-event or + next-command-event in order to enable it to read arrow keys in tty. + +2007-07-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-form-make-button): Make it work. + + * w3m-ems.el (w3m-form-make-button): Work when w3m-form-use-fancy-faces + is nil. + +2007-07-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-article-function): Change the default function into + browse-url; doc fix. + (w3m-safe-view-this-url): Catch a signal from function which is set to + w3m-goto-article-function, and don't run the default function if it is + nil. + +2007-07-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-article-function): Use defcustom; doc fix. + (w3m-safe-view-this-url): Use functionp instead of fboundp to check the + value of w3m-goto-article-function. + + * w3m-favicon.el, w3m-namazu.el, w3m-perldoc.el, w3m-xmas.el, w3m.el: + Use custom-set-default instead of set-default in defcustom forms. + +2007-07-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-make-help-echo): Make the function for Emacs bind + deactivate-mark to nil. + +2007-06-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el, w3m-form.el, w3m-lnum.el, w3m-search.el, w3m-session.el + * w3m.el: Rename w3m-FOO-face with w3m-FOO. + +2007-06-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Format @key{...}. + +2007-06-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-lynx-like-map, w3m-info-like-map): Bind [backtab] to + w3m-previous-anchor. + +2007-06-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-local-retrieve, w3m-w3m-retrieve, w3m-about-retrieve) + (w3m-cid-retrieve, w3m-data-retrieve, w3m-retrieve, w3m-about-header): + Change the term and the symbol name `no-decode' into `no-uncompress'. + +2007-06-08 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-w3m-retrieve): Check if content-type is wrong after + decoding encoded contents. + + * w3m-ems.el (w3m-create-image, w3m-create-resized-image): Decode + content retrieving image. + + * w3m-xmas.el (w3m-create-image, w3m-create-resized-image): Ditto. + +2007-06-07 Naohiro Aota <nao.aota@gmail.com> + + * w3m-search.el (w3m-search-engine-alist): Add output encoding argument + to google search. + +2007-06-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-image.el (w3m-imagick-convert-program, w3m-resize-images): Reset + them if convert program is not really available. + (w3m-imagick-convert-program-available-p): New function. + (w3m-imagick-convert-buffer, w3m-imagick-start-convert-data): Use it. + +2007-06-05 Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m-image.el (w3m-imagick-start-convert-data): Clarify message which + is issued when convert program is not available. + +2007-06-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-filter.el (w3m-filter-mixi): Follow the change of Mixi's HTML. + +2007-06-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * attic/vm-w3m.el, attic/vm-7.19.patch: Remove. They have been + integrated into VM 8.x. + +2007-05-17 Tatsuya Kinoshita <tats@vega.ocn.ne.jp> + + * w3m.el (w3m-view-this-url-1): Check whether the marker buffer exists. + +2007-05-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el (w3m-switch-to-buffer, w3m-subst-switch-to-buffer-keys): + Remove. + +2007-05-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-expand-url): Guard error in aref when url is "". + +2007-05-16 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-expand-url): Remove query strings when expanding URL like + "foo.cgi?#bar"; add "./" to top of URL when expanding "?hoge". + +2007-05-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el (w3m-switch-to-buffer): Work just like switch-to-buffer. + Suggested by Robert J. Chassell <bob@rattlesnake.com>. + +2007-05-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-encode-string, w3m-url-transfer-encode-string): Use + uppercase letters in hexadecimal string. Suggested by Lukasz Demianiuk + <ldemianiuk@gmail.com>. + +2007-05-09 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-header-line-url): New function. + (w3m-url-at-point): Call w3m-header-line-url after + w3m-gmane-url-at-point. + (w3m-goto-url-with-timer): Execute w3m-goto-url if its buffer does not + exist foreground. + +2007-05-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (all): Revert SHIRAI's 2007-04-24 changes and fix it to + accompany Ito-san's patch [w3m-dev 04233]. + (w3m-display-ins-del): New option. + (w3m-support-emacs-w3m): Remove this variable. + (w3m-strike-through-face): Modify. + (w3m-insert-face): Ditto. + (w3m-strike-through-face-no-windowsystem): Remove this face. + (w3m-fontify-insert): Remove this variable. + (w3m-halfdump-command-arguments): Remove w3m-support-emacs-w3m. + (w3m-halfdump-command-common-arguments): Add w3m-display-ins-del + support. + (w3m-fontify-strike-through): Rewrite. + (w3m-fontify-insert): Ditto. + (w3m-set-display-ins-del): New function. + (w3m-rendering-half-dump): Call w3m-set-display-ins-del. + +2007-04-30 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-resume): Also resume contents of forms without + name. + (w3m-fontify-textareas): Also fontify textareas without name. + (w3m-form-field-parse): Also parse form fields without name. + +2007-04-28 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-decode-buffer): Use w3m-url-transfer-encode-string + instead of w3m-url-encode-string. + +2007-04-27 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-view-this-url): Check if w3m-current-url is string before + matching. + +2007-04-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-buffer): Fully decode a source by default. + (w3m-view-source): Doc fix. + +2007-04-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-goto-url): Redisplay to search an anchor sure with + goto-new-session. + +2007-04-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-source-decode-level): New variable. + (w3m-decode-buffer): Control how much it decodes an html source + according to w3m-view-source-decode-level. + (w3m-view-source): Bind w3m-view-source-decode-level with prefix arg. + +2007-04-25 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-decode-buffer): Encode urls containing non-ASCII + characters quoted with '' as well as those quoted with "". + (w3m-goto-url): Decode urls when url is local. + + characters when displaying an html source. + +2007-04-24 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-decode-buffer): Use charset specified in meta tag even + for decoding html source. + +2007-04-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (install-lisp): Install shimbun/ChangeLog file. + +2007-04-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-support-emacs-w3m): New variable. + (w3m-compile-options): Set w3m-support-emacs-w3m to t if w3m compiled + with emacsdump. + (w3m-strike-through-face-no-windowsystem): New face. + (w3m-halfdump-command-arguments): Use '-emacsdump' instead of + '-halfdump' when w3m has it. + (w3m-fontify-strike-through): Support w3m-support-emacs-w3m. + (w3m-fontify-insert): Ditto. + +2007-04-24 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-goto-url): Set truncate-lines to nil, if a source or + header view. + (w3m-view-source): Remove to set truncate-lines. + (w3m-view-header): Ditto. + +2007-04-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * ChangeLog, ChangeLog.1: Separate shimbun entries. + (Local Variables): Set fill-column to 79. + +2007-04-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-input-textarea-filename): Use MD5 first. + +2007-04-14 Naohiro Aota <nao.aota@gmail.com> + + * w3m-form.el (w3m-form-input-textarea-filename): Truncate filename + into less than or equal to 255 bytes long. + +2007-04-06 Matt Hodges <M.P.Hodges@rl.ac.uk> + + * w3m.el (w3m-next-buffer): Fix last change when w3m-fb-mode. + +2007-04-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-parent-page): Use numbered prefix argument to move + the parent directory according to input number. + +2007-03-31 Andreas Seltenreich <seltenreich@gmx.de> + + * w3m.el (w3m-external-view-file): Actually kill the temporary buffer. + +2007-03-30 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-ems.el (w3m-tab-mouse-track-selected-tab): Sleep anyway. + (w3m-tab-make-keymap): Add key-bindings for mouse wheel-up|down to + w3m-mode-map. + +2007-03-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bug.el (report-emacs-w3m-bug-system-informations): Add gtk. + (report-emacs-w3m-bug): Bind print-quoted to t. + + * w3m-ems.el (w3m-force-window-update): Do split-window-vertically + instead of performing enlarge-window/shrink-window for Emacs 21. + (w3m-tab-mouse-track-selected-tab): Add `decelerate' argument; use it + instead of to check the value of this-command. + (w3m-tab-move-right): Set it. + (w3m-tab-make-keymap): Rearrange. + (w3m-update-tab-line): Remove. + + * w3m.el (w3m-select-buffer-update): Use w3m-force-window-update + instead of w3m-update-tab-line. + +2007-03-29 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-ems.el (w3m-tab-mouse-track-selected-tab): Tiny fix. + (w3m-tab-make-keymap): Use next|previous-buffer-action instead of + w3m-tab-next|previous-buffer. + +2007-03-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el (w3m-tab-mouse-track-selected-tab): Ignore mouse position + info if mouse points to other frame; recognize wheel-up and wheel-down + in addition to mouse-4 and mouse-5; don't respond to too fast operation + of mouse wheel for moving a tab. + +2007-03-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el (w3m-tab-track-mouse): New variable. + (w3m-tab-mouse-position-adjuster): Express the values in pixel units + rather than the number of characters. + (w3m-tab-mouse-track-selected-tab): Be controlled by + w3m-tab-track-mouse; calculate the mouse position in pixel units rather + than the number of characters. + (w3m-tab-make-keymap): Make the buffer selected by a tab the current + buffer before performing w3m-tab-move-(left|right). + (w3m-tab-separator-map): New keymap. + (w3m-tab-separator): Use it as the local-map property. + (w3m-tab-line): Use it as the local-map property in trailing space. + +2007-03-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el (w3m-tab-unselected-face) + (w3m-tab-unselected-retrieving-face, w3m-tab-selected-face) + (w3m-tab-selected-retrieving-face, w3m-tab-mouse-face): Make background + colors bright. + (w3m-tab-mouse-position-adjuster): New variable. + (w3m-tab-mouse-track-selected-tab, w3m-tab-next-buffer) + (w3m-tab-previous-buffer, w3m-tab-move-right, w3m-tab-move-left): New + functions. + (w3m-tab-map): Bind C-wheel-up and C-mouse-4 to w3m-tab-move-left; bind + C-wheel-down and C-mouse-5 to w3m-tab-move-right; use + w3m-tab-previous-buffer and w3m-tab-next-buffer instead of + w3m-previous-buffer and w3m-next-buffer. + (w3m-tab-separator): Add tab-separator property. + + * w3m.el (w3m-next-buffer): Fix calculation. + (w3m-lynx-like-map, w3m-info-like-map): Bind `C-c C-,' and `C-c C-<' to + w3m-tab-move-left, and bind `C-c C-.' and `C-c C->' to + w3m-tab-move-right for GNU Emacs. + +2007-03-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-add-tab-number): New user option. + + * w3m-ems.el (top): Add w3m-add-tab-number to avoid byte-compile + warnings. + (w3m-tab-line): Display sequential number on tab title when + w3m-add-tab-number is not nil. + + * w3m.el (w3m-menubar): Add w3m-session-save and w3m-session-select. + (w3m-tab-button-menu-commands): Ditto. + +2007-03-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ems.el: New file merging w3m-e21.el, w3m-e23.el and w3m-fsf.el. + (image-size): No need to silence the byte compiler. + (w3m-ccl-get-ucs-codepoint-with-emacs-unicode): Remove. + (w3m-euc-japan-encoder, w3m-euc-japan-encoder) + (w3m-iso-latin-1-encoder, w3m-iso-latin-1-encoder): Redefine them only + for Emacs 22 and earlier. + + * w3m-e21.el, w3m-e23.el, w3m-fsf.el: Remove. + + * w3m.el: Load w3m-ems.el instead of w3m-e21.el or w3m-e23.el. + (w3m-fontify-strike-through): Remove variable. + + * w3mhack.el (w3mhack-mdelete): Remove. + (w3mhack-module-list): Use w3m-ems.el instead of w3m-fsf.el and + w3m-e21.el or w3m-e23.el. + + * Makefile.in (tarball): No need to exclude w3m-e23.el. + +2007-03-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_SET_XEMACSDEBUG): Fix the way to quote the value of + XEMACSDEBUG. Reported by Norbert Koch <nk@viteno.net>. + +2007-03-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_SET_XEMACSDEBUG): Quote VANILLA_FLAG. + +2007-03-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_SET_XEMACSDEBUG): New function; set XEMACSDEBUG + environment variable, which is eval'd when XEmacs 21.5 starts, to the + Lisp form, which sets `log-warning-minimum-level' to `error', in order + to suppress warnings for Lisp shadows when XEmacs 21.5 starts. + (AC_PATH_EMACS): Run AC_SET_XEMACSDEBUG. + (AC_EMACS_LISP, AC_ADD_LOAD_PATH): Use XEMACSDEBUG. + + * Makefile.in (XEMACSDEBUG): New variable. + (lisp, what-where, install-package, install-package-ja, dist) + (.el.elc, slow, very-slow): Use it. + + * doc/Makefile.in (XEMACSDEBUG): New variable. + (EMACSINFO, version.texi, install-en, install-ja): Use it. + + * w3mhack.el: Reset `log-warning-minimum-level' to `info'. + +2007-03-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-session.el (w3m-session-deleted-save): Sort buffers to use their + name. + +2007-03-13 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (autoload): Add w3m-session-deleted-save. + (w3m-delete-buffer): Call w3m-session-deleted-save. + (w3m-delete-other-buffers): Call w3m-delete-buffers instead of piece of + code. + (w3m-delete-buffers): Call w3m-session-deleted-save. + + * w3m-session.el (w3m-session-deleted-save): New option. + (w3m-session-deleted-title): Ditto. + (w3m-session-deleted-keep-number): Ditto. + (w3m-session-deleted-save): New function. + (w3m-session-select): Display URLs. + (w3m-session-select): Add key assignment; `k' and `j'. + +2007-03-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bug.el (report-emacs-w3m-bug): Use a new buffer to compose a mail + if at least mail-user-agent is sendmail-user-agent that is the default. + cf. http://article.gmane.org/gmane.emacs.devel/67501 + +2007-03-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-generate-load-file): Advise make-autoload to + support define-minor-mode if it should be necessary. + +2007-03-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-async-exec-with-many-urls): New variable; default to t + except for XEmacs 21.5. + (w3m-goto-url): Bind w3m-async-exec to nil when retrieving group:* urls + if w3m-async-exec-with-many-urls is nil. + + * w3m-session.el (w3m-session-goto-session): Bind w3m-async-exec to nil + if w3m-async-exec-with-many-urls is nil. + +2007-03-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-session.el (w3m-session-select): Use next-command-event and + event-key for XEmacs with checked surely. + +2007-03-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-session.el (w3m-session-automatic-save): Remove unused vars. + (w3m-session-select): Use next-command-event for XEmacs; clear the echo + area after entering command. + +2007-03-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (autoload): Add w3m-session-select, w3m-session-save and + w3m-session-automatic-save. + (w3m-lynx-like-map): Add w3m-session-select and w3m-session-save to + map. + (w3m-info-like-map): Ditto. + (w3m-arrived-shutdown-functions): Add w3m-session-automatic-save. + (w3m-quit): Call w3m-session-automatic-save. + + * w3m-session.el: New file. + +2007-02-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-filter.el (w3m-filter-rules): Add rules for the site of Amazon + and Mixi. + (w3m-filter-amazon-regxp): New option. + (w3m-filter-amazon-short-url-bottom): Ditto. + (w3m-filter-google): Add doc-string. + (w3m-filter-amazon): New function. + (w3m-filter-mixi): New function. + +2007-02-24 Tatsuya Kinoshita <tats@vega.ocn.ne.jp> + + * Makefile.in, doc/Makefile.in (clean): Remove doc/version.texi. + +2007-02-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-buffer): Improve further regexp matching urls + containing non-ASCII characters. + +2007-02-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-buffer): Improve regexp matching urls containing + non-ASCII characters. + +2007-02-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-buffer): Encode urls containing non-ASCII + characters. + +2007-02-06 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-decode-entities): Don't decode things like entities in + forms of the text or the select type having the name property. + +2007-02-05 Naohiro Aota <nao.aota@gmail.com> + + * w3m.el (w3m-fontify): Don't delete things like tags in forms of + type=text as well as of type=textarea. + +2007-02-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-arrived-intern): New macro, that normalizes urls by + stripping last `/'s. + (w3m-arrived-add, w3m-arrived-p, w3m-arrived-time) + (w3m-arrived-put, w3m-arrived-get): Use it. + (w3m-create-text-page): Make sure to set w3m-current-title. + +2007-02-04 David Hansen <david.hansen@physik.fu-berlin.de> + + * w3m.el (w3m-relationship-estimate-rules): Added + `w3m-relationship-slashdot-estimate'. + (w3m-relationship-slashdot-estimate): New function. + +2007-02-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-menu-on-forefront): New variable. + (w3m-setup-menu): Use it. + + * w3m-e21.el (w3m-menu-on-forefront): New function. + + * w3m-xmas.el (w3m-menu-on-forefront): New function. + (w3m-setup-menu): Use it. + + * w3m-bookmark.el (w3m-setup-bookmark-menu): Don't arrange the order of + the menu items here. + * w3m-tabmenu.el (w3m-setup-tab-menu): Ditto. + +2007-02-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in, doc/Makefile.in: Add datarootdir setting that is + required for newer autoconfs. + + * w3m.el (w3m-lynx-like-map, w3m-info-like-map): Use (featurep 'gtk) + instead of (boundp 'gtk-version-string); use down-mouse-3 instead of + mouse-3, and bind drag-mouse-3 and mouse-3 to undefined for GTK Emacs. + + * w3m-e21.el (w3m-use-toolbar) + (w3m-toolbar-icon-preferred-image-types): Use (featurep 'gtk) instead + of (boundp 'gtk-version-string). + (w3m-toolbar-configurations): Select frame visiting buffer which is + about to apply configurations; use (featurep 'gtk) instead of \(boundp + 'gtk-version-string); enable it for GTK Emacs; exclude + auto-resize-tool-bars and auto-raise-tool-bar-buttons. + +2007-01-31 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-clean-hook-options): Remove. + +2007-01-31 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-search.el (w3m-search-read-query): Check that face property is + `list' to avoid argument error. + +2007-01-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-define-w3m-make-ccl-coding-system): Rename from + w3m-xmas-define-w3m-make-ccl-coding-system. + (w3m-toolbar-make-buttons): Rename from w3m-xmas-make-toolbar-buttons. + (w3m-define-missing-widgets): Rename from + w3m-xmas-define-missing-widgets. + (w3m-show-current-title-in-buffer-tab): Rename from + w3m-xmas-show-current-title-in-buffer-tab. + (w3m-setup-tab-in-gutter): Rename from w3m-xmas-setup-tab-in-gutter. + (w3m-update-tab-in-gutter): Rename from w3m-xmas-update-tab-in-gutter. + + * w3m-e21.el (w3m-toolbar-icon-preferred-image-types) + (w3m-toolbar-icon-preferred-image-types): Use w3m-update-toolbars + instead of w3m-setup-toolbar. + (w3m-toolbar-configurations): Rename from + w3m-e21-toolbar-configurations; make it customizable for LUCID Emacs. + (w3m-toolbar-define-keys): Rename from w3m-e21-setup-toolbar; don't + apply w3m-toolbar-configurations here. + (w3m-toolbar-make-buttons): Rename from w3m-e21-make-toolbar-buttons. + (w3m-toolbar-set-configurations): New function. + (w3m-setup-toolbar): Remove force argument; apply + w3m-toolbar-configurations here. + (w3m-update-toolbars): New function. + (w3m-switch-to-buffer): Rename from w3m-e21-switch-to-buffer. + (w3m-subst-switch-to-buffer-keys): Rename from + w3m-e21-subst-switch-to-buffer-keys. + + * w3m.el (w3m-message): Clear previous message only if it is longer + than the window width and running Emacs 22 and greater. + +2007-01-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-toolbar-icon-preferred-image-types) + (w3m-toolbar-use-single-image-per-icon): New variables. + (w3m-find-image): New function. + (w3m-xmas-make-toolbar-buttons): Use it; add force argument. + (w3m-setup-toolbar): Use it; add force and buffer arguments. + (w3m-initialize-graphic-icons): Use it. + + * w3m-e21.el (w3m-toolbar-icon-preferred-image-types) + (w3m-toolbar-use-single-image-per-icon): Apply customized value to tool + bar immediately. + (w3m-e21-make-toolbar-buttons, w3m-setup-toolbar): Add force arg. + +2007-01-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * icons/*.png, icons30/*.png: New files. + + * Makefile.in (install-icons, install-icons30): Install png files. + + * w3mhack.el (w3mhack-nonunix-install, w3mhack-make-package): Install + png files. + (w3mhack-what-where): Update for png files. + + * w3m-e21.el (w3m-use-toolbar): Check whether tool-bar and + gtk-version-string are available. + (w3m-toolbar-icon-preferred-image-types) + (w3m-toolbar-use-single-image-per-icon): New variables. + (w3m-find-image): New function. + (w3m-e21-make-toolbar-buttons, w3m-setup-toolbar) + (w3m-initialize-graphic-icons): Use it. + +2007-01-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-halfdump-command-arguments): Generate the right values + for non-Mule XEmacs. + +2007-01-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-message): Clear previous message first. Suggested by + David Hansen <david.hansen@gmx.net>. + +2007-01-18 Friedrich Delgado Friedrichs <delgado@dfn-cert.de> + + * w3m-proc.el (w3m-process-ssl-passphrase): New variable. + (w3m-process-filter): Enable w3m to authenticate itself with a client + certificate. + +2007-01-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el: Autoload iswitchb-read-buffer when compiling. + +2007-01-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-e21-switch-to-buffer): Add iswitchb-mode support. + +2007-01-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-modeline-title): Don't use w3m-force-window-update which + obstructs viewing of large images. Reported by Chris Moore + <dooglus@gmail.com>. + +2006-12-21 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-filter.el (w3m-filter-rules): Add rule for the site of Google. + (w3m-filter-google-use-utf8): New user option. + (w3m-filter-google-use-ruled-line): Ditto. + (w3m-filter-google): New function. + +2006-12-13 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-search.el (w3m-search-engine-alist): Fix amazon entry. + +2006-12-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_EXAMINE_PACKAGEDIR): Check for + (early|late|last)-package-hierarchies as well as + (early|late|last)-packages; prefer them to configure-package-path. + +2006-12-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el: Changes to create a new session after submitting form. + (w3m-form-new-session): New variable. + (w3m-fontify-textareas, w3m-form-parse-and-fontify): Combine the above + variable into expressions which represent form actions. + (w3m-form-submit): Accept and optional argument `new-session'. + + * w3m.el: Changes to create a new session after submitting form. + (w3m-submit-form): Accept and optional argument `new-session'. + `w3m-form-new-session' is binded locally. + (w3m-view-this-url): `w3m-form-new-session' is binded locally. + +2006-12-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-parent-page): Add prefix argument `TOP'. If TOP is + non-nil, visit the top of this site." + (w3m-parent-page-available-p): Fix regexp. + +2006-12-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * patches/README: Update. + * patches/italic-text.patch: New file. + * patches/dot-domain.patch: New file. + * patches/file-progress.patch: Renew. + * patches/w3m-0.2.1-inu-1.5-solaris-xemacs.patch: Remove. + * patches/no-proxy.patch: Remove. + +2006-12-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-italic-face): New face. + (w3m-fontify-italic): New function. + (w3m-fontify): Use it. + +2006-11-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (w3m-mail-compose-with-mew): Refrain handling of + `current-prefix-arg'. + +2006-11-14 Ren Lifeng <lfren@cad.zju.edu.cn> + + * w3m-cookie.el (w3m-cookie-1-acceptable-p): Accept cookie whose domain + attribute is ".foo.barz.bar" from host "foo.barz.bar". + (w3m-cookie-retrieve): Send cookie whose domain attribute is + ".foo.barz.bar" when requesting host "foo.barz.bar". + +2006-11-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-mail.el (w3m-mail-compose-with-vm): Require vm-startup. + +2006-11-20 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp> + + * w3m-mail.el (w3m-mail-compose-with-semi): Require mime-edit. + +2006-10-11 David Hansen <david.hansen@physik.fu-berlin.de> + + * w3m.el (w3m-relationship-estimate-rules): Support for google code + search added. + +2006-10-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el, w3m-bookmarks.el, w3m-search.el: Remove misadded Luca Capello + from the Authors field. + +2006-10-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-compatible-encoding-alist): Add iso-8859-8/windows-1255 + and iso-8859-9/windows-1254. + +2006-10-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-mail.el (w3m-mail-compose-with-vm): Treat source as binary data + for images; encode source according to charset; use mail-send-actions + to kill source buffer. + (w3m-mail): Examine charset when the page is displayed normally. + + * w3m-util.el (w3m-coding-system-to-mime-charset): Rename to + w3m-coding-system-to-charset and move to w3m.el + + * w3m.el (w3m-coding-system-to-charset): Move from w3m-util.el. + (w3m-buffer): New function. + +2006-09-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-mail-user-agents): Add vm-user-agent. + + * w3m-mail.el (w3m-mail-user-agent-compose-function-alist): Add + vm-user-agent. + (w3m-mail-compose-with-vm): New function. + (w3m-mail-goto-body-and-clear-body): New function. + (w3m-mail-position-point): New function. + (w3m-mail-compose-with-mml, w3m-mail-compose-with-semi): Use them. + +2006-09-29 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (w3m-mail-compose-with-mew): Handle coding-system and + charset accurately. When call with `current-prefix-arg', try to use + existing draft buffer. + + * w3m-mail.el (w3m-mail): Bind `w3m-history-reuse-history-elements' to + 'reload. + +2006-09-29 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp> + + * w3m-mail.el (w3m-mail-compose-with-semi): Handle types other than + text/html as well. Decide the charset when the charset is nil though + the content-type is a text. + +2006-09-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-mail.el (w3m-mail-compose-with-mml): Treat source as binary data + for images (we will probably have to do so for some more types); pass + content-type argument to MML. + +2006-09-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-mail-user-agents): Add mew-user-agent. + + * w3m-mail.el (top): Autoload w3m-mail-compose-with-mew + (w3m-mail-user-agent-compose-function-alist): Add mew-user-agent. + (w3m-mail-compose-with-mml): Add `content-type' argument + (w3m-mail-compose-with-semi): Ditto. + (w3m-mail): Handle `content-type' and `about://header/'. + + * mew-w3m.el (w3m-mail-compose-with-mew): New function. Add + `content-type' argument and handle it. + +2006-09-28 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp> + + * w3m-mail.el (w3m-mail-user-agent-compose-function-alist): Add + wl-user-agent. + (w3m-mail-compose-with-semi): New function. + + * w3m.el (w3m-mail-user-agents): Add wl-user-agent. + +2006-09-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-coding-system-to-mime-charset): New function. + + * w3m-mail.el (w3m-mail-compose-with-mml): Bind gnus-newsgroup-name to + nil while composing mail if gnus-user-agent is used instead of removing + X-Draft-From header. + (w3m-mail): Use w3m-coding-system-to-mime-charset. + +2006-09-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-mail.el (w3m-mail-compose-with-mml): Remove X-Draft-From header; + make charset argument a string. + (w3m-mail): Make charset argument to be passed to composer a symbol. + +2006-09-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-mail.el: New file. + + * w3m.el: Autoload w3m-mail. + (w3m-mail-user-agents): New variable. + (w3m-menubar): Add w3m-mail. + +2006-09-26 Luca Capello <luca@pca.it> + + * w3m-search.el (w3m-search-new-session): New command. + (w3m-search-read-variables): Ditto. + (w3m-search-do-search): Ditto. + (w3m-search): Rewrite to use the new commands above; add myself to the + authors list. + + * w3m.el (autoload): Add w3m-search-new-session. + (w3m-menubar): Add w3m-search-new-session. + (w3m-info-like-map): Add w3m-search-new-session at the place of the + called-interactively w3m-search to be compliant with the other + *-new-session key-bindings. + (w3m-mode): Add description of w3m-search-new-session to docstring. + +2006-09-25 Luca Capello <luca@pca.it> + + * w3m-bookmark.el: Add myself to the authors list, forgotten when + submitting the patch for w3m-bookmark-view-new-session. + + * w3m.el: Ditto. + +2006-09-22 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e21.el (w3m-tab-make-keymap): Support mouse wheel on the tab. + + * w3m-e23.el (w3m-tab-make-keymap): Ditto. + +2006-09-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-fb.el: Bind w3m-delete-buffer, w3m-fb-frame-parameter, + w3m-list-buffers, w3m-next-buffer, and w3m-pop-up-frames when + compiling. + +2006-09-16 David Hansen <david.hansen@physik.fu-berlin.de> + + * w3m.el (w3m-relationship-estimate-rules): Changed freshmeat URL + regexp. + +2006-09-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-lynx-like-map, w3m-info-like-map): Don't bind M-g key + because Emacs 22 uses it as a prefix command in global map. Suggested + by David Hansen <david.hansen@gmx.net>. + +2006-09-09 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m-search.el (w3m-search-engine-alist): Instruct explicitly Google + to return English pages for google-en. + +2006-09-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-default-directory): New variable. + (w3m-current-directory): Use it. + +2006-09-05 David Hansen <david.hansen@gmx.net> + + * w3m.el (w3m-local-find-file-regexps): Default to '(nil + . "\\.[sx]?html?\\'"). + +2006-08-31 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-enable-google-feeling-lucky): New variable. + (w3m-input-url): Disable the Google feeling lucky feature if it is nil. + +2006-08-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-show-decoded-url): Add entry for ohmynews.co.jp. + +2006-08-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-relationship-search-patterns): Call + `w3m-decode-anchor-string' in order to decode "&" in anchor + strings. + (w3m-relationship-freshmeat-estimate): Removed. + (w3m-relationship-estimate-rules): Use + `w3m-relationship-simple-estimate' instead of the above, to simplify + related codes. + +2006-08-11 David Hansen <david.hansen@pysik.fu-berlin.de> + + * w3m.el (w3m-relationship-oddmuse-estimate): New function. + (w3m-relationship-freshmeat-estimate): New function. + (w3m-relationship-estimate-rules): Fixed regexp for google groups. + Added above new functions. + +2006-07-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-truncate-string): Don't autoload mule-util.el. + +2006-06-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-tabmenu.el (w3m-tab-menubar-make-items-precbuf): New internal + variable. + (w3m-tab-menubar-make-items-prebuflst): Ditto. + (w3m-tab-menubar-make-items-preurl): Ditto. + (w3m-tab-menubar-make-items-preitems): Ditto. + (w3m-tab-menubar-make-items): Set an use previous variables to used for + the speed improvement. + + * w3m-util.el (w3m-make-menu-commands-keys): New internal variable. + (w3m-make-menu-commands): Set and use `w3m-make-menu-commands-keys to + used for the speed improvement. + +2006-06-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * attic/rfc2368.el: Copy from Emacs 22; modify rfc2368-unhexify-string + to work with both Emacs and XEmacs. + +2006-05-31 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-this-url-1): Set 5th argument of `w3m-copy-buffer' + to `w3m-new-session-in-background'. + (w3m-copy-buffer): Add `background' argument. When URL is null and + `background' is not non-nil, stay the current buffer. + +2006-05-31 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-read-query): Ignore page title only in + w3m-mode buffers. + +2006-05-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-read-query): Assume there's not only a list + of faces but also just a face. + +2006-05-30 Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m.el (w3m-copy-buffer): Create empty w3m buffer when url is not + set. Cause error on meaningless combination of arguments. + +2006-05-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e21.el (w3m-tab-selected-background-face): New face. + (w3m-tab-separator): Put `mouse-face' for the shape of a mouse button. + (w3m-tab-line): Ditto. + + * w3m-e23.el (w3m-tab-selected-background-face): New face. + (w3m-tab-separator): Put `mouse-face' for the shape of a mouse button. + (w3m-tab-line): Ditto. + +2006-05-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-tab-button-menu-commands): Disable same items if + `w3m-tab-button-menu-current-buffer' is nil. + (w3m-tab-button-menu2): New function. + + * w3m-e21.el (top): Add the variables and function to avoid + byte-compile warnings. + (w3m-tab-drag-mouse-function): Support drag & drop to out of the + frame. Don't call `bury-buffer'. + (w3m-tab-click-mouse-function): Don't call `bury-buffer'. + (w3m-tab-double-click-mouse1-function): new function. + (w3m-tab-double-click-mouse2-function): Ditto. + (w3m-tab-make-keymap): Add some methods. + + * w3m-e23.el (top): Add the variables and function to avoid + byte-compile warnings. + (w3m-tab-drag-mouse-function): Support drag & drop to out of the + frame. Don't call `bury-buffer'. + (w3m-tab-click-mouse-function): Don't call `bury-buffer'. + (w3m-tab-double-click-mouse1-function): new function. + (w3m-tab-double-click-mouse2-function): Ditto. + (w3m-tab-make-keymap): Add some methods. + + * w3m.el (w3m-tab-button-menu-commands): Change position some items. + +2006-05-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-widget-type-convert-widget): New function. + + * w3m.el (w3m-home-page, w3m-new-session-url) + (w3m-uri-replace-alist): Use it. + + * w3m-dtree.el (w3m-dtree-indent-strings, w3m-dtree-stop-strings): Use + it. + + * w3m-symbol.el (w3m-symbol-custom-type): Use it. + +2006-05-21 Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m.el (autoload): `w3m-bookmark-view-new-sessiont' -> + `w3m-bookmark-view-new-session'. + +2006-05-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-home-page): Rewrite :convert-widget function. + (w3m-new-session-url): Ditto. + +2006-05-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-new-session-url): Doc fix; improve custom type. + (w3m-new-session-in-background): Doc fix. + +2006-05-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-new-session-url): Rename from + `w3m-tab-button-new-session-url'. + (w3m-tab-button-focus-new-tab): Delete. + (w3m-view-this-url-new-session-in-background): This option sets + obsolete. + (w3m-new-session-in-background): New option. + (w3m-menubar): Change and add Some items. + (w3m-copy-buffer): If call-interactively, set `just-copy' to `t'. If + `w3m-new-session-in-background' and `just-copy' is non-nil, swith to + original buffer when finished. + (w3m-lynx-like-map): Add `w3m-bookmark-view-new-session'. + (w3m-tab-button-menu-commands): Use `w3m-new-session-in-background' + insted of `w3m-tab-button-focus-new-tab'. + (w3m-goto-new-session-url): New command. + (w3m-goto-url-new-session): Call `w3m-copy-buffer' with + `w3m-new-session-in-background'. + (w3m-select-buffer-generate-contents): Add prefix number to beginning + of title name. + + * w3m-tabmenu.el (w3m-tab-menubar-items-sub-coeff): New variable. + (w3m-tab-menubar-items-width): Ditto. + (w3m-tab-menubar-make-items-1): New inline macro and trancate string of + tab's title if over `w3m-tab-menubar-items-width'. + (w3m-tab-menubar-make-items): Use `w3m-tab-menubar-make-items-1'. If + the number of tabs over `(- (frame-height) + w3m-tab-menubar-items-sub-coeff)', make sub-menu. + + * w3m-bookmark.el (w3m-bookmark-view-new-session): Use + w3m-view-this-url-1 instead of w3m-goto-url; warn if w3m-mode does not + run. + (w3m-bookmark-menu-items): Add w3m-bookmark-view-new-session. + +2006-05-18 Luca Capello <luca@pca.it> + + * w3m-bookmark.el (w3m-bookmark-view): Add docstring. + (w3m-bookmark-view-new-session): New command. + + * w3m.el (autoload): Add docstring to w3m-bookmark-view; add + w3m-bookmark-view-new-session. + (w3m-menubar): Add Bookmark submenu and w3m-bookmark-view-new-session. + (w3m-info-like-map): Add w3m-bookmark-view-new-session. + (w3m-mode): Add description of w3m-bookmark-view-new-session to + docstring. + +2006-05-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-tab-button-focus-new-tab): New option. + (w3m-menubar): Add some items. + (w3m-external-view-this-url): New command. + (w3m-external-view-current-url): Ditto. + (w3m-tab-button-menu-commands): Use `w3m-tab-button-focus-new-tab' on + `w3m-goto-url-new-session' and `w3m-copy-buffer'. + (w3m-tab-button-menu): Make with `w3m-make-menu-commands'. + + * w3m-util.el (top): Add the variable definition of `w3m-mode-map' to + avoid byte-compile warnings. + (w3m-make-menu-commands): New function. + + * w3m-tabmenu.el (w3m-tab-menubar-make-items): Use + `w3m-make-menu-commands'. + +2006-05-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-url-with-external-browser): Add optional url + argument. + (w3m-tab-button-menu-commands): Make w3m-copy-buffer and + w3m-view-url-with-external-browser select the buffer; pass url to + w3m-view-url-with-external-browser. + +2006-05-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bookmark.el (w3m-bookmark-add-all-urls): New function. + + * w3m.el: Autoload w3m-bookmark-add-all-urls. + (w3m-menubar): Add w3m-reload-all-pages. + (w3m-lynx-like-map): Add w3m-reload-all-pages and + w3m-bookmark-add-all-urls. + (w3m-info-like-map): Ditto. + (w3m-tab-button-menu-commands): Make it enable to pass arguments to + function items; use w3m-goto-url-new-session, w3m-reload-all-pages, and + w3m-bookmark-add-all-urls instead of lambda forms. + (w3m-tab-button-menu): Pass arguments to functions defined in + w3m-tab-button-menu-commands. + (w3m-mode): Add descriptions about w3m-reload-all-pages and + w3m-bookmark-add-all-urls to docstring. + (w3m-reload-all-pages): New function. + +2006-05-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-lynx-like-map): Define `w3m-mouse-major-mode-menu' to + mouse-3. + (w3m-info-like-map): Ditto. + (w3m-mouse-major-mode-menu): New command. + + * w3m-util.el (top): Add the variable definition of + `w3m-use-japanese-menu' to avoid byte-compile warnings. + (w3m-make-menu-item): Change method to take measures for garbage + characters on XEmacs. + + * w3m-bookmark.el (w3m-bookmark-make-item-xmas): New variable. + (w3m-bookmark-make-item): New inline macro. + (w3m-bookmark-make-menu-items): Use `w3m-bookmark-make-item'. + +2006-05-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-menubar): Use `w3m-make-menu-item'. + (w3m-tab-button-menu-current-buffer): Enable always. + (w3m-tab-button-menu-commands): Ditto. Use `w3m-make-menu-item'. + + * w3m-util.el (w3m-make-menu-item): New function. + + * w3m-tabmenu.el (w3m-tab-menubar-make-items): Handle + `w3m-tab-button-menu-commands' always. + + * w3m-bookmark.el (w3m-bookmark-menu-items): Use `w3m-make-menu-item'. + +2006-05-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-use-japanese-menu): Change default value. + (w3m-menubar): Simplify the rule to use Japanese menu. + (w3m-tab-button-menu-commands): Ditto. + + * w3m-bookmark.el (w3m-bookmark-menu-items): Simplify the rule to use + Japanese menu. + +2006-05-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-menubar): Escape the Japanese katakana `a' which breaks + the string syntax in non-Mule XEmacs. + + * w3m-bookmark.el (w3m-bookmark-menu-items): Escape the Japanese kanji + `etsu' which breaks the string syntax in non-Mule XEmacs. + +2006-05-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-use-japanese-menu): New option. + (w3m-menubar): Add Japanese menu. + (w3m-tab-button-menu-commands): Change the way to check Japanse or + others. + + * w3m-bookmark.el (w3m-bookmark-menu-items): Add Japanese menu. + +2006-05-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-tab-button-new-session-url): New option. + (w3m-delete-other-buffers): New command. + (w3m-delete-left-tabs): Ditto. + (w3m-delete-right-tabs): Ditto. + (w3m-delete-buffers): New function. + (w3m-lynx-like-map): Add `w3m-delete-left|right-tabs'. + (w3m-tab-button-menu-commands): New new items. + + * w3m-util.el (w3m-lefttab-exist-p): New inline function. + (w3m-righttab-exist-p): Ditto. + + * w3m-tabmenu.el (w3m-tab-menubar-make-items): Handle + `w3m-tab-button-menu-commands' if possible. + +2006-05-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-tab-button-menu-commands): New variable. + (w3m-tab-button-menu-current-buffer): New variable. + (w3m-tab-button-menu): New variable. + (w3m-tab-button-menu): New function. + + * w3m-e21.el (w3m-tab-make-keymap): Bind mouse-3 to menu. + +2006-05-14 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m.el (w3m-refontify-anchor): Improve parameter check. + (w3m-create-image-page): Use `w3m-add-face-property' instead + `put-text-property'/`add-text-properties'/`w3m-add-text-properties'. + (w3m-history-highlight-current-url): Ditto. + (w3m-header-line-insert): Ditto. + + * w3m-search.el (w3m-search-read-query): Improve parameter check. + + * w3m-lnum.el (w3m-link-numbering): Use `w3m-add-face-property' instead + `put-text-property'. + + * w3m-form.el (w3m-form-make-button): Use `w3m-add-face-property' + instead `add-text-properties'. + (w3m-fontify-textareas): Ditto. + (w3m-form-parse-and-fontify): Ditto. + + * w3m-e21.el,w3m-e23.el (w3m-form-make-button): Improve face property + append method. + (w3m-setup-header-line): Ditto. + (w3m-tab-line): Ditto. + (w3m-tab-separator): Modify `face' value to list. + +2006-05-11 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-search.el (w3m-search-engine-alist): Use utf-8 for google if + possible. + +2006-05-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-show-decoded-url): Add entry for hatena.ne.jp. + +2006-05-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_SET_VANILLA_FLAG): Add --no-unibyte option so as to + invalidate EMACS_UNIBYTE environment variable. + +2006-05-07 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-symbol.el: Bind w3m-use-symbol when compiling. + (w3m-use-symbol): New function. + (w3m-replace-symbol): Use it. + + * w3m.el (w3m-use-symbol): Changed its default value when + w3m-output-coding-system is utf-8. + +2006-05-07 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-util.el (w3m-device-on-window-system-p): New function. + (w3m-popup-frame-p): Use it. + + * w3m-search.el (w3m-search-engine-alist): Ditto. + + * w3m.el (w3m-fontify-strike-through): Ditto. + +2006-05-06 Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m-search.el (w3m-search-engine-alist): Remove lycos-ja. + +2006-05-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-engine-history): New variable. + (w3m-search): Use it. + +2006-05-01 David Hansen <david.hansen@gmx.net> + + * w3m-search.el (w3m-search-engine-alist): Add freshmeat. + +2006-04-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-decode-string): Don't perform find-coding-system on a + list of coding system in XEmacs. + +2006-04-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-google-feeling-lucky-charset): New user option. + (w3m-canonicalize-url): Support search-keyword for "I'm Feeling Lucky + on Google". Add 2nd argument. + (w3m-input-url): Suport "I'm Feeling Lucky". Add 5th argument + `feeling-lucky'. Bind key to `self-insert-command' if `feeling-lucky'. + Call `w3m-canonicalize-url' with `feeling-lucky'. + (w3m-view-this-url): Call `w3m-input-url' with `feeling-lucky'. + (w3m-goto-url-new-session): Ditto. + (w3m): Ditto. + +2006-04-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el: Require APEL XEmacs package 1.32 and later. + +2006-04-22 Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m-search.el (w3m-search-engine-alist): Add msdn. + +2006-04-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-decode-string): Support non-Mule XEmacs + superficially. + + * w3m-util.el (w3m-replace-in-string): Prefer replace-regexp-in-string + over of replace-in-string. It was done in Gnus by Reiner Steib. + +2006-04-20 Kazuhiro NISHIYAMA <zn@mbf.nifty.com> + + * w3m-search.el (w3m-search-engine-alist): Fix url for ja.wikipedia. + +2006-04-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-engine-alist): Add ja.wikipedia. + +2006-04-20 David Hansen <david.hansen@gmx.net> + + * w3m-search.el (w3m-search-engine-alist): Add wikipedia, en.wikipedia + and de.wikipedia. + +2006-04-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-download): Clear minibuffer after y-or-n-p. + +2006-04-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * attic/vm-w3m.el (vm-w3m-use-w3m-minor-mode-map): New variable. + (vm-mime-display-internal-text/html): Use it. + +2006-04-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-decode-string): Make string unibyte before decoding. + +2006-03-16 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m.el (w3m-data-retrieve): New function. + (w3m-attributes, w3m-retrieve): Add support `data:' scheme handled by + `w3m-data-retrieve'. + +2006-03-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ccl.el (charset-id): Define it as a macro instead of an alias to + charset-id-internal if Emacs doesn't provide it. + +2006-03-12 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m.el (w3m-insert-face): New face. + (w3m-fontify-insert): New variable. + (w3m-fontify-insert): New function. + (w3m-fontify): Add calling `w3m-fontify-insert'. + +2006-02-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-buffer): Decode buffer's string outside the + buffer. + +2006-02-26 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-w3m-parse-header): When the url matchs to ftp, rewrite + type and charset. + (w3m-w3m-attributes-1): Don't rewrite type and charset. + (w3m-w3m-retrieve): Don't check status code when the url does not match + to http. + +2006-02-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-components-regexp): Move to w3m-util.el. + (w3m-fontify-anchors, w3m-canonicalize-url, w3m-add-referer-p) + (w3m-expand-url, w3m-view-this-url-1, w3m-goto-url) + (w3m-goto-url-new-session): Use w3m-string-match-url-components rather + than to run string-match with w3m-url-components-regexp. + cf. <URL:http://emacs-w3m.namazu.org/ml/msg08412.html>. + + * w3m-form.el (w3m-form-normalize-action): Ditto. + + * w3m-cookie.el (w3m-parse-http-url): Ditto. + + * w3m-util.el (w3m-string-match-url-components-1): New function. + (w3m-url-components-regexp): Move from w3m.el. + (w3m-string-match-url-components): New macro. + +2006-01-19 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m.el (w3m-fontify-strike-through): Improve matching point. + +2006-01-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/Makefile.in: Add rules to make pdf files. + + * configure.in: Check for dvipdfmx and texi2pdf. + +2005-12-31 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-util.el (top): Add the variable definition of `w3m-mode-hook' to + avoid byte-compile warnings. + +2005-12-30 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m.el (w3m-fontify-strike-through): Fix multi `<del>' problem. + +2005-12-23 Matt Hodges <MPHodges@member.fsf.org> + + * w3m-util.el (w3m-list-buffers): Ensure disabling the w3m-fb-mode + after a careless (setq w3m-fb-mode t). + +2005-12-22 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m-antenna.el (w3m-antenna-refresh-interval): Add new customize + variable. + (w3m-antenna-make-contents): Add new generation rule for refresh + interval replacing `%R' to META Refresh tag and contents value are + `w3m-antenna-refresh-interval'. + (w3m-antenna-html-skelton): Add %R rule. + +2005-12-19 Matt Hodges <MPHodges@member.fsf.org> + + * w3m-util.el (w3m-list-buffers): Further fix against the case where + someone did (setq w3m-fb-mode t). + +2005-12-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-fb.el (w3m-fb-mode): Never activate w3m-fb-mode if + w3m-pop-up-frames is non-nil. + + * w3m-util.el (w3m-list-buffers): Reset w3m-fb-mode if it seems to have + been set thoughtlessly. + +2005-12-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-fb.el: Don't require w3m. + (w3m-fb-frame-parameter): Always define. + (w3m-fb-delete-frame-functions): Ditto. + (w3m-fb-select-buffer): Fix the 2nd clause of cond. + (w3m-fb-advised-functions): Remove. + (w3m-list-buffers): Move advice code to w3m-fb.el. + (w3m-close-window): Move advice code to w3m.el. + (w3m-delete-buffer): Ditto. + (w3m-quit): Ditto. + (w3m-fb-mode): Remove w3m-fb-advised-functions stuff. + + * w3m.el (w3m-fb): Require. + (w3m-delete-buffer, w3m-quit, w3m-close-window): Merge the codes which + were formerly provided as advices in w3m-fb.el. + + * w3m-util.el (w3m-fb-list-buffers-frame, w3m-fb-mode): Bind them when + compiling. + (w3m-fb-frame-parameter): Autoload. + (w3m-list-buffers): Merge the code which was formerly provided as an + advice in w3m-fb.el. + +2005-11-26 Matt Hodges <MPHodges@member.fsf.org> + + * w3m-fb.el: New file. + +2005-12-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-form-submit): Use the post method for the + multipart/form-data enctype according to the proposal of RFC2070 even + if the form specifies the get method. + +2005-11-24 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-submit): If anchor exists, go to the uri. + +2005-11-21 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m-favicon.el (w3m-favicon-type): Renew default image type list. + +2005-11-19 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m.el (w3m-menubar): Renew enable/disable condition for `[Copy This + Session]',`[Download This URL]', and Append `[Toggle This Image]'. + + * w3m-bookmark.el (w3m-bookmark-menu-items): Renew enable/disable + condition for `[Add This URL to Bookmark]'. + +2005-11-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-open-all-links-in-new-session): Reverse the list of URLs. + +2005-10-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-drag-mouse-function): Lower the buffer displayed + before moving to the other tab. + (w3m-tab-click-mouse-function): Ditto. + +2005-10-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-util.el (w3m-add-face-property): Simplified. + +2005-10-15 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m-util.el (w3m-add-face-property): Add new functions. + (w3m-remove-face-property): Ditto. + + * w3m.el (w3m-fontify-bold, w3m-fontify-underline) + (w3m-fontify-strike-through, w3m-fontify-anchors) + (w3m-fontify-images): Replace `w3m-add-text-properties' to + `w3m-add-face-property' at FACE. + (w3m-refontify-anchor): Change for FACE properly is list type. + +2005-10-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-insert-image): Make it work with a face text property + whose value is a list. + (w3m-remove-image): Remove useless text property. + * w3m-e23.el (w3m-insert-image,w3m-remove-image): Same as w3m-e21.el's + modification. + +2005-09-29 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-proc.el (w3m-process-filter): Fixed regexp. + +2005-09-27 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-proc.el (w3m-process-filter): Remove SSL warning message for + basic authentication over SSL. + +2005-09-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify): Remove empty lines at the beginning of the + buffer (see the comment). + +2005-09-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * mime-w3m.el (mime-w3m-preview-text/html): Revert. + +2005-09-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * mime-w3m.el (mime-w3m-preview-text/html): Bind w3m-treat-image-size + to avoid inserting excessive newlines. + +2005-09-18 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m.el (w3m-relationship-estimate-rules): Add a rule for Google Blog + Search. + + * w3m-search.el (w3m-search-engine-alist): Use + `http://blogsearch.google.com/' instead of `http://search.blogger.com/' + for "blog-*" search, because search.blogger.com does not have a + explicit link to previous search result page. + +2005-09-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-redisplay-this-page): Use the cache always. + +2005-09-15 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m-search.el (w3m-search-engine-alist): Add "blog-*" entries. + +2005-09-02 TAKAHASHI Kaoru <kaoru@kaisei.org> + + * doc/ptexinfmt.el: Support @frenchspacing, @euro, @sansserif. + (texinfo-format-ordf): Fix typo. + +2005-09-01 Hiroshi Fujishima <hiroshi.fujishima@gmail.com> + + * w3m-search.el (w3m-search-engine-alist): Update goo-ja, waei, eiwa, + kokugo URL. + +2005-08-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-ucs.el: Enable XEmacs 21.5-Mule to compile it anyway. + +2005-08-29 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify-anchors): Put the encoded anchor names instead of + the itself. + +2005-08-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * octet.el (octet-insert-buffer): Use insert-buffer-substring instead + of insert-buffer. + + * w3m-bookmark.el (w3m-about-bookmark): Ditto. + + * w3m-proc.el (w3m-process-sentinel): Ditto. + +2005-07-29 Kevin Rodgers <kevin.rodgers@ihs.com> + + * w3m.el (w3m-content-type-alist): Add the text/sgml entry. + +2005-07-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-scroll-up-1): New function. + (w3m-lynx-like-map): Use it for the J command. + (w3m-scroll-up-or-next-url): Use it. + +2005-07-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-current-message): New internal variable. + (w3m-message): Use the above variable to keep the last displayed + message, to decide that this function can override the current message + in the echo area. + (w3m-make-help-echo): Use `message' instead of `w3m-message' to clear + the echo area in the foreground context. + (w3m-quit): Ditto. + (w3m-goto-ftp-url): Ditto. + (w3m-select-buffer-show-this-line-and-switch): Ditto. + + * w3m-proc.el (w3m-process-background): New internal variable. + (w3m-process-sentinel): Set t to the above variable. + +2005-07-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-message): Bury messages when the cursor in the echo area + which is used by `y-or-n-p' etc. + (w3m-view-parent-page): Refer both `start' link element and `content' + start element before checking a parent URL. + +2005-07-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bookmark.el (w3m-bookmark-menu-dummy-item): Remove. + (w3m-bookmark-menubar-dummy): Remove. + (w3m-bookmark-menu-items): Also define the menu for the case where + w3m-bookmark-mode is turned on. + (w3m-setup-bookmark-menu): Rewrite it so as to work properly with Emacs + 22. + (w3m-bookmark-menubar-update): Ditto; remove the iswitchb section. + (w3m-bookmark-make-menu-items): Return nil if there's no bookmark. + + * w3m-tabmenu.el (w3m-tab-menubar-dummy): Remove. + (w3m-setup-tab-menu): Rewrite it so as to work properly with Emacs 22. + (w3m-tab-menubar-update): Ditto; remove the iswitchb section. + +2005-07-11 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-bookmark.el (w3m-bookmark-buffer): Disable undo before modify the + buffer. + (w3m-bookmark-menu-items-pre): New variable. + (w3m-bookmark-menu-items-time): Ditto. + (w3m-bookmark-make-menu-items): Use previous items if it available. + +2005-07-09 Tsuyoshi CHO <tsuyoshi_cho@yahoo.co.jp> + + * w3m-xmas.el (top): Add `w3m-setup-bookmark-menu' to autoload list at + compiled time. + (w3m-setup-menu): Append bookmark menu setup calling. + + * w3m-bookmark.el (top): Add requirement `easymenu' and + `easy-menu-remove-item' autoload at compiled time. + (w3m-bookmark-menu-open-new-session): Add new customize variable. + (w3m-bookmark-menu-dummy-item): Add new const variable. + (w3m-bookmark-menubar-dummy): Ditto. + (w3m-bookmark-menu-items): Ditto, Define Bookmark const menu items. + (w3m-setup-bookmark-menu): Add new autoload function. + (w3m-bookmark-menubar-update): Add new function. + (w3m-bookmark-iterator): Ditto. + (w3m-bookmark-menu-open-item): Ditto. + (w3m-bookmark-make-menu-items): Ditto. + + * w3m.el (top): Add `w3m-setup-bookmark-menu' to autoload list at + compiled time. + (w3m-menubar): Remove "Bookmark" menu item. + +2005-07-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-print-current-url): Bind deactivate-mark. + (w3m-print-this-url): Ditto. + +2005-07-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-check-current-position): Bind deactivate-mark. (cf. + http://news.gmane.org/group/gmane.emacs.pretest.bugs/thread=8335). + +2005-07-05 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * ChangeLog: Add file local variables to set fill-column 74 and + indent-tabs-mode t. + +2005-07-03 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m-search.el (w3m-search-engine-alist): Add "technorati-*" entries. + +2005-07-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-which-command): Make sure the command is not a + directory. cf. <URL:http://emacs-w3m.namazu.org/ml/msg08113.html>. + +2005-06-26 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m.el (w3m-relationship-estimate-rules): Add a rule for Yahoo Search + Beta. + +2005-06-26 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m.el (w3m-relationship-estimate-rules): Improve regexp for Google + in order to make the scroll-to-next-page feature work on Google News as + well. + +2005-06-26 Masayuki Ataka <ataka@milk.freemail.ne.jp> + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-search.el (w3m-search-engine-alist): Add Yahoo Beta. + +2005-06-18 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m-search.el (w3m-search-engine-alist): Search Google News in US by + "google news-en". + +2005-06-17 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m-search.el (w3m-search-engine-alist): Add "google news" entry. + +2005-06-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_PATH_EMACS): Check whether XEmacs works with the shy + group regexp and runs call-process-region correctly. + + * w3m-perldoc.el (w3m-about-perldoc): Don't relieve buggy XEmacs 21.5 + for call-process-region. + + * w3m-xmas.el (w3m-fix-gif): Ditto. + (w3m-initialize-graphic-icons): Ditto. + + * w3m.el (w3m-decode-encoded-contents): Ditto. + (w3m-x-moe-decode-buffer): Ditto. + (w3m-rendering-half-dump): Ditto. + + * w3mhack.el: Advise byte-optimize-form-code-walker to avoid the + ``...called for effect'' warnings for Emacs 21.4 as well as 21.3; don't + relieve buggy XEmacs 21.5 for call-process-region. + +2005-06-10 Katsumi Yamaoka <yamaoka@jpl.org> + + Make emacs-w3m not support the XEmacs versions older than 21.4.17 + or 21.5-b19. + + * aclocal.m4 (AC_PATH_EMACS): Check whether XEmacs runs the timer + functions correctly. + + * w3m-util.el (w3m-cancel-refresh-timer): Use delete-itimer instead of + cancel-timer under XEmacs. + + * w3m-xmas.el (call-process-region): Don't advise it. + (w3m-run-at-time): Remove. + + * w3m.el (w3m-refresh-at-time): Use run-at-time instead of + w3m-run-at-time. + + * w3mhack.el (w3mhack-byte-optimize-letX): Doc fix. + +2005-06-09 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m.el: Update my mail address. + +2005-06-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-antenna.el (w3m-antenna-mapcar): Remove unused temp var. + + * w3m-bookmark.el (w3m-bookmark-buffer): Remove + file-coding-system-for-read. + + * w3m-form.el (w3m-form-input-textarea-save): Remove + file-coding-system. + (w3m-form-input-textarea): Ditto. + + * w3m-image.el (w3m-imagick-convert-buffer): Remove file-coding-system. + (w3m-imagick-start-convert-buffer): Remove file-coding-system and + jam-zcat-filename-list. + + * w3m.el (w3m-load-list): Remove file-coding-system-for-read. + (w3m-save-list): Remove file-coding-system. + (w3m-local-retrieve): Remove file-coding-system-for-read and + jam-zcat-filename-list. + (w3m-download): Remove file-coding-system and jam-zcat-filename-list. + (w3m-copy-buffer): Remove unused temp var. + + * w3mhack.el (w3mhack-byte-optimize-letX): Remove file-coding-system, + file-coding-system-for-read and pathname-coding-system. + +2005-06-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-replace-in-string): Don't use eval-and-compile. + (w3m-compare-strings): Ditto. + (w3m-force-window-update): Alias to ignore if it is not defined. + (w3m-force-window-update-later): New function. + + * w3m-favicon.el (w3m-favicon-retrieve): Use + w3m-force-window-update-later. + + * w3m-proc.el (w3m-process-stop): Use w3m-force-window-update-later. + + * w3m.el (w3m-retrieve-and-render): Use w3m-force-window-update-later. + (w3m-select-buffer-show-this-line): Always run w3m-force-window-update. + +2005-06-09 Masatake YAMATO <jet@gyve.org> + + * w3m-e21.el (w3m-initialize-graphic-icons): Highlight icon under + mouse. + +2005-06-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-mouse-face): New face. + (w3m-setup-header-line): Use highlight face for bg color. + (w3m-tab-line): Use w3m-tab-mouse-face. + +2005-06-08 Masatake YAMATO <jet@gyve.org> + + * w3m-e21.el (w3m-setup-header-line): Highlight url under mouse. + (w3m-tab-line): Highlight tab under mouse. + +2005-05-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-run-mode-hooks): New function. + + * w3m-form.el (w3m-form-input-select-mode): Use it. + (w3m-form-input-map-mode): Use it. + + * w3m.el (w3m-mode): Use it. + +2005-05-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-truncate-string): Autoload mule-util for + truncate-string-to-width. + +2005-05-26 Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m.el (w3m-safe-view-this-url): `unsecure' -> `insecure'. + (w3m-safe-toggle-inline-image): Ditto. + (w3m-safe-toggle-inline-images): Ditto. + +2005-05-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-menubar): Add the "Close Other Sessions" button. + (w3m-delete-other-buffers): Run w3m-force-window-update. + +2005-05-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * attic/vm-w3m.el (vm-w3m): Provide the feature. + + * attic/vm-7.19.patch: New file. + +2005-05-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-open-all-links-in-new-session): Fix regexp. + +2005-05-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bookmark.el (w3m-about-bookmark): Use shy group in regexp. + + * w3m-cookie.el (w3m-cookie-two-dot-domains-regexp): Ditto. + (w3m-cookie-set): Ditto. + + * w3m-dtree.el (w3m-dtree-directory-name): Ditto. + (w3m-about-dtree): Ditto. + + * w3m-favicon.el (w3m-favicon-setup): Ditto. + + * w3m-namazu.el (w3m-about-namazu): Ditto. + + * w3m-proc.el (w3m-process-filter): Ditto. + + * w3m-rss.el (w3m-rss-parse-date-string): Ditto. + + * w3m-util.el (w3m-html-string-regexp): Remove useless quotes. + (w3m-parse-attributes): Don't use old fashioned backquotes; use shy + group in regexp. + (w3m-url-authinfo-regexp): Use shy group in regexp. + + * w3m-weather.el (w3m-weather-completion-table): Ditto. + (w3m-weather-area-completion): Ditto. + + * w3m-xmas.el (w3m-fix-gif): Ditto. + + * w3m.el: Use shy group in regexp when examining w3m-command. + (w3m-content-type-alist): Use shy group in regexp. + (w3m-show-decoded-url): Ditto. + (w3m-add-referer): Ditto. + (w3m-relationship-estimate-rules): Ditto. + (w3m-arrived-ignored-regexp): Ditto. + (w3m-history-ignored-regexp): Ditto. + (w3m-url-to-file-name): Ditto. + (w3m-fontify-strike-through): Ditto. + (w3m-fontify): Ditto. + (w3m-url-completion): Ditto. + (w3m-gmane-url-at-point): Ditto. + (w3m-cache-header-delete-variable-part): Ditto. + (w3m-cache-available-p): Ditto. + (w3m-decode-buffer): Ditto. + (w3m-local-dirlist-cgi): Ditto. + (w3m-w3m-canonicalize-url): Ditto. + (w3m-additional-command-arguments): Ditto. + (w3m-download): Ditto. + (w3m-check-header-tags): Ditto. + (w3m-retrieve-and-render): Ditto. + (w3m-create-text-page): Ditto. + (w3m-view-this-url): Ditto. + (w3m-open-all-links-in-new-session): Ditto. + (w3m-external-view-file): Ditto. + (w3m-edit-url): Ditto. + (w3m-convert-ftp-url-for-emacsen): Ditto. + (w3m-goto-url): Ditto. + (w3m-goto-url-new-session): Ditto. + (w3m-about-db-history): Ditto. + (w3m-history-highlight-current-url): Ditto. + + * w3mhack.el: Fix the section adding dirs to load-path. + (w3mhack-make-package): Use shy group in regexp. + (w3mhack-makeinfo): Ditto. + +2005-05-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (clean): Don't remove w3m-kwds.el. + (.el.elc): Use batch-byte-compile instead of w3mhack-batch-compile. + (very-slow): Don't run keywords. + (keywords): Remove. + + * aclocal.m4 (AC_PATH_EMACS): Don't support Emacs 19 and 20. + (AC_PATH_LISPDIR): Follow the change of the EMACS_FLAVOR value. + (AC_PATH_ICONDIR): Ditto. + (AC_CHECK_ELISP): Remove. + (AC_CHECK_XML): Remove. + + * configure.in: Don't check for regexp-opt; don't run AC_CHECK_XML. + + * mime-w3m.el (mime-w3m-mode-map): Remove. + (mime-w3m-local-map-property): Remove. + (mime-w3m-preview-text/html): Don't use it. + + * octet.el (octet-decode-image): Ignore Emacs 19 and 20. + + * w3m-bitmap.el: Remove. + + * w3m-bookmark.el (w3m-bookmark-sections): Use point-at-eol. + (w3m-bookmark-safe-string): Don't support Mule 2.3. + (w3m-bookmark-current-number): Use point-at-eol. + (w3m-bookmark-kill-entries): Use point-at-bol. + + * w3m-bug.el: Don't require w3m-om or w3m-e19. + + * w3m-ccl.el: Don't require w3m-om. + + * w3m-e19.el: Remove. + + * w3m-e20.el: Remove. + + * w3m-hist.el: Don't load w3m-kwds.el. + + * w3m-lnum.el (w3m-link-numbering): Don't support Emacs 20. + + * w3m-om.el: Remove. + + * w3m-proc.el: Don't require w3m-om or w3m-e19. + + * w3m-search.el (w3m-search-read-query): Use point-at-bol. + + * w3m-ucs.el: Ignore Emacs 20. + + * w3m-util.el: Don't load w3m-kwds.el; don't support Emacs 19. + (w3m-use-tab-p): Ignore Emacs 19 and 20. + (w3m-popup-window-p): Ditto. + (w3m-add-w3m-initial-frames): Don't support Emacs 19. + (after-make-frame-hook): Don't use it. + (delete-frame): Don't advise it for Emacs 19 or 20. + (w3m-truncate-string): Don't support Emacs 19 and 20. + (w3m-default-face-colors): Remove. + (w3m-replace-in-string): Don't support Emacs 19 and 20. + + * w3m-xmas.el (w3m-should-unoptimize-animated-gifs): Default to always + t. + (w3m-make-glyph): Use string-to-number instead of string-to-int. + + * w3m.el: Don't require w3m-e20, w3m-om or w3m-e19. + (emacs-w3m-version): Reset to 1.4.50. + (w3m-language): Ignore Mule 2.3. + (w3m-history-current-url-face): Don't require wid-edit. + (w3m-bold-face): Don't use w3m-default-face-colors. + (w3m-underline-face): Ditto. + (w3m-strike-through-face): Ditto. + (w3m-use-symbol): Ignore Emacs 19 and 20. + (w3m-show-decoded-url): Ditto. + (w3m-use-tab): Doc fix. + (w3m-entity-alist): Don't support Mule 2.3. + (w3m-make-help-echo): Ignore Emacs version. + (w3m-toggle-inline-images-internal): Ignore bitmap images. + (w3m-resize-inline-image-internal): Don't support Emacs 19 and 20. + (w3m-url-at-point): Always use ffap. + (w3m-about-retrieve): Consider base64 codec is always available. + (w3m-close-window): Don't support Emacs 19 and 20. + (w3m-store-current-position): Use point-at-bol and point-at-eol. + (w3m-buffer-setup): Ditto. + (w3m-make-separator): Don't support Mule 2.3. + (w3m-select-buffer-current-buffer): Use point-at-bol. + (w3m-header-line-insert): Don't support Emacs 19 and 20. + + * w3mhack.el: Consider w3mhack-batch-compile is not used. + (locate-library): Don't redefine it for Emacs 19. + (APEL): Don't check for it for Emacs. + (w3mhack-colon-keywords-file): Remove. + (w3mhack-module-list): Ignore Emacs 19, 20, old XEmacsen and + BITMAP-MULE. + (w3mhack-shimbun-modules-using-rss): Remove. + (current-column): Don't take care of it for old Emacsen. + (w3mhack-compile): Don't run w3mhack-check-colon-keywords-file. + (w3mhack-batch-compile): Remove. + (w3mhack-nonunix-install): Ignore Emacs 19 and 20. + (custom-declare-variable): Don't take care of it for Emacs 19. + (locate-library): Ditto. + (w3mhack-generate-colon-keywords-file): Remove. + (w3mhack-check-colon-keywords-file): Remove. + (w3mhack-load-path): Ignore Emacs 19, 20 and old XEmacsen. + (w3mhack-makeinfo): Ignore Mule 2.3. + + * attic/regexp-opt.el: Remove. + + * attic/xml.el: Remove. + + * patches/mule-2.3@19.34.patch: Remove. + +2005-04-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-remove-invisible-image-alt): New function. + (w3m-rendering-buffer): Use it. + +2005-04-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-buffer): Decode "\240" into " ". + +2005-04-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-buffer): Decode `&#nnn;' entities in 128..159. + +2005-04-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-detect-xml-charset): Return nil if the data don't look + like xml contents. + (w3m-compatible-encoding-alist): New variable. + (w3m-decode-buffer): Always use w3m-detect-xml-charset; use a + compatible encoding according to w3m-compatible-encoding-alist. + + * w3m-xmas.el (w3m-find-coding-system): Don't return binary for the nil + argument. + + +2005-03-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * Release emacs-w3m-1.4.4 from emacs-w3m-1_4 branch. + +2005-03-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-setup-toolbar): Make sure icon files exist. + (w3m-update-toolbar): Make sure toolbar items have been specified. + (w3m-initialize-graphic-icons): Make sure icon files exist. + + * w3m-e21.el (w3m-setup-toolbar): Make sure icon files exist. + (w3m-initialize-graphic-icons): Ditto. + +2005-03-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (tarball): Remove `w3m-e23.el' instead of `w3m-e22.el'. + + * w3m.el (w3m-url-readable-string): Decide a scheme to guess encodings + based on the target URL, instead of the current URL. + (w3m-show-decoded-url): Doc fix to follow the above change. + (w3m-copy-buffer): Do not set `w3m-current-url' and + `w3m-current-coding-system'. + (w3m-goto-url-new-session): Simplified. + +2005-03-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (display-images-p): Remove alias. + +2005-03-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (very-slow): Don't mv non-existent files. + + * w3m-e19.el (easy-menu-remove-item): Don't autoload it. + + * w3m-om.el (easy-menu-remove-item): Ditto. + + * w3m-rss.el (match-string-no-properties): Avoid warning for Emacs 19 + and XEmacs. + (split-string): Avoid warning for Emacs 19. + + * w3m-symbol.el: Require cl when compiling. + + * w3m-tabmenu.el (easy-menu-remove-item): Aautoload it for Emacs 19. + + * w3m.el: Autoload widget-get to avoid compile warning for Emacs 19. + (w3m): Remove unused bound variable. + + * w3mhack.el: Bind executable-binary-suffixes to the proper value for + OS/2 and emx while checking for the shell command; cause an error only + when compiling or formatting files. + + * attic/addpath.el: Make it work with old Emacsen even if cl is not + loaded; load custom, bind defcustom'ed variables and make the + locate-library function run quietly for Emacs 19; synch the code + testing the shell command with w3mhack.el. + (char-after): Add a byte-optimizer for Emacs 19. + + * w3m-ccl.el: Load w3m-om instead of autoloading it for charset-id. + + * w3m-util.el: Load cl independently when compiling. + +2005-03-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el: Check whether the shell command can be used. + + * attic/addpath.el: Ditto; add early-package-load-path to load-path for + XEmacs 21.5. + +2005-03-17 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-favicon.el: Add autoload of `w3m-url-readable-string'. + +2005-03-17 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> + + * w3m.el (w3m-check-header-tags): Check abnormal `base' url. + +2005-03-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el: Add early-package-load-path to load-path for XEmacs 21.5. + + * w3m-xmas.el: Fbind coding-system-type to ignore if it is void. + +2005-03-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-mee-new): Display clear signs of coding-system + for `w3m-url-decode-string'. + (w3m-form-mee-select-value): Ditto. + (w3m-form-parse-and-fontify): Ditto. + + * w3m.el (w3m-decode-buffer): Decode the buffer within buffer set the + `multibyte'. + +2005-03-13 MIYOSHI Masanori <miyoshi@meadowy.org> + + * doc/emacs-w3m-ja.texi (Sport Sites Supported by Shimbun): Update. + + * doc/emacs-w3m.texi (Sport Sites Supported by Shimbun): Ditto. + +2005-03-12 MIYOSHI Masanori <miyoshi@meadowy.org> + + * doc/emacs-w3m-ja.texi (Sport Sites Supported by Shimbun): Update. + + * doc/emacs-w3m.texi (Sport Sites Supported by Shimbun): Ditto. + +2005-03-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Load w3m-e23.el(c) that exists in the same directory as + w3m.el(c) so as to exclude ones in other places; report the precise + error message if it doesn't exist. + +2005-03-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-decode-coding-string-with-priority): Ignore + `undecided' so as not to use it for the priority list. + +2005-03-10 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-fsf.el (w3m-detect-coding-region): Guard error for `undecided'. + +2005-03-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el: Remove the byte-optimizer which replaces truncate-string + with truncate-string-to-width. + +2005-03-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-modeline-title): Replace truncate-string-to-width with + w3m-truncate-string. + + * w3m-util.el (w3m-truncate-string): Use truncate-string-to-width if it + is available. + +2005-03-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-info-like-map): Bind the `y' key to the + w3m-print-current-url command; bind the `Y' key to the + w3m-print-this-url command; don't bind the `c' key. + +2005-03-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-make-help-echo): Fix the backquote form. + (w3m-make-balloon-help): Ditto. + + * w3m-util.el (w3m-set-match-data): Use existing markers. + +2005-03-04 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-url-readable-string): Save matching data. Check whether + `w3m-current-url' is string before checking it. + (w3m-goto-url-new-session, w3m-copy-buffer): Call `w3m-goto-url' with + `redisplay' option to enforce redisplaying the certain content. + + * w3m-favicon.el (w3m-favicon-retrieve): Decode an URL when displaying + it. + + * w3m-form.el (w3m-form-input-textarea-mode-setup): An expression is + evaluated without checking type, and save matching data. + +2005-03-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-url-readable-string): Check whether + `w3m-current-coding-system' is valid before calling + `w3m-url-decode-string'. + (w3m-local-dirlist-cgi, w3m-w3m-dump-extra): Use + `w3m-url-readable-string'. + (w3m-copy-buffer): Copy all buffer-local variables, and do not cancel + them even if `empty' option is set. + (w3m-display-progress-message): Import from w3m-util.el to suppress + byte-compile warnings. + + * w3m-util.el (w3m-parse-attributes): Accept XHTML format of boolean + atttibutes. + (w3m-display-progress-message): Export to w3m.el. + +2005-03-03 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-url-readable-string): An expression is evaluated without + checking type. + +2005-03-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-show-decoded-url): Update its customize spec to use it as + the rule set to decode URIs when displaying them. Changed its default + value. + (w3m-url-readable-string): New function to process the above option. + (w3m-make-help-echo, w3m-make-balloon-help): Do not accept `url-decode' + option, and use the above function to decore URIs. + (w3m-fontify-anchors): Follow the above change. + (w3m-print-current-url, w3m-print-this-url): Call the above function. + (w3m-make-url-decode-function): Removed. + (w3m-entity-alist, w3m-about-history): Remove redundant `function'. + For more detail, see http://www.mew.org/~kazu/doc/elisp/function.html. + +2005-03-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-modeline-title-string): New variable. + (w3m-modeline-title-timer): New variable. + (w3m-modeline-title): New function used to truncate the title string + not to cut the right end of the mode line. Works only with Emacs 22 + and newer. + (w3m-buffer-setup): Use it. + +2005-03-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-make-help-echo): Make it work with XEmacs. + (w3m-make-balloon-help): Support decoding URIs. + (w3m-fontify-anchors): Make the balloon-help show decoded URIs. + +2005-03-02 ARISAWA Akihiro <ari@mbf.ocn.ne.jp> + + * w3m.el (w3m-show-decoded-url): New user option. + (w3m-make-url-decode-function): New inline function. + (w3m-make-help-echo): Use it. + (w3m-fontify-anchors): The function of help-echo property has an + ability to decode url. + +2005-03-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-decode-coding-string-with-priority): New function. + + * w3m.el (w3m-url-decode-string): Use it. + +2005-03-01 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-w3m-attributes-1): Support `300 Multiple Choices'. + (w3m-w3m-retrieve): Ditto. + (w3m-w3m-retrieve-1): Ditto. + +2005-02-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-detect-coding-region): Use the name of the coding + system instead of the coding category if it is void. + + * w3m-util.el (w3m-set-match-data): New macro which converts points + into markers under XEmacs. + (w3m-search-tag-1): Use it. + + * w3m-e19.el: Autoload easymenu in order to avoid compile warning. + * w3m-om.el: Ditto. + +2005-02-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (all): Use `w3m-form-set-number' and `w3m-form-kill-buffer' + instead of `w3m-form-textarea-set-number' and + `w3m-form-textarea-kill-buffer' + + * w3m-form.el (w3m-form-input-select-urlid): New buffer local variable. + (w3m-form-input-map-urlname): Ditto. + (w3m-form-set-number): Rename from `w3m-form-textarea-set-number' and + treate buffers of `select' and `map'. + (w3m-form-kill-buffer): Ditto. + (w3m-form-input-select-set): Allways remove own buffer. + (w3m-form-input-select-exit): Ditto. + (w3m-form-input-map-set): Ditto. + (w3m-form-input-map-exit): Ditto. + (w3m-form-input-select): When exists same from buffer, use it. + (w3m-form-input-map): Ditto. + +2005-02-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-what-where): Fix the form. + (w3mhack-makeinfo): Silence it when formatting @multitable section. + +2005-02-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (top): Add autoloads of `w3m-form-textarea-kill-buffer' and + `w3m-form-textarea-set-number' to avoid byte-compile warnings. + (w3m-delete-buffer): Call `w3m-form-textarea-kill-buffer' when use + form. + (w3m-delete-other-buffers): Ditto. + (w3m-quit): Ditto. + (w3m-select-buffer-delete-buffer): Ditto. + (w3m-pack-buffer-numbers): Call `w3m-form-textarea-set-number' when use + form. + + * w3m-form.el (top): Move all buffer local variables on the top to + avoid byte-compile warnings. + (w3m-form-parse-and-fontify): Set `w3m-form-use-textarea-backup-p' to + nil. + (w3m-form-input-textarea-save): Use `w3m-form-use-textarea-backup-p' + instead of `w3m-form-use-textarea-backup'. + (w3m-form-input-textarea-set): Allways remove textarea buffer and + window. + (w3m-form-input-textarea-exit): Ditto. + (w3m-form-input-textarea): Check to call for backup. Check identity of + existed textarea buffer and w3m buffer. Treat + `w3m-form-use-textarea-backup-p'. + (w3m-form-use-textarea-backup-p): New function. + (w3m-form-textarea-set-number): Ditto. + (w3m-form-textarea-kill-buffer): Ditto. + (w3m-form-submit-get-textarea-files): If no backup, return nil. + +2005-02-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el: Autoload cancel-timer for XEmacs. + + * w3m-xmas.el (w3m-run-at-time): Use run-at-time which comes from + timer-funcs.el if it seems to work correctly. + (cancel-timer): Defun if it is void. + +2005-02-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/ptexinfmt.el (texinfo-multitable-widths): Reverse the logic that + shows whether it is broken. + + * w3m-util.el: Autoload regexp-opt for Emacs 19. + + * w3mhack.el (w3mhack-makeinfo): Load poe for Emacs 19. + +2005-02-24 Romain Francoise <romain@orebokech.com> + + * w3m.el (w3m-lynx-like-map): Bind [follow-link] so as to make mouse-1 + work in Emacs 22 like mouse-2. + (w3m-info-like-map): Ditto. + +2005-02-23 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-antenna.el (w3m-antenna-check-rss): Parse all date fields. + +2005-02-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-form-input-textarea): Fix. + +2005-02-21 Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp>, + Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-input-textarea-mode-setup): Fix. + (w3m-form-input-textarea): Follow the above change. + +2005-02-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-form-textarea-edit-mode): Changed its default value + to `text-mode'. + +2005-02-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (install-package): Change the default directory in which + icon files will be installed from `etc/w3m/icons/' into + `etc/images/w3m/' following the most recent Emacs and Gnus. + (install-package-ja): Ditto. + + * aclocal.m4 (AC_EXAMINE_PACKAGEDIR): Use configure-package-path. + (AC_PATH_ICONDIR): Change the default directory in which icon files + will be installed from `etc/w3m/icons/' into `etc/images/w3m/' + following the most recent Emacs and Gnus. + + * w3m.el (w3m-icon-directory): Improve the way to determin the default + value. + + * w3mhack.el (w3mhack-nonunix-install): Change the default directory in + which icon files will be installed from `etc/w3m/icons/' into + `etc/images/w3m/' following the most recent Emacs and Gnus. + (w3mhack-make-package): Ditto. + (w3mhack-what-where): Ditto. + +2005-02-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-lnum.el: Rename from w3m-link-numbering.el. + + * mime-w3m.el: Load mime-parse.el before mime.el and w3m.el when + compiling rather than always loading mime.el and w3m.el. + +2005-02-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el: Changes to define `w3m-form-input-textarea-mode' as a + minor mode. + (w3m-form-textarea-edit-mode): New option. + (w3m-form-input-textarea-map): Renamed from + `w3m-form-input-textarea-keymap'. + (w3m-form-input-textarea-mode) [variable]: New internal variable. + (w3m-form-input-textarea-mode) [function]: Reconstructed. + (w3m-form-input-textarea-mode-setup): New function. + (w3m-form-input-textarea): Clean up. + +2005-02-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_PATH_EMACS): Show the correct Emacs version. + + * mime-w3m.el: Always require mime and w3m instead of to autoload + mime-parse.el. + + * w3m-bitmap.el: Bind w3m-work-buffer-list when compiling. + + * w3m-proc.el: Silence the byte compiler complaining against gensym. + + * w3m-rss.el: Use eval-and-compile in order to autoload timezone.el. + + * w3m.el (w3m-treat-drive-letter): Use eval-and-compile. + (w3m-touch-file-available-p): Move forward. + (w3m-touch-file): Ditto. + (w3m-expand-path-name): Use eval-and-compile. + (w3m-window-hscroll): Ditto. + (w3m-current-column): Ditto. + (w3m-set-window-hscroll): Ditto. + (w3m-add-local-hook): Silence the byte compiler. + (w3m-run-at-time): Use eval-and-compile. + + * w3mhack.el: Remove the code used to silence the byte compiler which + complains make-local-hook is obsolete. + (w3mhack-makeinfo): Silence XEmacs when formatting Infos. + + * octet.el: Require cl when compiling. + * w3m-filter.el: Ditto. + * w3m-fsf.el: Ditto. + * w3m-link-numbering.el: Ditto. + * w3m-namazu.el: Ditto. + +2005-02-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Load w3m-e23.el for Emacs 23. + + * w3mhack.el (w3mhack-module-list): Use w3m-e23.el for Emacs 23. + + * w3m-e23.el: Rename from w3m-e22.el. + +2005-02-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Load w3m-e21.el even if the version of Emacs is 22.x when the + Emacs CVS HEAD is used. + + * w3mhack.el (w3mhack-module-list): Prefer w3m-e21.el rather than + w3m-e22.el if the Emacs CVS HEAD is used. + +2005-02-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-html-skelton): Fix typo. + (w3m-antenna-make-contents): Replace %D to the modified time of + `w3m-antenna-file'. + +2005-02-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-gmane-url-at-point): New function. + (w3m-url-at-point): Use it. + +2005-01-30 Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m.el (w3m-attributes): Support cid urls. + (w3m-external-view): Ditto. + +2005-01-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-force-window-update): Make it work whatever the value + for the resize-mini-windows variable is. + (w3m-update-tab-line): Ditto. + +2005-01-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-rss.el (w3m-rss-parse-date-string): Support the date format in + the RFC822 style which RSS 2.0 allows. Suggested by David Hansen + <david.hansen@physik.fu-berlin.de>. + +2005-01-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-e21.el (w3m-force-window-update, w3m-update-tab-line): Call + `enlarge-window' before calling `shrink-window', in order to avoid + deleting sole window. + +2005-01-19 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-content-type-alist): Check if "fiber.exe" is exist. + +2005-01-17 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-parse-and-fontify): Check if w3m-current-url is + available. + +2004-07-24 Tsuyoshi CHO <mfalcon_sky@emailuser.net> + + * w3m.el (w3m-menubar): Rearrange it hierarchical. + (w3m-setup-menu): Use easymenu. + +2005-01-10 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-input-textarea): Modify string of the inquiry. + +2005-01-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-goto-url): Call `w3m-form-textarea-files-remove' if + necessary. + + * w3m-util.el (w3m-compare-strings): New define. + + * w3m-form.el (w3m-form-textarea-file-expire-date): Modify Document. + (w3m-fontify-textareas): Put `w3m-form-file-name' property. + (w3m-form-textarea-files, w3m-form-textarea-post-files): New buffer + local variable. + (w3m-form-parse-and-fontify): Set `w3m-form-textarea-files'. Put + `w3m-form-file-name' property on the form of textarea. + (w3m-form-input-textarea): Use same textarea buffer if exist. Don't + ask user if don't modify its area without tailed white space. Visible + the editted text when ask user. Guard against 'C-g'. Added + `w3m-form-textarea-file-cleanup' to hook as `kill-emacs-hook' + (w3m-form-textarea-same-check): New function. + (w3m-form-textarea-file-cleanup): Remove myself from `kill-emacs-hook'. + (w3m-form-textarea-files-remove): New function. + (w3m-form-submit-get-textarea-files): Ditto. + (w3m-form-submit): Set `w3m-form-textarea-post-files' for removing + files. + (w3m-form-resume): Check `selects' is cons. + +2005-01-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/Makefile.in (.texi.info): Set LC_ALL=C. + +2004-12-29 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-quit): Call `w3m-form-textarea-file-cleanup'. + (w3m-view-this-url-1): Revert final change. + + * w3m-form.el (w3m-form-textarea-file-expire-date): New user option. + (w3m-form-textarea-file-cleanup): New function. + +2004-12-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-use-textarea-backup): New user option. + (w3m-form-textarea-directory): Ditto. + (w3m-form-get-coding-system): New function. + (w3m-form-make-form-data): Use `w3m-form-get-coding-system'. + (w3m-form-input-textarea-keymap): Define "C-xC-s" to + `w3m-form-input-textarea-save'. + (w3m-form-input-textarea-file): New variable. + (w3m-form-input-textarea-coding-system): Ditto. + (w3m-form-input-textarea-filename): New function. + (w3m-form-input-textarea-save): Ditto. + (w3m-form-input-textarea-set): Call `w3m-form-input-textarea-save'. + (w3m-form-input-textarea-exit): Ditto. + (w3m-form-input-textarea-mode): Modify doc-string. + (w3m-form-input-textarea): Handling filename and coding-system. + +2004-12-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-this-url-1): Revert 2004-12-17 change. The buffer + seems empty killed before to restore window configuration. Restore the + position and window-start if last window equal current-window. + +2004-12-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-hist.el (w3m-history-restore-position): Handling the window of + w3m for sure absolutely. + +2004-12-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Revert. + +2004-12-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Bind undo-outer-limit. + +2004-12-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify-anchors): Local file is given special treatment + for `href'. Fix match data of `href'. + (w3m-view-this-url-1): If the points of window was treated in + w3m-goto-url(), now reconstruct window configuration. + +2004-12-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-update-tab-line): Wobble the window size instead of + setting the cursor color. + +2004-12-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-namazu.el (w3m-namazu): Added optional argument `reload'. + +2004-12-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-tag-regexp-of): Remove. + (w3m-search-tag-1): New function. + (w3m-search-tag): New macro. + + * w3m-form.el (w3m-form-parse-and-fontify): Use w3m-search-tag instead + of w3m-tag-regexp-of. + +2004-12-10 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify-anchors): Use 'w3m-name-anchor2 property to avoid + overriding 'w3m-name-anchor property. + (w3m-search-name-anchor): Search 'w3m-name-anchor2 property if not + detect 'w3m-name-anchor property. + +2004-12-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-form-parse-and-fontify): Ignore a select form in the + case where w3mmee is running if its value is not specified. Reported + by Clemens Fischer <ino-qc@spotteswoode.de.eu.org>. + + * w3mhack.el (labels): Remove. + +2004-11-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (labels): A temporary substitution against the Emacs CVS + bug. + +2004-11-26 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> + + * w3m-form.el (w3m-form-resume): Check whether a form exists, before + resuming its values from its history. + +2004-11-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-rss.el: New file. + + * w3m-antenna.el (w3m-antenna-check-rss): New function. + (w3m-antenna-sites): Improve its customize spec to support + `w3m-antenna-check-rss'. + + * w3m.el (w3m-content-type-alist): Add text/xml, application/xml, + application/rdf+xml, and application/rss+xml. + (w3m-detect-xml-charset): New function. + (w3m-decode-buffer): Use the above function when decoding XML contents. + +2004-11-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-redisplay-this-page): Don't make a new history. + +2004-11-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-output-coding-system): Use `utf-8' if Emacs has internal + utf-8 only. + (w3m-input-coding-system): Revert last change. + (w3m-halfdump-command-arguments): Bind `fix_width_conv' and + `use_jisx0201' when w3m-m17n. + +2004-11-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-input-coding-system): Use `utf-8' if Emacs has internal + utf-8, it has no Mule-UCS and w3m-type is `w3m-m17n'. + +2004-11-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-char-to-int, w3m-string-to-char-list, + w3m-int-to-char): Silence byte-compiler. + * w3m-ccl.el (charset-id): Ditto. + + * w3m-tabmenu.el (w3m-tab-menubar-update): Don't let iswitchb manage + the w3m tab menubar. + +2004-10-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-check-refresh-attribute): Support own page reload. + (w3m-goto-url-with-timer): Ditto. + +2004-10-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_ADD_LOAD_PATH): Clarify the error message. + +2004-10-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (call-process-region): Add an advice in order to fix an + XEmacs 21.5.18 bug. + * w3mhack.el (call-process-region): Ditto. + +2004-10-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-check-refresh-attribute): Fix to analyze the URL. + +2004-10-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-touch-file): Protect against the absence of + file-name-coding-system and default-file-name-coding-system. + +2004-10-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-buffer-setup): Modify `mode-line-buffer-identification'; + display "Loading..." instead of `w3m-current-titile' when process of + w3m active. + +2004-10-16 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-touch-file): Use `set-file-times' if available; bind + `coding-system-for-write' while calling `w3m-touch-command'. + +2004-10-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-perldoc.el (w3m-perldoc-input-coding-system) + (w3m-perldoc-output-coding-system): New options. + (w3m-about-perldoc): Use the above options, to display both modules + encoded in EUC-JP and ones encoded in UTF-8 correctly. + +2004-10-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-line): Replace "%" with "%%" in + w3m-tab-line-format. + +2004-10-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-retrieve): Add autoload cookie. + +2004-10-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-search.el (w3m-search-engine-alist): Add the parameter + `ie=Shift_JIS' to Google for Japanese users. + +2004-09-21 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-antenna.el (w3m-about-antenna): Revert 2004-09-16 change. + +2004-09-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-antenna.el (w3m-about-antenna): Change the method to compare an + arrived time to a last-modified time. + +2004-09-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Don't make a new history when reloading. + (w3m-reload-this-page): Ditto. + + * w3m-hist.el (w3m-history-restore-position): Don't cause an error even + if a page has shrunk. + + +2004-08-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.4.3 from emacs-w3m-1_4 branch. + +2004-08-15 Kazuhiro UCHIDA <kayoujin@yahoo.co.jp> + + * w3m.el (w3m-remove-meta-charset-tags): Check that a content field has + a valid value before parsing it. + +2004-08-12 Romain Francoise <romain@orebokech.com> + + * w3m.el (w3m-relationship-estimate-rules): Improve regexp for Google + in order to make the scroll-to-next-page feature work on Google Groups + as well. + +2004-08-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-relationship-estimate-rules): Fix regexp for Google. + Suggested by Romain Francoise <romain@orebokech.com>. + +2004-08-02 TAKAHASHI Kaoru <kaoru@kaisei.org> + + * doc/ptexinfmt.el (slanted): Rename @s to @slanted. + +2004-07-30 Romain Francoise <romain@orebokech.com> + + Enable emacs-w3m to be built with Emacs --without-x. + + * w3m-e21.el (image-size): Alias to ignore if it is not available. + + * w3m-favicon.el (w3m-favicon-type): Don't use image-types if it is not + available. + + * w3m.el (mouse-set-point): Autoload mouse.elc. + +2004-07-20 TAKAHASHI Kaoru <kaoru@kaisei.org> + + * doc/ptexinfmt.el: Support @s. + + +2004-07-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.4.2 from emacs-w3m-1_4 branch. + + * w3m.el (w3m-w3m-canonicalize-url): Revival. + (w3m-w3m-attributes, w3m-w3m-retrieve): Call the above. + (w3m-canonicalize-url): Do not check a slash. + +2004-07-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-detect-meta-charset): Check that a content field has a + valid value before parsing it. + +2004-07-08 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + Suggested by Tatsuya Kinoshita <tats@vega.ocn.ne.jp> + + * w3m.el (w3m-correct-charset-alist): Reverse "windows-125x" and + "cp125x". + + +2004-07-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.4.1 from emacs-w3m-1_4 branch. + +2004-07-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-weather.el: Reconstructed to follow the change of site design. + (w3m-weather-completion-table, w3m-weather-filter-functions): Update. + (w3m-weather-extract-contents, w3m-weather-adjust-contents): New + functions. + (w3m-weather-remove-headers, w3m-weather-remove-footers, + w3m-weather-get-seikatu-sisu, w3m-weather-insert-seikatu-sisu): + Removed. + +2004-06-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-canonicalize-url): Don't make sure arg is a string. + (w3m-input-url): Don't use w3m-canonicalize-url for non-string url + which may be the symbol popup. + +2004-06-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-canonicalize-url): New function. + (w3m-input-url, w3m-browse-url): Call the above. + (w3m-w3m-canonicalize-url): Abolished. + (w3m-w3m-attributes, w3m-w3m-retrieve): Do not call the abolished + function. + (w3m-url-hierarchical-schemes): Add `ftps'. + +2004-06-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-add-w3m-initial-frames): Share the opened frame in + w3m-initial-frames over all emacs-w3m buffers if w3m-use-tab is + non-nil. + (w3m-delete-w3m-initial-frames): New function; add it to + delete-frame-functions or delete-frame-hook, or merge into delete-frame + using defadvice. + (w3m-delete-frames-and-windows): Return to the former buffer after + performing walk-windows; don't manage w3m-initial-frames. + + * w3m.el (w3m-delete-buffer): Don't manage w3m-initial-frames. + +2004-06-14 Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m.el (TopLevel): Display meaningful message when w3m-command is + nil. + +2004-06-21 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-fontify): Call `w3m-replace-symbol' before + `w3m-fontify-anchors' in order not to lose text properties. + +2004-06-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m): Run w3m-mode before popping to the newly created buffer + up. + +2004-06-12 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-output-coding-system): Change default value for w3m-m17n. + + * w3m-bug.el (report-emacs-w3m-bug-system-informations): Add + w3m-input-coding-system and w3m-output-coding-system. + +2004-06-11 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-meta-content-type-charset-regexp) + (w3m-meta-charset-content-type-regexp) + (w3m-meta-refresh-content-regexp) + (w3m-meta-content-refresh-regexp): Removed. + (w3m-detect-meta-charset, w3m-remove-meta-charset-tags) + (w3m-check-refresh-attribute): Use `w3m-parse-attributes' instead of + above regexp. + (w3m-rendering-buffer): Don't call `w3m-remove-meta-charset-tags' for + w3m-m17n. + +2004-06-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-make-new-session): Doc fix. + (w3m-safe-view-this-url): Use w3m-goto-url-new-session only when a user + invokes this command in a buffer not being running the w3m-mode. + +2004-06-07 Masatake YAMATO <jet@gyve.org> + + * w3m-hist.el (w3m-history-store-position): Fix a wrong message. + +2004-06-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-filter.el (w3m-filter-rules): Relax the condition. + +2004-06-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-make-new-session): Doc fix. + (w3m-safe-view-this-url): Use w3m-goto-url-new-session instead of + w3m-goto-url when w3m-make-new-session is non-nil. + +2004-06-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-make-new-session): New user option. + (w3m): Make a new emacs-w3m buffer if w3m-make-new-session is non-nil + and a user specifies a url string. + +2004-06-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-popup-buffer): Don't use focus-frame in Emacs. + +2004-06-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-proc.el (w3m-process-wait-discard-input): Abolish. + (w3m-process-wait-process): Don't use accept-process-output to make it + possible to show progress messages; discard key press events while + waiting for finishing of a process. + +2004-05-24 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-put-by-name): Overwrite ID value when a name is + found. + +2004-05-22 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-fontify): Remove tags in the form element except for + textarea. + +2004-05-18 Katsumi Yamaoka <yamaoka@jpl.org> + Suggested by Yoichi NAKAYAMA <yoichi@geiin.org> + + * w3m-util.el (w3m-replace-in-string): New function which is a copy of + shimbun-replace-in-string. + * w3m.el (w3m-active-region-or-url-at-point): Use it; remove all + whitespace in region. + +2004-05-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-view-inline-image): Bind mew-use-text/html as t. + +2004-05-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-home-page): Improve the customizing widget. + +2004-05-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-expand-url): Bind file-name-handler-alist as nil. + +2004-05-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-arrived-ignored-regexp): Add about:blank. + (w3m-history-ignored-regexp): Ditto. + (w3m-about-retrieve): Ditto. + (w3m-buffer-setup): Prefer the last visited emacs-w3m buffer. + +2004-05-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-filter.el (w3m-filter-rules): Update its default value and its + customize spec. + +2004-05-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-w3m-dump-extra): Examine image data briefly to detect + only gif, jpeg and png by itself. + + * w3m-util.el (w3m-image-type-from-data): Abolish. + +2004-05-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-dump-extra): Check only 300 bytes at the top of the + data. + +2004-05-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-image-type-from-data): New function. Suggested by + KOSEKI Yoshinori <kose@meadowy.org>. + + * w3m.el (w3m-w3m-dump-extra): Use it. + +2004-05-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-proc.el (w3m-process-start-process): Use + set-process-query-on-exit-flag if it is available. + + * w3m.el (w3m-w3m-dump-extra): Trust the magic at the beginning of + image data rather than the content-type header. + +2004-05-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-copy-buffer): Prefer cached contents without checking + their validity. + +2004-05-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-waited): Revival. + (w3m-process-with-wait-handler): Set t to the above. + + * w3m.el (w3m-w3m-dump-extra): Check the above. + +2004-04-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (emacs-w3m-version): Reset. + + +2004-04-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.4 from emacs-w3m-1_4 branch. + + * Makefile.in (install-package): Install w3m-load.el. + (dist, tarball): Reimplemented, in order to keep time stamps of source + files. + + * w3mhack.el (w3mhack-generate-xemacs-load-file): Simplified. + +2004-04-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-generate-xemacs-load-file): Replace + `replace-string' with basic functions. + +2004-04-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el (w3mhack-generate-xemacs-load-file): New function. + (w3mhack-make-package): Use `w3mhack-generate-xemacs-load-file. + +2004-04-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-update-files-autoloads): New function. + (w3mhack-generate-load-file): Use `w3mhack-update-files-autoloads'. + +2004-04-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (tarball): Remove w3m-kwds.el and w3m-load.el. + + * configure.in, aclocal.m4: Add `--with-xml' option. + + * w3mhack.el (w3mhack-module-list): New function. + (w3mhack-examine-modules): Use the above. + (w3mhack-compile): Use `w3mhack-module-list' instead of + `w3mhack-examine-modules'. + (w3mhack-generate-load-file): Likewise; Insert ^L to avoid an error of + `update-file-autoloads' of old emacsen. + +2004-04-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-treat-image-size): Default to t. + + * w3m-filter.el (w3m-filter-asahi-shimbun): Use marker to limit the + search bound. + +2004-04-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-generate-load-file): Save w3m-load.el file before + performing `update-file-autoloads'. + +2004-04-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (install-lisp): Do not install w3mhack.el. + (install-package): Install neither w3mhack.el nor w3m-load.el. + +2004-04-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-treat-image-size): Default to nil. + (w3m-rendering-half-dump): Fix a logic determining whether to specify + `-ppl' and `-ppc' options to the w3m command. + +2004-04-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el: Create w3m-load.el. + (w3mhack-load-file): New variable. + (w3mhack-examine-modules): Ignore `w3mhack-load-file'. + (w3mhack-generate-load-file): New function. + (w3mhack-compile): Call the above. + + * .cvsignore: Ignore w3m-load.el. + + * Makefile.in (clean): Remove w3m-load.el. + +2004-04-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-expand-path-name): In Emacs, don't bind + directory-sep-char which is an obsolete variable. + +2004-04-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el, w3m-favicon.el: Move snippets managing + `w3m-arrived-setup-functions' and `w3m-arrived-shutdown-functions' from + w3m.el into w3m-favicon.el. + +2004-04-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-hns-last-modified): Use 32400 as a + correct timezone instead of JST (suggested by YAMAOKA-san). + +2004-04-22 Christian Schmitt <Christian.Schmitt@Dresdner-Bank.com> + + * w3m.el (w3m-expand-path-name): Bind directory-sep-char to `?/'. It + is `?\' by default in XEmacs on Windows (native, not Cygwin). + +2004-04-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-use-symbol): Don't activate it in Emacs 20. Advised by + Arisawa-san. + +2004-04-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Simplify the rule of sending referers. + (w3m-add-referer-regexps): Abolished. + (w3m-add-referer-predicate-function): Abolished. + (w3m-add-referer): New option. + (w3m-add-referer-p): New function. + (w3m-add-referer-predicate-by-referer-regexps): Removed. + (w3m-add-referer-predicate-by-hosts): Removed. + (w3m-request-arguments, w3m-header-arguments): Follow the above + changes. + +2004-04-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-add-w3m-initial-frames): Get the correct value for + the newly created frame in Emacs 19. + + * w3m.el (w3m-about-retrieve): Load base64 for Emacs 19. + (w3m-minor-mode-command-alist): Add w3m-print-this-url. + + * w3m-bitmap.el (w3m-bitmap-image-insert): Don't put the evaporate + property on empty overlays (revert 2004-04-07 change). + +2004-04-20 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-link-numbering.el (w3m-view-numbered-link): Removed. + (w3m-move-numbered-anchor): New command. + (w3m-link-numbering-mode-map): Use `w3m-move-numbered-anchor' instead + of `w3m-view-numbered-link'. + +2004-04-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-input-coding-system): Use `w3m-output-coding-system' as + its default value for w3m-m17n and w3mmee. + (w3m-halfdump-command-arguments): Use "-I" option to disable + automatic-detection of coding systems for w3m-m17n and w3mmee. + +2004-04-16 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-meta-refresh-content-regexp): Allow quoted string as url. + (w3m-meta-content-refresh-regexp): Ditto. + (w3m-check-refresh-attribute): Decode entities. + +2004-04-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-link-numbering.el (w3m-link-numbering): Quit when links have + already been numbered. + +2004-04-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-link-numbering.el (w3m-link-numbering-mode): Delete all overlays + that display link numbers, when deactivating. + +2004-04-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-link-numbering.el (w3m-link-numbering): Add face to before-string + correctly under XEmacs; don't bother to delete overlays (suggested by + TSUCHIYA-san). + +2004-04-14 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-link-numbering.el (w3m-link-numbering-face): New face. + (w3m-link-numbering): Use it. + +2004-04-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-link-numbering.el: New file. + + * w3m.el (w3m-browse-url): Load `browse-url' before calling + `browse-url-interactive-arg'. + +2004-04-12 TAKAHASHI Kaoru <kaoru@kaisei.org> + + * doc/ptexinfmt.el: Support @indicateurl, @LaTeX, @ordf, @ordm. @url + is now a synonym for @uref. + +2004-04-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify-anchors): No need to enable evaporation of + overlays in XEmacs. + +2004-04-08 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp> + + * w3m.el (w3m-delete-all-overlays): Revert. + (w3m-highlight-current-anchor): Ditto. + +2004-04-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-delete-all-overlays): Remove. + +2004-04-07 Masatake YAMATO <jet@gyve.org> + + * w3m-bitmap.el (w3m-bitmap-image-insert): Enable the evaporate + property on overlays. + + * w3m-e21.el (w3m-form-make-button): Enable the evaporate property on + buttun overlays. + + * w3m.el (w3m-fontify-anchors): Ditto. + (w3m-create-text-page): No need to delete zombie overlays. + (w3m-create-image-page): Ditto. + (w3m-highlight-current-anchor-1): Enable the evaporate property on + overlays. + (w3m-highlight-current-anchor): No need to delete overlays. + +2004-04-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-rendering-extract-title): Remove too much whitespace. + +2004-04-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-delete-all-overlays): Simply delete all overlays if the + optional arg is given. + (w3m-create-text-page): Delete zombie overlays. + (w3m-create-image-page): Ditto. + +2004-04-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-engine-alist): Improve custom. + +2004-04-04 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-search.el (w3m-search-engine-alist): Add "amazon" entry. + +2004-03-31 Yuya Nishida <yuya@j96.org> + + * w3m-search.el (w3m-search-engine-alist): Add "amazon-ja" entry; + "PostData" can be specified. + (w3m-search): Support post-data. + +2004-04-04 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-header-arguments): Set unibyte at work buffer. + + * w3m-form.el (w3m-form-make-form-data): Set unibyte at work buffer; + Encode form data. + +2004-03-22 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-type): Check if w3m-compile-options contains "m17n". + +2004-03-19 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-add-referer-regexps): Fix typo. + (w3m-add-referer-predicate-function): New user option. + (w3m-add-referer-predicate-by-referer-regexps): New function. + (w3m-add-referer-predicate-by-hosts): Ditto. + (w3m-request-arguments): Call w3m-add-referer-predicate-function. + (w3m-header-arguments): Ditto. + + * octet.el (mime-view-octet): Avoid redundant invocation of + `mime-entity-content'. + +2004-03-14 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-symbol.el (w3m-mule-unicode-symbol): Fixed 32th character. + Thanks to Taichi KAWABATA for his report. + +2004-03-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-weather.el (w3m-weather-get-seikatu-sisu): Relax regular + expressions to extract indices, to follow the change of the site + design. + +2004-03-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-force-window-update): New function. + (w3m-tab-drag-mouse-function, w3m-tab-click-mouse-function, + w3m-tab-line, w3m-e21-switch-to-buffer, w3m-select-buffer-hook): Use + `w3m-force-window-update' instead of `w3m-e21-wobble-window-size'. + (w3m-e21-wobble-window-size): Abolish. + + * w3m-favicon.el (w3m-favicon-retrieve): Use `w3m-force-window-update'. + + * w3m-proc.el: Autoload `w3m-force-window-update' when compiling. + (w3m-process-stop): Use `w3m-force-window-update'. + + * w3m.el (w3m-select-buffer-show-this-line): Use + `w3m-force-window-update'. + + +2004-02-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (emacs-w3m-version): Release 1.3.85. + +2004-02-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-drag-mouse-function): Call + `w3m-e21-wobble-window-size'. + (w3m-tab-click-mouse-function): New function. + (w3m-tab-make-keymap): Use it. + +2004-02-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-mee-new): Use `w3m-form-normalize-action' for + action. + +2004-02-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-select-buffer-show-this-line): Call + `w3m-e21-wobble-window-size' when Emacs 21 or 22 is running. + + * w3m-e21.el (w3m-tab-line-format): Make it buffer-local variable. + (w3m-tab-timer): Ditto. + (w3m-e21-wobble-window-size): New function. + (w3m-tab-line): Make `w3m-tab-timer' hold boolean value; let a timer + function run certainly in a buffer in which a timer started; use + `w3m-e21-wobble-window-size'. + (w3m-e21-switch-to-buffer): New command. + (w3m-e21-subst-switch-to-buffer-keys): New function. + (w3m-mode-setup-functions): Add `w3m-e21-subst-switch-to-buffer-keys'. + (w3m-select-buffer-hook): Add `w3m-e21-wobble-window-size'. + (w3m-spinner-image-index): Make it buffer-local variable. + +2004-02-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-make-form-data): Align form by the number of + `hseq'. + +2004-02-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-sites): Add + `w3m-antenna-check-another-page' to its customize spec. + (w3m-antenna-check-another-page): New function. + (w3m-about-antenna): Relaxed the condition to check changed sites. + (w3m-antenna-add): Add a new site at the end of `w3m-antenna-sites' + instead of adding it at the top. + +2004-02-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-antenna.el (w3m-antenna-function): New widget. + (w3m-antenna-sites): Use it. + +2004-02-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-expand-path-name): Protect expand-file-name from + cygwin-mount.el's behavior on Windows. + + * w3m-antenna.el (w3m-about-antenna): Check arrived-time if no + last-modified. + +2004-02-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-antenna.el (w3m-antenna-sites): Fix mis-implemented customizing + widgets in Emacs 20.7 through 21.3 and XEmacs. + (w3m-antenna-add): Support Emacs 20. + + * w3m-util.el (widget-default-get): Remove advice. + +2004-02-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (widget-default-get): Advise the function to fix a bug in + Emacs 21.1 through 21.3. + +2004-02-17 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-resume): Fix for checkbox. + +2004-02-11 TAKAHASHI Kaoru <kaoru@kaisei.org> + + * doc/ptexinfmt.el: Support @docbook, @ifdocbook, @ifnotdocbook, and + @registeredsymbol. + +2004-02-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-active-region-or-url-at-point): Move the point backward + from the end of the active region instead of moving it forward, in + order to avoid enlarging the region. + +2004-02-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-active-region-or-url-at-point): Find a url-like string in + the region instead of extracting the whole substring when the region is + active. Don't use `w3m-url-at-point' for that since it doesn't work + for all url string. + (w3m-quit): Delete frames seemingly fast. + +2004-02-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-favicon.el (w3m-favicon-retrieve): Because some broken servers + provide empty contents as their favicons, check the length of the + retrieved content, before calling `w3m-favicon-convert'. + +2004-02-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Changes to validate cached contents. + (w3m-follow-cache-control-header): Abolished. + (w3m-prefer-cache): New option. + (w3m-cache-available-p): Check whether a cached header includes cache + control headers. + (w3m-w3m-dump-extra): Always cache both a header and a content. + (w3m-w3m-retrieve-1): Check whether a cache is available, before using + it. + (w3m-view-this-url): When visiting history pages, prefer cached + contents without checking their validity. + (w3m-view-previous-page, w3m-view-source, w3m-view-header): Prefer + cached contents without checking their validity. + +2004-02-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-show-error-information): Decode cache contents if + necessary. + +2004-02-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-edit-url): Define as a command. + +2004-02-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-examine-modules): Exclude w3m-e22.el except for + Emacs 22. + +2004-01-31 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-edit-function-alist): New option. + (w3m-edit-url): Refer the above alist to find a suitable function for + editing a specified page. + (w3m-edit-function, w3m-edit-current-url): Its docstring is modified to + follow the above change. + (w3m-edit-this-url): Its docstring is modified likewise, and it is + simplified. + (w3m-goto-url): Ignore cached form data when reloading. + + * w3m.el (w3m-safe-view-this-url): Call `w3m-goto-url' when a function + set to `w3m-goto-article-function' returns nil. + +2004-01-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Changes to follow anchors that point Shimbun articles. + (w3m-goto-article-function): New variable. + (w3m-safe-view-this-url): Refer the above. + +2004-01-29 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-follow-cache-control-header): New option. + (w3m-w3m-dump-extra): If `w3m-follow-cache-control-header' is nil, do + not follow the chache control headers. + +2004-01-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (tarball): Because Emacs-22 has not been released, remove + w3m-e22.el from the creating tarball. + +2004-01-27 Taichi KAWABATA <batta@beige.ocn.ne.jp> + + * w3m-e22.el: New file. This file is simply the copy of w3m-e21.el + except that the ccl section has been removed. + + * w3m.el: Require w3m-e22 when Emacs 22 is running. + +2004-01-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-after-cursor-move-hook): Add :group keyword. + (w3m-auto-show): Check `truncate-lines' before scrolling. + (w3m-check-current-position): Do not check `truncate-lines'. + + * mime-w3m.el: Changes to display URI of the current anchor. + (mime-w3m-after-cursor-move-hook): New option. + (mime-w3m-add-local-hook): New advice. + (mime-w3m-check-current-position): New funcion. + +2004-01-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-start-and-wait): Abolished. + (w3m-process-with-wait-handler): Reimplemented. + + * w3m.el (w3m-input-url): Accept other symbols than `popup'. + (w3m-copy-buffer): Fix the bug that drops an asynchronous handler + returned by `w3m-goto-url'. + +2004-01-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Register a url to the history even if it is + failed to retrieve. Suggested by Fujishima-san. + +2004-01-23 Hiroshi Fujishima <pooh@nature.tsukuba.ac.jp> + + * w3m.el (w3m-input-url): Fix a bug which causes an error when there's + neither a frame nor a window for the emacs-w3m session and `url' is the + symbol `popup' (it is because there's a url-like text around the cursor + but deleted by a user in the minibuffer). + +2004-01-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-input-url): Add "http://" to its return value, when its + return value contains no scheme part. + +2004-01-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-dump-extra): Check cache control headers before + caching headers and contents. This change is suggested by Mr. Amagai + in [emacs-w3m:06255]. + (w3m-message): Make it verbose, even if a buffer related to emacs-w3m + is not displayed. w3m-print-this-url() has been broken in buffers + displaying text/html messages, because w3m-message() was too silent. + +2004-01-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-safe-view-this-url): Bind `w3m-pop-up-windows' to nil + locally, in order to keep MUA's window configuration. + + * w3m-proc.el (w3m-process-do-with-temp-buffer): Save the current + buffer while executing an asynchronous body. + + * w3m-util.el (w3m-insert-string): Define its `edebug-form-spec'. + +2004-01-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-util.el (w3m-keep-region-active): Renamed from + `w3m-activate-zmacs-regions'. + (w3m-deactivate-region): Declared as a macro. + + * w3m-search.el (w3m-search-read-query): Call `w3m-deactivate-region' + instead of `w3m-deactivate-mark'; Call `region-beginning' and + `region-end' instead of `point' and `mark'. + + * w3m.el (w3m-next-anchor, w3m-previous-anchor, w3m-next-form, + w3m-previous-form, w3m-next-image, w3m-previous-image, + w3m-scroll-up-or-next-url, w3m-scroll-down-or-previous-url, + w3m-beginning-of-line, w3m-end-of-line): Call `w3m-keep-region-active' + instead of `w3m-activate-zmacs-regions'. + (w3m-active-region-or-url-at-point): Call `region-beginning' and + `region-end' instead of `point' and `mark'. + +2004-01-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-proc.el (w3m-process-wait-discard-input): New variable. + (w3m-process-wait-process): If `w3m-process-wait-discard-input' is + non-nil, call `discard-input'. + +2004-01-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-deactivate-mark): New function alias. + + * w3m.el (w3m-active-region-or-url-at-point): Use it. + (w3m-open-all-links-in-new-session): Use it. + + * w3m-search.el (w3m-search-read-query): Use it. + +2004-01-04 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-active-region-or-url-at-point): New function. + (w3m-input-url, w3m-view-this-url, w3m-goto-url): Call + `w3m-active-region-or-url-at-point' instead of `w3m-url-at-point'. + +2004-01-04 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-util.el (w3m-region-active-p): New macro. + + * w3m.el (w3m-open-all-links-in-new-session): Deactivate the mark when + it is active. + (w3m-view-this-url-new-session): Use `w3m-region-active-p'. + + * w3m-search.el (w3m-search-read-query): Use `w3m-region-active-p'. + + * w3m-namazu.el (w3m-namazu): Use `w3m-search-read-query' to read a + query from the minibuffer. + + * w3m-search.el (w3m-search-read-query): New function. + (w3m-search): Use the above function. + +2004-01-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-search.el (w3m-search): Use the region as an initial string if + Transient Mark mode. + (w3m-search-word-at-point): Follow the above change in its docstring. + + * w3m-e21.el (w3m-tab-line): Check the length of the current title, + before checking the breadth of its first character. + +2003-12-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-accept-languages): Split the option of w3m with a comma + surrounded by some spaces. + (w3m-dump-head-source-command-arguments): Use a comma instead of a + white space to concatenate elements of `w3m-accept-languages'. + Cf. Section 14.4 of RFC2047. + +2003-12-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el: Add an advice to byte-optimize-form-code-walker to avoid + the warning ``...called for effect'' for the pop form when running + Emacs 21.3. + +2003-12-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-create-text-page): Use the last directory as a title of + text/plain page when its uri is terminated by a slash. + + +2003-12-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (emacs-w3m-version): Release 1.3.80. + +2003-12-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-wait-process): Return exit status; Use + `accept-process-output' instead of `sit-for' in order to flush pending + output. + (w3m-process-with-wait-handler): Follow the above change. + +2003-12-21 Masatake YAMATO <jet@gyve.org> + + * w3m.el (w3m-mode): Small doc fix. + (w3m-relationship-estimate-rules): Relax the regular expression to + detect result pages of Google. + +2003-12-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-safe-toggle-inline-image): New function. + (w3m-toggle-inline-images): Revoke the recent changes. + (w3m-safe-toggle-inline-images): New function. + (w3m-safe-view-this-url): Doc fix. + (w3m-minor-mode-command-alist): Use `w3m-safe-toggle-inline-image' and + `w3m-safe-toggle-inline-images'. + + * w3m-util.el (w3m-find-w3m-buffer): Abolish. + (w3m-with-w3m-buffer): Abolish. + + * mew-w3m.el (mew-w3m-view-inline-image): Revert. + + * attic/vm-w3m.el (vm-w3m-safe-toggle-inline-images): New function. + +2003-12-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-toggle-inline-images): Ignore `w3m-safe-url-regexp' when + the prefix argument is given. + + * w3m-util.el (w3m-find-w3m-buffer): Bind `w3m-safe-url-regexp' to the + value specified peculiarly by each MUA. + (w3m-with-w3m-buffer): Ditto. + + * mew-w3m.el (mew-w3m-view-inline-image): Don't bind + `w3m-safe-url-regexp' there. + +2003-12-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-view-inline-image): Fix last change. + +2003-12-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-view-inline-image): Use + `w3m-toggle-inline-images'. + (mew-mime-text/html-w3m): Put the `w3m-images' text property in the + message buffer. + + * w3m-util.el (w3m-find-w3m-buffer): Fix for Mew. + +2003-12-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-toggle-inline-images): Wrap it with + `w3m-with-w3m-buffer'. + + * w3m-util.el (w3m-find-w3m-buffer): New function. + (w3m-with-w3m-buffer): New macro. + +2003-12-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-string): Renamed from + `string-with-default'. + (w3m-antenna-string-create): Renamed from + `string-with-default-value-create'. + (w3m-antenna-sites): Change its customize spec. + + * w3m-xmas.el (w3m-window-hscroll, w3m-current-column, + w3m-set-window-hscroll): Import definitions from w3m.el. + (w3m-run-at-time): Renamed from `w3m-xmas-run-at-time'. + + * w3m.el (w3m-window-hscroll, w3m-current-column, + w3m-set-window-hscroll): Export definitions for XEmacs to w3m-xmas.el. + +2003-12-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_SET_VANILLA_FLAG): New function specifying the + `VANILLA_FLAG' variavle. XEmacs 21.5 needs to be given `-vanilla' + rather than `-q -no-site-file'. + (AC_EMACS_LISP): Use `VANILLA_FLAG'. + (AC_PATH_EMACS): Call `AC_SET_VANILLA_FLAG'. + (AC_ADD_LOAD_PATH): Use `VANILLA_FLAG'. + (AC_CHECK_ELISP): Ditto. + + * configure.in: Check for `EGREP' before calling `AC_PATH_EMACS'. + + * Makefile.in (VANILLA_FLAG): New variable. + (FLAGS): Use it. + (very-slow): Use it. + + * doc/Makefile.in (VANILLA_FLAG): New variable. + (FLAGS): Use it. + + * w3m-xmas.el (w3m-xmas-run-at-time): Use a simple function definition + if there is not a bug in `start-itimer'. + +2003-12-11 KAMO Tomoyuki <kamo@ITmanage.co.jp> + + * octet.el (octet-suffix-type-alist): Add suffix of bzip-ed files. + (octet-type-filter-alist): Add an entry of bzip2. + (octet-guess-type-from-name): Relax the regular expression to detect + suffix, in order to handle bzip-ed files. + +2003-12-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Experimentally implement the estimation layer of + relationships between pages. + (w3m-relationship-estimate-rules): New option. + (w3m-relationship-estimate, w3m-relationship-simple-estimate, + w3m-relationship-magicpoint-estimate, + w3m-relationship-search-patterns): New functions. + (w3m-use-filter): Cancel the last change; its default value is changed + to nil. + + * w3m-filter.el (w3m-filter-rules): Remove rules to find relationships. + (w3m-filter-find-relationships): Abolished. + + * w3m-util.el (w3m-html-string-regexp): Import from w3m.el. + +2003-12-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-use-filter): Change its default value to t. + + * w3m-filter.el: Reconstructed completely. + (w3m-filter-rules): Change its spec and its default value. + (w3m-filter): Reimplemented. + (w3m-filter-delete-regions, w3m-filter-find-relationships): New + functions. + (w3m-filter-db, w3m-filter-db-size, w3m-filter-server-regexp, + w3m-filter-setup, w3m-filter-delete-region, w3m-filter-lwn.net, + w3m-filter-google.com, w3m-filter-www.zdnet.co.jp): Removed. + +2003-12-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-xmas-run-at-time): Rewrite w/o using fsf-compat. + + * w3m.el (w3m-run-at-time): New function alias. + (w3m-refresh-at-time): Use it. + +2003-12-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-xmas-run-at-time): New function. + + * w3m.el (w3m-refresh-at-time): Use it. + +2003-12-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-this-url-new-session): Abolish the optional arg. + (w3m-mouse-view-this-url-new-session): Ditto. + +2003-12-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-buffer-setup): Use `defun' instead of `defsubst'. + +2003-12-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-current-anchor-face): Replace backquote with quote. + (w3m-select-buffer-current-buffer): Ditto. + (w3m-header-line-insert): Ditto. + (w3m-about-retrieve): Use `defun' instead of `defsubst'. + (w3m-cid-retrieve): Ditto. + (w3m-current-column): Make it a function, not a macro. + +2003-11-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-minor-mode): Run hooks only when this minor mode is + enabled. + * w3m-bookmark.el (w3m-bookmark-mode): Ditto. + * w3m-antenna.el (w3m-antenna-mode): Ditto. + + * w3m-antenna.el (w3m-antenna-alist): Simplified. + +2003-11-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el: Define a new minor mode `w3m-antenna-mode'. + (w3m-antenna-mode-map, w3m-antenna-mode): New variables. + (w3m-antenna-mode, w3m-antenna-mode-setter, w3m-antenna-edit): New + functions. + + * w3m-bookmark.el (w3m-bookmark-mode): Change its interactive spec, and + improve its document. + + * w3m-favicon.el (w3m-favicon-retrieve): Abolish the 4th argument + `handler' and wrap the asynchronous processing forms with + `w3m-process-with-null-handler', in order to clarify this function's + purpose. + + * w3m.el (w3m-message): Use `walk-windows' instead of `window-list', + because the latter is not available at Meadow and Mule2. + (w3m-w3m-retrieve): Check the status code. + (w3m-show-error-information): Also use retrieved error pages. + (w3m-minor-mode): Change its interactive spec. + +2003-11-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el (w3m-favicon-convert): Make sure data of the ico type + contains the correct magic numbers. + +2003-11-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-util.el (w3m-last-visited-buffer): Abolished. + (w3m-popup-buffer): Do not reset the above variable. + + * w3m.el (w3m-close-window): Do not set the above variable. + (w3m): Do not refer the above variable. + +2003-11-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-retrieve-and-render): Use `w3m-message' instead of + `message'; don't let it be controlled by `w3m-verbose'. + (w3m-alive-p): Don't sort the return value of `list-buffers' so that it + returns the last visited emacs-w3m buffer as much as possible; don't + inline the `w3m-list-buffers' function. + +2003-11-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-verbose): Change its default value to nil. + (w3m-message): When `w3m-verbose' is nil, display messages without + logging. + (w3m-make-help-echo, w3m-toggle-inline-image, w3m-zoom-in-image, + w3m-zoom-out-image, w3m-view-this-url, w3m-submit-form, w3m-view-image, + w3m-save-image, w3m-view-url-with-external-browser, + w3m-download-this-url, w3m-print-this-url, w3m-edit-current-url, + w3m-edit-this-url, w3m-quit, w3m-goto-ftp-url, w3m-select-buffer, + w3m-select-buffer-show-this-line, + w3m-select-buffer-show-this-line-and-switch): Call `w3m-message' + instead of `w3m-display-message'. + + * w3m-util.el (w3m-display-message): Removed. + (w3m-display-message-enable-logging): Abolished. + +2003-11-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-message): Silent when the cursor is in minibuffer. + + * w3m-util.el (w3m-display-message): Ditto. + +2003-11-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-html-string-regexp): Fix my fault; enclose it with + `eval-and-compile' which is needed for compiling since it is used in a + macro. + +2003-11-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-wait-process): Invert the return value of + sit-for() that waits an asynchronous process. + (w3m-process-kill-process): Relax the condition that checks whether a + given process has already finished or not. + +2003-11-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search): Use `w3m-goto-url' instead of `w3m'. + * w3m-weather.el (w3m-weather): Ditto. + + * w3m.el (w3m-obey-w3m-pop-up-frames): Abolish. + (w3m-goto-url-new-session): Find an existing emacs-w3m buffer and then + make a copy of it; use `w3m-goto-url' instead of `w3m' if there is no + emacs-w3m buffer. + (w3m-browse-url): Revert last change; rename the optional arg to + `new-session'; call `w3m-goto-url-new-session' or `w3m-goto-url'. + (w3m-select-buffer): Use `w3m-goto-url' instead of `w3m'. + (w3m-safe-view-this-url): Ditto. + +2003-11-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-antenna.el (w3m-antenna): Don't pass the interactive flag to + `w3m-goto-url'. + * w3m-bookmark.el (w3m-bookmark-view): Ditto. + * w3m-cookie.el (w3m-cookie): Ditto. + * w3m-dtree.el (w3m-dtree): Ditto. + * w3m-namazu.el (w3m-namazu): Ditto. + * w3m-perldoc.el (w3m-perldoc): Ditto. + + * w3m.el (w3m-copy-buffer): Don't pop up a window or a frame if + `w3m-goto-url' is called. + (w3m-goto-url): Abolish the 8th arg `interactive-p'; pop up a window or + a frame anyway. + (w3m-goto-url-new-session): Abolish the `interactive-p' argument; don't + pass it to `w3m-goto-url'. + (w3m-gohome): Ditto. + (w3m): Don't pop up a window or a frame there. + (w3m-browse-url): Make it work as `browse-url-w3'. + +2003-11-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-proc.el (w3m-process-wait-process): Don't specify 3 args to + `sit-for' for XEmacs. + +2003-11-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-sites): Change its default value. Allow + a list that consists of a function and its options, as the third + element of each site. + (w3m-antenna-html-skeleton): Remove the link to the antenna editor. + (w3m-antenna-setup): Removed. + (w3m-antenna-shutdown): Removed. + (w3m-antenna-alist): New function. + (w3m-antenna-site-update): Ditto. + (w3m-antenna-check-hns): Ditto. + (w3m-antenna-check-anchor): Ditto. + (w3m-antenna-check-page): Ditto. + (w3m-antenna-check-site): Use the above three functions. + (w3m-antenna-check-all-sites): Follow the above change. Use + w3m-antenna-alist() and w3m-save-list() instead of w3m-antenna-setup() + and w3m-antenna-shutdown(). + (w3m-antenna-check-site-after): Removed. + (w3m-antenna-make-summary): Use a key attribute instead of an url + attribute, when the latter is not set. + (w3m-antenna-make-summary-like-natsumican): Ditto. + (w3m-about-antenna): Call w3m-antenna-alist() instead of + w3m-load-list(). + (w3m-about-antenna-edit): Removed. + (w3m-antenna-edit-reset-post-data): Ditto. + +2003-11-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-antenna.el (w3m-antenna): Pass the interactive flag to + `w3m-goto-url'. + * w3m-bookmark.el (w3m-bookmark-view): Ditto. + * w3m-cookie.el (w3m-cookie): Ditto. + * w3m-dtree.el (w3m-dtree): Ditto. + * w3m-namazu.el (w3m-namazu): Ditto. + * w3m-perldoc.el (w3m-perldoc): Ditto. + * w3m.el (w3m-gohome): Ditto. + (w3m-browse-url): Ditto. + +2003-11-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-rendering-half-dump): Move point to the end of the region + in order to avoid a bug of `call-process-region' in XEmacs 21.5.7+ (see + the comment). + (w3m-decode-encoded-contents): Ditto. + (w3m-x-moe-decode-buffer): Ditto. + + * w3m-perldoc.el (w3m-about-perldoc): Ditto. + + * w3m-xmas.el (w3m-initialize-graphic-icons): Ditto. + + * w3m-favicon.el (w3m-favicon-retrieve): Say "no favicon" if it is not + available. + + * w3m-proc.el (w3m-process-with-environment): Rely on the + `temp-directory' function and modify TEMP and TMPDIR env vars for + XEmacs. + +2003-11-20 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-normalize-action): New inline function. + (w3m-form-parse-and-fontify): Use it. + (w3m-form-new): Simply set action. + (w3m-form-submit): Don't treat !CURRENT_URL! here. + +2003-11-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_ADD_LOAD_PATH): Refine the help message for the + --with-attic option. + +2003-11-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-buffer-setup): Make sure that `truncate-lines' is t. + (w3m-view-source): Don't set `truncate-lines' to nil when quitting + viewing a source. + (w3m-view-header): Set `truncate-lines' to nil when viewing a header. + +2003-11-18 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-put-by-name): New function. + (w3m-form-resume): Use w3m-form-get-by-name and w3m-form-put-by-name + instead of w3m-form-get and w3m-form-put for radio buttons. + (w3m-form-parse-and-fontify): Ditto. + (w3m-form-input-radio): Ditto. + +2003-11-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-check-current-position): Don't allow horizontal scrolling + when `truncate-lines' is nil. + (w3m-view-source): Set `truncate-lines' to nil. + + * w3m-favicon.el (w3m-favicon-setup): Retrieve favicon even when + viewing the header or the page source. + +2003-11-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (very-slow): Fix echo messages. + + * w3m.el (w3m-follow-redirection): Fix customization type. + + * w3m-e21.el: Bind `w3m-current-title' when compiling. + + * /: Bind `w3m-work-buffer-list' when compiling in: w3m-e21.el, + w3m-favicon.el, w3m-image.el, w3m-proc.el and w3m-xmas.el. + + * /: Require `cl' when compiling in: w3m-cookie.el, w3m-form.el and + w3m-tabmenu.el. + + * /: Remove unused non-global variables in: octet.el, w3m-cookie.el, + w3m-tabmenu.el and w3m-weather.el. + +2003-11-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Make `w3m-local-find-file-function' don't + handle directories. + +2003-11-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el: Bind `w3m-current-process', `w3m-pop-up-frames', + `w3m-pop-up-windows', `w3m-popup-frame-parameters', + `w3m-select-buffer-name' and `w3m-use-tab', and fbind + `select-frame-set-input-focus' when compiling. + (w3m-popup-frame-parameters): Move from w3m.el. + (w3m-popup-frame-p): Ditto. + (w3m-use-tab-p): Ditto. + (w3m-popup-window-p): Ditto. + (w3m-initial-frames): Ditto. + (w3m-last-visited-buffer): Ditto. + (w3m-popup-buffer): Ditto; also move the program to make + `select-frame-set-input-focus' unbound from w3m.el. + (w3m-add-w3m-initial-frames): Ditto; also move the program to add it to + `create-frame-hook', `after-make-frame-functions' or + `after-make-frame-hook' from w3m.el. + (w3m-delete-frames-and-windows): Ditto. + (w3m-display-progress-message): Mark a progress message with the + `w3m-progress-message' text property. + + * w3m.el: Don't fbind `select-frame-set-input-focus'. + (w3m-local-find-file-function): Use `w3m-popup-frame-p'. + (w3m-initial-frames): Move to w3m-util.el. + (w3m-popup-frame-parameters): Ditto. + (w3m-popup-frame-p): Ditto. + (w3m-use-tab-p): Ditto. + (w3m-popup-window-p): Ditto. + (w3m-last-visited-buffer): Ditto. + (w3m-popup-buffer): Ditto; also move the program to make + `select-frame-set-input-focus' unbound to w3m-util.el. + (w3m-add-w3m-initial-frames): Ditto; also move the program to add it to + `create-frame-hook', `after-make-frame-functions' or + `after-make-frame-hook' to w3m-util.el. + (w3m-delete-frames-and-windows): Ditto. + (w3m-delete-buffer-if-empty): New function. + (w3m-view-this-url-1): Use it. + (w3m-goto-url-new-session): Use it. + (w3m): Use it. + + * w3m-e21.el (w3m-euc-japan-encoder): Compute the ccl program in each + time to load w3m-e21.elc to keep the compatibility of the module with + Emacs 21.3 and the later versions. + (w3m-iso-latin-1-encoder): Ditto. + +2003-11-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-horizontal-scroll-division): Mega doc fix; eliminate + illegal values. + (w3m-horizontal-on-screen): Rearrange. + +2003-11-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-last-visited-buffer): New variable. + (w3m-popup-buffer): Clear `w3m-last-visited-buffer'. + (w3m-close-window): Set the last emacs-w3m buffer as + `w3m-last-visited-buffer'. + (w3m): Preferably use the last emacs-w3m buffer kept in + `w3m-last-visited-buffer'. + +2003-11-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-horizontal-recenter): Do nothing besides resetting the + window's hscroll if `truncate-lines' is nil. + (w3m-beginning-of-line): Replace `w3m-set-window-hscroll' with + `set-window-hscroll'. + (w3m-end-of-line): Make it work identically as `end-of-line' if + `truncate-lines' is nil. + (w3m-display-width): Move downward (see the comment). + +2003-11-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-parse-header): Because a broken server returns a + relative URL in the location field, convert a URL to absolute. + + * w3m-proc.el (w3m-process-wait-process): New function. + (w3m-process-start-and-wait): Call the above function. + + * w3m-weather.el (w3m-weather-run-filter-functions): New function to + call filter functions asynchronously. + (w3m-about-weather): Call the above. + (w3m-weather-get-seikatu-sisu): Asynchronized. + (w3m-weather-insert-seikatu-sisu): Ditto. + +2003-11-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-initial-frames): Rename from `w3m-initial-frame'; keep a + list of the frame-IDs. + (w3m-popup-window-p): Return nil if there is the selection window. + (w3m-popup-buffer): Copy a copy of `w3m-initial-frames' from a visible + emacs-w3m buffer to a popped-up emacs-w3m buffer; don't set + `w3m-initial-frames' for newly created frames there. + (w3m-add-w3m-initial-frames): New function; add it to + `create-frame-hook', `after-make-frame-functions' or + `after-make-frame-hook'. + (w3m-copy-buffer): Copy a copy of `w3m-initial-frames'. + (w3m-delete-buffer): Pop up another emacs-w3m buffer instead of + deleting a frame; remove a deleted frame from `w3m-initial-frames'. + (w3m-delete-frames-and-windows): Also allow a window or a frame as the + optional argument; emulate XEmacs version's `one-window-p'. + (w3m): Set the value for `w3m-initial-frames' even if it is invoked in + the batch mode. + (w3m-select-buffer): Delete other emacs-w3m frames and windows. + (w3m-select-buffer-copy-buffer): Revert the 2003-11-11 change. + (w3m-select-buffer-delete-buffer): Simplify. + + (w3m-display-width): New function for showing pages as if there is no + selection window. + (w3m-halfdump-command-common-arguments): Use it. + (w3m-make-separator): Use it. + (w3m-about-db-history): Use it. + (w3m-header-line-insert): Work as if there is no selection window. + + * w3mhack.el (w3mhack-generate-colon-keywords-file): Preset + `:strike-through' and `:strikethru' which aren't supported by the old + cus-face.el. + +2003-11-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-popup-buffer): Reuse an existing window or frame if it + exists; set the value for `w3m-initial-frame' properly; raise, select + and focus the new frame. + (TopLevel): Make `select-frame-set-input-focus' unbound if it is a + dummy. + (w3m-view-this-url-1): Show a progress message. + (w3m-copy-buffer): Simplify the code to call `w3m-popup-buffer'. + (w3m-alive-p): Add an optional arg `visible' (see docs); use inlining + `w3m-list-buffers'. + (w3m): Simplify the code using `w3m-popup-buffer'; specify the optional + arg to `w3m-alive-p'; protect against the case of no url. + (w3m-select-buffer-copy-buffer): Bind `w3m-pop-up-windows' to nil. + + * w3m-util.el (w3m-list-buffers): Make it into a normal function; don't + call itself recursively. + +2003-11-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-function-max-args): Move to mew-shimbun.el. + + * w3m.el (w3m-popup-buffer): New function (it still needs to improved + in order for the `w3m' function to use). + (w3m-view-this-url-1): Specify the value of + `w3m-view-this-url-new-session-in-background' to the 3rd arg of + `w3m-copy-buffer'; don't pop up a window or a frame there. + (w3m-copy-buffer): Change the meaning of the 3rd arg (see docs); don't + pop up a window or a frame if it is non-nil, otherwise call + `w3m-popup-buffer'. + (w3m-goto-url): Change the name of the 8th arg to `interactive-p'; + don't pop up a window or a frame unless this function is called + interactively, otherwise call `w3m-popup-buffer'. + (w3m-goto-url-new-session): Specify nil to the 3rd arg of + `w3m-copy-buffer'. + (w3m-select-buffer-saved-window-config): Abolish. + (w3m-select-buffer): Revert the 2003-11-05 change; delete other windows + except for the current emacs-w3m window or create a new emacs-w3m + buffer when it is called initially. + (w3m-select-buffer-current-buffer): Use `line-beginning-position'. + (w3m-select-buffer-copy-buffer): Revert the 2003-11-05 change; + simplify. + (w3m-select-buffer-delete-buffer): Call `w3m-quit' if there is the sole + emacs-w3m buffer. + (w3m-select-buffer-delete-other-buffers): Revert the 2003-11-07 change. + (w3m-select-buffer-quit): Revert the 2003-11-05 change; bind + `pop-up-frames'. + +2003-11-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-stop): Change `w3m-current-process' in the + buffer specified in the argument, instead of changing it in the current + buffer. + +2003-11-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-canonicalize-url): New function. + (w3m-w3m-attributes-1): New function. + (w3m-w3m-attributes): Call the above functions to follow redirection. + (w3m-w3m-retrieve): Call `w3m-w3m-canonicalize-url' before retrieving. + + * w3m-proc.el (w3m-process-start-process): Check the value of + `w3m-current-url' before calling `w3m-url-authinfo'. + (w3m-process-start-and-wait): Make sure synchronization with + sub-process. + (w3m-process-do-with-temp-buffer): Call `w3m-kill-buffer' instead of + calling `kill-buffer' directly. + + * w3m-antenna.el (w3m-antenna-mapcar): Simplified and follow the change + of `w3m-process-do-with-temp-buffer'. + (w3m-antenna-mapcar-after): Ditto. + +2003-11-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-delete-other-buffers): Use + `w3m-delete-frames-and-windows'. + (w3m-delete-frames-and-windows): Take an optional argument for the + exception; assume a buffer may be at two or more windows. + (w3m-close-window): Assume a buffer may be at two or more windows. + (w3m-select-buffer-delete-other-buffers): Save-window-excursion. + +2003-11-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-popup-frame-parameters): Rename from + `w3m-pop-up-frame-parameters' to make it easy to complete the + `w3m-pop-up-frames' variable name. + (w3m-popup-frame-parameters): Rename from + `w3m-pop-up-frame-parameters'. + (w3m-popup-frame-p): Make it a generic macro. + (w3m-use-tab-p): New macro. + (w3m-popup-window-p): Use `w3m-use-tab-p'. + (w3m-view-this-url-1): Use `w3m-use-tab-p' and `w3m-popup-frame-p'. + (w3m-copy-buffer): Ditto. + (w3m-delete-buffer): Use `w3m-use-tab-p'. + (w3m-goto-url): Use `w3m-use-tab-p' and `w3m-popup-frame-p'. + (w3m): Modify to use new `w3m-popup-frame-p'. + (w3m-header-line-insert): Use `w3m-use-tab-p'. + +2003-11-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-current-redirect): Abolished. + (w3m-clear-local-variables, w3m-copy-local-variables): Follow the above + change. + + * w3m-proc.el (w3m-process-do-with-temp-buffer): Keep the current + buffer after given FORM and BODY are evaluated. + +2003-11-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-follow-redirection): Fix its docstring. + (w3m-w3m-retrieve): When the above option is equal to nil, it is + treated as 0. + (w3m-retrieve-and-render): Check content type and charsets with + redirected real URI instead of user-specified URI. + + * w3m-antenna.el (w3m-antenna-hns-last-modified): Do not accept + `no-cache' argument. + (w3m-antenna-check-site): Ditto. + (w3m-antenna-mapcar, w3m-antenna-mapcar-after): New functions. + (w3m-antenna-check-all-sites): Use the above functions. + +2003-11-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-delete-buffer): New implementation. + (w3m-delete-frame-maybe): Abolish. + (w3m-delete-frames-and-windows): New function. + (w3m-quit): Use it. + (w3m-close-window): New implementation. + (w3m-select-buffer-show-this-line): Specify the 1st arg to + `one-window-p'. + (w3m-select-buffer-quit): Ditto. + (w3m-select-buffer-close-window): Ditto. + +2003-11-06 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify-strike-through): Support <strike> element. + (w3m-fontify): Change the turn `w3m-fontify-strike-through' and + `w3m-fontify-underline'. + +2003-11-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * attic/vm-w3m.el: New file. + +2003-11-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Fbind `select-frame-set-input-focus' when compiling. + (w3m-popup-window-p): Rename from `w3m-pop-up-window-p'; use + 'emacs-major-version' instead of `MULE' to examine the version. + (w3m-view-this-url-1): Use `pop-to-buffer' instead of + `switch-to-buffer' in order to be able to popup a window or a frame. + (w3m-copy-buffer): Ditto; set the `w3m-initial-frame' variable only + when `w3m-pop-up-frames' is non-nil. + (w3m-delete-buffer): Select the most suitable buffer. + (w3m-goto-url): Use `pop-to-buffer' instead of `switch-to-buffer' in + order to be able to popup a window or a frame. + (w3m): Ditto; rearrange the source code. + (w3m-select-buffer-saved-window-config): New variable. + (w3m-select-buffer): Save the window configuration. + (w3m-select-buffer-copy-buffer): Bind `pop-up-frames'. + (w3m-select-buffer-quit): Restore the window configuration; protect + agains the absence of an emacs-w3m buffer. + + * w3m-xmas.el: Bind `w3m-use-tab' when compiling. + (w3m-xmas-show-current-title-in-buffer-tab): Examine the value for the + `gutter-buffers-tab-enabled' variable directly. + (w3m-xmas-setup-tab-in-gutter): New function; add it to + `w3m-mode-setup-functions' and `w3m-select-buffer-mode-hook'. + (w3m-xmas-update-tab-in-gutter): Do update only when `w3m-use-tab' and + `gutter-buffers-tab-enabled' are non-nil; always add it to + `w3m-display-functions'. + + * octet.el: Don't make sure the `emacs-major-version' variable is + bound. + * w3m-bitmap: Ditto. + * w3m-bug.el: Ditto. + * w3m-proc.el: Ditto. + * w3m-ucs.el: Ditto. + * w3m-util.el: Ditto. + * w3m.el: Ditto. + * w3mhack.el: Ditto. + +2003-11-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-delete-buffer, w3m-delete-other-buffers) + (w3m-select-buffer-delete-buffer): Call `w3m-process-stop'. + + * w3m-proc.el (w3m-process-kill-stray-processes): New function. + (w3m-process-start-queued-processes): Call + `w3m-process-kill-stray-processes'. + (w3m-process-filter): When parent-buffer was killed, call + `w3m-process-kill-stray-processes' + +2003-11-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-pop-up-windows): Default to t. + (w3m-pop-up-window-p): New macro examining the value for the + `w3m-use-tab' variable and the present situation. + (w3m-copy-buffer): Use it. + +2003-11-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-meta-content-type-charset-regexp) + (w3m-meta-charset-content-type-regexp) + (w3m-meta-refresh-content-regexp) + (w3m-meta-content-refresh-regexp): Allow `\n' as whitespaces. + +2003-10-31 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-backward): Return the current history if the + number zero is given as an argument. + +2003-10-29 OHASHI Akira <bg66@koka-in.org> + + * w3m.el (w3m-process-connection-type): Set t when system is darwin + version 7.0.0 or later. + +2003-10-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify-strike-through (var)): Make it into the variable + which is not a user option. + (w3m-fontify-strike-through (fn)): Check dynamically whether the window + system is used. + (w3m-url-at-point): Unify iso646 chars to ascii on XEmacs-mule. + + * mew-w3m.el: Silence the compile warning for `mew-coding-system-p' for + people having the Mew XEmacs package installed. + +2003-10-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-obey-w3m-pop-up-frames): New variable. + (w3m-copy-buffer): Inherit the value of `w3m-initial-frame' into the + new buffer if a new frame is not created for the new buffer. + (w3m-delete-frame-maybe): Simplify it in the different way. + + * w3m-search.el (w3m-search): Specify the 3rd arg of `w3m'. + +2003-10-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Revive `w3m-initial-frame' throughout. + (w3m-delete-frame-maybe): Revert 2003-10-20 change. + +2003-10-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-strike-through-face): Use the :strikethru attribute in + XEmacs. + (w3m-fontify-strike-through): Enable it also for XEmacs. + +2003-10-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-retrieve): Insert no data when either retrieval or + decoding is failed. + (w3m-w3m-parse-header): Do not return a base URI of retrieved page. + +2003-10-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Fix some comments and docstrings (to be continued). + (w3m-copy-local-variables, w3m-open-all-links-in-new-session, + w3m-horizontal-scroll): Remove unused non-global variables. + +2003-10-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Abolish `w3m-initial-frame' throughout. + (w3m-delete-frame-maybe): Simplify. + +2003-10-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-base-url): Removed. + (w3m-attributes, w3m-local-attributes, w3m-w3m-attributes): Do not + return a base URI of retrieved page. + +2003-10-14 Jose A. Ortega Ruiz <jao@gnu.org> + + * w3m.el (w3m-decode-entities-string): Move `save-match-data' to the + exterior of `with-temp-buffer'. + +2003-10-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-half-space, w3m-tab-separator): Use `:width' + instead of `:relative-width' to specify the space width. + (w3m-tab-line): Tidy it up. + + * w3m-favicon.el (w3m-favicon-set-image): Use `:width' instead of + `:relative-width' to specify the space width. + +2003-10-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-unselected-face, + w3m-tab-unselected-retrieving-face, w3m-tab-selected-face, + w3m-tab-selected-face): Exchange the default TTY colors between + selected faces and unselected faces. + (w3m-tab-drag-mouse-function): Compare buffer objects instead of buffer + names. + (w3m-tab-make-keymap): Use buffer objects instead of buffer names. + (w3m-tab-line): Make all tab widths the same even if there are wide + characters; never use graphic icons in TTY; close the left margin + unless there's an icon; add a keymap to favicon; don't put mouse-face + on icons. + (w3m-initialize-graphic-icons): Don't make graphic icons for TTY; don't + put mouse-face on icons. + + * w3m-favicon.el: Bind `w3m-modeline-favicon' when compiling. + (w3m-favicon-set-image): Add a half space after favicon. + + * w3m-util.el (w3m-current-title): New function. + (w3m-buffer-title): Use it. + + * w3m.el: Silence the byte-compiler for `w3m-info-like-map', + `w3m-lynx-like-map', `w3m-minor-mode-map', `w3m-mode-map', and + `w3m-setup-menu'. + +2003-10-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el: Silence the compile warning for `w3m-message'. + + * w3m.el (w3m-url-to-file-name): Enable it to interpret + file://localhost/ urls. + +2003-10-07 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-parse-and-fontify): Fix for textarea on w3mmee. + +2003-10-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (frame-current-scroll-bars): Alias to `ignore' if it is + not available. + (window-fringes): Ditto. + (w3m-tab-width): Protect against setting illegal values. + (w3m-tab-unselected-face): Don't specify the underline color. + (w3m-tab-unselected-retrieving-face): Ditto. + (w3m-tab-selected-face): Ditto. + (w3m-tab-selected-retrieving-face): Ditto. + (w3m-tab-background-face): Ditto. + (w3m-tab-timer): Rename from `w3m-tab-line-timer'. + (w3m-tab-half-space): New variable. + (w3m-tab-separator): New variable. + (w3m-tab-line): Show many tabs as far as possible. + + * w3m-favicon.el (w3m-favicon-retrieve): Clear the minibuffer after + retrieving favicon. + +2003-10-06 Katsumi Yamaoka <yamaoka@jpl.org> + + We shouldn't use too simple elements like ".+" in the deep nested + regexps. It may cause high cpu or may make Emacs hang. + +2003-10-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-use-favicon): Modify the doc-string. + (w3m-show-graphic-icons-in-mode-line): New variable. + (w3m-show-graphic-icons-in-header-line): New variable. + (w3m-buffer-setup): Modify the value for + `mode-line-buffer-identification' not to show favicon if + `w3m-show-graphic-icons-in-mode-line' is nil. + + * w3m-e21.el: Bind `w3m-show-graphic-icons-in-header-line' and + `w3m-show-graphic-icons-in-mode-line' when compiling. + (w3m-tab-line): Don't show spinners nor favicons if + `w3m-show-graphic-icons-in-header-line' is nil; call + `w3m-make-spinner-image' only once. + (w3m-initialize-graphic-icons): Don't make graphic icons if + `w3m-show-graphic-icons-in-mode-line' is nil. + + * w3m-xmas.el: Bind `w3m-show-graphic-icons-in-mode-line' when + compiling. + (w3m-initialize-graphic-icons): Don't make graphic icons if + `w3m-show-graphic-icons-in-mode-line' is nil. + +2003-10-05 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-replace): Call `set-buffer-modified-p'. + (w3m-form-field-parse): Do nothing when fid is nil. + (w3m-form-input-radio): Likewise. + (w3m-form-get-by-name): New function. + (w3m-form-input-map): Use it. + +2003-10-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-line): Fix the logic determining whether to + display favicon. + +2003-10-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-spinner-map-on-header-line): Abolish. + (w3m-modeline-spinner-map): Rename from `w3m-spinner-map-on-mode-line'. + (w3m-setup-header-line): Don't initialize + `w3m-spinner-map-on-header-line'. + (w3m-tab-spinner-map): New variable. + (w3m-tab-make-keymap): Initialize it. + (w3m-tab-line): Use it. + +2003-10-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-modeline-separator): New variable. + (w3m-modeline-favicon): New variable. + (w3m-favicon-image): Move from w3m-favicon.el. + (w3m-buffer-setup): Also call `w3m-initialize-graphic-icons' when Emacs + 21 is running; simplify the value for + `mode-line-buffer-identification'. + + * w3m-e21.el: Bind `w3m-favicon-image' and + `w3m-modeline-process-status-on' when compiling. + (w3m-spinner-map-on-header-line): New variable. + (w3m-spinner-map-on-mode-line): New variable. + (w3m-spinner-map-help-echo): New variable. + (w3m-setup-header-line): Initialize the value for + `w3m-spinner-map-on-header-line'; remove an excessive `list' from the + value for `header-line-format'. + (w3m-tab-map): New variable. + (w3m-tab-make-keymap): Set the value for `w3m-tab-map' in the current + buffer. + (w3m-tab-line): Add a keymap to the spinner; don't call + `w3m-tab-make-keymap', use `w3m-tab-map' instead. + (TopLevel): Add-hook `w3m-tab-make-keymap' to + `w3m-mode-setup-functions'. + (w3m-space-before-modeline-icon): New variable. + (w3m-modeline-process-status-on-icon, + w3m-modeline-image-status-on-icon, w3m-modeline-status-off-icon, + w3m-modeline-ssl-image-status-on-icon, + w3m-modeline-ssl-status-off-icon): New variables. + (w3m-initialize-graphic-icons): New function. + (w3m-make-spinner-image): Don't initialize the value for + `w3m-spinner-image-file' here; set the value for + `w3m-modeline-process-status-on-icon'. + + * w3m-favicon.el: Bind `w3m-favicon-image' when compiling. + (w3m-favicon-image): Move to w3m.el. + (w3m-space-before-favicon): Move from w3m-xmas.el. + (TopLevel): Make `w3m-modeline-favicon' and `w3m-favicon-image' + buffer-local; modify the value or put the `risky-local-variable' + property for `w3m-modeline-favicon'. + (w3m-favicon-set-image): New macro. + (w3m-favicon-setup): Use it. + (w3m-favicon-retrieve): Use it. + + * w3m-xmas.el (w3m-xmas-space-before-favicon): Move to w3m-favicon.el + and rename to `w3m-space-before-favicon'. + (w3m-space-before-modeline-icon): Rename from + `w3m-xmas-space-before-modeline-icon'. + +2003-10-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-filter): Relax the regular expression to + detect progress status. + +2003-10-02 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-w3m-expand-arguments): Redefine as a function rather than + a macro. + (w3m-dump-head-source-command-arguments): Simplify. + (w3m-halfdump-command-arguments): Ditto. + +2003-10-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-filter): Check return value of + `w3m-process-handler-parent-buffer' to move current buffer safely. + +2003-10-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-modeline-image-status-on, w3m-modeline-process-status-on, + w3m-modeline-ssl-image-status-on, w3m-modeline-ssl-status-off, + w3m-modeline-status-off): Use `defvar' instead of `defconst'. + (w3m-buffer-setup): Call `w3m-initialize-graphic-icons' instead of + `w3m-make-spinner-image'; simplify the value for + `mode-line-buffer-identification'. + + * w3m-xmas.el (w3m-xmas-space-before-modeline-icon): Rename from + `w3m-xmas-space-before-spinner'. + (w3m-modeline-process-status-on-icon, + w3m-modeline-image-status-on-icon, w3m-modeline-status-off-icon, + w3m-modeline-ssl-image-status-on-icon, + w3m-modeline-ssl-status-off-icon): New variables. + (w3m-spinner-image): Abolish. + (w3m-make-spinner-image): Abolish. + (w3m-initialize-graphic-icons): New function. + + * icons/state-00.xpm: + * icons/state-01.xpm: + * icons/state-10.xpm: + * icons/state-11.xpm: New files. + +2003-10-02 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-halfdump-command-arguments): Add "ucs_conv" option when + using w3m-m17n; check w3m-output-coding-system at run time. + +2003-10-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-proc.el (w3m-process-start-after): Make sure the value for + `w3m-current-buffer' is non-nil. + +2003-10-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-process-modeline-format): New option. + (w3m-buffer-setup): Set `mode-line-process'. + + * w3m-proc.el: Bind `w3m-process-modeline-format' to suppress + byte-compile warning. + (w3m-process-modeline-string): New buffer-local variable. + (w3m-process-start-after): Reset the above variable. + (w3m-process-filter): Check size of retrieved data and set the above + variable. + (w3m-process-modeline-format): New function. + +2003-10-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-make-spinner-image): Make sure the gifsicle program + is available. + +2003-09-30 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-use-symbol): Use `w3m-mule-unicode-p'. + + * w3m-symbol.el (w3m-mule-unicode-symbol): Ditto. + +2003-09-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-proc.el (w3m-process-stop): Redisplay the header-line. + + * w3m-e21.el (w3m-tab-line-format, w3m-tab-line-timer, w3m-tab-line): + Revive the timer operation. + (w3m-tab-line): Wobble the window size to force redisplay of the + header-line using a timer; include spinner images in the return value + when external processes are running. + (w3m-spinner-image-file): New variable. + (w3m-spinner-image-frames): New variable. + (w3m-spinner-image-index): New variable. + (w3m-make-spinner-image): New function. + + * w3m-favicon.el (w3m-favicon-retrieve): Always redraw Emacs frame + using the timer; wobble the window size instead of redrawing; increase + the delay time for the timer. + +2003-09-30 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-parse-and-fontify): Fix problem when form_int + appears after input_alt and action is specified. + +2003-09-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-symbol.el (w3m-mule-unicode-symbol): Fix customization type. + +2003-09-29 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-symbol.el: Bind `w3m-output-coding-system' when compiling. + (w3m-mule-unicode-symbol): New variable. + (w3m-symbol): Add it for candidate. + (w3m-symbol): Use it. + + * w3m.el (w3m-use-symbol): Check capability for + `w3m-mule-unicode-symbol'. + +2003-09-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-line-format, w3m-tab-line-timer, w3m-tab-line): + Remove the timer operation temporally. + +2003-09-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-xmas.el (w3m-make-spinner-image): Bind `format-alist' to nil. + +2003-09-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-tab-line-timer): New variable. + (w3m-tab-line): Use it to control this function running too frequently; + simplify the source code. + + * w3m-favicon.el (w3m-favicon-image-of): Abolish. + (w3m-favicon-retrieve): Use a timer to redraw Emacs frame. + + * w3m-xmas.el (w3m-xmas-space-before-favicon): New user option. + (w3m-xmas-space-before-spinner): New user option. + (w3m-make-spinner-image): Make sure the `gif' feature is available. + + * w3m.el (w3m-buffer-setup): Use `w3m-xmas-space-before-spinner' and + `w3m-xmas-space-before-favicon'. + +2003-09-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * icons/spinner.gif: New file (without LZW compression). + * icons30/spinner.gif: Ditto. + + * Makefile.in (install-icons, install-icons30): Also install gifs. + + * w3m-xmas.el (w3m-make-spinner-image): Use the spinner.gif file. + + * w3m-e21.el (w3m-tab-line-format): New variable (see doc-string). + (w3m-tab-line): Use it; use a timer to suppress this function running + too frequently. + +2003-09-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-spinner-image): New variable. + (w3m-make-spinner-image): New function. + + * w3m.el (w3m-buffer-setup): Call `w3m-make-spinner-image', show a + spinner in the modeline under XEmacs. + +2003-09-24 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-put-property): Don't call intern if it is not a + string. + (w3m-form-get-property): Ditto. + (w3m-form-put): Added argument ID. + (w3m-form-get): Changed argument from NAME to ID. + (w3m-form-make-form-data): Changed process to get NAME and VALUE. + (w3m-form-resume): Follow the API change in w3m-form-put and + w3m-form-get. + (w3m-fontify-textareas): Ditto. + (w3m-form-parse-and-fontify): Ditto. + (w3m-form-input): Ditto. + (w3m-form-input-password): Ditto. + (w3m-form-input-checkbox): Ditto. + (w3m-form-input-radio): Ditto. + (w3m-form-input-file): Ditto. + (w3m-form-input-textarea-set): Ditto. + (w3m-form-textarea-info): Ditto. + (w3m-form-input-select): Ditto. + (w3m-form-submit): Ditto. + (w3m-form-real-reset): Follow the structure change. + (w3m-form-input-select-id): New buffer local variable. + (w3m-form-input-select-set): Use it. + (w3m-form-field-parse): New inline function. + (w3m-form-parse-and-fontify): Put id for selectinfo. + (w3m-form-resume): Fixed regexp. + (w3m-form-input-textarea): Fixed line number. + (w3m-fontify-textareas): Put w3m-form-id property. + (w3m-form-parse-and-fontify): Store id to the textareainfo. + +2003-09-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el (w3m-favicon-retrieve): Redisplay Emacs frame; rename + from `w3m-retrieve-favicon'. + (w3m-favicon-image): Rename from `w3m-current-favicon-image'. + (w3m-favicon-setup): Rename from `w3m-setup-favicon'. + (w3m-favicon-image-of): Rename from `w3m-buffer-favicon'. + (w3m-favicon-convert): Rename from `w3m-convert-favicon'. + (w3m-favicon-retrieve): Rename from `w3m-retrieve-favicon'. + + * w3m-e21.el (w3m-tab-line): Rename `w3m-buffer-favicon' with + `w3m-favicon-image-of'. + + * w3m.el (w3m-clean-hook-options): Rename `w3m-setup-favicon' with + `w3m-favicon-setup'. + (w3m-buffer-setup): Rename `w3m-current-favicon-image' with + `w3m-favicon-image'. + +2003-09-23 OHASHI Akira <bg66@koka-in.org> + + * w3m.el (w3m-process-connection-type): Set nil when system-type is + darwin. + +2003-09-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el: Bind `w3m-icon-data' when compiling. + (w3m-current-favicon-data): Abolish. + (w3m-favicon-converted): Abolish. + (w3m-favicon-cache-data): Contain image data. + (w3m-favicon-cache-favicon): Return an image instead of raw data. + (w3m-setup-favicon): Fix the condition to check whether Emacs can + display images; set the value of `w3m-current-favicon-image' instead of + `w3m-current-favicon-data' for the about: pages. + (w3m-buffer-favicon): Make it simply get the value of + `w3m-current-favicon-image'. + (w3m-convert-favicon): Accept raw data and type; simply return an + image. + (w3m-retrieve-favicon): Rearrange the arguments to accept url and type + independently; set the value of `w3m-current-favicon-image' instead of + `w3m-current-favicon-data'; store an image into + `w3m-favicon-cache-data'. + (w3m-favicon-save-cache-file): Save data only if they contained images; + strip images from the cache for saving. + (w3m-favicon-load-cache-file): Create images for all the cache. + + * w3m.el (w3m-buffer-setup): Use `w3m-current-favicon-image' instead of + `w3m-favicon-converted' for `mode-line-buffer-identification' under + XEmacs in order to check whether the favicon image is available. + (w3m-examine-command-line-args): Use `member' instead of `memq' under + XEmacs to check whether `command-line-args' contains the same string as + the car of `command-line-args-left'. + +2003-09-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el: Autoload w3m for `w3m-expand-url' when compiling. + (w3m-setup-favicon): Fix the change of 2003-09-12 which was gone to + far. + + * w3m.el (w3m-open-all-links-in-new-session): Improve the regexp. + (w3m-examine-command-line-args): Don't let it misunderstand the next + command as a url string; modify the arguments in `command-line-args' + instead of removing them. + (w3m): Use `w3m-examine-command-line-args' even if it is called + non-interactively. + +2003-09-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-open-all-links-in-new-session): Don't use + `w3m-select-buffer'. + +2003-09-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-popup-frame-p): Make it accept the `interactive-p' + argument. + (w3m-examine-command-line-args): New function. + (w3m): Use it. + +2003-09-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el: Bind some external variables when compiling. + +2003-09-19 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-make-form-data): Insert "--" before the + multipart post boundary. + +2003-09-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-underline-face): New face. + (w3m-strike-through-face): New user variable. + (w3m-fontify-strike-through): New function. + (w3m-fontify): Call `w3m-fontify-strike-through' + +2003-09-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-favicon.el (w3m-setup-favicon): Convert favicon data to an image + for the about: pages using `w3m-convert-favicon'. + (w3m-buffer-favicon): Move the data conversion procedure to + `w3m-convert-favicon'. + (w3m-convert-favicon): New function detached from `w3m-buffer-favicon'; + make it work synchronously. + (w3m-retrieve-favicon): Convert favicon data to an image. + + * w3m-image.el (w3m-imagick-convert-buffer): Erase buffer before + calling the convert program. + + * w3m.el (w3m-buffer-setup): Modify the value for + `mode-line-buffer-identification' in order to make it possible to show + favicon under XEmacs. + +2003-09-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-open-all-links-in-new-session): New function. Suggested + by Yoichi NAKAYAMA <yoichi@geiin.org>. + (w3m-view-this-url-new-session): Call + `w3m-open-all-links-in-new-session' if the region is active. + +2003-09-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-key-binding): Don't use `custom-set-default'. + (w3m-use-favicon): Ditto. + * w3m-favicon.el (w3m-favicon-size): Ditto. + + * icons/*.xpm: Remove text. + +2003-09-17 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-new): Use `application/x-www-form-urlencoded' + instead of `urlencoded'. + (w3m-form-parse-and-fontify): Ditto. + (w3m-form-make-form-data): Use `multipart/form-data' instead of + `multipart'. + (w3m-form-mee-new): Likewise. + +2003-09-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-e21-toolbar-configurations): Don't modify the values + for `tool-bar-button-margin' and `tool-bar-button-relief'. + + * w3mhack.el (w3mhack-nonunix-install): Use icons30 for XEmacs. + (w3mhack-make-package): Use icons30. + + * Makefile.in (SUBDIRS): Add icons30. + (install-icons30): New rule. + (install-package, install-package-ja): Use it. + + * icons/*.xpm: Shrink the size of all icons. + * icons30/: Old icons are here. + +2003-09-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-activate-zmacs-regions): New macro. + * w3m.el (w3m-next-anchor, w3m-previous-anchor, w3m-next-form, + w3m-previous-form, w3m-next-image, w3m-previous-image, + w3m-scroll-up-or-next-url, w3m-scroll-down-or-previous-url, + w3m-beginning-of-line, w3m-end-of-line): Use it. + +2003-09-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-backward): Return nil if there is no + previous element. + + * w3m.el (w3m-view-previous-page): Skip the current page if it seems + broken; warn if there's no more history. + (w3m-copy-buffer): Use the current history for the url string if the + current page seems broken. + (w3m-goto-url): Use `lexical-let' to pass the history position data to + the asynchronous w3m process. + +2003-09-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el: Move the favicon stuff to w3m-favicon.el. + + * w3m-favicon.el: New file detached from w3m-e21.el. + (w3m-favicon-type): Adapt it to XEmacs as well. + (w3m-setup-favicon): Ditto. + (w3m-buffer-favicon): Ditto. + (w3m-retrieve-favicon): Replace `float-time' with `w3m-float-time'. + (w3m-arrived-setup-functions): Don't add-hook it here. + (w3m-arrived-shutdown-functions): Ditto. + + * w3m-xmas.el: Require `w3m-favicon'. + + * w3m.el (w3m-arrived-setup-functions): Add + `w3m-favicon-load-cache-file' if w3m-favicon is loaded. + (w3m-arrived-shutdown-functions): Add `w3m-favicon-save-cache-file' if + w3m-favicon is loaded. + + * w3m-util.el (w3m-float-time): New function. + + * w3mhack.el (w3mhack-examine-modules): Exclude w3m-favicon.el from the + files to be byte-compiled. + +2003-09-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-this-url-1): Fix a window configuration only when + the buffer's major mode has changed from the w3m-mode to another. + (w3m-goto-url): Don't erase a buffer when retrieving a local file. + +2003-08-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-copy-buffer): Copy the history before visiting a page in + order to show the about://history/ page correctly; adjust the position + in the history after copying. + (w3m-goto-url): Use buffer-local properties instead of global + properties for form data. + (w3m-reload-this-page): Specify the history element to the + `w3m-goto-url' function in order to submit the form data. + +2003-08-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-this-url-1): Don't kill the emacs-w3m buffer when a + process is in progress. + (w3m-goto-url-new-session): Ditto. + +2003-08-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-previous-page): Specify a history element of the + previous page to the `w3m-goto-url' function as the 7th arg. + (w3m-goto-url): Accept a history element as the 7th argument; specify + nil as the 7th argument when recursively calling itself; use a given + history element to examine the form data of the url to be visited. + (w3m-goto-url-new-session): Specify nil to the `w3m-goto-url' function + as the 7th argument. + (w3m): Ditto. + +2003-08-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-minimize-in-new-session): New user option. + (w3m-history-set-current): Redefine as an inline function rather than a + macro. + (w3m-history-current-1): Abolish the function. + (w3m-history-current-2): Abolish the function. + (w3m-history-element): New function. + (w3m-history-current): Abolish the funtction. + (w3m-history-backward): Don't modify the current position pointer in + the `w3m-history' variable. + (w3m-history-forward): Simplify using `w3m-history-backward'. + (w3m-history-copy): Minimize the history when + `w3m-history-minimize-in-new-session' is non-nil. + (w3m-history-plist-get): Abolish the `url' argument; complement the + meaning of the `local' argument. + (w3m-history-add-properties): Ditto. + (w3m-history-plist-put): Ditto. + (w3m-history-remove-properties): Ditto. + (w3m-history-store-position): Don't specify the optional arguments to + `w3m-history-add-properties'. + (w3m-history-restore-position): Abolish the `url' argument; don't + specify the optional arguments to `w3m-history-plist-get'. + (w3m-history-minimize): Simplify using `w3m-history-element'. + + * w3m.el (w3m-view-previous-page): Don't specify the optional arguments + to `w3m-history-plist-get' and `w3m-history-restore-position'. + (w3m-goto-url): Don't specify the optional arguments to + `w3m-history-plist-put', `w3m-history-plist-get', + `w3m-history-remove-properties' and `w3m-history-add-properties'. + (w3m-reload-this-page): Don't specify the optional arguments to + `w3m-history-plist-get' and `w3m-history-remove-properties'. + +2003-08-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-flat): Reduce the deepness of local + prpoerties in the list structure. + (w3m-history-assoc): Simplify; redefine as an inline function. + (w3m-history-with-element): Abolish the macro. + (w3m-history-current-2): New function. + (w3m-history-set-plist): New function. + (w3m-history-modify-properties): Rewrite. + (w3m-history-seek-properties): Abolish the function. + (w3m-history-seek-element): New function. + (w3m-history-share-properties): Abolish the function. + (w3m-history-tree): Tiny change. + (w3m-history-push): Rewrite. + (w3m-history-copy): Tiny change. + (w3m-history-plist-get): Synch to the change of `w3m-history-flat'. + (w3m-history-plist-put): Rewrite. + (w3m-history-add-properties): Rewrite. + (w3m-history-remove-properties): Rewrite. + (w3m-history-rename-url): Abolish the function. + (w3m-history-store-position): Abolish the optional argument. + (w3m-history-minimize): New command. + +2003-08-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-current-1): Redefine as a function rather + than a macro. + (w3m-history-previous-position): Ditto. + (w3m-history-next-position): Ditto. + (w3m-history-modify-properties): Ditto. + (w3m-history-save-position): Abolish the macro. + (w3m-history-forward-1): Ditto. + (w3m-history-backward-1): Ditto. + (w3m-history-with-element): Abolish the `set-current' argument. + (w3m-history-assoc): Ditto. + (w3m-history-plist-get): Ditto. + (w3m-history-plist-put): Ditto. + (w3m-history-add-properties): Ditto. + (w3m-history-remove-properties): Ditto. + (w3m-history-rename-url): Ditto. + (w3m-history-set-current): New macro. + (w3m-history-forward): Abolish the `set-current' argument; use + `w3m-history-set-current'. + (w3m-history-backward): Ditto. + (w3m-history-tree): Use `w3m-history-set-current' instead of + `w3m-history-forward-1'. + (w3m-history-push): Use `w3m-history-set-current'. + (w3m-history-store-position): Don't specify the `set-current' argument + to `w3m-history-add-properties'. + (w3m-history-restore-position): Don't specify the `set-current' + argument to `w3m-history-plist-get'. + + * w3m.el (w3m-view-previous-page): Don't specify the `set-current' + argument to `w3m-history-plist-get'. + (w3m-goto-url): Don't specify the `set-current' argument to + `w3m-history-plist-put', `w3m-history-plist-get', + `w3m-history-remove-properties' and `w3m-history-add-properties'. + (w3m-reload-this-page): Don't specify the `set-current' argument to + `w3m-history-plist-get' and `w3m-history-remove-properties'. + +2003-08-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-this-url-1): Fix a window configuration if a new + buffer visiting the specified url is not in the `w3m-mode'; remove a + newly created buffer if it is useless. + (w3m-goto-url): Don't use `save-excursion' when performing find-file + directly. + (w3m-goto-url-new-session): Remove a newly created buffer if it is + useless. + +2003-08-12 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * Makefile.in (what-where): Add space to avoid error on Solaris. + + * w3m-namazu.el (w3m-about-namazu): Fix last change. + +2003-08-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-previous-position): New macro. + (w3m-history-next-position): New macro. + (w3m-history-forward-1): Simplified using new macro(s). + (w3m-history-backward-1): Ditto. + (w3m-history-regenerate-pointers): Ditto. + (w3m-history-assoc): Ditto. + (w3m-history-current-1): Don't use old-fashioned backquotes. + (w3m-history-save-position): Ditto. + (w3m-history-modify-properties): Ditto. + (w3m-history-with-element): Ditto. + +2003-08-10 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-namazu.el (w3m-about-namazu): Fixed problem when further links + contain "&". + +2003-08-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-get-header): Removed. + (w3m-w3m-parse-header, w3m-w3m-dump-head): New function. + (w3m-w3m-attributes): Call the above functions. + (w3m-w3m-dump-head-source): Removed. + (w3m-w3m-dump-extra): New function. + (w3m-w3m-retrieve, w3m-w3m-retrieve-1): Reimplemented. + (w3m-about-header): Call `w3m-w3m-dump-head' instead of + `w3m-w3m-get-header'. + + * w3m-proc.el: Changes to support recursive call of functions creating + asynchronous processes. + (w3m-process-waited): Abolished. + (w3m-process-handler-new): Add result slot. + (w3m-process-handler-functions): Renamed from + `w3m-process-handler-function'. + (w3m-process-handler-result): New macro. + (w3m-process-with-null-handler): Reimplemented. + (w3m-process-start-and-wait): New function. + (w3m-process-with-wait-handler): Reimplemented. + (w3m-process-do): Reimplemented. + (w3m-process-do-with-temp-buffer): Reimplemented. + (w3m-process-sentinel): Accept the 3rd argument. Follow the above + changes. + +2003-08-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-reuse-history-elements): New user option. + (w3m-history-forward): Return a cons of a new history element and new + position pointers of a history. + (w3m-history-backward): Ditto. + (w3m-history-regenerate-pointers): New function. + (w3m-history-push): If `w3m-history-reuse-history-elements' is nil, + sprout a new history branch even if history elements for the same url + already exist. + (w3m-history-add-arrived-db): Abolish the optional argument; bind + `w3m-history-reuse-history-elements' to t. + + * w3m.el (w3m-view-previous-page): Assume `w3m-history-backward' + returns cons data; bind `w3m-history-reuse-history-elements' to t; fix + position pointers of a history after visiting a page. + (w3m-goto-url): Fix position pointers of a history when a page is + referred to by the about://history/ page. + (w3m-about-history): Include position pointers in an html form. + (w3m-history-highlight-current-url): Make history position data + invisible. + +2003-07-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-entities): Don't trust in the `match-data' after + the `w3m-entity-value' function is performed. + +2003-07-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-command, w3m-user-agent, w3m-command-arguments, + w3m-command-arguments-alist, w3m-no-proxy-domains, + w3m-command-environment, w3m-fill-column, w3m-mailto-url-function, + w3m-mailto-url-popup-function-alist, w3m-imitate-widget-button, + w3m-pixels-per-character, w3m-coding-system, + w3m-terminal-coding-system, w3m-input-coding-system, + w3m-output-coding-system, w3m-file-coding-system, + w3m-file-name-coding-system, w3m-default-coding-system, + w3m-coding-system-priority-list, w3m-profile-directory, w3m-init-file, + w3m-default-save-directory, w3m-accept-languages, w3m-icon-directory, + w3m-home-page, w3m-arrived-file, w3m-keep-arrived-urls, + w3m-keep-cache-size, w3m-follow-redirection, w3m-resize-image-scale, + w3m-default-content-type, w3m-content-type-alist, + w3m-encoding-type-alist, w3m-decoder-alist, + w3m-charset-coding-system-alist, w3m-correct-charset-alist, + w3m-horizontal-scroll-columns, w3m-horizontal-shift-columns, + w3m-edit-function, w3m-url-local-directory-alist, + w3m-pop-up-frame-parameters, w3m-horizontal-scroll-division, + w3m-mbconv-command, w3m-local-find-file-regexps, + w3m-local-find-file-function, w3m-local-directory-view-method, + w3m-dirlist-cgi-program, w3m-add-referer-regexps, w3m-touch-command, + w3m-uri-replace-alist, w3m-db-history-display-size, + w3m-select-buffer-window-ratio): Improve the customizing widgets. + + * w3m-symbol.el (w3m-symbol-custom-type): New variable. + (w3m-default-symbol, w3m-Chinese-BIG5-symbol, w3m-Chinese-CNS-symbol, + w3m-Chinese-GB-symbol, w3m-Japanese-symbol, w3m-Korean-symbol): Use it. + (w3m-symbol): Improve the customizing widgets. + + * w3m-search.el (w3m-search-engine-alist, w3m-search-default-engine): + Improve the customizing widgets. + * w3m-perldoc.el (w3m-perldoc-command, w3m-perldoc-pod2html-command, + w3m-perldoc-pod2html-arguments): Ditto. + * w3m-filter.el (w3m-filter-rules): Ditto. + +2003-07-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-namazu.el (w3m-namazu-command, w3m-namazu-arguments, + w3m-namazu-page-max, w3m-namazu-default-index-customize-spec, + w3m-namazu-index-alist, w3m-namazu-output-coding-system, + w3m-namazu-input-coding-system): Improve the customizing widgets. + * w3m-image.el (w3m-imagick-convert-program): Ditto. + * w3m-form.el (w3m-form-input-textarea-buffer-lines, + w3m-form-input-select-buffer-lines, w3m-form-input-map-buffer-lines): + Ditto. + * w3m-filter.el (w3m-filter-rules): Ditto. + * w3m-e21.el (w3m-favicon-size, w3m-favicon-cache-file, + w3m-favicon-cache-expire-wait, w3m-favicon-type, w3m-tab-width): Diito. + * w3m-dtree.el (w3m-dtree-directory-depth, w3m-dtree-indent-strings, + w3m-dtree-stop-strings): Ditto. + * w3m-cookie.el (w3m-cookie-accept-domains, w3m-cookie-reject-domains, + w3m-cookie-accept-bad-cookies, w3m-cookie-file): Ditto. + * w3m-bookmark.el (w3m-bookmark-file, w3m-bookmark-file-coding-system, + w3m-bookmark-default-section): Ditto. + * w3m-bitmap.el (w3m-bitmap-convert-arguments): Ditto. + * w3m-antenna.el (w3m-antenna-sites, w3m-antenna-make-summary-function, + w3m-antenna-sort-changed-sites-function, + w3m-antenna-sort-unchanged-sites-function, w3m-antenna-file): Ditto. + * mime-w3m.el (mime-w3m-safe-url-regexp): Ditto. + +2003-07-27 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-accept-japanese-characters): Checked loosely. + +2003-07-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (clean): Do not remove `shimbun-servers.el'. + + * w3mhack.el: Do not generate `shimbun-servers.el'. + (shimbun-servers-file): Abolished. + (w3mhack-compile, w3mhack-batch-compile): Do not call + `w3mhack-check-shimbun-servers-file'. + (w3mhack-generate-shimbun-servers-file): Removed. + (w3mhack-check-shimbun-servers-file): Removed. + + * w3m.el (w3m-fontify-anchors): Handle `id' attributes of anchors. + Thanks to Shinichiro HIDA and TAKAISHI Hayato for their reports. + (w3m-fontify-bold, w3m-fontify-underline): Stricten regular expressions + to detect tags. For more detail, see [emacs-w3m:05600]. + +2003-07-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * mime-w3m.el (mime-w3m-display-inline-images): Improve the customizing + widget. + +2003-07-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-language, w3m-command-environment, + w3m-content-type-alist, w3m-encoding-type-alist, w3m-decoder-alist, + w3m-charset-coding-system-alist, w3m-correct-charset-alist, + w3m-url-local-directory-alist, w3m-pop-up-frame-parameters): Improve + the customizing widgets. + +2003-07-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-generate-shimbun-servers-file): Exclude rss. + +2003-07-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-form-set-method): New inline function, that is a + `setf' method of `w3m-form-method'. + + * w3mhack.el (w3mhack-examine-modules): Because Mew 2.x and later do + not support Mule2.3 and Emacs19, ignore mew-shimbun.el when compiling + on such Emacsen. + +2003-07-24 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-output-coding-system): Changed condition to use utf-8 + with w3m-m17n. + (w3m-halfdump-command-arguments): Ditto. + +2003-07-24 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-parse-and-fontify): Fix for the pages in which + form_int appears after input_alt. + +2003-07-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Force texinfmt.elc to load texinfo.elc + from the correct place. <cf. [emacs-w3m:05573]> + +2003-07-19 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-e21.el (w3m-euc-japan-encoder): Fixed comment. + + +2003-07-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.3.6 from emacs-w3m-1_3 branch. + +2003-07-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-e21.el (w3m-ccl-get-ucs-codepoint-with-emacs-unicode): Remove + `translate-character'. + (w3m-euc-japan-encoder, w3m-iso-latin-1-encoder): Select appropriate + encoders when thie file is loaded. + + * w3m-ccl.el (w3m-ccl-write-repeat): Use a literal list of unibyte + character sets, instead of calling `charset-bytes', in order to avoid + difference between FSF Emacs and XEmacs. + (w3m-euc-japan-encoder, w3m-iso-latin-1-encoder): Do not overwrite, if + they have already been defined. + +2003-07-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-examine-modules): Ignore w3m-ccl.el when XEmacs + doesn't provide the mule feature. + +2003-07-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-correct-charset-alist): New user option. + (w3m-correct-charset): New inline macro. + (w3m-detect-meta-charset): New function. + (w3m-decode-buffer): Use `w3m-correct-charset' and + `w3m-detect-meta-charset'. + (w3m-create-page): Set `charset' to `w3m-current-content-charset' if it + is nil. + (w3m-region): If `charset' is nil, check `content-charset' in `META + Tag'. + +2003-07-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-ccl.el (toplevel): Add autoload for `charset-id' defined at + w3m-om.el. + (w3m-ccl-write-repeat): Simplified. + (w3m-ccl-write-euc-japan-character): Set nil, when + `read-multibyte-character' is not available. + (w3m-ccl-write-iso-latin-1-character): Ditto. + + * w3m-om.el: Remove redundant `function'. + (w3m-om-character-set-alist): New variable. + (charset-id): New function. + + * w3m.el (w3m-input-coding-system): Change its default value for + Mule2.3 and Emacsen without Mule. + +2003-07-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el (w3mhack-examine-modules): Ignore w3m-ccl.el when ccl.el + is missing. + + * w3m-e21.el (w3m-ccl-get-ucs-codepoint-with-emacs-unicode): Import + from w3m-ccl.el. + + * w3m-ucs.el (w3m-ccl-get-ucs-codepoint-with-mule-ucs): Import from + w3m-ccl.el. + + * w3m-ccl.el: Export the above constants. + + * w3m.el (w3m-retrieve-and-render): Check current content charset + before `w3m-create-page' is called. + +2003-07-17 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (toplevel): Do not require `ccl'. + (w3m-input-coding-system): Change its default value. + (w3m-internal-characters-alist): Moved to w3m-ccl.el + (w3m-ccl-write-repeat): Ditto. + (w3m-euc-japan-decoder): Ditto. + (w3m-euc-japan-encoder): Ditto. + (w3m-iso-latin-1-decoder): Ditto. + (w3m-iso-latin-1-encoder): Ditto. + + * w3m-ccl.el: New file. + + * w3m-ucs.el: Completely rewritten. + (w3m-euc-japan-mule-ucs, w3m-iso-latin-1-mule-ucs): New coding systems. + + * w3m-e21.el (toplevel): Require `w3m-ccl'. + (w3m-euc-japan-encoder, w3m-iso-latin-1-encoder): New encoder. + + * w3m-om.el, w3m-e20.el, w3m-xmas.el (toplevel): Require `w3m-ccl'. + +2003-07-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-about-db-history): Call `w3m-arrived-time' with string. + +2003-07-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-uri-replace-alist): Improve the customizing widget. + +2003-07-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-copy-buffer): Fix the logical error installed by the last + change at 2003-07-15. + +2003-07-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-image-only-page): Abolished. + (w3m-show-error-information): Return nil. + (w3m-create-text-page): Return 'text-page. + (w3m-create-image-page): Return 'image-page. + (w3m-create-page): Return 'external-view when `w3m-external-view' is + called. + (w3m-goto-url): Do not encode a given URL when it points a local page. + Bind `w3m-current-buffer' locally. Follow the change of + `w3m-create-page'. + (w3m-copy-buffer): Wrap `w3m-goto-url' with + `w3m-process-with-wait-handler', to avoid unexpected asynchronous + processes. + (w3m-region): Bind `w3m-current-buffer' locally. + + * w3m-util.el (w3m-url-local-p): Stricten its regexp. + (w3m-url-dtree-p): Removed. + +2003-07-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-uri-replace-alist): Revert 2003-07-09 change; improve the + customizing widget. + + * doc/ptexinfmt.el (texinfo-discard-command-and-arg): New function for + old Emacsen. + +2003-07-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-decoder-alist): Simplified. + +2003-07-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decoder-alist): Look for the newest inflate command. + +2003-07-09 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (w3m-mew-support-cid): Check `mew-version-number'. + (mew-w3m-cid-retrieve): Support Mew 4.0.53 and later. Thanks to Kazu + YAMAMOTO for his patch. + +2003-07-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-uri-replace-alist): Add `rpm', `waei', `eiwa', `kokugo' + and `eiei'. + (w3m-input-url): Do not encode its return value. + (w3m-goto-url): Call `w3m-url-transfer-encode-string' to encode a given + URL. + + +2003-07-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.3.5 from emacs-w3m-1_3 branch. + +2003-07-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-this-url-1): Simply copy buffer's contents to the + new session rather than to call `w3m-goto-url'. + +2003-07-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-local-file-type): Check whether a regular expression is + specified, before matching it on a URL. + + * Following changes are to check whether required libraries are + available. + + * w3mhack.el (toplevel): Do not create `shimbun/shimbun-servers.el' and + `w3m-kwds.el' only when this file is loaded, to suppress excessive + messages. + (w3mhack-check-shimbun-servers-file): New function. + (w3mhack-check-colon-keywords-file): New function. + (w3mhack-compile): Call these functions explicitly. + (w3mhack-batch-compile, w3mhack-locate-library, w3mhack-print-status): + New functions. + + * configure.in: Check that egrep is available and that regexp-opt.el + and xml.el are available. + + * aclocal.m4 (AC_EMACS_LISP): Add `-q' option and `-no-site-file' + option. + (AC_ADD_LOAD_PATH): Define `--with-attic' option. + (AC_CHECK_ELISP): New function. + + * Makefile.in (.el.elc): Call `w3mhack-batch-compile' instead of + `batch-byte-compile'. + (very-slow): Always call `keywords' target. + (keywords): Call `w3mhack-check-colon-keywords-file'. + +2003-07-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-about-antenna): Fix the expression to decide + changed sites. + + * w3m.el (w3m-retrieve-and-render): Do not overwrite an arrived time + with a modified time, even if the modified time is newer than the + arrived time. Store a real URL to arrived DB. + (w3m-about-db-history): Small clean up. + + * attic/xml.el: Import contrib/xml.el of Oort Gnus. Require cl and + poe. + +2003-07-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-bookmark.el (w3m-bookmark-add): Encode special characters + included in a URL and a title. + + * w3m-antenna.el (w3m-antenna-check-all-sites): Use `w3m-antenna-alist' + instead of `w3m-antenna-sites'; this change must have no ill effects + because `w3m-use-setup' merges site informations kept by + `w3m-antenna-sites' into `w3m-antenna-alist'. + (w3m-about-antenna): Fix. + (w3m-antenna-add-current-url): Encode special characters included in + `w3m-current-title'. + + * w3m.el: Changes of functions handling the arrived database, and clean + up w3m-retrieve-and-render() and related parts. + (w3m-content-type-alist): Change spec. + (w3m-attributes): Strip authentication part from URL before checking + charsets given by a user. + (w3m-arrived-add-1): Removed. + (w3m-arrived-add): Reimplemented. + (w3m-arrived-modify): Removed. + (w3m-arrived-time): Define its `setf' method. + (w3m-arrived-get, w3m-arrived-put): New inline functions. + (w3m-arrived-title): Define as a macro using `w3m-arrived-get'. + (w3m-arrived-last-modified): Ditto + (w3m-arrived-content-charset): Ditto + (w3m-arrived-content-type): Ditto. + (w3m-arrived-shutdown): Modify a predicate used for comparing arrived + elements, to ensure that every URL precedes its variants with + fragments. + (w3m-encode-specials-string): New function. + (w3m-safe-decode-buffer): New function. + (w3m-rendering-extract-title): Simplified. + (w3m-rendering-half-dump): Define as a normal function. + (w3m-rendering-buffer): Do not call `w3m-filter'. + (w3m-retrieve-and-render): Reimplemented. + (w3m-show-error-information): Change its argument spec. + (w3m-content-prepare-functions): Abolished. + (w3m-prepare-content): Reimplemented. + (w3m-prepare-text-content, w3m-prepare-image-content): Removed. + (w3m-create-text-page, w3m-create-image-page): New functions; the + successors of the aboves. + (w3m-create-page): New function. + (w3m-goto-url): Follow above changes and clean up. + (w3m-redisplay-and-reset): Call `setf' methods instead of using + `w3m-arrived-modify'. + (w3m-redisplay-with-charset): Ditto. + (w3m-redisplay-with-content-type): Ditto. + (w3m-about-header): Strip authentication part from URL before + extracting titles. + (w3m-about-history): Encode special characters included in a title. + (w3m-about-db-history): Encode special characters in the title. Ignore + URLs that include fragments. + +2003-07-01 TAKAHASHI Kaoru <kaoru@kaisei.org> + + * doc/ptexinfmt.el: @verb, @tie, @/ support. + (ptexinfmt-broken-facility): Abolish NO-NOTICE argument. Use + `ptexinfmt-disable-broken-notice-flag' instead. + +2003-07-01 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-mime-text/html-w3m): Add CHARSET argument of + `w3m-region' when no w3m-m17n. + +2003-07-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el (mime-w3m-preview-text/html): Call `w3m-region' with + `charset' option. + +2003-07-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Use `w3m-url-strip-fragment' instead of + `w3m-base-url' for local files. + +2003-07-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-arrived-load-list): Check that `w3m-arrived-file' exists + before deleting it. + (w3m-check-refresh-attribute): Condition relaxed. + (w3m-region): Disable checking refresh attribute. + +2003-06-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Some miscellaneous changes and large changes to make a filter + module cooperate with w3mmee and w3m-m17n. + (w3m-language): Stricten its customize spec. + (w3m-attributes): Call `w3m-url-strip-fragment' instead of using a + literal regular expression. + (w3m-arrived-load-list): New function. + (w3m-arrived-setup, w3m-arrived-shutdown): Use the above. + (w3m-url-decode-string): Call `vector' instead of `string' to avoid + making unexpected multibyte characters. + (w3m-decode-buffer): Do not call `w3m-decode-get-refresh'. + (w3m-decode-get-refresh): Removed. + (w3m-check-refresh-attribute): New function, the successor of the + above. + (w3m-rendering-half-dump): Encode a content for w3mmee and w3m-m17n + with `w3m-current-coding-system' instead of giving it as a binary data. + Because `w3m-current-coding-system' keeps a coding system used to + decode the current buffer, all characters should be recovered by this + encoding. + (w3m-rendering-buffer-1): Removed. + (w3m-rendering-buffer): New function, the successor of the above. + (w3m-rendering-unibyte-buffer): Removed. + (w3m-rendering-multibyte-buffer): Removed. + (w3m-prepare-text-content): Always call `w3m-decode-buffer'. Call + `w3m-rendering-buffer' instead of `w3m-rendering-unibyte-buffer'. + (w3m-goto-url): Fix regular expressions. + (w3m-region): Accept the 4th optional argument, `charset'. Set + `w3m-current-coding-system' to the coding system based on the given + charset. Call `w3m-rendering-buffer' with the charset. + +2003-06-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Include other files first. + +2003-06-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-shimbun-modules-using-rss): Don't use + `with-temp-buffer'. + +2003-06-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el (w3mhack-shimbun-modules-using-rss): New function. + (w3mhack-examine-modules): Call the above instead of a literal list. + +2003-06-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/Makefile.in (install): Don't run install-info for non- existent + info files. + + * w3mhack.el (w3mhack-examine-modules): Also examine + "sb-pukiwiki-rss.el". + +2003-06-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-namazu.el (w3m-namazu-complete-index): Consider `predicate' + option. + + * w3m-weather.el (w3m-weather-completion-table): Add `oki' as the + shortend form of `shimanekenoki'. + +2003-06-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-fontify-anchors): Do not encode fragment parts. + +2003-06-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-examine-modules): Ignore the shimbun modules + which need xml.el if it is not available. + +2003-06-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Improve the last change. + + +2003-06-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.3.4 from emacs-w3m-1_3 branch. + +2003-06-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-arrived-ignored-regexp): Use "\`" instead of "^". + (w3m-history-ignored-regexp): Ditto. + (w3m-url-transfer-encode-string): New inline function. + (w3m-fontify-anchors): Encode URL with the attribute `charset'. + (w3m-input-url): Encode URL with `w3m-default-coding-system'. + (w3m-about-header): Display the current anchor information. + + * w3m-form.el (w3m-form-parse-and-fontify): Encode URL with the + attribute `charset'. + +2003-06-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Encode messages to terminal while + formatting info pages. + +2003-06-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-w3m-attributes): Improve the regexp to extract + content-types. + +2003-06-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-parse-and-fontify): Apply + `w3m-decode-anchor-string' to the form action url. + +2003-06-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * doc/emacs-w3m.texi, doc/emacs-w3m-ja.texi: Their license is changed + from GNU Free Documentation License to GNU General Public License. + +2003-05-30 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (toplevel): Require poe. + (octet-filter-call1): Use `make-temp-file' instead of `make-temp-name'. + (octet-filter-call2): Ditto. + (octet-filter-call2-extra): Ditto. + (octet-temp-directory): Changed default value to + `temporary-file-directory'. + +2003-05-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (DOCS): FAQ, FAQ.ja, README.namazu.ja, README.shimbun.ja, + TIPS and TIPS.ja are merged into Info. + +2003-05-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * doc/Makefile.in (dvi): New target to create dvi files; related + targets and macros are installed. + + * doc/.cvsignore: Ignore dvi files. + + * configure.in: Check whether texi2dvi, ptex and jbibtex exists. + +2003-05-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * .cvsignore: Ignore tarballs. + + * Makefile.in (SUBDIRS): New macro. + (tarball): Refer the above macro, and put texinfo sources into a + tarball. + + * aclocal.m4 (AC_ADD_LOAD_PATH): Use the variable `EGREP' instead of + the literal `grep'. + +2003-05-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (byte-optimizer for match-string-no-properties): `lenght' + -> `length'. + +2003-05-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Simplify functions that rewrite URIs. + (toplevel): Autoload `w3m-search-uri-replace' instead of + `w3m-search-quick-search-handler'. + (w3m-uri-replace-alist): Changed its default value and its customize + spec. + (w3m-pattern-uri-replace): New function. + (w3m-uri-replace): Reimplemented. + + * w3m-search.el (w3m-search-quick-search-engine-alist): Abolished. + (w3m-search-quick-search-engines): Removed. + (w3m-search-quick-search-handler): Removed. + (w3m-search-uri-replace): New function. + +2003-05-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-highlight-current-anchor): Don't infloop even if a w3m + buffer is narrowed. + +2003-05-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-make-package): Make it work under non-Mule + XEmacs. + +2003-05-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-use-safe-url-regexp): New variable. + (mew-w3m-view-inline-image, mew-mime-text/html-w3m): Use + `mew-w3m-use-safe-url-regexp' for `w3m-safe-url-regexp'. + +2003-05-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (Top): Use w3m-treat-drive-letter for `w3m-expand-path-name'. + +2003-05-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el (mime-w3m-preview-text/html): Apply the patch posted by + Yoichi NAKAYAMA <yoichi@geiin.org> in [emacs-w3m:04836], that correct + the wrong usage of `message'. + +2003-05-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify-anchors): Invalidate the widget keymap in XEmacs; + add a help-echo to the widget button. + (w3m-make-minor-mode-keymap): Bind [down-mouse-2] to `undefined' to + invalidate the `widget-button-click' command in FSF Emacs. + +2003-04-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-imitate-widget-button): New variable. + (w3m-imitate-widget-button): New function. + (w3m-fontify-anchors): Imitate the widget button. + (w3m-next-anchor): Look for the widget button. + (w3m-previous-anchor): Ditto. + +2003-04-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-retrieve-and-render): Hide a exit status from an error + message unless `w3m-process-exit-status'. + +2003-04-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Improve and bug fix the find-file code. + +2003-04-16 Chihiro Kuroda <chee@iijmio-mail.jp> + + * w3m.el (w3m-download): Download a directory url to index.html + (by default) instead of signaling an error. + +2003-04-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-local-find-file-regexps): New user option. + (w3m-local-find-file-function): New user option. + (w3m-goto-url): Use the function specified by the + `w3m-local-find-file-function' variable for local files when the file + name matches the `w3m-local-find-file-regexps' variable. + +2003-04-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-search.el (w3m-search-engine-alist): Change coding-system to + `euc-japan' of "waei" and "kokugo". Tnx, Mr. Saito (sai@yedo.com) for + his report. + +2003-03-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-check-all-sites): Call `make-symbol' + instead of `gensym', in order to make this function free from runtime + CL functions. + +2003-03-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bug.el (report-emacs-w3m-bug): Make it possible to send a bug + report even if emacs-w3m is not running. + +2003-03-03 Michael Shields <shields@msrl.com> + + * w3m-xmas.el (w3m-create-image): Protect against images which are not + permitted to be loaded according to `w3m-safe-url-regexp'. + +2003-02-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-util.el (w3m-get-server-hostname): Rename and move from + `w3m-process-get-server-root' in `w3m-proc.el'. + + * w3m-proc.el (w3m-process-set-authinfo, w3m-process-read-user) + (w3m-process-read-passwd, w3m-process-y-or-n-p): Use + `w3m-get-server-hostname' instead of `w3m-process-get-server-root'. + + * w3m.el (w3m-show-error-information): New customized variable. + (w3m-w3m-attributes): Message strange `Location:' like lynx. + (w3m-retrieve-and-render): When error occur, show error message in `w3m + buffer' to be accompanied by `w3m-show-error-information'. + (w3m-show-error-information): New function. + (w3m-reload-this-page, w3m-redisplay-this-page) + (w3m-redisplay-and-reset, w3m-redisplay-with-charset) + (w3m-view-source, w3m-view-header): If `w3m-current-url' is nil, dont' + execute command. + (w3m): Guard from the bug of `select-frame-set-input-focus' in + Emacs-21.3.x. If `w3m-current-url' is nil in `w3m buffer' + +2003-02-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-generate-shimbun-servers-file): Exclude fml, + glimpse, lump, mailarc, mailman, mhonarc and text; indent. + (w3mhack-generate-colon-keywords-file): indent. + +2003-02-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-engine-alist): Add www.alltheweb.com + suggested by Chris Beggy <chrisb@kippona.com>; make the default value + more suitable to the language environment; don't use the old fashioned + backquotes. + (w3m-search-default-engine): Always default to google. + (w3m-search-prefer-japanese-site): Remove. + (w3m-search-inhibited-japanese-engines): Remove. + (w3m-search): Bind `completion-ignore-case' to t. + (w3m-search-quick-search-handler): Remove + `w3m-search-prefer-japanese-site' and + `w3m-search-inhibited-japanese-engines'. + +2003-02-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-w3m-attributes): Allow imperfect Status-Line like no + Reason-Phrase. Guard broken header like no location field. + +2003-02-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-util.el (w3m-url-local-p): Use `\`' instead of `^'. + +2003-02-21 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-local-dirlist-cgi): Treat a `local cookie file', again. + +2003-02-16 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-type): Support "release candidate" of w3m. + +2003-02-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-insert-image): Use `map-extents' instead of + `extent-at' repeatedly. + (w3m-remove-image): Ditto. + +2003-02-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-submit): Remove `!CURRENT_URL!' from action + tag. + +2003-02-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (TopLevel): Don't gererate the w3m-kwds.el file if there + is no permission to write. + + * Makefile.in (clean): Remove shimbun/shimbun-servers.el. + +2003-02-04 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp> + Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-generate-shimbun-servers-file): New function. + (TopLevel): Call it. + +2003-02-04 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp> + + * w3mhack.el (shimbun-servers-file): New constant. + +2003-02-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-mode): Bind `auto-hscroll-mode' for Emacs-21.3. + +2003-01-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-image-type): Move forward. + (w3m-fontify-images): Use `w3m-action' and `w3m-anchor' instead of + `get-text-property'. + (w3m-toggle-inline-images-internal): Use `w3m-image' instead of + `get-text-property'. + (w3m-toggle-inline-image): Don't specify the arg to `w3m-image'. + (w3m-resize-inline-image-internal): Use `w3m-image' instead of + `get-text-property'. + (w3m-zoom-in-image): Don't specify the arg to `w3m-image'. + (w3m-zoom-out-image): Ditto. + (w3m-view-this-url): Don't bother to call `w3m-anchor' if it is + needless. + (w3m-print-this-url): Don't pull-in the point into the link if it is + called non-interactively. + (w3m-highlight-current-anchor-1): Use `w3m-anchor-sequence' instead of + `get-text-property'. + (w3m-next-anchor): Don't put `nil' element into `w3m-goto-anchor-hist'; + use `push' instead of `cons'. + (w3m-previous-anchor): Ditto. + (w3m-next-form): Use `w3m-action' instead of `get-text-property'; don't + put `nil' element into `w3m-goto-anchor-hist'; specify the current + position to `w3m-action'; use `push' instead of `cons'. + (w3m-goto-previous-form): indent. + (w3m-previous-form): Use `w3m-action' instead of `get-text-property'; + don't put `nil' element into `w3m-goto-anchor-hist'; specify the + current position to `w3m-action'; use `push' instead of `cons'. + (w3m-next-image): Use `w3m-image' instead of `get-text-property'; don't + put `nil' element into `w3m-goto-anchor-hist'; specify the current + position to `w3m-image'; use `push' instead of `cons'. + (w3m-previous-image): Ditto. + + * w3m-form.el (w3m-form-resume): Use `w3m-action' instead of + `get-text-property'; specify the current position to `w3m-action'. + (w3m-fontify-textareas): Use `w3m-anchor-sequence' instead of + `get-text-property'. + (w3m-form-replace): Use `w3m-action' instead of `get-text-property'. + (w3m-form-textarea-info): Use `get-text-property' instead of + `w3m-get-text-property-around'. + (w3m-form-reset): Use `w3m-action' instead of `get-text-property'. + + * w3m-util.el (w3m-get-text-property-around): Always search for the + text prop around there and pull-in the point into the position where + the prop exists. + (w3m-action, w3m-anchor, w3m-image, w3m-submit): Use + `get-text-property' if the argument is omitted. + (w3m-image-scale): Abolished. + (w3m-anchor-sequence): Simplified. + + * mime-w3m.el (mime-w3m-mode-map): Bind it when compiling. + +2003-01-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (top): Move the last addition (modifying the value for + `shell-file-name') just after loading `cl'. + +2003-01-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3mhack.el (top): Set `cmdproxy.exe' to `shell-file-name' when Win32 + environment. + +2003-01-28 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-local-dirlist-cgi): Treat a `local cookie file'. + +2003-01-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-ucs.el (w3m-ucs-to-char): Guard error for Mule-UCS 0.85. + +2003-01-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-byte-optimize-letX): Add `pathname-coding-system' + to be removed from `let' bindings. + +2003-01-26 MIYOSHI Masanori <miyoshi@boreas.dti.ne.jp> + + * w3m-e21.el (w3m-favicon-type): Add BMP at the head of the list. + (w3m-favicon-type): Undo the last change and make the priority of BMP + the lowest. + +2003-01-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Withdraw the change of 2003-01-09. + +2003-01-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el (w3mhack-examine-modules, w3mhack-load-path): Check the + existence of Gnus for shimbun/nnshimbun.el. + +2003-01-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-function-max-args): Don't use the arglist + destructively. + + * mime-w3m.el (kill-new): Don't refer to the whole arglist of the + original function. + +2003-01-21 Masatake YAMATO <jet@gyve.org> + + * w3m.el (w3m-scroll-down-or-previous-url): Added doc string. + +2003-01-19 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> + + * w3m.el (toplevel): Strict checking that buggy `w3m-time-parse-string' + is used. + +2003-01-14 Katsumi Yamaoka <yamaoka@jpl.org> + Suggested by KURIHARA Kenichi <kenichi_kurihara@nifty.com>. + + * w3m.el (w3m-async-exec): Always default to `t'. + (w3m-process-connection-type): Default to `nil' under MacOS X. + +2003-01-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Insert one excessive newline after a + @foo{bar} thing to prevent clinging of a line and a line + (old texinfmt bug?) if it should be considered only one thing in a + line. + +2003-01-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-ext-url-show): Use `mew-buffer-message' instead + of `mew-window-configure'. + +2003-01-06 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-ext-url-show): New funcition. + (mew-w3m-ext-url-fetch): Ditto. + (top): Modify comment. Avoid byte-compile warning for + `mew-window-configure'. + +2002-12-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-about-db-history): Display the information of page. + +2002-12-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-local-dirlist-cgi): Treat a local cookie. + +2002-12-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e21.el (w3m-favicon-type): Change default value and type of + custom. + (w3m-favicon-type-alist): New internal variable. + (w3m-setup-favicon): Don't check 'xpm. + (w3m-buffer-favicon): Decide image type of Emacs use + `w3m-favicon-type-alist'. + +2002-12-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-type): Suppert `stable version notation' of w3m-m17n. + +2002-12-12 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-use-favicon): Moved from w3m-e21.el. + + * w3m-image.el (w3m-favicon-usable-p): Moved from w3m-e21.el. + + * w3m-e21.el : Bind `w3m-use-favicon' when compiling. + (w3m-favicon-usable-p): Moved to w3m-image.el. + (w3m-use-favicon): Moved to w3m.el. + +2002-12-07 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-text-chop): Added nil check. + +2002-12-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-what-where): Don't say [-ja] especially. + +2002-12-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/ptexinfmt.el: Modify it not to use APEL functions. + + * w3mhack.el (w3mhack-makeinfo): Remove last temporal mod. + +2002-12-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Temporally fix to help users who don't + have APEL that use texinfmt if loading doc/ptexinfmt.el is failed. + +2002-12-02 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * doc/Makefile.in: Remove GNU make things. + +2002-12-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-makeinfo): Don't format Japanes info if the mule + feature is not provided. + + * aclocal.m4 (AC_PATH_LISPDIR, AC_PATH_ICONDIR): Undo last change. + + * doc/Makefile.in (INSTALL_INFO): New variable. + (install): Use it. + +2002-11-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (srcdir): New variable. + (FLAGS): Specify an absolute path to w3mhack.el. + (all-en): New rule. + (all-ja): Made it make only Japanese info. + (info-en): New rule. + (install-en): New rule. + (install-ja): Made it install only Japanese info. + (install-lisp): Use `$(srcdir)/' instead of `./'. + (install-icons): Ditto. + (install-info-en): New rule. + (Makefile): Use `$(srcdir)/' instead of `./'. + (config.status): Ditto. + (very-slow): Specify an absolute path to attic/addpath.el. + + * doc/.cvsignore: Add version.texi. + + * doc/ChangeLog: Removed. + + * doc/Makefile.in (srcdir, subdir, top_srcdir): New variables. + (FLAGS): Specify an absolute path to w3mhack.el. + (EMACSINFO): Use `$(top_srcdir)' instead of `..'. + (INFO_DEPS): Include both emacs-w3m.info and emacs-w3m-ja.info. + (INFO_DEPS_EN): New variable. + (en): New rule. + (version.texi): New rule. + (emacs-w3m.info): Made it depend on version.texi. + (emacs-w3m-ja.info): Ditto. + (install): Use `$(top_srcdir)/' instead of `../'. + (install-en): New rule. + + * doc/version.texi: Removed from the CVS repository. + +2002-11-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * doc/Makefile.in (clean): Fix target. + +2002-11-29 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3mhack.el (w3mhack-nonunix-install): Create parent directories. + +2002-11-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/texinfo.tex: Replaced with the latest version. + +2002-11-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-header-line-map): Prevent tool-bar from being doubled + under Emacs 21. + +2002-11-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (infodir): Add a variable. + (default): Use `all'. + (all, all-ja): New rules. + (lisp): Renamed from `default'. + (what-where): Pass `infodir' to `w3mhack-what-where'. + (info, info-ja): New rules. + (install): Use `install-lisp' and `install-info'. + (install-ja): New rule. + (install-lisp): Renamed from `install'. + (install-info, install-info-ja): New rules. + (install-package): Use `install-lisp' instead of `install'; install + info files as well. + (install-package-ja): New rule. + (clean): Remove info files as well. + (distclean): Remove doc.Makefile as well. + + * aclocal.m4 (AC_PATH_LISPDIR, AC_PATH_ICONDIR): Modify a message for + `install-package'. + + * configure.in: Check for the makeinfo command; create doc/Makefile. + + * w3mhack.el (w3mhack-make-package): Add info file names into a + MANIFEST file. + (w3mhack-what-where): Show where info files will go. + (w3mhack-makeinfo): New function. + +2002-11-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/Makefile.in, .cvsignore: New file. + + * doc/emacs-w3m.texi, emacs-w3m-ja.texi: Correct copyright holder. + + * doc/emacs-w3m.texi: Renamed from emacs-w3m-en.texi. + + * doc/txi.tex: Renamed from txi-en.tex. + +2002-11-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-engine-alist): Specify coding-system for + the waei and kokugo entries. Suggested by Hideyuki SHIRAI. + +2002-11-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * doc/emacs-w3m-en.texi, emacs-w3m-en.texi: Convert to GFDL. + +2002-11-27 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp> + + * doc/emacs-w3m-en.texi: New files. + * doc/emacs-w3m-ja.texi: + * doc/ptexinfmt.el: + * doc/texinfo.tex: + * doc/txi-en.tex: + * doc/txi-ja.tex: + * doc/version.texi: + +2002-11-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-tabmenu.el (w3m-tab-menubar-update): Do nothing when there's no + menubar. + +2002-11-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-this-url-1): Keep position when new-session and + `w3m-view-this-url-new-session-in-background' is non-nil. + +2002-11-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-mime-text/html-w3m): Use `match-string-no-properties' + if it exist. + +2002-11-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Use an optional argument and the function + `interactive' to examine whether it is called interactively instead of + the function `interactive-p'. Suggested by TSUCHIYA Masatoshi. + (w3m-goto-url-new-session): Ditto. + (w3m): Ditto. + (w3m-select-buffer-show-this-line): Ditto. + +2002-11-14 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-w3m-attributes): Bind `case-fold-search' to t. + +2002-11-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search-engine-alist): Add some dictionaries. + (w3m-search-default-engine): Default to google. + (w3m-search-quick-search-engine-alist): Add iij-archie; add + customization type. + (w3m-search-prefer-japanese-site): New user option. + (w3m-search-inhibited-japanese-engines): New user option. + (w3m-search-quick-search-engines): New function. + (w3m-search-quick-search-handler): Maybe use a Japanese site; use + `w3m-search-quick-search-engines' to merge `w-s-engine-alist' and + `w-s-quick-search-engine-alist'. + + * w3m.el (w3m): Allow quicksearch urls if interactive. + +2002-11-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3.el (w3m-view-this-url-1): Copy `w3m-current-url' into a copied + buffer. + (w3m-goto-url): Allow the 7th argument `qsearch'; use it to recursive + call the function itself if the quicksearch feature is permitted. + (w3m-goto-url-new-session): Specify the 7th arg of `w3m-goto-url' if it + is called interactively. + +2002-11-08 Romain FRANCOISE <romain@orebokech.com> + + * w3m-search.el (w3m-search-engine-alist): Add "google groups". + (w3m-search-quick-search-engine-alist): New user option. + (w3m-search-quick-search-handler): New function. + + * w3m.el: Autoload `w3m-search-quick-search-handler'. + (w3m-goto-url): Use `w3m-search-quick-search-handler' to parse + quicksearch url schemes. + +2002-11-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-bookmark.el (w3m-bookmark-safe-string): Abolish its 2nd `coding' + argument. Instead of it, use the coding system to be used for encoding + the buffer contents on saving. + (w3m-bookmark-write-file): Follow the above change. + +2002-11-06 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-fontify-textareas): Replace textarea string only + when form data contains non-nil data. + +2002-11-05 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (toplevel): Added autoload setting for + `w3m-fontify-textareas'. + (w3m-fontify): Don't remove tag strings in the textareas; Call + `w3m-fontify-textareas'. + + * w3m-form.el (w3m-form-treat-textarea-size): New option. + (w3m-form-resume): Do nothing if forms is nil. + (w3m-fontify-textareas): New function. + (w3m-form-parse-and-fontify): Decode entities for form value; Record + textarea rows as text property. + (w3m-form-parse-and-fontify): Treat CRLF as a newline character. + (w3m-form-search-textarea): New function. + (w3m-form-textarea-replace): Rewrite. + (w3m-form-textarea-info): Ditto. + +2002-11-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-bookmark.el (w3m-bookmark-file-coding-system): Fix its docstring. + (w3m-bookmark-verify-modtime): Keep buffer modified status. + (w3m-bookmark-safe-string): New function. + (w3m-bookmark-write-file): Call it to make given strings be safe. + +2002-11-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-bookmark.el: Use non-visiting working buffer; Auto-detection of + bookmark file coding system. + (w3m-bookmark-file-coding-system): Fix its docstring. + (w3m-bookmark-buffer-file-name): New internal variable. + (w3m-bookmark-mode): Add documents for commands. + (w3m-bookmark-mode-setter): Set `default-directory'. + (w3m-bookmark-buffer): Use non-visiting working buffer. + (w3m-bookmark-sections): Follow the above change. + (w3m-bookmark-kill-entries): Likewise. + (w3m-bookmark-file-modtime, w3m-bookmark-verify-modtime) + (w3m-bookmark-save-buffer): New functions. + (w3m-bookmark-write-file): Use it; Stricten check. + (w3m-bookmark-add-current-url-group): Call `w3m-bookmark-add' without + 2nd argument. + (w3m-about-bookmark): Give unique id to sections. + (w3m-bookmark-current-number): Follow the above change. + (w3m-bookmark-kill-entry): If the bookmark file is reverted, reload it. + (w3m-bookmark-undo): Ditto. + (w3m-bookmark-edit): New function. + +2002-11-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-bookmark.el (w3m-about-bookmark): Fix. + (w3m-bookmark-current-number): Return nil on no entry line. + (w3m-bookmark-kill-entry): On no entry line, do not call + `w3m-bookmark-kill-entries'. + (w3m-bookmark-kill-entries): Fix. + +2002-11-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-namazu.el (w3m-namazu): Change prompt. + (w3m-namazu): Change prompt; Small fix. + + * w3m-bookmark.el: Experimental bookmark editer. + (w3m-bookmark-read-file): Removed. + (w3m-bookmark-buffer): New function. + (w3m-bookmark-sections): Use it. + (w3m-bookmark-write-file): Use it; Call `basic-save-buffer'. + (w3m-bookmark-view): View about://bookmark/ instead of + w3m-bookmark-file directly. + (w3m-about-bookmark, w3m-bookmark-current-number) + (w3m-bookmark-kill-entry, w3m-bookmark-kill-entries) + (w3m-bookmark-undo): New functions. + (w3m-bookmark-mode, w3m-bookmark-mode-map): New variables. + (w3m-bookmark-mode-hook): New hook. + (w3m-bookmark-mode): New minor mode. + (w3m-bookmark-mode-setter): New function. + (toplevel): Register it to `w3m-display-functions'. + +2002-10-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el (w3mhack-generate-colon-keywords-file): Protect against + unexpected data structure. + +2002-10-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-attributes): Remove workaround for servers which do + not support HEAD operations. + + +2002-10-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.3.3 from emacs-w3m-1_3 branch. + +2002-10-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (find-charset): Alias to ignore if no-Mule. + +2002-10-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-entity-alist): Use `w3m-mule-unicode-p' instead of + `w3m-use-mule-ucs'. + + * w3m-xmas.el (w3m-mule-unicode-p): New function. + + * w3m-fsf.el (w3m-mule-unicode-p): New function. + + * w3m-om.el (w3m-mule-unicode-p): Set aliase to `ignore'. + + * w3m-e19.el (w3m-mule-unicode-p): Set aliase to `ignore'. + +2002-10-25 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m.el (w3m-entity-alist): Support all entities using Mule-UCS. + +2002-10-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mew-w3m.el: Cancel the last change. Use `w3m-minor-mode'. + + * mime-w3m.el (mime-w3m-display-inline-images): Fix its docstring. + (mime-w3m-safe-url-regexp): Fill its docstring. + (mime-w3m-setup-hook): New hook. + (mime-w3m-setup): Do not initialize `mime-w3m-mode-map'; Run the above + hook. + (mime-w3m-mode-map): It is not defined for XEmacs and Emacs21. + (mime-w3m-local-map-property): New function. + (mime-w3m-preview-text/html): Call it. + + * w3m.el (w3m-key-binding): Cancel the last change. + (w3m-region): Change the interactive form; Do not process <base> tag by + itself. + (w3m-minor-mode-command-alist): Cancel the last change. + (w3m-minor-mode-map, w3m-minor-mode-hook, w3m-minor-mode): Revival. + +2002-10-23 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-toggle-inline-images-internal) + (w3m-toggle-inline-image, w3m-view-this-url, w3m-view-this-url) + (w3m-submit-form, w3m-external-view, w3m-view-image) + (w3m-save-image, w3m-view-url-with-external-browser) + (w3m-download-this-url, w3m-edit-this-url, w3m-goto-url) + (w3m-goto-url-with-timer, w3m-safe-view-this-url) + (w3m-safe-view-this-url): Check validity of the URL. + (w3m-print-current-url, w3m-edit-current-url): Check `w3m-current-url'. + + * w3m-util.el (w3m-url-fallback-base): Move from `w3m.el'. + (w3m-url-invalid-regexp): New constant. + (w3m-url-valid): New inline function. + + * mew-w3m.el (mew-mime-text/html-w3m): Remove any properties from + `xref'. + +2002-10-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (coding-system-list): Use `defalias' and `lambda' instead + of `defun'; allow an optional dummy argument; don't ignore `*noconv*'. + (read-passwd): Use `defalias' and `lambda' instead of `defun'. + (compose-mail): Ditto. + +2002-10-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-key-binding): Remove the code to reset + `w3m-minor-mode-map'. + (w3m-minor-mode-command-alist): Update its docstring. + (w3m-minor-mode-map, w3m-minor-mode-hook, w3m-minor-mode): Abolished. + (w3m-minor-mode): Removed. + + * mime-w3m.el (mime-w3m-setup): Call `w3m-make-minor-mode-keymap' + without using `w3m-minor-mode-map'. + + * mew-w3m.el (mew-use-w3m-minor-mode): Update its docstring. + (mew-w3m-minor-mode-map): New variable. + (toplevel): Revival the code to add a minor mode. + (mew-w3m-minor-mode-setter): Cancel the last change. + +2002-10-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-key-binding): Revival the code to reset + `mime-w3m-mode-map'. + + * mime-w3m.el (mime-w3m-mode-map): Revival. + (mime-w3m-setup): Initialize `mime-w3m-mode-map' based on + `w3m-minor-mode-map'; Modify it to set its parent map to + `mime-view-mode-default-map'. + (mime-w3m-preview-text/html) [XEmacs,Emacs21]: Unify `local-map' as + text property. + + * w3m.el (w3m-make-minor-mode-keymap): Call `make-spase-keymap' instead + of `make-keymap'. + +2002-10-22 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-entity-regexp): As simple regexp. Existance of final + semi-collon is to be detected. + (w3m-entity-value): 2nd argument STRICT is added. If not STRICT, find + entity from db by maxmum length matching, and returns it with appending + unused chars. Returns nil if not match. And also use defun instead of + defsubst. + (w3m-decode-entities): Use new `w3m-entity-value' with 2nd arg. + +2002-10-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-minor-mode): Define without `define-minor-mode'. + (w3m-minor-mode): Ditto. + (w3m-minor-mode-hook): Ditto. + (w3m-entity-regexp): Set 3000 to `max-specpdl-size' locally to avoid + max-specpdl-size error. + + * w3m-e19.el: Cancel the last change to define `define-minor-mode'. + * w3m-fsf.el: Ditto. + * w3m-om.el: Ditto. + + * attic/easy-mmode.el: Removed. + +2002-10-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e19.el: Require `easy-mmode'; make the alias `define-minor-mode' + to `easy-mmode-define-minor-mode'. + * w3m-fsf.el: Ditto. + * w3m-om.el: Ditto. + + * attic/easy-mmode.el: New file imported from Emacs 20.7. + +2002-10-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-lynx-like-map, w3m-info-like-map): Add [tab] for + `w3m-next-anchor'. + (w3m-safe-view-this-url, w3m-mouse-safe-view-this-url): New command. + (w3m-minor-mode-command-alist): New constant. + (w3m-make-minor-mode-keymap): New function. + (w3m-minor-mode-map): New keymap. + (w3m-minor-mode): New function. + + * mime-w3m.el (mime-w3m-mode-map): Abolished. + (mime-w3m-mode-command-alist): Abolished. + (mime-w3m-mode-dont-bind-keys): Abolished. + (mime-w3m-mode-ignored-keys): Abolished. + (mime-w3m-setup): Do not initialize `mime-w3m-mode-map'. + (mime-w3m-preview-text/html): Use `w3m-minor-mode-map' instead of + `mime-w3m-mode-map'. + (mime-w3m-view-this-url, mime-w3m-mouse-view-this-url): Removed. + + * mew-w3m.el (mew-w3m-minor-mode): Abolished. + (mew-w3m-minor-mode-setter): Call `w3m-minor-mode'. + +2002-10-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e19.el: Cancel last change for providing the base64 codec. + +2002-10-21 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-goto-url): Use 'group:' scheme instead of + 'about://group/...'; Use url encoding for the member of URL group + instead of base64 encoding. + + * w3m-bookmark.el (w3m-bookmark-add-current-url-group): Follow the + change above. + +2002-10-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e19.el: Require `poe' and `path-util'; attempt to define the + functions `base64-decode-string' and `base64-encode-string'. + + * w3m-util.el (w3m-display-progress-message): New function. + * w3m.el (w3m-goto-url-new-session): Use it. + (w3m): Use it. + +2002-10-21 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-goto-url): Process 'about://group/...'. + + * w3m-bookmark.el (w3m-bookmark-add-current-url-group): New function. + +2002-10-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-delete-buffer): Run `w3m-delete-buffer-hook' only when a + buffer is killed. + (w3m-pack-buffer-numbers): Arrange buffers sequentially from 1 instead + of 0. + (w3m-select-buffer-next-line): Update gutter tabs for XEmacs. + (w3m-select-buffer-delete-buffer): Run `w3m-delete-buffer-hook'. + + * w3m-util.el (w3m-buffer-number): Assume the buffer number has begun + from 1 instead of 0. + (w3m-buffer-set-number): Ditto. + (w3m-buffer-name-lessp): Ditto. + +2002-10-19 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m.el (w3m-entity-alist): Support Greek. + +2002-10-20 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-goto-url): Display a help message to stop asynchronous + process. + +2002-10-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-form-input-textarea-keymap): Don't bind C-g. + (w3m-form-input-select-keymap): Ditto. + (w3m-form-input-map-keymap): Ditto. + + * w3m.el (w3m-select-buffer-mode): Add some key descriptions to the + doc-string. + +2002-10-17 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * icons/db-history-up.xpm: Add missing comma. + +2002-07-19 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-symbol.el: New file. + + * w3m.el: Autoload "w3m-symbol" for `w3m-replace-symbol'. + (w3m-use-symbol): New variable. + (w3m-fontify): Call `w3m-replace-symbol'. + + * w3mhack.el (w3mhack-examine-modules): Don't byte-compile + w3m-symbol.el if no-MULE. + +2002-10-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-e21.el (w3m-buffer-favicon): Bind local null handler with + `w3m-process-with-null-handler' instead of `lexical-let'. + +2002-10-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-proc.el (w3m-process-push, w3m-process-start): Fix last change. + +2002-10-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-rendering-half-dump): To decide whether + `w3m-treat-image-size' is ignored, use `w3m-display-inline-images-p' + instead of `w3m-display-graphic-p'. Thanks to Mito for his report. + (w3m-about): Add `witdh' and `height' property to <img> tag. + +2002-10-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-emacs-w3m-icon): Use helvetica-bold to widen image. + +2002-10-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-lynx-like-map): Don't define key bindings for + `w3m-zoom-out-image' and `w3m-zoom-in-image' when emacs-w3m in running + in non-graphical display. + (w3m-info-like-map): Ditto. + +2002-10-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + Mito <mito@mxa.nes.nec.co.jp> + + * w3m.el (w3m-rendering-half-dump): Ignore `w3m-treat-image-size' when + emacs-w3m is running in non-graphical display. + +2002-10-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-local-dirlist-cgi): Follow the change of + `w3m-process-start'. + (w3m-w3m-get-header): Ditto. + (w3m-w3m-dump-head-source): Ditto. + + * w3m-image.el (w3m-imagick-convert-async-exec): Abolished. + (w3m-imagick-start): Removed. + (w3m-imagick-start-convert-buffer): Call `w3m-process-start' instead of + the above function. + + * w3m-proc.el (w3m-process-push): Accept `command' argument. + (w3m-process-start): Ditto. + +2002-10-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-dump-head-source): Do not display the help message + when `w3m-process-with-wait-handler' is evaluated. + (w3m-make-separator): New function. + (w3m-about-header): Use the above function. + + * w3m-proc.el (w3m-process-waited): New variable. + (w3m-process-error-handler): New function. + (w3m-process-with-wait-handler): Wrap the critical part with + `condition-case' to clean running processes up when `quit' signal is + occured. + +2002-10-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-dump-head-source): Display the message which + describes how to stop asynchronous process. + (w3m-lynx-like-map): Changed the key binded to `w3m-process-stop' from + `C-c C-g' to `C-c C-k'. + (w3m-info-like-map): Ditto. + +2002-10-08 MIYOSHI Masanori <miyoshi@boreas.dti.ne.jp> + + * README.shimbun.ja: Add notice that f1express requires Mule-UCS. + + * README.shimbun.ja: Ditto. + +2002-10-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-toggle-inline-images-internal): Simplify the code. + (w3m-resize-inline-image-internal): Remove an existing bitmap image + first. + + * w3m-bitmap.el (w3m-bitmap-image-insert): Replace + `insert-before-markers' with `insert' (return to the state before + 2002-04-15). + +2002-10-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-create-resized-image): Return nil when resizing is + failed; set buffer multibyte before converting xbm to bitmap. + + * w3m-xmas.el (w3m-create-resized-image): Return nil when resizing is + failed. + + * w3m-image.el (w3m-resize-image-by-rate): Undo last change. + +2002-10-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-create-resized-image): New function. + + * w3m-e19.el (w3m-create-resized-image): Alias to `ignore'. + * w3m-e20.el (w3m-create-resized-image): Alias to `ignore' if the + BITMAP-MULE is not available. + * w3m-om.el (w3m-create-resized-image): Ditto. + + * w3m-image (w3m-resize-image-by-rate): Limit the minimum scale. + + * w3m.el (w3m-resize-inline-image-internal): Remove an existing image + only for XEmacs. + +2002-10-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-create-resized-image): New function. + + * w3m.el (w3m-resize-inline-image-internal): Remove an existing image + before resizing. + +2002-10-01 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e21.el (w3m-favicon-type): New user variable. + (w3m-setup-favicon): Check `w3m-favicon-type'. + (w3m-buffer-favicon): Convert image to `w3m-favicon-type' instead of + 'xpm. + +2002-10-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-filter.el (w3m-filter-server-regexp): Fix the value; translate + the comment into English. + +2002-10-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-lynx-like-map): Bind key M-] to `w3m-zoom-in-image'; bind + key M-[ to `w3m-zoom-out-image'. + (w3m-info-like-map): Ditto. + (w3m-mode): Document those new keys. + +2002-09-30 KURODA Chihiro <chee@iijmio-mail.jp> + + * w3m.el (w3m-resize-image-scale): New user option. + (w3m-toggle-inline-image): Call `w3m-zoom-in-image' without resizing. + (w3m-resize-inline-image-internal): New inline function. + (w3m-zoom-in-image): New command. + (w3m-zoom-out-image): New command. + + * w3m-util.el (w3m-image-scale): New macro. + + * w3m-image.el (w3m-resize-image-by-rate): New function. + + * w3m-e21.el (w3m-create-resized-image): New function. + +2002-09-21 Kahlil HODGSON <dorge@tpg.com.au> + + * w3m.el (ffap-url-regexp): Make sure it is non-nil. + +2002-09-27 Katsumi Yamaoka <yamaoka@jpl.org> + Follow the change in Gnus. + + * mime-w3m.el (mime-w3m-mode-ignored-keys): New variable. + (mime-w3m-setup): Use it. + +2002-09-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-lynx-like-map): Unbind the key "N" to the command + `w3m-namazu' in order to avoid binding collision to + `w3m-view-next-page'. Thanks to Satoshi TAOKA for his report. + (w3m-mode): Fix its docstring for `w3m-antenna-add-current-url'. + Thanks to Satoshi TAOKA and Yoichi NAKAYAMA for the advice. + +2002-09-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el: Ignore byte-compile warnings for the dummy autoloads, + mis-judging of cl run-time functions and the obsoleteness of + `make-local-hook' under Emacs CVS. + +2002-09-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3mhack.el (w3mhack-examine-modules): Do not compile `mew-shimbun.el' + with old Mew. + + * mew-w3m.el (top): Avoid byte-compile error and warning for old + Mew. Do not push 'mew-w3m-cid-retrieve' for old Mew. + +2002-09-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-arrived-setup): Use 0 instead of nil as the initial value + for the new obarray. + + * w3m-filter.el (w3m-filter-setup): Use 0 instead of nil as the initial + value for the new obarray. + +2002-09-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-mode): Fix typo in its docstring. + +2002-09-20 Kahlil HODGSON <dorge@tpg.com.au> + + * w3m.el (w3m-fontify-bold): Permit class attributes, newlines or + whitespaces in the tag. + (w3m-fontify-underline): Ditto. + +2002-09-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-treat-drive-letter): New constant. + (w3m-url-to-file-name): Check `w3m-treat-drive-letter'. + + * w3m-dtree.el (w3m-dtree-directory-name): Check + `w3m-treat-drive-letter'. + +2002-09-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-filter.el (w3m-filter-rules): Add 'assahi shimbun' rule. + (w3m-filter-asahi-shimbun): New function. + +2002-09-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-setup): Check new entries registered in + `w3m-antenna-sites'. + (w3m-antenna-shutdown): Return the value of `w3m-antenna-alist'. + (w3m-antenna-check-all-sites): Simplified. + (w3m-about-antenna): Do not call `w3m-antenna-setup'. + + +2002-09-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.3.2 from emacs-w3m-1_3 branch. + + * w3m.el (w3m-init-file): Changed its default value. + + * Makefile.in (PACKAGE): Use `emacs-w3m' instead of `w3m_el'. + + * w3m-antenna.el (w3m-antenna-make-summary-function): Use + `function-item' instead of `const'. + (w3m-antenna-sort-changed-sites-function): Ditto. + (w3m-antenna-sort-unchanged-sites-function): Ditto. + (w3m-antenna-hns-last-modified): Asynchronized. + (w3m-antenna-last-modified): Removed. + (w3m-antenna-check-site): New function + (w3m-antenna-check-site-after): New function. + (w3m-antenna-check-sites): Removed. + (w3m-antenna-check-all-sites): New function. + (w3m-about-antenna): Asynchronized. + (w3m-about-antenna-edit): Reset post-data after its content is + displayed. + (w3m-antenna-edit-reset-post-data): New function. + +2002-09-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-init-file): Changed its default value. + (toplevel): When Emacs is running without interactive terminal, do not + load the startup file and do not evaluate `w3m-load-hook'. Load a byte + compiled startup file safely. + +2002-09-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-mailto-url-popup-function-alist): New user option. + (w3m-view-this-url-1): Don't save a window configuration for mailto + urls here. + (w3m-goto-mailto-url): Save a window configuration while composing a + mail message; popup a mail window if the major-mode of a mail buffer + matches to `w3m-mailto-url-popup-function-alist'. + +2002-09-01 Andrew M. Scott <ascott@sedona.ch.intel.com> + + * w3m-weather.el (w3m-weather-default-area): Fix typo in its docstring. + +2002-08-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Provide the feature `w3m' before loading an init file or + evaluating `w3m-load-hook'. Suggested by Seiichi NAMBA + <sn@asahi-net.email.ne.jp>. + +2002-08-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-init-file, w3m-load-hook): New option. + (toplevel): Load `w3m-init-file' and run `w3m-load-hook'. + +2002-08-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el: Require `custom' for Emacs 19 because of the function + `custom-initialize-set'. + +2002-08-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Clean up hook options. + (toplevel): Define the dummy function of `w3m-update-tab-line'. + (w3m-mode-hook, w3m-fontify-after-hook, w3m-select-buffer-hook): Clean + up its default value to nil. + (w3m-display-hook, w3m-delete-buffer-hook): Minimize its default value + and use `w3m-custom-hook-initialize' as the initialize function. + (w3m-arrived-setup-hook, w3m-arrived-shutdown-hook): Abolished. + (w3m-arrived-setup-functions, w3m-arrived-shutdown-functions, + w3m-mode-setup-functions, w3m-display-functions): New interanal + variables. + (w3m-arrived-setup): Refer `w3m-arrived-setup-functions' instead of + `w3m-arrived-setup-hook'. + (w3m-arrived-shutdown): Refer `w3m-arrived-shutdown-functions' instead + of `w3m-arrived-shutdown-hook'. + (w3m-fontify): Call `w3m-header-line-insert' by itself. + (w3m-next-buffer, w3m-delete-buffer, w3m-delete-other-buffers): Call + `w3m-select-buffer-update' by itself. + (w3m-clean-hook-options): New function. + (w3m-mode): Call `w3m-clean-hook-options', and run functions registered + to `w3m-mode-setup-functions'. + (w3m-goto-url): Call `w3m-select-buffer-update' by itself, and Run + functions registered to `w3m-display-functions'. + (w3m-select-buffer-update): Call `w3m-update-tab-line'. + + * w3m-util.el (w3m-custom-hook-initialize): New function. + + * w3m-xmas.el: Cancel the last change and refer `w3m-display-functions' + instead of `w3m-display-hook'. + + * w3m-e21.el (toplevel): Add `w3m-setup-favicon' to + `w3m-display-functions', `w3m-favicon-load-cache-file' to + `w3m-arrived-setup-functions', `w3m-favicon-save-cache-file' to + `w3m-arrived-shutdown-functions', and add `w3m-setup-header-line' and + `w3m-setup-widget-faces' to `w3m-mode-setup-functions' + + * w3mhack.el (w3mhack-load-path) [Mule]: Add the path of bitmap.el to + `load-path'. + + * w3m.el (w3m-select-buffer-hook): Renamed from + `w3m-change-buffer-hook'. + (w3m-next-buffer): Accept a numerical argument. + (w3m-previous-buffer): Accept a numerical argument, and call + `w3m-next-buffer'. + (w3m-delete-buffer): Call `w3m-next-buffer' instead of + `w3m-previous-buffer'. + + * w3m.el (w3m-delete-buffer-hook): Change its default value. + (w3m-change-buffer-hook): New option. + (w3m-delete-other-buffers-hook, w3m-previous-buffer-hook, + w3m-next-buffer-hook): Abolished. + (w3m-next-buffer): Run `w3m-change-buffer-hook' instead of + `w3m-next-buffer-hook'. + (w3m-previous-buffer): Run `w3m-change-buffer-hook' instead of + `w3m-previous-buffer-hook'. + (w3m-delete-buffer): Not call `w3m-select-buffer-update', which is + added to `w3m-delete-buffer-hook'. + (w3m-delete-other-buffers): Likewise. Run `w3m-delete-buffer-hook' + instead of `w3m-delete-other-buffers-hook'. + +2002-08-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (toplevel): Remove expressions to register hook functions to + `w3m-delete-buffer-hook', `w3m-delete-other-buffers-hook', + `w3m-display-hook', and `w3m-fontify-after-hook'. + (w3m-mode-hook, w3m-fontify-after-hookk, w3m-display-hook, + w3m-arrived-setup-hook, w3m-arrived-shutdown-hook, + w3m-delete-buffer-hook, w3m-delete-other-buffers-hook, + w3m-previous-buffer-hook, w3m-next-buffer-hook): Changed their default + values to avoid inconsistency of their customize. + (w3m-toolbar): Fix its help messages. + (w3m-arrived-file, w3m-keep-arrived-urls, w3m-db-history-display-size): + Fix their docstrings. + (w3m-history): Moved to avoid a byte compile warning. + + * w3m-xmas.el (toplevel): Remove an expression to register + `w3m-xmas-update-tab-in-gutter' to `w3m-display-hook'. + (w3m-xmas-show-current-title-in-buffer-tab): Remove expressions to + handle `w3m-display-hook' from the form to change its value. + + * w3m-e21.el (toplevel): Remove expressions to register hook functions + to `w3m-display-hook', `w3m-arrived-setup-hook', + `w3m-arrived-shutdown-hook', `w3m-mode-hook', `w3m-fontify-after-hook', + `w3m-next-buffer-hook', `w3m-previous-buffer-hook', + `w3m-delete-buffer-hook' and `w3m-delete-other-buffers-hook'. + +2002-08-28 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-delete-buffer-hook): New hook. + (w3m-other-delete-buffers-hook): Ditto. + (w3m-previous-buffer-hook): Ditto. + (w3m-next-buffer-hook): Ditto. + (w3m-view-this-url-new-session-in-background): Fixed docstring. + (w3m-next-buffer): Run `w3m-next-buffer-hook'. + (w3m-previous-buffer): Run `w3m-previous-buffer-hook'. + (w3m-delete-buffer): Run `w3m-delete-buffer-hook'. + (w3m-delete-other-buffers): Run `w3m-delete-other-buffers-hook'. + (w3m-pack-buffer-numbers): New function. + (w3m-delete-buffer-hook): Add `w3m-pack-buffer-numbers'. + (w3m-delete-other-buffer-hook): Add `w3m-pack-buffer-numbers'. + + * w3m-util.el (w3m-buffer-number): New inline function. + (w3m-buffer-set-number): Ditto. + + * w3m-e21.el (w3m-update-tab-line): New function. + (w3m-mode-hook): Add `w3m-update-tab-line'. + (w3m-fontify-after-hook): Ditto. + (w3m-previous-buffer-hook): Ditto. + (w3m-next-buffer-hook): Ditto. + (w3m-delete-buffer-hook): Ditto. + (w3m-delete-other-buffers-hook): Ditto. + (w3m-tab-width): Changed default value to 16. + (w3m-tab-line): Calculate tab width dynamically. + +2002-08-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-output-coding-system, w3m-halfdump-command-arguments): + Use 'utf-8 when `w3m-m17n' with Mule-UCS environment. + (w3m-charset-coding-system-alist): Add Windows Code Point. + (w3m-current-content-charset): New buffer-local variable. + (w3m-clear-local-variables, w3m-copy-local-variables): Handle it. + (w3m-decode-buffer): Set `w3m-current-content-charset'. + (w3m-rendering-half-dump): Use `w3m-current-content-charset' when + `w3m-m17n' or `w3mmee'. + +2002-08-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-lynx-like-map): Change the key `C-c w' to `C-c M-w' for + the command `w3m-delete-other-buffers'. + (w3m-info-like-map): Ditto. + +2002-08-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (emacs-w3m-version): Reset for development series toward + emacs-w3m-1.4. + +2002-08-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-history): Call `w3m-db-history' instead of goto + `about://db-history/'. + +2002-08-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-delete-other-buffers): New user command. + (w3m-lynx-like-map): Bind the key `C-c w' to the command + `w3m-delete-other-buffers'. + (w3m-info-like-map): Ditto. + (w3m-select-buffer-mode-map): Bind the key to the command + `w3m-select-buffer-delete-other-buffers'. + (w3m-select-buffer-delete-other-buffers): New user command. + +2002-08-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-check-header-tags): Ignore case of tags. + (w3m-about-db-history): Accept range specification in URL. + (w3m-db-history-display-size): New option. + (w3m-db-history): Refer it. + + * w3m-antenna.el (w3m-antenna-html-skeleton): Add link to + about://antenna-edit/. + (w3m-about-antenna-edit): New function. This is an experimental + imprement of the editor for Antenna sites. + +2002-08-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (char-after): Byte-optimize it for old Emacsen. + (char-before): Ditto. + +2002-08-23 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-view-this-url-new-session-in-background): New user + option. + (w3m-view-this-url-1): Use it; enclose `w3m-goto-url' with + `save-window-excursion'. + + * w3m-form.el (w3m-form-resume): Confirm `value' for text form is a + string. + +2002-08-22 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (ffap-url-regexp): Fix last change. + +2002-08-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (ffap-url-regexp): Modify the value to make it match to nntp + urls. + +2002-08-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (very-slow): New rule. + + * attic/addpath.el: New file. + +2002-08-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el: Require `cl' when compiling to provide the function + `gensym'. It is needed to byte-compile this file alone because of the + w3m-proc macros. + * w3m-image.el: Ditto. + * w3m-bitmap.el: Don't bother to load cl-macs. + +2002-08-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-display-message-enable-logging): New variable. + (w3m-display-message): Use it. + +2002-08-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-retrieve-1): Do not make error but return nil, even + if decoding is failed. + +2002-08-08 Nishimoto Masaki <nishimoto@gaju.org> + + * w3m-proc.el (w3m-process-with-environment): Copy + `process-environment' before `getenv' is called, in order to avoid + putting side effects to environment variables. + +2002-07-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-ucs-to-char): Return char for tilde by default. + + +2002-07-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.3.1 from emacs-w3m-1_3 branch. + +2002-07-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el (toplevel): Bind `mime-preview-condition' to avoid + byte-compile warnings. + (mime-w3m-insinuate): Install code to overwrite + `mime-preview-condition' which is already initialized before this + functions is called. + +2002-07-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-image-viewer): New option. + (w3m-content-type-alist): Refer it. + +2002-07-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decoder-alist): Don't examine the existence of w3m + command when compiling. + (w3m-dirlist-cgi-program): Ditto. + +2002-07-09 Hironori FUJII <fujii@chi.its.hiroshima-cu.ac.jp> + + * w3m.el (w3m-highlight-current-anchor): Don't infloop at the beginning + of a buffer. + +2002-07-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-perldoc.el (w3m-about-perldoc): Install workaround to specify the + place in which pod2html generates its cache files. Adjust links + pointing other perldocs. + +2002-07-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-mode): Make `list-buffers-directory' to buffer local + variable. + (w3m-goto-url): Set title of the URL to `list-buffers-directory'. + + * w3m-tabmenu.el (w3m-switch-buffer): Bind `completion-ignore-case' to + `t'. + +2002-07-08 OKAZAKI Tetsurou <okazaki@be.to> + + * configure.in: Use `AC_PATH_EMACS' instead of `AC_CHECK_EMACS'. + + * aclocal.m4 (AC_PATH_EMACS): New macro. + (AC_CHECK_EMACS): Removed. + + +2002-07-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.3 from emacs-w3m-1_3 branch. + +2002-07-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (byte-optimize-form-code-walker): Advise to make it + optimize throughout the and/or forms. + (max-specpdl-size): Increase the value by 5 times for Mule 2. + +2002-07-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-accept-japanese-characters): Don't call the external + command when compiling. + (examining the value for `w3m-command'): Ditto. + +2002-07-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-lynx-like-map): Use the key `(control space)' instead of + `C- ' for the command `w3m-history-store-position' under XEmacs. + +2002-06-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el (w3mhack-nonunix-lispdir): New option. + (w3mhack-nonunix-icondir): Ditto. + (w3mhack-nonunix-dryrun): Ditto. + (w3mhack-nonunix-install): New function. + +2002-06-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (DOCS): Add `TIPS'. + +2002-06-26 Ando Tsutomu <ando-tom@ff.iij4u.or.jp> + + * w3m-weather.el (w3m-weather-completion-table): Fix typo. + +2002-06-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-info-like-map): Remove redundant code. + +2002-06-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify-anchors): Put `w3m-name-anchor' property to + point-max(). + (w3m-fontify): Remove `w3m-name-anchor' handling. + (w3m-search-name-anchor): Move in the screen. + +2002-06-26 Tadashi Watanabe <watanabe@sigmaitec.co.jp> + + * w3m.el (w3m-info-like-map): Don't use FSF Emacs style key format for + XEmacs. + +2002-06-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (toplevel): Stricten the pattern to detect w3m version. + (w3m-info-like-map): Changed key bindings of `w3m-shift-left' and + `w3m-shift-right'. + +2002-06-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-use-ange-ftp): Chenged its default value to nil. + +2002-06-21 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-w3m-retrieve-1): Specify -no-cookie option only when the + w3m command is configured to accept it. + +2002-06-20 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (octet-type-filter-alist): Fixed parenthesis. + (octet-filter-call1, octet-filter-call2, octet-filter-call2-extra): + Enclose call-process with as-binary-process. + +2002-05-31 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp> + + * octet.el (octet-find-file): Bind `buffer-read-only', only while + calling `octet-buffer'. + + +2002-06-20 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2.8 from emacs-w3m-1_2 branch. + +2002-06-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bug.el: Require `w3m-e19' for Emacs 19 to be able to compile this + module alone. + +2002-06-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el (w3m-search): Don't extract a default word from the + header line. + +2002-06-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-header-line-insert): Use the property `keymap' instead of + `local-map' for the recent Emacsen; add a help echo; fix a typo. + + * w3m-xmas.el (w3m-setup-header-line): Remove. + +2002-06-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e19.el: Remove many emulating functions on the condition that + APEL should be used; require `cl' only when compiling; require + `pcustom' instead of `custom'. + (compose-mail): New function. + (read-passwd): Autoload "ange-ftp". + + * w3m-proc.el (read-passwd): Autoload "w3m-e19" for Emacs 19. + + * w3m-util.el (cancel-timer): Autoload "timer" for not only Mule 2 but + also Emacs 19. + + * w3m.el: Require `w3m-e19' for Emacs 19. + + * w3mhack.el (w3mhack-emacs-major-version): New constant. + (TopLevel): Silence the byte-compiler for not only Mule 2 but also + Emacs 19. + (w3mhack-mdelete): New function. + (w3mhack-examine-modules): Use it to make the code simple. + (w3mhack-generate-colon-keywords-file): Be sure to go to the beginning + of each file before looking for colon keywords (I noticed that + `insert-file-contents' doesn't always position point to the top). + + * README.ja: Update for the use of Emacs 19. + +2002-05-30 Kevin Rodgers <kevin.rodgers@ihs.com> + + NOTE: The following changes have been posted to the emacs-w3m + mailing list, they were not installed in the CVS repository at the + time. The original article has been archived in: + + http://emacs-w3m.namazu.org/ml/msg03472.html + + * w3m-e19.el: New file. + + * w3m.el: Require `w3m-e19' for Emacs 19. + (w3m-key-binding): Replace the widget `other' with `const'. + + * w3mhack.el (w3mhack-examine-modules): Include w3m-e19.el in the + listing for Emacs 19. + + * README: Update for the use of Emacs 19. + +2002-06-13 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-prepare-content): When cdr of + `w3m-content-prepare-functions' element is not function, call + `w3m-prepare-content' recursively. + (w3m-content-prepare-functions): Add "application/xhtml+xml" entry. + +2002-06-12 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-uri-replace-alist): New user option. + (w3m-uri-replace): New function. + (w3m-goto-url): Call `w3m-uri-replace'. + +2002-06-02 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-e21.el (w3m-ucs-to-char): Don't define it when already defined. + + * w3m-xmas.el (w3m-ucs-to-char): Ditto. + + +2002-06-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2.7 from emacs-w3m-1_2 branch. + + * w3m-weather.el: Require CL when this module is byte-compiled. + (w3m-weather-completion-table): Fix typos, which are noticed by Ando + Tsutomu <ando-tom@ff.iij4u.or.jp> in [emacs-w3m:03487]. + +2002-05-31 Mito <mito@mxa.nes.nec.co.jp> + + * w3m-weather.el (w3m-weather-completion-table): Fix "niigata-kaetsu". + +2002-05-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-make-ccl-coding-system): Make it recallable for the + existing coding-systems (we can now reload w3m.elc under XEmacs 21.5-b6 + and later). + +2002-05-29 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-w3m-retrieve-1): Don't decode the contents when redirect. + +2002-05-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (define-ccl-program): Remove advice when non-MULE. It + might be specified by pccl.elc if it has been mis-compiled for XEmacs + with MULE. + + * w3m.el (w3m-delete-frame-maybe): Don't delete the current frame if it + is the sole frame in the screen. + +2002-05-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (unicode-to-char): Shut XEmacs 21.5-b5 and earlier up + when compiling. + +2002-05-28 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-e21.el (w3m-ucs-to-char): New function. + + * w3m-xmas.el (w3m-ucs-to-char): New function for XEmacs-21.5. + +2002-05-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (tarball): Chmod 755 configure. + +2002-05-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-auto-show): Check multiple command like a + `previous|next-line' or `beginning|end-of-buffer' at the buffer's edge. + (w3m-window-hscroll): New function to rescue for XEmacs with Mule. + (w3m-current-column, w3m-set-window-hscroll): Chenge method of the + calculation point. the difference points. + (w3m-horizontal-scroll, w3m-horizontal-on-screen) + (w3m-horizontal-recenter): Use `w3m-window-hscroll'. + (w3m-redisplay-this-page): Don't handle store|restore position. + (w3m-goto-url): If reload or redisplay, restore position of history. + +2002-05-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-after-cursor-move-hook): Add `w3m-auto-show'. + (w3m-auto-show, w3m-horizontal-scroll-division): New options. + (w3m-next-anchor, w3m-previous-anchor, w3m-next-form) + (w3m-previous-form, w3m-next-image, w3m-previous-image): Call + `w3m-horizontal-on-screen'. + (w3m-mode): Bind many variables for automatic scrolling when + `w3m-auto-show' is non-nil. + (w3m-scroll-left, w3m-scroll-right, w3m-shift-left) + (w3m-shift-right): Call `w3m-horizontal-scroll'. + (w3m-horizontal-scroll-done): New buffer local variable. + (w3m-current-position): Modify initial value. + (w3m-auto-show, w3m-horizontal-scroll, w3m-horizontal-on-screen): New + functions. + (w3m-horizontal-recenter, w3m-beginning-of-line) + (w3m-end-of-line): Use `w3m-set-window-hscroll' and + `w3m-current-column'. + (w3m-store-current-position): Set markers of beginning of line and end + of line. + (w3m-check-current-position): Check car of `w3m-current-position'. + (w3m-current-column, w3m-set-window-hscroll): New functions to rescue + for XEmacs with Mule. + +2002-05-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-form-replace): Don't pad the form slot with spaces + if a string is longer than that width. + +2002-05-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-arrived-p): Move its definition in order to avoid + byte-compile warning. + + * Makefile.in (default, what-where): Change order. + +2002-05-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el: Modify the error message that XEmacs APEL package + versions 1.23 and later can barely be used to run emacs-w3m. + +2002-05-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-mode): Suppress compile warning under old Emacsen. + + * Makefile.in (what-where): New rule. + + * w3mhack.el (w3mhack-what-where): New function. + (locate-library): Make the function silent for Mule first. + +2002-05-13 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-horizontal-shift-columns): New user option. + (w3m-shift-left, w3m-shift-right): New commands. + (w3m-lynx-like-map, w3m-info-like-map): Add keybind `w3m-shift-left' + and `w3m-shift-right'. + (w3m-mode): Modify doc-string for new commands. Bind `auto-show-mode' + to nil. + +2002-05-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-add-arrived-db): Force update the page. + +2002-05-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bug.el (report-emacs-w3m-bug-system-informations): Don't include + useless infos; eval the value for each time to load it. + (report-emacs-w3m-bug): Bind `print-length' and `print-level' with nil. + +2002-05-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-menubar): Modify the label for report-emacs-w3m-bug. + (w3m-lynx-like-map): Replace the key `C-c C-b' with `C-c C-v' for + `w3m-history-restore-position'; replace the key `C-c b' with `C-c C-b' + for `report-emacs-w3m-bug'. + (w3m-info-like-map): Ditto. + (w3m-mode): Add a document for `report-emacs-w3m-bug'. + + * w3mhack.el: Check for the validity on APEL also for XEmacs with MULE. + + * w3m-bug.el (report-emacs-w3m-bug-system-informations): Add + (featurep 'mule) and (featurep 'file-coding). + +2002-05-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-download): Modify string of the prompt. + (w3m-prepare-content): Add 5th optional argument `retry'. If not + determine content-type, ask its. + +2002-04-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bug.el (report-emacs-w3m-bug): Bind `after-load-alist' to nil + while loading the file itself; examine system info in the `w3m-mode' + buffer. + +2002-04-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-bug.el (report-emacs-w3m-bug-system-informations): Add + `mule-version' and `Meadow-version'. + (report-emacs-w3m-bug): Fix when info is a function. + + * w3m.el (w3m-menubar): Add many functions. + +2002-04-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bug.el: New file. + + * w3m.el: Autoload "w3m-bug" for `report-emacs-w3m-bug'. + (w3m-lynx-like-map): Bind `report-emacs-w3m-bug' to C-cb.< + (w3m-info-like-map): Ditto. + + * w3m-om.el (compose-mail): New function. + + * w3mhack.el: Check for the validity on APEL. + +2002-04-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-arrived-modify): New function. + (w3m-local-attributes): If set Content-type in arrived DB, return it. + (w3m-redisplay-this-page, w3m-redisplay-and-reset) + (w3m-redisplay-with-content-type): New commands. + (w3m-redisplay-with-charset): Use `w3m-arrived-modify'. + (w3m-lynx-like-map): Bind all new commands and modify bind for + `w3m-redisplay-with-charset'. + (w3m-info-like-map): Ditto. + (w3m-mode): Document them. + (w3m-goto-url): If reload is 'redisplay, do redisplay only. Modify + content-type decided method at local URL. + (w3m-about-header): Display `Modifer Information'. + (w3m-header-line-insert): Display modifers when type are setting. + +2002-04-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-horizontal-recenter): New command. + (w3m-beginning-of-line): New command. + (w3m-end-of-line): New command. + (w3m-lynx-like-map): Bind them. + (w3m-info-like-map): Bind them. + (w3m-mode): Document them. + +2002-04-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-image-face-inherit): Default to t. + + * w3m-om.el (w3m-om-use-overstrike-to-make-face-bold): New var. + (custom-declare-face): Advise it to use `set-face-bold-p' to make faces + bold by overstriking. + + * w3m-util.el (w3m-default-face-colors): New constant. + * w3m.el (w3m-bold-face, w3m-underline-face): Use it. + +2002-04-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-image-insert): Don't put the transparent + face except for Emacs 20. + + * w3m.el (w3m-key-binding): Don't manipulate key bindings if w3m.elc + has not been loaded (it will fix the problem that the face colors might + not be specified under Mule 2). + +2002-04-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-transparent-face): Remove. + (w3m-bitmap-image-insert): Use the list form instead of + `w3m-bitmap-transparent-face' to make the overlay transparent. + +2002-04-23 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-bitmap.el (w3m-bitmap-convert-arguments) + (w3m-bitmap-image-face-inherit): New customize values. + (w3m-create-image): Append argument `w3m-bitmap-convert-arguments' when + call `w3m-imagick-start-convert-buffer'. + (w3m-insert-image): If `w3m-bitmap-image-face-inherit' is non-nil, + inherit the face of bitmap image from the face of text at point. + +2002-04-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (distclean): Remove autom4te*.cache rather than + autom4te.cache. + + * w3m-bitmap.el (w3m-bitmap-transparent-face): New face. + (w3m-bitmap-image-insert): Put `w3m-bitmap-transparent-face' to + overlays; don't use overlays to highlight bitmap images. + (w3m-insert-image): Add `w3m-bitmap-image-face' to a bitmap image as a + text property. + +2002-04-23 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-toggle-inline-images-internal): Call `w3m-insert-image' + with the url of image. + + * w3m-xmas.el (w3m-insert-image): Add dummy argument. + + * w3m-e21.el (w3m-insert-image): Add dummy argument. + + * w3m-bitmap.el (w3m-bitmap-cache-image-hook): New hook. + (w3m-create-image): Run `w3m-bitmap-cache-image-hook' with `url' when + use the cached image. + (w3m-insert-image): Add 4th argument `url'. Do nothing which have no + 'w3m-image property or differ its url. + +2002-04-23 Katsumi Yamaoka <yamaoka@jpl.org> + + Make emacs-w3m can be compiled by `make slow' with no warnings. + * Makefile.in (slow): Don't echo the values for EMACS and FLAGS. + * octet.el: Require `w3m-util' for `w3m-insert-string'. + * w3m-bitmap.el: Autoload w3m-om for `move-to-column-force'. + * w3m-hist.el: Load w3m-kwds.el for old Emacsen. + * w3m-image.el: Require `pcustom' for old Emacsen; bind some external + vars when compiling. + * w3m.el: Enclose the definitions for `w3m-current-title' and + `w3m-current-url' with `eval-and-compile', and move them forward. + (w3m-url-at-point): Enclose with `eval-and-compile'. + (w3m-add-local-hook): Ditto. + (w3m-about-retrieve): Call `base64-decode-string' indirectly to avoid + compile warn under old Emacsen. + + * w3m-util.el (w3m-insert-string): Fix doc-string. + +2002-04-22 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-region): Call `w3m-process-stop' first. + + * mew-w3m.el (mew-w3m-view-inline-image): Toggle + `mew-w3m-auto-insert-image'. + (mew-w3m-cid-retrieve-hook): New customize hook. + (mew-w3m-cid-retrieve): Run `mew-w3m-cid-retrieve-hook'. + +2002-04-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-insert-string): Prevent doubling expansion on the + arg. + +2002-04-20 Hiroya Murata <lapis-lazuli@pop06.odn.ne.jp> + + * mime-w3m.el (mime-w3m-cid-retrieve): Use `w3m-insert-string' instead + of `insert' to prevent multibyte/unibyte problems. + * octet.el (mime-preview-octet, mime-view-octet): Ditto. + + * w3m-util.el (w3m-insert-string): Moved from shimbun/shimbun.el. + +2002-04-20 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-w3m-attributes): Set type to downcase. + +2002-04-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-header): Don't use `make-string' to make a + separator text under Mule. + +2002-04-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-cid-retrieve): Support w3m-bitmap.el when + retrieve `cid image' (Mew cache has multibyte strings, but work buffer + is unibyte). + +2002-04-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (TopLevel): Not to get the byte-code for `current-column' + inlined under old Emacsen. + + * w3m-bitmap.el (w3m-bitmap-emacs-broken-p): Use + `ad-Orig-current-column' rather than `current-column' if it has already + been defined. + (TopLevel): Not to get the byte-code for `current-column' inlined under + the broken Emacsen in case when compiling manually. + +2002-04-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (TopLevel) Require `cl' and possibly load cl-macs. The + following changes are for old Emacsen. + (w3m-bitmap-emacs-broken-p): New constant. + (TopLevel): Warn if Emacs has a bug on managing column numbers. + (w3m-bitmap-move-to-column): Allow the 3rd arg `strictly'; don't modify + the buffer contents unless the 3rd arg has been set. + (w3m-bitmap-defadvice-if-broken): New macro; use it to advise the + functions `current-column', `move-to-column', `move-to-column-force', + `next-line' and `previous-line' to work under the broken Emacsen. + (w3m-bitmap-byte-indexed-characters-p): Remove. + (TopLevel): Don't alias `w3m-bitmap-current-column' to + `current-column'; don't alias `w3m-bitmap-move-to-column-force' to + `move-to-column-force'. + (w3m-bitmap-substitute-key-definitions): Remove. + (w3m-bitmap-image-insert): Replace `w3m-bitmap-current-column' with + `current-column'; replace `w3m-bitmap-move-to-column-force' with + `move-to-column-force'. + (w3m-bitmap-image-delete-internal): Ditto. + + * w3m-om.el (move-to-column-force): New function using + `move-to-column-strictly'. + +2002-04-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-next-line): Handle `temporary-goal-column'. + +2002-04-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-halfdump-command-arguments): Fix last change. + +2002-04-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-byte-indexed-characters-p): New macro. The + following changes are for old Emacsen. + (w3m-bitmap-move-to-column): New function. + (w3m-bitmap-move-to-column-force): Use it. + (w3m-bitmap-next-line): New command. + (w3m-bitmap-previous-line): New command. + (w3m-bitmap-substitute-key-definitions): New function; add it to + `w3m-mode-hook' as the one-shot function. + +2002-04-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-halfdump-command-arguments): Add `-I e' option to w3m + under Japanese environment. + +2002-04-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * mime-w3m.el (mime-w3m-cid-retrieve): Use `mime-decode-string', + `mime-entity-body' and `mime-entity-encoding' instead of + `mime-insert-entity-content' to make it work even if the entity buffer + is multibyte. + +2002-04-16 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-check-header-tags): Renamed from w3m-check-link-tags. + (w3m-check-header-tags): Parse base tag too. + (w3m-rendering-buffer-1): Use it. + (w3m-prepare-text-content): Don't use w3m-base-url. + +2002-04-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-image-insert): Replace `insert' with + `insert-before-markers'. + (w3m-bitmap-image-delete-internal): Delete trailing newlines. + (w3m-insert-image): Don't check for the existence of an image. + + * w3m.el (w3m-history-current-url-face): Provide `font' temporally to + avoid loading it and `cl'. + +2002-04-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-image-get-overlay): Don't clear the + `evaorate' property here. + (w3m-bitmap-image-insert-internal): Rename to + `w3m-bitmap-image-insert'; change the meaning of the 2nd arg `image' + (see docs); allow the optional arg `ovr'; don't scan for an overlay + here; handle `w3m-bitmap-image-count'; use overlays to highlight bitmap + images. + (w3m-bitmap-image-insert): Remove old one. + (w3m-bitmap-image-delete-internal): Allow the 2nd arg `ovr'; don't scan + for an overlay here; clear the `evaorate' property here. + (w3m-bitmap-image-delete): Allow the 2nd arg `ovr'; don't scan for an + overlay here; don't delete an overlay. + (w3m-bitmap-image-delete-string): Remove. + (w3m-insert-image): Scan for an overlay here; don't use text props to + highlight bitmap images. + (w3m-remove-image): Scan for an overlay here. + +2002-04-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-image-cleanup): Remove. + (w3m-bitmap-image-get-overlay): Clear the `evaorate' property in an + overlay temporally. + (w3m-bitmap-image-insert-internal): Put the `evaorate' property in an + overlay; return an overlay. + (w3m-bitmap-image-insert): Use the return value of + `w3m-bitmap-image-insert-internal' instead of to call + `w3m-bitmap-image-get-overlay'. + (w3m-bitmap-image-insert-string): Remove. + (w3m-insert-image): Use `w3m-modify-plist' to cleanup plist; don't move + the point. + (w3m-remove-image): Replace `w3m-bitmap-image-insert-string' with + `w3m-bitmap-image-insert-internal'. + + * w3m-util.el (w3m-modify-plist): New function. + +2002-04-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-proc.el (w3m-process-kill-surely): New internal variable. + (w3m-process-kill-process): When `w3m-process-kill-surely' is non-nil, + wait for the completion to kill process surely. + +2002-04-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-image-get-overlay): Speed up a bit. + (w3m-bitmap-image-insert-internal): Replace `current-column' with + `w3m-bitmap-current-column'; call `w3m-add-text-properties' only when + props are specified; use `overlay-end' dynamically (fix a bug I've + made); replace `move-to-column-force' with + `w3m-bitmap-move-to-column-force'. + (w3m-bitmap-image-delete-internal): Make the 2nd arg optional; replace + `current-column' with `w3m-bitmap-current-column'; replace + `move-to-column-force' with `w3m-bitmap-move-to-column-force'; guess + the end position of an overlay by itself when the 2nd arg is omitted. + (w3m-bitmap-image-delete): Remove the 2nd arg. + (w3m-bitmap-image-delete-string): Alias to + `w3m-bitmap-image-delete-internal' instead of defining as a function. + (w3m-insert-image): Don't use the length of a bitmap image. + (w3m-remove-image): Ditto. + + * w3m-om.el (move-to-column-force): Remove. + +2002-04-10 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-image.el (w3m-imagick-convert-async-exec): Change default value + for Meadow. + +2002-04-10 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-favicon-converted): New buffer-local variable. + (w3m-setup-favicon): Set w3m-favicon-converted as nil. + (w3m-buffer-favicon): If w3m-favicon-converted is non-nil, don't start + conversion. Set w3m-favicon-converted as t before conversion. + +2002-04-10 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-about-retrieve): Change behavior according to whether the + return value of `base64-decode-string' is multibyte or not. + + * w3m-image.el (w3m-imagick-convert-async-exec): New user option. + (w3m-imagick-start): Use `call-process' when + `w3m-imagick-convert-async-exec' is nil. + (w3m-imagick-convert-buffer): Don't use stdin because `convert' can not + handle an animation GIF that it input from stdin. + +2002-04-10 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-bitmap.el (w3m-create-image): Use w3m-process-do-with-temp-buffer + instead of w3m-process-do. + (w3m-create-image): Don't call `set-buffer-multibyte' if old mule. + + * w3m-image.el (w3m-imagick-start-convert-buffer): Removed needless + `concat'. + + * w3m-bitmap.el (w3m-create-image): Call + `w3m-imagick-start-convert-buffer' instead of + `w3m-imagick-convert-data'. + +2002-04-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-current-column): New function for old + Emacsen; alias to `current-column' for the recent Emacsen. + (w3m-bitmap-move-to-column-force): New function for old Emacsen; alias + to `move-to-column-force' for the recent Emacsen. + +2002-04-10 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-image.el (w3m-imagick-convert-data): Check buffer size. + (w3m-imagick-start-convert-data): Ditto. + (w3m-imagick-start-convert-buffer): Don't use output file + (Because it sometimes causes multiple files). + +2002-04-10 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3mhack.el (w3mhack-examine-modules): Reverse the turn of the load + with `bitmap' and `un-define'. + +2002-04-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-image-face): New face. + (w3m-bitmap-image-insert-internal): Put text properties. + (w3m-bitmap-image-insert): Pass text properties argument to + `w3m-bitmap-image-insert-internal'. + (w3m-bitmap-image-add-text-properties): Remove. + (w3m-insert-image): Pass text properties to `w3m-bitmap-image-insert'. + +2002-04-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-bitmap.el (w3m-bitmap-image-get-overlay): Use + `line-beginning-position' and/or `line-end-position'. + (w3m-bitmap-image-insert-internal): Ditto. + (w3m-bitmap-image-delete-internal): Ditto. + (w3m-bitmap-image-add-text-properties): Ditto. + + * w3m-om.el: Require `w3m-bitmap' if BITMAP-MULE is available. + (move-to-column-force): Define it if void. + +2002-04-09 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-bitmap.el: Convert CRLF to LF. + (w3m-display-graphic-p): Ruturn nil if no window-system. + (w3m-image-type-available-p): Ruturn nil if not found "convert". + + * w3mhack.el (w3mhack-examine-modules): Don't byte-compile + w3m-bitmap.el under XEmacs or FSF Emacs-21. + + * w3m.el (w3m-fontify): When delete duplicated empty line, keep + 'w3m-name-anchor property surely. + + * w3m-e20.el (top): Require 'w3m-bitmap if have BITMAP. + +2002-04-09 Taiki SUGAWARA <taiki.s@cityfujisawa.ne.jp> + + * w3mhack.el (w3mhack-examine-modules): Don't byte-compile + w3m-bitmap.el if bitmap.el is not installed. + (w3mhack-examine-modules): Add condition to w3m-bitmap.el check. + + * w3m-bitmap.el: New file. + + * w3m-e20.el (w3m-create-image, w3m-insert-image, w3m-remove-image, + w3m-image-type-available-p, w3m-display-graphic-p, + w3m-display-inline-images-p): Alias to `ignore'. Bitmap image + implementation is moved to w3m-bitmap.el. + (w3m-bitmap-image-cache-alist, w3m-bitmap-image-use-cache, + w3m-bitmap-image-cleanup, w3m-bitmap-image-buffer, + w3m-bitmap-image-get-overlay, w3m-bitmap-image-insert-internal, + w3m-bitmap-image-insert, w3m-bitmap-image-insert-string, + w3m-bitmap-image-delete-internal, w3m-bitmap-image-delete, + w3m-bitmap-image-delete-string, w3m-bitmap-image-add-text-properties): + Move to w3m-bitmap.el. + +2002-04-09 Taiki SUGAWARA <taiki.s@cityfujisawa.ne.jp> + + * w3m-e20.el (w3m-create-image): Return nil if + w3m-imagick-convert-buffer is failed. + (w3m-insert-image): Not insert image if image is nil. + +2002-04-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-coding-system): Change default value to + 'iso-2022-7bit-ss2 when use w3mmee under mule environment. + +2002-04-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-xmas.el (w3m-create-image): Resize gif images, too. + +2002-04-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-make-glyph): Remove unused var. + +2002-04-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-char-to-int): New alias. + (w3m-form-mee-attr-unquote): Use it. + (w3m-form-mee-new): Ditto. + + * w3m-xmas.el (toplevel): Require 'w3m-image. + (w3m-make-glyph): New inline function. + (w3m-create-image): Resize images when w3m-resize-images is non-nil. + + * w3m-form.el (w3m-string-to-char-list)[XEmacs]: Use string-to-list + instead of string-to-char-list. + (w3m-int-to-char): New alias. + (w3m-form-mee-select-value): Use it. + +2002-04-08 Taiki SUGAWARA <taiki.s@cityfujisawa.ne.jp> + + * w3m-e20.el (w3m-bitmap-image-insert-internal): Begin the overlay on + `begion-of-line'. + +2002-04-08 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el: Update URL for xlhtml. + +2002-04-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el: Don't require `pcustom'. + +2002-04-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-image.el: New file. + + * w3m.el (w3m-halfdump-command-arguments): Specify single-row-image + dump option instead of image. + (w3m-goto-mailto-url): Added optional post-data argument and use it. + (w3m-goto-url): Set post-data of w3m-goto-mailto-url. + + * w3m-util.el (w3m-imagick-convert-program, w3m-imagick-convert-buffer, + w3m-imagick-convert-data): Moved to w3m-image.el. + + * w3m-e21.el (toplevel): Require 'w3m-image. + (w3m-resize-images, w3m-imagick-start-convert-data, + w3m-imagick-start-convert-buffer, w3m-imagick-start, w3m-resize-image): + Moved to w3m-image.el; + (w3m-create-image): Follow the change in w3m-resize-image. + (w3m-favicon-usable-p): Renamed from w3m-imagick-convert-usable-p. + (w3m-use-favicon): Follow the change above. + (w3m-favicon-cache-data): Fixed typo. + (w3m-favicon-cache-retrieved): Ditto. + (w3m-retrieve-favicon): Ditto. + + * w3m-e20.el (w3m-image): Require 'w3m-image. + +2002-04-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (multibyte-string-p): Alias to `stringp' if MULE, + otherwise `ignore'. + + * w3m-om.el (multibyte-string-p): Alias to `stringp'. + + * w3m-util.el: Require `pcustom' for old Emacsen. + +2002-04-05 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-w3m-retrieve): Revert previous change. + (w3m-w3m-dump-head-source): Add argument orig-url; Cache header and + body using orig-url. + (w3m-w3m-retrieve): Don't cache header here; Return error response when + follow redirection number exceeds w3m-follow-redirection; Pass orig-url + to w3m-w3m-retrieve-1. + (w3m-w3m-retrieve-1): Add argument orig-url; Call w3m-dump-head-source + with orig-url argument. + (w3m-redirect-with-get): Changed default value to t. + +2002-04-05 Taiki SUGAWARA <taiki.s@cityfujisawa.ne.jp> + + * w3m-e20.el (w3m-bitmap-image-insert): Fix (point) -> pos. + +2002-04-04 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-input-map): If menu string is empty, use href + string instead. + + * w3m.el (w3m-w3m-dump-head-source): Fixed caching logic. + (w3m-w3m-retrieve): Use cache if available after redirection. + +2002-04-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e20.el (top): Avoid byte-compile warnings when not found + `bitmap'. + (w3m-image-type-available-p): Return nil if not have `bitmap'. + +2002-04-04 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-fontify-anchors): Set default icon type as ico. + + * w3m-e21.el (w3m-buffer-favicon): Asynchronous implementation. + +2002-04-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3mhack.el (top): Avoid byte-compile error for `w3m-ucs.el' with + Emacs20 when it has `un-define' and `bitmap'. + (w3mhack-load-path): Add the path of `bitmap.el' on Emacs20. + +2002-04-04 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-request-arguments): Use -header option if no cookie nor + no body. + (w3m-w3m-retrieve-1): Delete temp-file only when it exists. + + * w3m-e21.el (w3m-imagick-start-convert-data): Don't use + string-as-unibyte (no use). + +2002-04-04 Taiki SUGAWARA <taiki.s@cityfujisawa.ne.jp> + + * w3m.el (w3m-toggle-inline-images-internal): Support w3m-bitmap-image. + + * w3m-e21.el (w3m-imagick-convert-program): Move to w3m-util.el. + (w3m-imagick-convert-buffer): Ditto. + (w3m-imagick-convert-data): Ditto. + + * w3m-util.el (w3m-imagick-convert-program): Move from w3m-e21.el. + (w3m-imagick-convert-buffer): Ditto. + (w3m-imagick-convert-data): Ditto. + + * w3m-e20.el (w3m-bitmap-image-cache-alist): New variable. + (w3m-bitmap-image-use-cache): Ditto. + (w3m-bitmap-image-cleanup): New function. + (w3m-bitmap-image-buffer): Ditto. + (w3m-bitmap-image-get-overlay): Ditto. + (w3m-bitmap-image-insert-internal): Ditto. + (w3m-bitmap-image-insert): Ditto. + (w3m-bitmap-image-insert-string): Ditto. + (w3m-bitmap-image-delete-internal): Ditto. + (w3m-bitmap-image-delete): Ditto. + (w3m-bitmap-image-delete-string): Ditto. + (w3m-bitmap-image-add-text-properties): Ditto. + (w3m-display-graphic-p): New implementation. + (w3m-display-inline-images-p): Ditto. + (w3m-image-type-available-p): Ditto. + (w3m-create-image): New implementation. It use w3m-bitmap-image-*. + (w3m-insert-image): Ditto. + (w3m-remove-image): Ditto. + +2002-04-03 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify): Put invisible and intangible properties at the + duplicated empty lines instead of delete them. + +2002-04-03 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-resize-image): Asynchronous implementation. + (w3m-imagick-start-convert-data): New function. + (w3m-imagick-start-convert-buffer): Ditto. + (w3m-imagick-start): Ditto. + (w3m-create-image): Rewrite to resize images asynchronously. + (w3m-insert-image): Don't resize. + +2002-04-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-check-link-tags): Relax the pattern to detect headers. + +2002-04-02 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-submit): Confirm when posting from secure page + to normal page. + + * w3m.el (w3m-redirect-with-get): New user option. + (w3m-w3m-retrieve): If w3m-redirect-with-get is non-nil, use GET method + after redirection; Ask user to use POST data after redirection. + (w3m-w3m-attributes): Set w3m-current-redirect as a cons cell of + (CODE . LOCATION). + (w3m-w3m-dump-head-source): Don't cache content if the response code is + one of 302, 303, 307. + (w3m-w3m-retrieve): Change POST redirection behavior according to + response code. + (w3m-retrieve-and-render): Confirm leaving secure pages. + + * octet.el (mime-preview-octet): Change behavior according to whether + the return value of mime-entity-content is multibyte or not. + (mime-view-octet): Ditto. + + * w3m.el (w3m-w3m-retrieve): Don't call w3m-cache-request-header when + type is nil. + +2002-04-01 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-follow-redirection): New user option. + (w3m-w3m-attributes): Set w3m-current-redirect as nil. + (w3m-cookie-command-arguments): Abolish. + (w3m-request-arguments): Use cookie only when w3m-use-cookies is + non-nil. + (w3m-header-arguments): New function. + (w3m-w3m-retrieve): Treat redirection when w3m-follow-redirection is + non-nil. + (w3m-w3m-retrieve-1): Renamed from w3m-w3m-retrieve. + (w3m-prepare-content): Don't care w3m-current-redirect. + (w3m-goto-url): Ditto. + + * w3m-form.el (w3m-form-new): Added argumnet enctype. + (w3m-form-enctype): New macro. + (w3m-form-plist): Changed definition. + (w3m-form-put-property): Ditto. + (w3m-form-make-form-data): Removed optional argument urlencode; Encode + form data acording to w3m-form-enctype. + (w3m-form-mee-new): Set enctype field. + (w3m-form-parse-and-fontify): Parse enctype. + (w3m-form-submit): Don't pass enctype argumnet. + +2002-04-01 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-fontify-anchors): Put a property of `w3m-name-anchor' as + a list. + (w3m-move-point-for-localcgi): Use `w3m-search-name-anchor'. + (w3m-search-name-anchor): Use `member' when compare a name with + `w3m-name-anchor'. Fix continuous name-anchor. + +2002-03-29 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-mime-text/html-w3m): Use `match-string' instead of + `mew-match'. + + * w3m.el (w3m-fontify-anchors): Modify the point for 'w3m-name-anchor + property when its has an empty body. + +2002-03-28 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-dump-head-source-command-arguments)[w3mmee]: Don't add + Accept-Language header option. + (w3m-cookie-command-arguments)[w3mmee]: Don't add Cookie header option. + (w3m-request-arguments): New function to generate -request option. + (w3m-w3m-retrieve)[w3mmee]: Use w3m-request-arguments to make request + header and body. + +2002-03-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-url-at-point (ffap)): Strip text props under XEmacs. + (ffap-url-regexp): Modify the value to make it match to https urls for + Emacs 19, 20 and XEmacs. + +2002-03-27 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-tab-drag-mouse-function): Fix problem when dragged + mouse position is outside of the original frame. + + * w3m.el (w3m-version): New variable. + (toplevel): Detect w3m version. + (w3m-user-agent): New user option. + (w3m-add-user-agent): Ditto. + (w3m-w3m-retrieve): Add User-Agent: field if w3m-add-user-agent is + non-nil. + + * w3m-e21.el (w3m-tab-drag-mouse-function): New function. + (w3m-tab-make-keymap): Add mouse-1, mouse-2, drag-mouse-1 and + drag-mouse-2. + + * w3m-cookie.el (w3m-cookie-set): Fixed docstring. + +2002-03-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-find-coding-system): Alias to ignore if the function + `find-coding-system' is not available. + (w3m-make-ccl-coding-system): Check whether the function + `make-ccl-coding-system' is available instead of checking the feature + `mule' to determine what function should be aliased to. + (coding-system-list): Alias to ignore if it is not available. + (define-ccl-program): Check whether it is available instead of checking + the feature `mule' to determine if it is aliased to `ignore'. + (w3m-detect-coding-with-priority): Quote `w3m-default-coding-system'. + +2002-03-24 Nix <nix@esperi.demon.co.uk> + + * w3m-xmas.el (w3m-detect-coding-with-priority): New macro, handle + non-MULE XEmacsen. + (w3m-detect-coding-region): Use it. + +2002-03-26 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-cookie.el (w3m-cookie-1-set): Fixed problem when no `Expires', + ignore is ignored. + +2002-03-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-cookie.el (w3m-cookie-url, w3m-cookie-domain, w3m-cookie-secure, + w3m-cookie-name, w3m-cookie-value, w3m-cookie-path, w3m-cookie-version, + w3m-cookie-expires, w3m-cookie-ignore): Define as macro. + (w3m-cookie-set-url, w3m-cookie-set-domain, w3m-cookie-set-secure, + w3m-cookie-set-name, w3m-cookie-set-value, w3m-cookie-set-path, + w3m-cookie-set-version, w3m-cookie-set-expires, w3m-cookie-set-ignore): + Removed. + (w3m-cookie-create): New implementation. + (w3m-about-cookie): Call `setf' instead of `w3m-cookie-set-ignore'. + +2002-03-26 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-fontify-anchors): Changed anchor name property position. + (w3m-lynx-like-map): Bind w3m-cookie as `M-k'. + (w3m-info-like-map): Ditto. + +2002-03-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-cookie.el (w3m-cookie-save): Use `w3m-time-newer-p' instead of + `w3m-time-lapse-seconds'. + +2002-03-26 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-cookie.el (w3m-cookie): New command. + (w3m-about-cookie): Do nothing if w3m-use-cookies is nil. + + * w3m.el (toplevel): Added autoload setting for w3m-about-cookie; Added + autoload setting for w3m-cookie. + + * w3m-cookie.el (w3m-cookie-store): Don't replace if ignored cookie. + (w3m-cookie-retrieve): Don't use cookie which is ignored. + (w3m-about-cookie): New function. + + * w3m-e21.el (w3m-setup-favicon): Do nothing when w3m-current-url is + nil. + + * w3m.el (w3m-goto-url): Force reload if w3m-current-redirect is set. + (w3m): If w3m-current-url is nil, erase buffer. + + * w3m-util.el (w3m-time-less-p): Abolish. + (w3m-assoc-ignore-case): Moved from w3m-cookie.el and rewrote not to + use assoc* (because it's cl function). + + * w3m-cookie.el (w3m-cookie-retrieve): Use w3m-time-newer-p instead of + w3m-time-less-p. + (w3m-cookie-1-set): Ditto. + (w3m-assoc-ignore-case): Moved to w3m-util.el. + +2002-03-25 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-cookie.el (w3m-cookie-1-set): Use w3m-time-less-p instead of + w3m-time-lapse-seconds. + (w3m-cookie-retrieve): Ditto. + + * w3m-util.el (w3m-time-less-p): New inline function. + + * w3m.el (w3m-current-redirect): New buffer local variable. + (w3m-clear-local-variables): Add w3m-current-redirect. + (w3m-copy-local-variables): Treat w3m-current-redirect. + (w3m-w3m-attributes): Set w3m-current-redirect instead of + w3m-current-refresh when 30x response. + (w3m-prepare-content): Use w3m-current-redirect instead of + w3m-current-refresh. + (w3m-goto-url): Do nothing but w3m-goto-url after retrieval if + w3m-current-redirect is set. + +2002-03-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-cookie.el (w3m-cookie-file): Changed default value. + (w3m-cookie-save): Follow the above change. + (w3m-cookie-load): Ditto. + +2002-03-25 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-w3m-attributes): Don't call w3m-cookie-set. + (w3m-w3m-dump-head-source): Call w3m-cookie-set. + (w3m-cookie-command-arguments): Set `-no-cookie'; Don't set + cookie_accept_domains, cookie_reject_domains. + + * w3m-cookie.el (toplevel): Require 'w3m. + (w3m-cookie-accept-domains): Moved from w3m.el. + (w3m-cookie-reject-domains): Ditto. + (w3m-cookie-accept-bad-cookies): New user option. + (w3m-cookie-file): Ditto. + (w3m-cookie-set-ignore): Fix. + (w3m-cookie-retrieve): Remove expired cookies. + (w3m-cookie-trusted-host-p): Fixed domain match. + (w3m-cookie-1-set): Treat all cookies. Accept bad cookies according to + w3m-cookie-accept-bad-cookies. + (w3m-cookie-init): New variable. + (w3m-cookie-clear): New function. + (w3m-cookie-save): Ditto. + (w3m-cookie-load): Ditto. + (w3m-cookie-setup): Ditto. + (w3m-cookie-shutdown): Rewrite. + (w3m-cookie-set): Call w3m-cookie-setup; Changed API. + (w3m-cookie-get): Call w3m-cookie-setup. + + * w3m.el (w3m-goto-url): Don't resume form from history when POST. + +2002-03-24 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-cookie.el: New file. + + * w3m-form.el (w3m-form-resume): Use cdr of forms if car is t + (Just in case). + (w3m-form-parse-and-fontify)[w3m]: Search form structure according to + fid. + + * w3m.el (toplevel): Added autoload setting for w3m-cookie. + (w3m-use-cookies): New user option. + (w3m-cookie-accept-domains): Ditto. + (w3m-cookie-reject-domains): Ditto. + (toplevel): Bind system-time-locale as "C" while calling + format-time-string. + (w3m-w3m-attributes): Call w3m-cookie-set; When 30x response is + received, set w3m-current-refresh as + (0 . Location). + (w3m-cookie-command-arguments): New function. + (w3m-w3m-retrieve): Use it. + (w3m-retrieve-and-render): Mark w3m-current-forms as `not history' if + retrieval failed. + (w3m-prepare-content): If w3m-current-refresh rate is 0, do nothing. + (w3m-quit): Call `w3m-cookie-shutdown'. + +2002-03-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-decode-encoded-contents): Convert encoding to lower case + before checking alist. + +2002-03-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-remove-redundant-spaces): New implementation. + (w3m-about-retrieve): Call `insert-buffer-substring' instead of + `insert-buffer'. + (w3m-rendering-unibyte-buffer): Ditto. + (w3m-rendering-multibyte-buffer): Ditto. + (w3m-prepare-text-content): Ditto. + +2002-03-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-w3m-attributes): Ignore trailing whitespaces in header + lines. + +2002-03-20 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-view-this-url): Eval action even when anchor is set. + + * w3m-form.el (w3m-form-parse-and-fontify): Clear mapval if it is set. + + * w3m.el (w3m-halfdump-command-arguments)[w3mmee]: Add `image' to the + -dump argument only if `w3m-treat-image-size' is non-nil. + +2002-03-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-parse-and-fontify): If not detect `usemap' + attribute of `img_alt', use `value' attribute of `input_alt' for the + select map name; W3M removes `usemap' attribute when + "display_image=off". + +2002-03-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-w3m-attributes): Ignore `w3m-document-charset' when + w3m-m17n. + +2002-03-19 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-fontify-images): Parse width and height attributes of + img_alt. + (w3m-toggle-inline-images-internal): Set `size' argument of + w3m-create-image. + (w3m-highlight-current-anchor): Fixed logic. + + * w3m-xmas.el (w3m-create-image): Added optional argument `size' + (ignored currently). + + * w3m-e21.el (w3m-imagick-convert-program): Use w3m-which to set + initial value. + (w3m-resize-images): New user option. + (w3m-resize-image): New function. + (w3m-create-image): Added optional argument `size'; Changed return + value. + (w3m-insert-image): Call w3m-resize-image if size is specified. + (w3m-imagick-convert-buffer): Accept nil for from-type and to-type. + +2002-03-18 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-mee-select-value): Fix. + (w3m-form-parse-and-fontify): If w3m-type is not w3mmee, use last form + object as current form. + +2002-03-18 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-highlight-current-anchor): New implementation. + (w3m-highlight-current-anchor-1): New function. + + * w3m-form.el (w3m-form-replace): Fixed problem when string is nil. + +2002-03-16 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-string-to-char-list): Fixed. + +2002-03-15 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-mee-select-value): Use w3m-output-coding-system + instead of w3m-current-coding-system. + (w3m-form-parse-and-fontify)[w3mmee]: Ditto. + (w3m-form-mee-select-value): Fixed select value. + (w3m-form-resume): Fixed checkbox resuming. + (w3m-form-parse-and-fontify): Use `form' instead of `(car forms)'; + Search the form which corresponds to input_alt by fid; Use `nconc' + instead of `push'. + + * w3m-form.el (w3m-form-mee-select-value): New function. + (w3m-form-parse-and-fontify)[w3mmee]: Set select value. + + * w3m.el (w3m-halfdump-command-arguments)[w3mmee]: Added image. + + * w3m-form.el (w3m-form-parse-and-fontify): Set the value of form only + if the method is not internal; Add internal form to the + w3m-current-forms; Treat input type `image' as same as `submit'. + (w3m-form-mee-attr-unquote): New function. + (w3m-string-to-char-list): New function/alias. + (w3m-form-mee-new): New function. + (w3m-form-parse-and-fontify): Parse w3mmee's form info. + (w3m-form-input-textarea-keymap): Bind C-g. + (w3m-form-input-select-keymap): Bind C-g, h,j,k,l. + (w3m-form-input-map-keymap): Ditto. + (w3m-form-parse-and-fontify): Set textarea value. + +2002-03-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-form-resume): Typo. + +2002-03-13 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (toplevel): Removed autoload setting for + `w3m-form-parse-buffer'. + (w3m-clear-local-variables): Don't treat w3m-current-forms any more. + (w3m-copy-local-variables): Ditto. + (w3m-additional-command-arguments): Fixed problem when no-proxy host + has port number other than 80. + (w3m-rendering-buffer-1): Don't call w3m-form-parse-buffer. + (w3m-goto-url): Setup w3m-current-forms from history structure. + + * w3m-form.el (w3m-form-parse-buffer): Abolish. + (w3m-form-parse-forms): Ditto. + (w3m-form-resume): Set value of `w3m-current-forms'. + (w3m-fontify-forms): Call `w3m-form-parse-and-fontify' instead of + `w3m-form-fontify'. + (w3m-form-parse-and-fontify): New function. + (w3m-form-input-select): Fix problem when candidate label is "". + +2002-03-13 Katsumi Yamaoka <yamaoka@jpl.org> + Suggested by HAYASHI Chifumi <chifumi@mscom.or.jp>. + + * w3m-form.el (w3m-form-new): Ignore the 2nd arg `action' if it is nil. + (w3m-form-parse-forms): Don't parse the value of `w3m-current-url' if + it is nil. + + +2002-03-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2.6 from emacs-w3m-1_2 branch. + +2002-03-11 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-ucs.el (w3m-euc-japan-encoder): Treat japanese-jisx0208-1978 as + japanese-jisx0208. + +2002-03-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-this-url, w3m-goto-url-new-session, + w3m-select-buffer-copy-buffer): Remove unused non-global variables. + +2002-03-11 Katsumi Yamaoka <yamaoka@jpl.org> + Suggested by Yuuichi Teranishi <teranisi@gohome.org> with mod. + + * w3m.el (w3m-no-proxy-domains): New user option renamed from + `w3m-no-proxy-hosts' and changed the meaning. + (w3m-additional-command-arguments): Refer to it. + +2002-03-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (tarball): Fix permissions. + +2002-03-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-command-arguments-alist): Change the meaning that the car + of each element will be compared with a url instead of a hostname. + (w3m-no-proxy-hosts): New user option. + (w3m-additional-command-arguments): Look into it. + +2002-03-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-command-arguments-alist): New user option. + (w3m-additional-command-arguments): New function. + (w3m-w3m-retrieve): Use it. + (w3m-history-current-url-face, w3m-copy-buffer, w3m-about-header): + Remove unused non-global variables. + +2002-03-08 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-w3m-attributes) [w3mmee]: Fetch content-encoding from + "x-w3m-content-encoding" filed. + +2002-03-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-cid-retrieve): Return lowercase string always + because `w3m-image-type-alist' has lowercase keys. + +2002-03-07 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp> + + * w3m.el (w3m-lynx-like-map): Switch J and K so as to behave like w3m. + +2002-03-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_EXAMINE_PACKAGEDIR): Use `(eq 0 foo)' instead of + `(zerop foo)' because foo might not be a number. + (AC_PATH_ICONDIR): Ditto. + +2002-03-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-decoder-alist): Change default commands to `gzip' and + `bzip2' instead of `gunzip' and `bunzip2' because some broken OS and + its environment does not work them. + +2002-03-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (datadir): New variable. + +2002-03-06 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-proc.el (w3m-process-filter): Modify a regexp for "Password:". + +2002-03-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (install): Don't chdir to shimbun/ while installing + shimbun modules. + (install-icons): Don't chdir to icons/ while installing icons. + +2002-03-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (install): Install all ChangeLog files. + * w3mhack.el (w3mhack-make-package): List all ChangeLog files in the + manifest. + +2002-03-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-local-dirlist-cgi): Set `w3m-current-url' for avoid error + in `w3m-process-start-process()'. + (w3m-goto-url): When use w3m-dtree and the URL is local directory, + change the URL to `about://dtree' securely. + +2002-03-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-function-max-args): Alias to `function-max-args' + under XEmacs, otherwise define it as a function. + (symbol-for-testing-whether-colon-keyword-is-available-or-not): Use + `dont-compile' instead of `eval'. + + +2002-03-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2.5 from emacs-w3m-1_2 branch. + +2002-03-01 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (octet-find-file): Decode even in the read-only buffer. + +2002-02-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (DOCS): Add ChangeLog.1. + + +Local Variables: +coding: iso-2022-7bit +fill-column: 79 +indent-tabs-mode: t +End: diff --git a/share/emacs/site-lisp/w3m/ChangeLog.1 b/share/emacs/site-lisp/w3m/ChangeLog.1 new file mode 100644 index 00000000000..f1000a2745f --- /dev/null +++ b/share/emacs/site-lisp/w3m/ChangeLog.1 @@ -0,0 +1,6731 @@ +2002-02-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-filter): Use `ignore-errors' instead of + `condition-case'. + (w3m-process-y-or-n-p): Regist answers only when they have non-nil + values. + +2002-02-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-perldoc.el: New file. + + * w3m.el (top): Add autoload for `w3m-perldoc.el'. + (w3m-tmp-urluser-alist): Abolished. + (w3m-read-file-name): Call `w3m-url-strip-query'. + (w3m-download): Ditto. + (w3m-w3m-get-header): Accept URLs which includes authentication + information like scheme://user:pass@netloc/. Set `w3m-current-url' + before `w3m-process-start' is called. + (w3m-w3m-dump-head-source): Ditto. + (w3m-retrieve): Call `w3m-url-strip-fragment'. + (w3m-retrieve-and-render): Modified to accept URLs which includes + authentication information. Do not set `w3m-current-url'. + (w3m-goto-url): Modified to accept URLs which includes authentication + information and to pass them through to sub-routines. + (w3m): Small modified to accept URLs which includes authentication + information. + + * w3m-util.el (w3m-url-authinfo-regexp): New internal constant. + (w3m-url-authinfo): New function. + (w3m-url-strip-authinfo): Ditto. + (w3m-url-strip-fragment): Ditto. + (w3m-url-strip-query): Ditto. + + * w3m-proc.el (top): No bind `w3m-tmp-urluser-alist'. + (w3m-process-authinfo-alist): Renamed from `w3m-process-user-alist'. + (w3m-process-accept-list): Abolished. + (w3m-process-accept-alist): New internal variable. + (w3m-process-user-counter): Abolished. + (w3m-process-start-process): In order to set `w3m-process-user' and + `w3m-process-passwd' call `w3m-url-authinfo', instead of refering + `w3m-tmp-urluser-alist'. + (w3m-process-stop): Reset `w3m-process-authinfo-alist' and + `w3m-process-accept-alist'. + (w3m-process-sentinel): Regist an authentication information only when + `w3m-process-realm' is set. + (w3m-process-filter): Call `w3m-process-y-or-n-p' instead of + `w3m-process-accept-get' and `w3m-process-accept-set'. When a user + name and a password of a proxy server are reasked, their old values are + discarded. Reconstruct the part checking user names and passwords. + (w3m-process-get-server-root): Its regular expression are small + modified. Call `w3m-url-strip-authinfo'. + (w3m-process-get-user): Removed. + (w3m-process-get-passwd): Ditto. + (w3m-process-set-user): Ditto. + (w3m-process-accept-get): Ditto. + (w3m-process-accept-set): Ditto. + (w3m-process-set-authinfo): New function. + (w3m-process-read-user): Ditto. + (w3m-process-read-passwd): Ditto. + (w3m-process-y-or-n-p): Ditto. + +2002-02-14 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-modeline-ssl-image-status-on) + (w3m-modeline-ssl-status-off): New constants. + (w3m-current-ssl): New buffer local variable. + (w3m-clear-local-variables, w3m-copy-local-variables): Handling + `w3m-current-ssl'. + (w3m-w3m-attributes): When detect `W3m-ssl-certificate:' header, set + `w3m-current-ssl'. Skip reading of folded lines of each header. + (w3m-buffer-setup): Display SSL indicator at mode-line. + (w3m-about-header): Display SSL information when exist + `W3m-ssl-certificate:' header. + +2002-02-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-read-file-name): Strip the query part from a default file + name. + (w3m-download): Ditto. + (w3m-url-components-regexp): Move forward. + + * mime-w3m.el: Always require `font' under XEmacs. + +2002-02-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-async-exec): Default to nil under MacOS X. + +2002-02-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e21.el (w3m-setup-favicon): Fix handling of + `w3m-about-xxxx-favicon'. + +2002-02-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-icon-data): New buffer local variable. + (w3m-clear-local-variables): Add `w3m-icon-data'. + (w3m-copy-local-variables): Ditto. + (w3m-fontify-anchors): Setup `w3m-icon-data'. + (w3m-check-link-tags): Parse `type' of link attribute; Set + `w3m-icon-data' if `icon' rel attribute exist. + (w3m-goto-url): Added local variable real-data. + + * w3m-e21.el (w3m-favicon-cache-favicon): Added compatibility code. + (w3m-setup-favicon): Use w3m-icon-data if it exists; Changed first + argument for `w3m-retrieve-favicon'. + (w3m-buffer-favicon): Use car of `w3m-current-favicon-data' as image + data and cdr as image type. + (w3m-retrieve-favicon): Changed first argument to cons cell of image + data and its type. + +2002-02-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-save-list): Allow the 4th arg `escape-ctl-chars'. + (w3m-arrived-shutdown): Call it with the 4th arg. + + * w3m-antenna.el (w3m-antenna-shutdown): Call `w3m-save-list' with the + 4th arg. + +2002-02-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-pixels-per-line): Renamed from w3m-pixel-per-line; Fixed + custom type. + (w3m-pixels-per-character): Likewise. + (w3m-rendering-half-dump): Follow the changes above. + +2002-02-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-type): Considerd as an internal variable. + (w3m-options): Removed. + (w3m-compile-options): New internal variable. + (toplevel): Set `w3m-compile-options' instead of `w3m-options'. + (w3m-treat-image-size): Refer `w3m-compile-options' instead of + `w3m-options'. + (w3m-rendering-half-dump): Ditto. + (w3m-local-file-type): When a remote URL is passed, refer its + non-directory part to decide its content type. + (w3m-touch-file): Bind `default-directory' locally. + +2002-02-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-pixel-per-line): New user option. + (w3m-rendering-half-dump): Use `w3m-pixel-per-line' as the -ppl + argument of the w3m command. + (w3m-pixel-per-character): New user option. + (w3m-rendering-half-dump): Use `w3m-pixel-per-character' as the -ppc + argument of the w3m command. + +2002-02-07 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-favicon-size): Set default value to nil. + (w3m-buffer-favicon): If w3m-favicon-size is nil, detect frame char + height and use it. + + * w3m.el (w3m-command): Set default value to nil. + (w3m-type): Ditto. + (w3m-options): New user option. + (toplevel): Set w3m-command, w3m-type and w3m-options. + (w3m-treat-image-size): New user option. + (w3m-rendering-half-dump): Set rendering options -o + display_image=on/off, -ppc, -ppl according to the value of + `w3m-treat-image-size'. + +2002-02-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-display-message): New macro. + + * w3m.el (w3m-make-help-echo): Clear the echo area when Emacs 21 is + running; use the modern styles of backquote. + (w3m-make-balloon-help): Use the modern styles of backquote. + (w3m-toggle-inline-image): Use `w3m-display-message' instead of + `message' to say a trivial message. + (w3m-view-this-url): Ditto. + (w3m-submit-form): Ditto. + (w3m-view-image): Ditto. + (w3m-save-image): Ditto. + (w3m-download-this-url): Ditto. + (w3m-print-current-url): Ditto. + (w3m-print-this-url): Ditto. + (w3m-edit-this-url): Ditto. + (w3m-quit): Ditto. + (w3m-goto-ftp-url): Ditto. + (w3m-select-buffer): Ditto. + (w3m-select-buffer-show-this-line): Ditto. + (w3m-select-buffer-show-this-line-and-switch): Ditto. + +2002-02-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-after-cursor-move-hook): New option. + (w3m-check-current-position): New function. + (w3m-print-this-url-after-command): Removed. + (w3m-buffer-setup): Set `w3m-check-current-position' to + `post-command-hook', instead of `w3m-print-this-url-after-command'. + (w3m-add-local-hook): Check version of Emacsen dynamically. + + * w3m-e21.el (w3m-add-local-hook): New function. + +2002-02-07 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-fontify-images): Changed regexp to more generic one to + search img_alt tag. + (w3m-toggle-inline-images-internal): Fixed image redisplay flickers. + +2002-02-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-halfdump-command-common-arguments): Replace `frame-width' + with `window-width'. + (w3m-about-db-history): Ditto. + +2002-02-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-proc.el (w3m-process-accept-list): New internal variable. + (w3m-process-filter): Watch `accept? (y/n)' for certification. + (w3m-process-accept-get, w3m-process-accept-set): New functions. + +2002-02-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-make-ccl-coding-system): Alias to `ignore' if + no-MULE (the feature `mule' is not provided). + (coding-system-category): Ditto. + (define-ccl-program): Define it as an empty macro if no-MULE. + + * w3m.el (TopLevel): Don't require `ccl' if no-MULE. + (w3m-accept-japanese-characters): Default to nil if no-MULE. + (w3m-coding-system): Default to `iso-8859-1' if no-MULE. + (w3m-output-coding-system): Ditto. + (w3m-file-coding-system): Ditto. + (w3m-toolbar): Don't express some Japaneses chars directly. + + * w3mhack.el (w3mhack-examine-modules): Don't byte-compile w3m-ucs.el, + shimbun modules, mime-w3m.el, octet.el and w3m-weather.el if no-MULE. + +2002-02-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-meta-content-type-charset-regexp) + (w3m-meta-charset-content-type-regexp) + (w3m-meta-refresh-content-regexp) + (w3m-meta-content-refresh-regexp): Remove redundant double quote. + + * w3m.el (w3m-content-prepare-functions): New internal contsant. + (w3m-prepare-content): Refer it. + (w3m-prepare-text-content): New function. + (w3m-prepare-image-content): Ditto. + +2002-02-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-meta-charset-content-type-regexp) + (w3m-meta-content-refresh-regexp): Allow broken quotation mark. + +2002-02-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-touch-file): Robust checking. + +2002-02-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-util.el (w3m-which-command): If called with `not string', return + nil. + +2002-02-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-touch-file-avaiable-p): New internal variable. + (w3m-touch-file): Check the validity of `touch' command. + +2002-02-05 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-touch-file): Call touch command with "-t time" instead of + "-d time". + +2002-02-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-touch-command): New option. + (w3m-touch-file): New function. + (w3m-download): Call it. + (w3m-toggle-inline-images-internal): Fix inconsistency of text + properties when images are not downloaded. + (w3m-toggle-inline-image): Simplified. + (w3m-toggle-inline-images): Ditto. + +2002-02-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el (w3m-prin1): New function. + * w3m.el (w3m-save-list): Use it instead of `prin1'. + + * w3mhack.el, w3m.el, w3m-xmas.el, w3m-om.el: Say emacs-w3m not + Emacs-W3M. + +2002-02-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * mime-w3m.el (mime-w3m-mode-dont-bind-keys): New variable. + (mime-w3m-setup): Don't bind keys listed in the above. + + * w3m.el (w3m-key-binding): Switch key bindings also in w3m-mode + buffers when customizing; don't manipulate keymaps when Emacs is + running in the batch mode. + +2002-02-01 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (octet-suffix-type-alist): Added lzh, tar, pdf. + (octet-type-filter-alist): Ditto. + (octet-content-type-alist): Added application/x-msexcel, text/html, + application/x-tar, application/pdf. + (octet-magic-type-alist): Fixed magic for html. + (octet-tar-mode): New function. + (octet-guess-type-from-name): Downcase suffix. + (octet-mime-setup): Add action for application/vnd.ms-powerpoint. + +2002-02-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * mime-w3m.el (mime-w3m-safe-url-regexp): New user option. + (mime-w3m-preview-text/html): Use it. + + * w3m.el (w3m-key-binding): Don't eval a part of the `set:' form when + compiling nnshimbun.el in the Gnus source tree. + +2002-02-01 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (octet-buffer): Fixed problem when 'Quit'. + (mime-preview-octet-hook): New hook. + (mime-preview-octet): Run it. + (w3m-about-octet-attachments): Fixed problem when there's no + octet-attachment which corresponds to the src url. + (mime-view-octet): Set content-type argument for `octet-buffer'. + (mime-preview-octet): Ditto. + +2002-02-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * mime-w3m.el (mime-w3m-preview-text/html): Bind `w3m-force-redisplay' + with nil. + +2002-02-01 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (octet-buffer): Set default of `completing-read'. + +2002-02-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-key-binding): Switch `w3m-mode-map', `mime-w3m-mode-map' + and `mm-w3m-mode-map' when customizing. + +2002-01-31 Katsumi Yamaoka <yamaoka@jpl.org> + + * mime-w3m.el (mime-w3m-mode-command-alist): New variable. + (mime-w3m-setup): Use it; invalidate widget button in + `mime-w3m-mode-map'. + (mime-w3m-keymap-property): Removed. + (mime-w3m-preview-text/html): Add `text-rendered-by-mime-w3m' text + property to the rendered area. + (kill-new): Strip keymap properties from a killed string only if it has + `text-rendered-by-mime-w3m' property. + +2002-01-31 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-url-at-point): Remove all text-properties from url. + + * w3m-search.el (w3m-search): Remove all text-properties from default + search value. + +2002-01-31 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-search.el (w3m-search-word-at-point): New option. + (w3m-search): Refer `w3m-search-word-at-point'. + +2002-01-31 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (octet-content-type-alist): Added text/html. + (octet-magic-type-alist): Likewise. + (octet-type-filter-alist): Likewise; Added `guess'; Changed result type + of gzip as `guess'. + (octet-find-file-hook): New hook. + (octet-find-file): Run it. + (octet-filter-guess): New function. + (octet-buffer): Fix. + +2002-01-30 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (toplevel): Require 'static. + (octet-html-render-function): Changed default value to + `octet-w3m-region.' + (octet-type-filter-alist): Changed filter function to + `octet-filter-call2-extra'. + (octet-attachments): New buffer-local variable. + (w3m-about-octet-attachments): New function. + (octet-w3m-region): Ditto. + (octet-filter-call2-extra): New function. + (octet-find-file): Do nothing when buffer is read-only. + + * w3m.el (w3m-about-retrieve): Decode buffer only if the content-type + is text. + + * octet.el (octet-guess-type-from-name): Return nil if guess failed. + (octet-buffer): Ask octet type if guess failed. + (octet-content-type-alist): New variable. + (octet-guess-type-from-content-type): New function. + (octet-buffer): Added optional argument `content-type'. + (octet-buffer): Ignore `quit'. + (octet-suffix-type-alist): Added images. + (octet-content-type-alist): Ditto. + (octet-type-filter-alist): Ditto. + (octet-magic-type-alist): Renamed from mime-magic-type-alist. + (octet-decode-image): New function. + (octet-guess-type-from-magic): New function. + (octet-buffer): Use it. + (octet-insert-buffer): New function. + (mime-preview-octet): Use it. + +2002-01-29 Yuuichi Teranishi <teranisi@gohome.org> + + * octet.el (octet-type-filter-alist): Changed default value for xlhtml + and ppthtml. + (octet-filter-call2): Fixed problem when return value of call-process + is not numeric. + (octet-filter-call1): Ditto. + (octet-find-file): Use unwind-protect. + (octet-filter-call2): Fixed docstring. + (octet-filter-call1): Ditto. + (octet-buffer): Fixed argument for `interactive'. + +2002-01-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-encoding-type-alist): New option. + (w3m-local-file-type): New function. + (w3m-local-content-type): New implementation. + (w3m-local-attributes): Call `w3m-local-file-type' instead of + `w3m-local-content-type'. + (w3m-download): `url' is lexically binded. Call `message' to display + error messages. + + * w3mhack.el (w3mhack-examine-modules): Fix to avoid that octet.el is + byte-compiled repeatedly. + +2002-01-29 Yuuichi Teranishi <teranisi@gohome.org> + + * w3mhack.el (w3mhack-examine-modules): Add octet.el to the module list + if FLIM is installed. + + * octet.el: New file. + +2002-01-25 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-highlight-current-anchor): Don't search for the anchor + points which are out of sight. + +2002-01-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-tmp-urluser-alist): New variable. + (w3m-goto-url): If URL include user and passwd, set + `w3m-tmp-urluser-alist' for process handling. Remove passwd from URL. + (w3m): Remove passwd from URL when insert it in buffer. + + * w3m-util.el (w3m-get-user-passwd-from-url) + (w3m-remove-passwd-from-url): New functions. + + * w3m-proc.el (top): Define `w3m-tmp-urluser-alist' to avoid + byte-compile warning. + (w3m-process-start-process): If URL include user or passwd, set them to + default values. + (w3m-process-filter): Use default values of `w3m-process-user' and + `w3m-process-passwd'. + (w3m-process-get-server-root): Remove `about://.../' from server root. + + * w3m-search.el (w3m-search): Insert default string in minibuffer. + +2002-01-25 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-about-history): Don't add to history if url is nil. + (w3m-print-this-url-after-command): Call + `w3m-highlight-current-anchor'. + (w3m-delete-all-overlays): New macro. + (w3m-highlight-current-anchor): New function. + (w3m-current-anchor-face): New face. + (w3m-arrived-anchor-face): Removed underline property. + (w3m-anchor-face): Ditto. + +2002-01-18 OHASHI Akira <bg66@koka-in.org> + + * w3m.el (w3m-header-line-map): Inherit `w3m-mode-map'. + +2002-01-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-e21.el (w3m-setup-favicon): Reversed the condition that decide + whether favicons are used. + +2002-01-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e21.el (w3m-setup-favicon): If url is `ftp://', not retrieve a + favicon data. + + * w3m.el (w3m-current-directory): New function. + (w3m-goto-url): Use `w3m-current-directory' when set + `default-directory'. + +2002-01-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-use-ange-ftp): New option. + (w3m-w3m-attributes): Handle ftp scheme URLs. + (w3m-download): Refer `w3m-use-ange-ftp'. + (w3m-goto-url): Ditto. + +2002-01-11 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-read-file-name): Remove an optional argument + `initial'. Call `read-file-name' without `default' option. + +2002-01-11 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-url-encode-string): Fixed for Mule2. + + * w3m-util.el (w3m-truncate-string): New function. + + * w3m-form.el (w3m-form-replace): Use `w3m-truncate-string' instead of + `truncate-string'. + +2002-01-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-region): Process <base> tag. + +2002-01-09 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-local-content-type): Fix handling of the remote url. + (w3m-file-directory-p): New function. + (w3m-goto-ftp-url): Use `w3m-file-directory-p' instead of + `file-directory-p'. + + +2002-01-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2.4 from emacs-w3m-1_2 branch. + +2002-01-08 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-arrived-setup-hook): New hook. + (w3m-arrived-shutdown-hook): Ditto. + (w3m-arrived-setup): Run `w3m-arrived-setup-hook'. + (w3m-arrived-shutdown): Run `w3m-arrived-shutdown-hook'. + (w3m-quit): Don't remove `w3m-arrived-shutdown' from `kill-emacs-hook'. + + * w3m-e21.el (w3m-favicon-cache-expire-wait): New user option. + (w3m-favicon-cache-p): New macro. + (w3m-favicon-cache-favicon): Ditto. + (w3m-favicon-cache-retrived): Ditto. + (w3m-retrieve-favicon): Don't use old cache data. + (w3m-favicon-cache-data): Renamed from `w3m-favicon-data-cache'. + (w3m-favicon-save-cache-file): Follow above change. + (w3m-favicon-load-cache-file): Ditto. + (w3m-arrived-setup-hook): Regist `w3m-favicon-load-cachee-faile'. + (w3m-arrived-shutdown-hook): Regist `w3m-favicon-save-cache-file'. + +2002-01-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-goto-url): Use a URL-like string under the cursor as the + initial value of the target URL when interactively called. + (w3m-view-this-url): When a URL-like string is found under the cursor, + view it. + (w3m-view-this-url-1): New internal function. + +2002-01-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-display-hook): Change default variable to `nil'. + (top): Use `add-hook' when `w3m-history-highlight-current-url', + `w3m-move-point-for-localcgi' and `w3m-select-buffer-update' set to + `w3m-display-hook'. + (w3m-local-dirlist-cgi): When use `dirlist.cgi', decode filename tag. + +2002-01-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-url-to-file-name): When the pointed file is not found, + decode the specified URL and recheck it. + +2002-01-07 Shiro Takeda <zbc08106@park.zero.ad.jp> + + * w3m.el (w3m-bold-face, w3m-underline-face): New faces. + (w3m-fontify-bold): Use `w3m-bold-face' instead of `bold'. + (w3m-fontify-underline): Use `w3m-underline-face' instead of + `underline'. + +2002-01-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-w32-browser-with-fiber): Fix handling of the local url. + + * w3m-util.el (w3m-url-local-p): Fix its regexp for Windows. + +2002-01-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-about-header): Protect against null title. + (w3m-arrived-setup): Ignore database of arrived URLs in too old style. + +2002-01-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-url-encode-string): Add a period to the set of characters + which are not encoded. From Fabrice Bauzac <noon@noon.dnsalias.net> + +2001-12-31 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-add-local-hook): New function. + (w3m-current-position): New buffer local variable. + (w3m-store-current-position): New hook function. + (w3m-print-this-url-after-command): New hook funtcion. + (w3m-buffer-setup): Regist these hook functions. + (w3m-header-line-location-title-face): Integrated with the defition in + w3m-e21.el + (w3m-header-line-location-content-face): Ditto. + (w3m-header-line-map): Ditto. + (w3m-header-line-insert): Renamed from `w3m-insert-header-line'. + + * w3m-e21.el (w3m-header-line-location-title-face): Integrated to the + defition in w3m.el. + (w3m-header-line-location-content-face): Ditto. + (w3m-header-line-map): Ditto. + (w3m-setup-header-line): Clean up. + (w3m-insert-header-line): Removed. + +2001-12-30 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-url-to-file-name): Fix its regexp. + +2001-12-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-print-this-url): Display a message when it is called + interactively. + +2001-12-29 OHASHI Akira <bg66@koka-in.org> + + * w3m.el (w3m-print-this-url): Don't print any messages when there is + no url or form under point. + +2001-12-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-url-local-directory-alist): Renamed from + `w3m-edit-url-directory-alist'. + (w3m-url-to-file-name): Return nil, when the specified URL points no + local file. + (w3m-url-completion): Modified its regexp. Fix completion of dot + files. + (w3m-edit-url): Simplified. + (w3m-goto-url): Removed the redundant local variable. Set + `default-directory' to the local directory to which the current URL is + related by `w3m-url-local-directory-alist'. + (w3m-about-history): Installed the ad-hoc workaround. + + * w3m-util.el (w3m-url-dtree-p): Modified its regexp. + +2001-12-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-decode-get-refresh): Not run Refresh timer if the URI is + matched `about://', . + (w3m-goto-url): Modify the timing to call `w3m-cancel-refresh-timer'. + +2001-12-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-util.el: Autoload "timer" for the function `cancel-timer' when + Mule 2 is running. + +2001-12-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-refresh-at-time): Run `w3m-goto-url-with-timer' + immediately, if the delay of refresh is zero. + + * w3m-xmas.el (w3m-refresh-at-time): Removed. + +2001-12-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-use-refresh): New user option. + (w3m-refresh-timer, w3m-current-refresh): New buffer-local variables. + (w3m-clear-local-variables, w3m-copy-local-variables): Handle + `w3m-current-refresh'. + (w3m-meta-refresh-content-regexp) + (w3m-meta-content-refresh-regexp): New constant. + (w3m-decode-buffer): Call `w3m-decode-get-refresh' first. + (w3m-decode-get-refresh): New function. + (w3m-view-previous-page): Bind `w3m-use-refresh' to nil. + (w3m-quit, w3m-close-window): Call `w3m-cancel-refresh-timer' at any + buffers. + (w3m-goto-url): Call `w3m-cancel-refresh-timer' first. Call + `w3m-refresh-at-time' at last; start REFRESH timer. + (w3m-goto-url-with-timer): New function. + (w3m-refresh-at-time): New function for FSF Emacs. + + * w3m-xmas.el (w3m-refresh-at-time): New function for XEmacs. + + * w3m-util.el (w3m-cancel-refresh-timer): New function. + (w3m-current-refresh, w3m-refresh-timer, w3m-use-refresh): Avoid + byte-compiled warnings. + + * w3m-proc.el (w3m-process-stop): Call `w3m-cancel-refresh-timer'. + +2001-12-24 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-dump-head-source-command-arguments) [w3mmee]: Support + `w3m-accept-languages'. + + +2001-12-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2.3 from emacs-w3m-1_2 branch. + +2001-12-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-type): Changed condition to decide type. + (w3m-decoder-alist): Call `file-name-nondirectory' before `w3m-command' + is refered. + (w3m-dirlist-cgi-program): Ditto. + +2001-12-21 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-type): Changed condition to decide type. + (w3m-decoder-alist): Use `w3m-command' for inflate command path. + (w3m-dirlist-cgi-program): Use `w3m-command'. + (w3m-dump-head-source-command-arguments) [w3mmee]: Don't add "-o + accept_language=xxx". + +2001-11-16 OKAZAKI Tetsurou <okazaki@be.to> + + * w3m.el (w3m-type): Use "w3m-m17n" if exists. + +2001-12-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-mailto-url): Use the property `composefunc' to get + the function to compose a mail from `mail-user-agent'. + +2001-12-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-load-list): Removed a bogus code for XEmacs; don't bind + the value of `file-coding-system-for-read' if the optional arg is nil + and `w3m-file-coding-system-for-read' is nil. + +2001-12-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3m-use-favicon): Don't bind it. + + * w3m-e21.el (w3m-use-favicon): Set it to nil anyway when Emacs is + running in the batch mode. + (w3m-imagick-convert-buffer): Reverted. + +2001-12-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-imagick-convert-buffer): Don't growl errors when + Emacs is running in the batch mode. + +2001-12-18 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-e21.el (w3m-favicon-use-cache-file): New user option. + (w3m-favicon-cache-file): Ditto. + (w3m-favicon-data-cache): New variable. + (w3m-retrieve-favicon): Use `w3m-favicon-data-cache' or store it. + (w3m-favicon-save-cache-file): New function. + (w3m-favicon-load-cache-file): Ditto. + +2001-12-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-e21-toolbar-configurations): Replace + `auto-resize-tool-bar' to `auto-resize-tool-bars'. + +2001-12-17 OHASHI Akira <bg66@koka-in.org> + + * README.shimbun.ja: Add information for sb-debian-jp.el and + sb-debian.el. + +2001-12-17 Taiki SUGAWARA <t-suga@atomsystem.co.jp> + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-form-parse-forms): Change the separater string for + option tag. + +2001-12-12 Taiki SUGAWARA <t-suga@atomsystem.co.jp> + + * w3m-form.el (w3m-form-parse-forms): If not find selected, first + element is made into default. + +2001-12-14 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-dtree.el (w3m-about-dtree): Ignore arguments on and after 4th. + +2001-12-14 Katsumi Yamaoka <yamaoka@jpl.org> + Suggested by NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>. + + * w3m-e21.el (w3m-use-favicon): Default to t, but it will be altered to + nil automatically if ImageMagick does not support a favicon; never use + ImageMagick if it has been set to nil. + + * w3mhack.el (w3m-use-favicon): Bind it to nil to inhibit the use of + ImageMagick. + +2001-12-12 Kazuyoshi Koreeda <k_koreed@d2.dion.ne.jp> + + * w3m-weather.el (w3m-weather-insert-seikatu-sisu): New function. + (w3m-weather-get-seikatu-sisu): Ditto. + +2001-12-10 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-parse-forms): Use `w3m-decode-entities-string' + to value in the textarea and option menu. + +2001-12-11 Mito <mito@mxa.nes.nec.co.jp> + + * w3m.el (w3m-scroll-left): Modify doc-string. + (w3m-scroll-right): Ditto. + +2001-12-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-imagick-convert-usable-p): New function. + (w3m-use-favicon): Use it. + +2001-12-06 ARISAWA Akihiro <ari@mbf.sphere.ne.jp>, + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-e21.el (top): Installed the check of the validity of ImageMagick. + + +2001-12-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2.2 from emacs-w3m-1_2 branch. + +2001-12-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-type): Follow the new official release of w3m. + (w3m-attributes): Follow the change of error symbols which are defined + in w3m-proc.el. + (w3m-retrieve): Ditto. + (w3m-about-header): Likewise. Ignore optional arguments safely. + (w3m-message): Display message only when original w3m buffer is + displayed. + (w3m-about-retrieve): Asynchronized. + (w3m-retrieve-and-render): Follow the change of `w3m-message'. + (w3m-prepare-content): Install the measure against narrowed buffers. + + * w3m-proc.el (w3m-process-start-process): Accept the 2nd optional + argument to reset the sentinel funtcion for the generated asynchronous + process. + (w3m-process-failure): Removed. + (w3m-process-timeout): Simplified its error condition. + (w3m-process-with-wait-handler): No sentinel function is registered and + the sentinel function is called from this macro itself. + + * w3m-weather.el (w3m-weather-filter-functions): Add + `w3m-weather-expand-anchors'. + (w3m-about-weather): Asynchronized. + (w3m-weather-remove-headers): Follow changes of original content. + (w3m-weather-remove-footers): Ditto. + (w3m-weather-expand-anchors): New filter function. + +2001-12-06 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-emacs-w3m-icon): Made it interlaced and endlessly + animated. + +2001-12-06 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-decode-buffer): When content-charset is unknown, detect + coding-system automatically. + +2001-12-04 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-e21.el (w3m-buffer-favicon): Reset `w3m-current-favicon-data' to + nil when conversion was failure. + +2001-12-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-imagick-convert-buffer): Say errors and return nil if + the process returns a non-zero status (possibly a string). + +2001-12-03 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-xmas.el (w3m-create-image): Bind some arguments lexically for + w3m-fix-gif(). + +2001-12-04 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-setup-favicon): Fix for "about://" url. + (w3m-buffer-favicon): Renamed local variable. + (w3m-tab-line): Call `w3m-buffer-favicon' only when w3m-use-favicon is + non-nil. + +2001-12-03 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-modeline-process-status-on): Modify default value. + (w3m-buffer-setup): Simplified `mode-line-buffer-identification'. + +2001-11-29 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-imagick-convert-program): New user option. + (w3m-favicon-size): Ditto. + (w3m-use-favicon): Ditto. + (w3m-favicon-name): New constant. + (w3m-current-favicon-data): New buffer local variable. + (w3m-current-favicon-image): Ditto. + (w3m-display-hook): Added 'w3m-setup-favicon. + (w3m-imagick-convert-buffer): New function. + (w3m-imagick-convert-data): Ditto. + (w3m-setup-favicon): Ditto. + (w3m-buffer-favicon): Ditto. + (w3m-retrieve-favicon): Ditto. + (w3m-tab-line): Display favicon on tab. + +2001-11-28 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-xmas.el (w3m-insert-image): Rewrite. + (if displayed images exist on the right side, keep them and display + again) + (w3m-remove-image): Call `delete-extent' to destroy extents. + +2001-11-27 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp> + + * TIPS: New file. + +2001-11-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-download-this-url): Fix a problem of broken URL. + +2001-11-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (top, w3m-about): Change the URL of w3m's official page. + +2001-11-21 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-max-anchor-sequence): New buffer local variable. + (w3m-copy-local-variables, w3m-clear-local-variables): Handle + `w3m-max-anchor-sequence'. + (w3m-fontify-anchors): Reset `w3m-max-anchor-sequence' to zero. Use + the text-property `w3m-anchor-sequence' insted of `w3m-cursor-anchor'. + (w3m-goto-next-anchor, w3m-next-anchor, w3m-goto-previous-anchor) + (w3m-previous-anchor): Rewrite use the text-property + `w3m-anchor-sequence'. + (w3m-next-form, w3m-goto-next-image, w3m-next-image) + (w3m-previous-image): Fix mistake as modified last time. + + * w3m-util.el (w3m-anchor-sequence): New macro. + (w3m-cursor-anchor) Remove macro. + + * w3m-form.el (w3m-form-fontify): Use the text-property + `w3m-anchor-sequence' insted of `w3m-cursor-anchor'. + +2001-11-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-download-this-url): Wrap the form which is evaluated in + asynchronous context with `w3m-process-with-null-handler', to fix the + bug reported by Hideyuki SHIRAI <shirai@meadowy.org>. + + * w3m-xmas.el (w3m-create-image): Modified to avoid calling + `w3m-process-with-wait-handler'. + +2001-11-20 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-push): Set the buffer-local variable + `w3m-process-object' in the appropriate buffer. + (w3m-process-sentinel): Removed redundant call of + `with-current-buffer'. + + * Makefile.in (default): Reintroduce of checking time stamps of + w3m-util.elc and w3m-proc.elc. + + * w3m-proc.el (w3m-process-temp-file): Abolished. + + * w3m.el (w3m-content-charset, w3m-content-encoding, + w3m-content-length, w3m-content-type, w3m-last-modified, w3m-real-url): + Fixed asynchrounization. + (w3m-download): Changed the argument spec and the body to accept an + asynchrounous context. + (w3m-external-view): Follow change of `w3m-download'. + (w3m-external-view-file): Changed the argument spec and the body; + `w3m-process-temp-file' is not refered. + (w3m-download-this-url): Follow change of `w3m-download'. + (w3m-scroll-left, w3m-scroll-right): Use `call-interactively' to avoid + a strange behavior of Emacs21. This change is suggested by Hironori + FUJII <fujii@chi.its.hiroshima-cu.ac.jp>. + + * w3m-proc.el (w3m-process-failure): New error symbol. + (w3m-process-timeout): Change its error condition. + (w3m-process-with-wait-handler): Install adhoc workaround. + + * w3m.el (w3m-attributes, w3m-retrieve, w3m-about-header): Follow + change of `w3m-process-with-wait-handler'. + +2001-11-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-modeline-process-status-on): New constant. + (w3m-modeline-status-off): Rename from `w3m-modeline-image-status-off'. + (w3m-buffer-setup): Show the string of `w3m-modeline-process-status-on' + when process running. + (w3m-download): Add 4th argument `extview' for w3m-external-view(). If + `extview' is gived, apply `extview' on process-sentinel like (apply + (car extview) (cdr extview)). + (w3m-external-view): When execute `w3m-download', call with `extview' + argument. + (w3m-external-view-file): New function. + +2001-11-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-print-this-url): View current image info. + (w3m-goto-next-image, w3m-next-image, w3m-goto-previous-image) + (w3m-previous-image): New functions. + (w3m-lynx-like-map, w3m-info-like-map): Bind "}" as the key to call + `w3m-next-image'. Bind "{" as the key to call `w3m-previous-image'. + (w3m-mode): Modify dos-string. + +2001-11-19 Masatake YAMATO <jet@gyve.org> + + * w3m.el (w3m-goto-next-form, w3m-next-form) + (w3m-goto-previous-form, w3m-previous-form): New functions. + (w3m-lynx-like-map, w3m-info-like-map): Bind "]" as the key to call + `w3m-next-form'. Bind "[" as the key to call `w3m-previous-form'. + +2001-11-19 Kazuhiko <kazuhiko@ring.gr.jp> + + * w3m-xmas.el (w3m-create-image): Fix a problem in handling XBM on + XEmacs. + +2001-11-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-attributes): Establish the error handler for + `w3m-process-timeout' when the argument `handler' is equal to nil. + (w3m-retrieve): Ditto. + (w3m-about-header): Establish the error handler for + `w3m-process-timeout' before `w3m-w3m-get-header' is called. + (w3m-select-buffer-close-window): Check whether the menu's window + exists. + + * w3m-proc.el: Changes to avoid endless loop. + (w3m-process-start-process): Changed the spec of its return value. + (w3m-process-timeout): New error symbol. + (w3m-process-with-wait-handler): Bind `inhibit-quit' to nil, in order + to accept user's quit; Signal `w3m-process-timeout' when time out is + detected. + (w3m-process-do): Accept null variable. + (w3m-process-do-with-temp-buffer): Ditto. + + * Makefile.in (default): Cancel the last change. + +2001-11-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (default): When files which define macros and inline + functions such as w3m-util.el and w3m-proc.el are newer than their + byte-compiled files, run clean target before compile. + + * w3m.el (w3m-about-db-history-today): Removed. + (w3m-about-db-history): Call `w3m-time-lapse-seconds' to classify + entries. + + * w3m-proc.el: Changes to avoid endless loop. + (w3m-process-inhibit-quit): New internal variable. + (w3m-process-timeout): New variable. + (w3m-process-with-wait-handler): Strict check when asynchrounous + processes finish; Refer `w3m-process-timeout' to check idle time. + (w3m-process-sentinel): Bind `inhibit-quit' according to + `w3m-process-sentinel'. + + * w3m-e21.el: Changes to display tabs which are retieving contents in + the other face. + (top): Define `w3m-current-process' to avoid byte-compile warning. + (w3m-tab-unselected-retrieving-face): New face. + (w3m-tab-selected-retrieving-face): Ditto. + (w3m-tab-line): Refer `w3m-current-process' in order to select the face + of the tab which is retriving some pages. + + * w3m-util.el (w3m-time-lapse-seconds): New inline function. + + * w3m-antenna.el (top): Add autoload of `w3m-filter' to avoid + byte-compile warning. + +2001-11-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-select-buffer): If nomsg eq 'update, don't save + selected-window; so called `w3m-select-buffer-update' any window to + differ original window executed process, is broken + `w3m-select-buffer-window'. + (w3m-select-buffer-update): Call `w3m-select-buffer' with 'update. + +2001-11-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el (mime-w3m-keymap-property): New macro. + (mime-w3m-preview-text/html, kill-new): Use the above macro instead of + `w3m-static-if'. + +2001-11-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-select-buffer-window-ratio): New user option. + (w3m-select-buffer-window-size): Remove user option. + (w3m-select-buffer-window-size): New function. + (w3m-select-buffer-toggle-style): Ditto. + (w3m-select-buffer): Use `w3m-select-buffer-window-size' when calculate + window size. When call with prefix argument, toggle + `w3m-select-buffer-horizontal-window'. + (w3m-select-buffer-show-this-line): Use `w3m-select-buffer-window-size' + when calculate window size. If exist w3m-buffer another window under + control, use it. + (w3m-select-buffer-mode-map): Modify the key binding 'C-cC-s' for + toggle `w3m-select-buffer-horizontal-window'. + (w3m-select-buffer-update): Call `w3m-select-buffer' with two + arguments. + (w3m-select-buffer-mode): Modify doc-string. + + * w3m-tabmenu.el (w3m-switch-buffer): Change the rule of detecting + default buffer. + (w3m-tab-menubar-make-items): Ditto. + +2001-11-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el: Changes to make installation of this module be easy; + Comments updated; Initialize code is moved to `mime-w3m-setup'; Changed + requirement of other modules. + (mime-w3m-display-inline-images): Changed the default value. + (mime-w3m-insinuate, mime-w3m-setup): New function. + (mime-w3m-preview-text/html): Call `mime-w3m-setup'. + +2001-11-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-search.el: Require `cl' when compiling. + +2001-11-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Changes to avoid that multi async processes are started in + the same buffer. + (w3m-current-process): New internal variable to protect parallel + retriving. + (w3m-attributes, w3m-base-url, w3m-content-charset, + w3m-content-encoding, w3m-content-length, w3m-content-type, + w3m-last-modified, w3m-real-url): Asynchronized. + (w3m-toggle-inline-images-internal): Set `w3m-current-buffer' to this + buffer locally, in order to classify the generated async process to the + appropriate buffer. + (w3m-toggle-inline-images): Stop processes which are retrieving images + of this buffer. + (w3m-retrieve-and-render): Remove redundant `let'. + (w3m-view-this-url): Refontify anchor. + (w3m-lynx-like-map, w3m-info-like-map): Bind `C-cC-g' as the key to + call `w3m-process-stop'. + (w3m-goto-url): Check `w3m-current-process' to avoid reenterant and set + it to the value of `w3m-retrieve-and-render'; Before the retrieving + process of the next page is started, select this buffer in the current + window and stop processes which are retrieving images of this buffer. + (w3m): Not select this buffer in the current window. + + * w3m-proc.el (top): Define `w3m-current-process' to avoid byte-compile + warning. + (w3m-process-queue-registrable-p): Abolished. + (w3m-process-new): Its argument spec is changed; Changed the strucuture + of `w3m-process' object. + (w3m-process-command): New macro. + (w3m-process-arguments): Follow the structural change of `w3m-process' + object. + (w3m-process-push): Likewise; Follow change of `w3m-process-new'; No + check for `w3m-process-queue-registrable-p'. + (w3m-process-kill-process): Check process status before stopping them. + (w3m-process-start-process): Follow the structural change of + `w3m-process' object. + (w3m-process-stop): Ditto; Start queued processes. + (w3m-process-with-null-handler): No check for + `w3m-process-queue-registrable-p'. + + * w3m-util.el (w3m-kill-buffer): Fix code to kill this buffer. + +2001-11-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-select-buffer): Fix window height calculation when + w3m-select-buffer-horizontal-window is nil. + (w3m-select-buffer-mode-map): Add the key bind of + `w3m-select-buffer-show-this-line-and-down'. Modify the key bind of + `w3m-select-buffer-show-this-line'. + (w3m-select-buffer-show-this-line): Fix window height calculation when + w3m-select-buffer-horizontal-window is nil. If already displayed + w3m-buffer and call interactively, call `w3m-scroll-up-or-next-url'. + (w3m-select-buffer-show-this-line-and-down): New function. + +2001-11-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Merge experimental-async branch to main trunk. + + * w3m-util.el: Rename from w3m-macro.el; Require `poe' and `poem' + module for XEmacs and Mule; Import some functions from w3m.el and + w3m-proc.el. + + * w3m.el: Require `w3m-util' instead of `w3m-macro'; Export + `w3m-kill-all-buffer' to w3m-util.el. + (w3m-work-binary-buffer-name): Removed. + (w3m-rendering-half-dump): Accept an optional argument for w3mmee and + w3m-m17n. + (w3m-rendering-buffer-1): Accept two optional arguments for w3mmee and + w3m-m17n. + (w3m-rendering-unibyte-buffer): Generate a new working buffer for + w3mmee and w3m-m17n, in order to avoid racing. + (w3m-rendering-multibyte-buffer): Ditto. + + * w3m-proc.el: Require `w3m-util' instead of `w3m-macro'; Export + `w3m-buffer-title', `w3m-buffer-name-lessp' and `w3m-list-buffers' to + w3m-util.el. + + * mime-w3m.el, w3m-antenna.el, w3m-bookmark.el, w3m-e21.el, + w3m-form.el, w3m-tabmenu.el, w3m-xmas.el: Require `w3m-util' instead of + `w3m-macro'. + + * w3mhack.el (w3mhack-examine-modules): Handle w3m-util.el instead of + w3m-macro.el. + +2001-11-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (top): Colon keywords definition are moved to `w3m-macro.el'. + (w3m-process-connection-type): Imported from `w3m-proc.el'. + (w3m-next-buffer, w3m-previous-buffer): Simplified. + (w3m-delete-buffer): Call `w3m-quit' when the number of w3m-mode + buffers is equal to 1. + (w3m-quit): Kill all w3m-mode buffers. + (w3m-close-window): Call `w3m-select-buffer-close-window'. + (w3m-select-buffer-generate-contents): Simplified. + (w3m-select-buffer-close-window): New function. + + * w3m-tabmenu.el (w3m-tab-menubar-make-items): Use `w3m-buffer-title' + and `w3m-list-buffers'. + + * w3m-proc.el (top): Require `poe' module in XEmacs; Require `w3m-om' + in Mule; Define `w3m-current-title' to avoid byte-compile warning. + (w3m-process-connection-type): Exported to `w3m.el'. + (w3m-buffer-title, w3m-buffer-name-lessp, w3m-list-buffers): New + functions. + + * w3m-macro.el (top): Colon keywords definition are imported from + `w3m.el'. + (w3m-pullout-buffer-number): Removed. + + * w3m-e21.el (w3m-tab-line): Use `w3m-buffer-title' and + `w3m-list-buffers'. + + * w3m.el (w3m-attributes): Wrap `w3m-w3m-attributes' with + `w3m-process-with-wait-handler'. + (w3m-w3m-attributes): Changed the argument spec. Now, this function + can be used only in asynchronous context. + (w3m-rendering-unibyte-buffer): Changed the argument spec, and the + first argument `url' is refered instead of `w3m-current-url'. This + change is made to avoid using `w3m-process-with-wait-handler' in + asynchronous context. + (w3m-prepare-content): Follow the change of + `w3m-rendering-unibyte-buffer'. + +2001-11-14 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-next-buffer): Use `w3m-pullout-buffer-number' when sort + buffer-name. + (w3m-previous-buffer): Ditto. + (w3m-select-buffer): Change the turn to call of functions. + (w3m-select-buffer-generate-contents): Use `w3m-pullout-buffer-number' + when sort buffer-name. Use text-property instead of point when move to + point. + (w3m-select-buffer-recheck): Fix read-only error. + (w3m-select-buffer-copy-buffer): Rewrite. + + * w3m-tabmenu.el (w3m-tab-menubar-make-items): Use + `w3m-pullout-buffer-number' instead of `w3m-tab-menubar-pull-bufnum'. + (w3m-tab-menubar-pull-bufnum): Remove. + + * w3m-macro.el (w3m-pullout-buffer-number): New defsubst. + + * w3m-e21.el (w3m-tab-line): Use `w3m-pullout-buffer-number' when sort + buffer-name. + +2001-11-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-parse-attributes): Moved it again to w3m-macro.el. + * w3m-macro.el: The opposite of above. + +2001-11-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Moved back some macros and inline functions from + w3m-macro.el. + + * w3m-macro.el (w3m-parse-attributes, w3m-real-url, w3m-last-modified, + w3m-content-type, w3m-content-length, w3m-content-encoding, + w3m-content-charset, w3m-base-url, w3m-attributes): Moved back to + w3m.el. + +2001-11-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-retrieve) Call `w3m-w3m-attributes' instead of + `w3m-attributes'. + + * w3m-proc.el (w3m-process-with-wait-handler): Reimplemented. + +2001-11-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Moved some macros and inline functions to w3m-macro.el. + + * w3m-macro.el (w3m-time-newer-p, w3m-url-local-p, w3m-url-dtree-p, + w3m-parse-attributes, w3m-real-url, w3m-last-modified,w3m-content-type, + w3m-content-length, w3m-content-encoding, w3m-content-charset, + w3m-base-url, w3m-attributes, w3m-cursor-anchor, w3m-submit, w3m-image, + w3m-anchor, w3m-action, w3m-get-text-property-around): Moved from + w3m.el. + (w3m-condition-case): Use old-fashioned backquotes. + + * w3m.el, w3m-xmas.el, w3m-tabmenu.el, w3m-form.el, w3m-e21.el, + w3m-bookmark.el, w3m-antenna.el, mime-w3m.el: Require `w3m-macro'. + +2001-11-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-get-header, w3m-w3m-attributes): Asynchronized. + (w3m-w3m-retrieve): Argument spec is changed. + (w3m-w3m-dump-head-source): Follow change of `w3m-w3m-attributes'. + (w3m-copy-buffer): Removed redundant code. + (w3m-about-header): Follow change of `w3m-w3m-get-header'. + + * w3m-proc.el (w3m-process-do): The generated asynchronous process in + the post handler is started at the end of `w3m-process-sentinel'. + (w3m-process-do-with-temp-buffer): Ditto. + (w3m-process-sentinel): Fixed. + + * w3m.el (w3m-download): Use `progn' instead of `inline', in order to + make debugging be easy. + (w3m-retrieve-and-render): Ditto. + + * w3m-proc.el: Changed the order of asynchronous form evaluation and + starting asynchronous processes. + (w3m-process-queue): Renamed from `w3m-processes'. + (w3m-process-queue-registrable-p): New internal variable. + (w3m-process-with-coding-system): New macro. + (w3m-process-with-environment): Redefine with new backquote style. + (w3m-process-push): Refer `w3m-process-queue-registrable-p' to add the + handler to processes registered in `w3m-process-queue' safely. + (w3m-process-start-process): New internal function. + (w3m-process-start-queued-processes): Renamed from + `w3m-process-start-internal'; Call `w3m-process-start-process'; Follow + renaming of variables. + (w3m-process-stop, w3m-process-shutdown): Follow renaming of variables. + (w3m-process-with-null-handler): Start asynchronous processes at the + end of this macro. + (w3m-process-do, w3m-process-do-with-temp-buffer): Reimplemented. + (w3m-process-start): Reimplemented. Asynchronous processes are not + started in this function. + (w3m-process-start-after): New internal function. + (w3m-process-sentinel): Follow renaming of variables and functions. + +2001-11-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-macro.el (w3m-condition-case): New macro. + +2001-11-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in: Fix the macro rule to generate *.elc files. + + * w3m.el (w3m-display-hook): Add `w3m-select-buffer-update'. + (w3m-select-buffer-name): Move the definition position to avoid + byte-compile warning. + (w3m-goto-url): Removed the code to update the select buffer. + (w3m-select-buffer-update): New function. + + * w3m-proc.el (w3m-process-with-wait-handler): Adhoc workaround. + (w3m-process-start): Fix. + +2001-11-13 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-lynx-like-map): Bind `C-cC-a' as the key to call + `w3m-switch-buffer'. + (w3m-info-like-map): Ditto. Bind `\C-c\C-@' and `C-c\C- ' as the key to + call `w3m-history-store-position'. Bind `C-cC-b' as the key to call + `w3m-history-restore-position'. + (w3m-mode): Modify doc-string. + (w3m-select-buffer-show-this-line-and-switch): New function. + (w3m-select-buffer-name): New internal constant. + (w3m-select-buffer-mode-map): Bind `w' and `h' as the key to call + `w3m-select-buffer-show-this-line-and-switch'. + (w3m-select-buffer-mode): Modify doc-string. + (w3m-select-buffer): Use `w3m-select-buffer-name'. If alive + select-buffer, use it. Add optional argument `nomsg'. + (w3m-select-buffer-generate-contents): If w3m-current-title is + `<no-title>', use w3m-current-url. + (w3m-select-buffer-show-this-line): Return selected buffer. + (w3m-select-buffer-quit): Always pop up the w3m window when quit. + (w3m-select-buffer-show-this-line-and-quit): Rewrite. + (w3m-goto-url): If alive w3m-select-buffer, update it. + (w3m-copy-buffer): If w3m-pop-up-windows is nil, use + switch-to-buffer. Block to change w3m-select-buffer to w3m buffer, if + w3m-pop-up-windows is t. + (top): Add autoload of `w3m-setup-tab' and `w3m-switch-buffer'. + (w3m-setup-menu): Call `w3m-setup-tab-menu' when w3m-use-tab-menubar is + t. + (w3m-mode): Remove to call `w3m-setup-tab-menu'. + + * w3m-e21.el (TOP): Remove `(require 'w3m-tabmenu)'. + + * w3m-e20.el (TOP): Ditto. + + * w3m-om.el (TOP): Ditto. + + * w3m-xmas.el (w3m-setup-tab-menu, w3m-tab-menubar-pull-bufnum) + (w3m-tab-menubar-make-items, w3m-select-buffer): Remove. + (w3m-setup-menu): Call `w3m-setup-tab-menu' when w3m-use-tab-menubar is + t. + + * w3mhack.el (w3mhack-examine-modules): Revival byte-compile + `w3m-tabmenu.el' when XEmacs. + + * w3m-tabmenu.el (ALL): Full rewrite to use `easymenu'. + +2001-11-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-select-buffer-horizontal-window): New user option. + (w3m-select-buffer-window-size): Ditto. + (w3m-lynx-like-map): Bind `C-cC-b' as the key to call + `w3m-switch-buffer. + (w3m-info-like-map): Ditto. + (w3m-select-buffer-window): New internal variable. + (w3m-select-buffer-message): New internal constant. + (w3m-select-buffer): New implementation. + (w3m-select-buffer-generate-contents): New function. + (w3m-select-buffer-mode-map): New keymap. + (w3m-select-buffer-mode): New function. + (w3m-select-buffer-recheck): New command. + (w3m-select-buffer-current-buffer): New macro. + (w3m-select-buffer-show-this-line): New command. + (w3m-select-buffer-next-line): Ditto. + (w3m-select-buffer-previous-line): Ditto. + (w3m-select-buffer-copy-buffer): Ditto. + (w3m-select-buffer-delete-buffer): Ditto. + (w3m-select-buffer-quit): Ditto. + (w3m-select-buffer-show-this-line-and-quit): Ditto. + + * w3m-xmas.el (w3m-switch-buffer): Renamed from `w3m-select-buffer'. + + * w3m-tabmenu.el (w3m-switch-buffer): Renamed from `w3m-select-buffer'. + +2001-11-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e20.el (w3m-display-inline-images-p): Renamed from + `w3m-display-inline-image-p'. + + * w3m-om.el (w3m-display-inline-images-p): Ditto. + +2001-11-12 Yuuichi Teranishi <teranisi@gohome.org> + + * mew-w3m.el (mew-mime-text/html-w3m): Bind `w3m-display-inline-images' + instead of `w3m-current-image-status'. + + * mime-w3m.el (mime-w3m-display-inline-images): Renamed from + `mime-w3m-display-inline-image'. + (mime-w3m-preview-text/html): Follow the change above; Bind + `w3m-display-inline-images' instead of `w3m-current-image-status'. + + * w3m-xmas.el (w3m-display-inline-images-p): Renamed from + `w3m-display-inline-image-p'; Refer `w3m-display-inline-images' instead + of `w3m-current-image-status'. + + * w3m-e21.el (w3m-display-inline-images-p): Renamed from + `w3m-display-inline-image-p'; Refer `w3m-display-inline-images' instead + of `w3m-current-image-status'. + + * w3m.el (w3m-display-inline-image): Abolish. + (w3m-current-image-status): Ditto. + (w3m-display-inline-images): New buffer local variable. + (w3m-default-display-inline-images): New user option. + (w3m-toggle-inline-images-permanently): Ditto. + (w3m-toggle-inline-image): Added docstring. + (w3m-toggle-inline-images): Ditto; Refer `w3m-display-inline-images' + instead of `w3m-current-image-status'. + (w3m-view-url-with-external-browser): Ditto. + (w3m-goto-url): Ditto. + (w3m-toggle-inline-images): Change the value of + `w3m-display-inline-images' even when displaying images is not + completed. + (w3m-copy-buffer): Set `w3m-display-inline-images' according to + `w3m-toggle-inline-images-permanently'. + (w3m-mode): Set value of `w3m-display-inline-images' according to + `w3m-default-display-inline-images'. + (w3m-goto-url): Set `w3m-display-inline-images' according to + `w3m-toggle-inline-images-permanently'; Use + `w3m-display-inline-images-p' instead of `w3m-display-inline-image-p'. + (w3m-redisplay-with-charset): Use `w3m-display-inline-images' instead + of `w3m-display-inline-image'. + (w3m-region): Use `w3m-display-inline-images-p' instead of + `w3m-display-inline-image-p'. + +2001-11-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (Top): Abolished autoload of `w3m-setup-tab'. + (w3m-use-tab-menubar): Revival. + (w3m-lynx-like-map): Bind `C-cC-s' as the key to call + `w3m-select-buffer'. + (w3m-info-like-map): Ditto. + (w3m-mode): Update the doc-string for the commands `w3m-next-buffer', + `w3m-previous-buffer', `w3m-delete-buffer' and `w3m-select-buffer'. + Use `w3m-use-tab-menubar' and `w3m-setup-tab-menu()'. + + * w3m-e21.el (Top): Require `w3m-tabmenu'. + + * w3m-e20.el (Top): Ditto. + + * w3m-om.el (Top): Ditto. + + * w3m-tabmenu.el: Rename from `w3m-tab.el'. + (w3m-setup-tab-menu): Rename from `w3m-setup-tab'. + (w3m-tab-menubar-make-items): Add new option `nomenu' for + w3m-select-buffer(). + (w3m-select-buffer): New function. + + * w3m-xmas.el (w3m-setup-tab-menu): Use `defun' insted of `ignore' to + avoid byte-compile warnings. + (w3m-tab-menubar-pull-bufnum, w3m-tab-menubar-make-items) + (w3m-select-buffer): Copy from w3m-tabmenu.el + + * w3mhack.el (w3mhack-examine-modules): Don't byte-compile + `w3m-tabmenu.el' when XEmacs. + + +2001-11-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2.1 from emacs-w3m-1_2 branch. + +2001-11-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-expand-url): Remove the last segment of the base URL + before concatination the specified URL which has only a query part and + the base URL. + +2001-11-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-proc.el (w3m-process-new): Argument spec is changed. + (w3m-process-process): New macro. + (w3m-process-handlers): Follow the change of `w3m-process-new'. + (w3m-process-kill-process): New inline function. + (w3m-process-start-internal): Strict checking. + (w3m-process-stop): Fixed. + (w3m-process-with-wait-handler): Simplified. + (w3m-process-do): Strict checking of redundant evaluation. + (w3m-process-do-with-temp-buffer): Ditto. + (w3m-process-start): Not bind `w3m-process-exit-status' as a local + variable. + (w3m-process-sentinel): Ensure that this function will be never called + repeatedly; Strict checking. + +2001-11-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e21.el (top): Abolished a ignore() of `w3m-use-tab'. + +2001-11-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-dump-head-source): Fix the problem which occurs when + no content is retrieved. + +2001-11-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el (w3mhack-examine-modules): Handle `w3m-proc.el'. + + * w3m.el: Modified to retrieve contents asynchronously. + (top): Require `w3m-proc.el' instead of `w3m-macro.el'. + (w3m-command-environment): Old name is `w3m-process-environment'. + (w3m-display-hook): Changed the default value. + (w3m-current-buffer): New internal variable. + (w3m-arrived-user-alist): Renamed to `w3m-process-user-alist' and + exported to `w3m-proc.el'. + (w3m-process-connection-type, w3m-process-user, w3m-process-passwd, + w3m-process-user-counter, w3m-process-realm, w3m-process-temp-file, + w3m-process-exit-status): Exported to `w3m-proc.el'. + (w3m-toggle-inline-images-internal): Follow change of + `w3m-create-image'. + (w3m-exec-process): Removed. + (w3m-exec-get-user): Renamed to `w3m-process-get-user' and exported to + `w3m-proc.el'. + (w3m-exec-get-passwd): Renamed to `w3m-process-get-passwd' and exported + to `w3m-proc.el'. + (w3m-exec-set-user): Renamed to `w3m-process-set-user' and exported to + `w3m-proc.el'. + (w3m-get-server-root): Renamed to `w3m-process-get-server-root' and + exported to `w3m-proc.el'. + (w3m-proxy-user): Renamed to `w3m-process-proxy-user' and exported to + `w3m-proc.el'. + (w3m-proxy-passwd): Renamed to `w3m-process-proxy-passwd' and exported + to `w3m-proc.el'. + (w3m-exec-filter): Renamed to `w3m-process-filter' and exported to + `w3m-proc.el'; Slightly modified to protect illegal type of + `w3m-current-url'. + (w3m-decode-encoded-contents, w3m-x-moe-decode-buffer, + w3m-local-dirlist-cgi, w3m-rendering-half-dump): Use + `w3m-process-with-environment' to adjust the environment variables. + (w3m-local-retrieve, w3m-cid-retrieve): Insert the retrieved content to + this current buffer. + (w3m-w3m-get-header): Call `w3m-process-start' instead of + `w3m-exec-process'. + (w3m-w3m-dump-head-source, w3m-w3m-retrieve, w3m-about-retrieve, + w3m-retrieve, w3m-download): Reconstructed to support asynchronous + operation. + (w3m-exec): Removed. + (w3m-retrieve-and-render, w3m-prepare-content): New function. + (w3m-quit): Call `w3m-process-shutdown'. + (w3m-buffer-setup): New inline function. + (w3m-goto-url): Accept the 6th optional argument, and modified for + asynchronous processing. + (w3m-goto-url-localcgi-movepoint): Removed. + (w3m-move-point-for-localcgi): New function. + (w3m): Removed redundant quote from the definition of + `focusing-function'; Display the browsing buffer. + (w3m-region): Set `w3m-current-buffer' to this current buffer. + (w3m-about, w3m-about-header): Insert the generated content to this + current buffer. + (w3m-about-history, w3m-about-db-history): To access buffer-local + variables, refer the value of `w3m-current-buffer'. + + * w3m-xmas.el (top): Require `w3m-proc.el' instead of `w3m-macro.el'. + (w3m-create-image): Accept the 4th optional argument, and modified for + asynchronous processing. + + * w3m-weather.el (w3m-about-weather): Insert the generated content to + this current buffer. + + * w3m-proc.el: New file. + + * w3m-namazu.el (w3m-about-namazu): Insert the generated content to + this current buffer. + + * w3m-macro.el (w3m-with-work-buffer): Removed. + (w3m-kill-buffer): New inline function. + + * w3m-filter.el (w3m-filter): Filtering the content in this current + buffer. + + * w3m-e21.el (top): Require `w3m-proc.el' instead of `w3m-macro.el'. + (w3m-create-image): Accept the 4th optional argument, and modified for + asynchronous processing. + + * w3m-antenna.el (w3m-about-antenna): Insert the generated content to + this current buffer. + + * mime-w3m.el (mime-w3m-cid-retrieve): Insert the retrieved content to + this current buffer. + + * mew-w3m.el (mew-w3m-cid-retrieve): Insert the retrieved content to + this current buffer. + +2001-11-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-use-tab-menubar): Abolished. + (w3m-pop-up-windows): Changed the expression to decide its default + value. + (w3m-setup-menu): Removed the code to set the menubar item of TAB. + (w3m-fontify-images): Accept an image-type input tag. + (w3m-fontify): To accept an image-type input tag, changed the order of + calling fontify functions. + (top): Add autoload of `w3m-setup-tab'. + (w3m-mode): Call `w3m-setup-tab'. + (w3m-tab-menubar-open-buffer): Moved to `w3m-tab.el'. + (w3m-tab-menubar-update): Ditto. + (w3m-tab-menubar-pull-bufnum): Ditto. + (w3m-tab-menubar-make-items): Ditto. + + * w3m-tab.el: New file. + + * w3m-e21.el (top): Define `w3m-use-tab' to avoid byte-compile warning. + (w3m-use-tab): Moved to `w3m.el'. + (w3m-setup-tab): Define as a dummy function. + + * w3m-xmas.el (w3m-setup-tab): Define as a dummy function. + + * w3m-form.el: Changes of the structure of the `w3m-form' object. + (w3m-form-put-property): New inline function. + (w3m-form-get-property): New macro. + (w3m-form-put): Use `w3m-form-put-property'. + (w3m-form-get): Use `w3m-form-get-property'. + (w3m-form-make-form-data): Follow change of structure of the `w3m-form' + object. + (w3m-form-parse-forms): Accept an image-type input tag. + (w3m-form-resume): Ditto. + (w3m-form-fontify): Ditto. + +2001-11-09 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-use-tab-menubar): New user variable. + (w3m-setup-menu): Handling tab-menubar. + (w3m-tab-menubar-open-buffer, w3m-tab-menubar-update, + w3m-tab-menubar-make-items): New functions. + (w3m-tab-menubar-pull-bufnum): New macro. + (top-level): Add define-key-after() to avoid byte-compile warnings, if + XEmacs. + +2001-11-08 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m.el (w3m-start-url, w3m-contents-url): New buffer-local vars. + (w3m-clear-local-variables): Also clear `w3m-start-url' and + `w3m-contents-url'. + (w3m-copy-local-variables): Also copy `w3m-start-url' and + `w3m-contents-url'. + (w3m-fontify-anchors, w3m-check-link-tags): Add support the tags + "previous", "start" and "contents". + +2001-11-02 Masatake YAMATO <jet@gyve.org> + + * w3m.el (autoload): Added w3m-antenna-add-current-url. + (w3m-lynx-like-map): Likewise. + (w3m-info-like-map): Likewise. + (w3m-mode): Added w3m-antenna-add-current-url to doc string. + + * w3m-antenna.el (string-with-default): New widget. + (string-with-default-value-create): New function. + (w3m-antenna-sites): Use string-with-default widgets instead of string + widgets. + (w3m-antenna-tmp-url): New variable. + (w3m-antenna-tmp-title): New variable. + (w3m-antenna-add-current-url): New function. + (w3m-antenna-add): New function. + +2001-11-08 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-replace): Don't use `save-excursion' because + point at start time may be deleted at end time. + (w3m-form-textarea-replace): Ditto. + (w3m-form-textarea-info): Use `w3m-get-text-property-around'. + +2001-11-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-ftp-url): Rewrote. + (w3m-download): Use `w3m-goto-ftp-url' for ftp files. + + * w3m-e20.el (w3m-make-ccl-coding-system): Copied from w3m-fsf.el; + don't call `make-coding-system' if a coding-system already exists. + * w3m-e21.el (w3m-make-ccl-coding-system): Moved from w3m-fsf.el. + * w3m-fsf.el (w3m-make-ccl-coding-system): Moved to w3m-e21.el. + +2001-11-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (top): Removed autoload of `w3m-remove-image'. + + * w3m-om.el (w3m-remove-image): Define as a dummy function. + + * w3m-e20.el (w3m-remove-image): Define as a dummy function. + + * w3m.el (w3m-quick-start): New option. + (w3m-input-url): When the default string is equal to nil, it is not + displayed in the prompt. + (w3m): Refer `w3m-quick-start' to decide the action when interactively + called. + +2001-11-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-current-title, w3m-current-url): Define them before + loading the version specific modules. + +2001-11-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-xmas.el (format-buffers-tab-line): Protect aginst errors caused + by the illegal type of `w3m-current-url'. + + * w3m-e21.el (top): Define `w3m-current-url' and `w3m-current-title' to + avoid byte-compile warnings. + (w3m-insert-header-line): Protect aginst errors caused by the illegal + type of `w3m-current-url'. + (w3m-tab-line): Protect aginst errors caused by illegal types of + `w3m-current-url' and `w3m-current-title'. + +2001-11-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (format-buffers-tab-line): Don't use the value of + `w3m-current-title' if it is nil. + +2001-11-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-exec-filter): Modify regexp pattern of "Wrong username or + passwd". + + +2001-11-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.2 from emacs-w3m-1_2 branch. + + * w3m.el (emacs-w3m-version): Modified. + (top): Protect against the error occurs when `w3m-ucs.el' isn't found. + +2001-11-06 Hideyuki SHIRAI <shirai@meadowy.org> + + * README.shimbun.ja (mew-shimbun.el): Modify description. + +2001-11-03 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-copy-buffer): Added argument `empty'. + (w3m-goto-url-new-session): Call `w3m-copy-buffer' with argument + `empty' non-nil; If new url has `name' portion, goto the base url + first. + (w3m-view-this-url): Likewise. + +2001-11-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (DOCS): Add `FAQ'. + +2001-11-02 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-parse-forms): Decode value of input tag. + (w3m-form-replace): Use `w3m-get-text-property-around'. + + * w3m.el (w3m-parse-attributes): Add :decode-entity attribute. + (w3m-decode-entities-string): New function. + +2001-11-02 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-lynx-like-map): Remove binding of `C-tab' and `C-S-tab' + Bind `C-cC-t' as the key to call `w3m-copy-buffer'. Bind `C-cC-p' as + the key to call `w3m-previous-buffer'. Bind `C-cC-n' as the key to + call `w3m-next-buffer'. Bind `C-cC-w' as the key to call + `w3m-delete-buffer'. + (w3m-info-like-map): Ditto. + +2001-11-02 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-reload-this-page): When execute with prefix argument, + clear post-data certainty. + +2001-11-01 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-goto-url): Remove processing url's forms from the history + when post data. + (w3m): Use `select-frame-set-input-focus' instead of `x-focus-frame'. + + * w3m-form.el (w3m-form-resume): Fix typo. + +2001-11-01 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-delete-buffer): New function. + (w3m-copy-buffer): Call `w3m-goto-url' instead of copying buffer + content. + +2001-10-31 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-resume): Remove submit button status to support + forms containing multiple submit buttons. + +2001-10-31 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-accept-languages): Don't use config file if there are no + contents for "accept_language". + +2001-10-31 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-tab-unselected-face): Setup color for tty. + (w3m-tab-selected-face): Ditto. + (w3m-tab-background-face): Ditto. + + * w3m.el (w3m-next-buffer): New function. + (w3m-previous-buffer): Ditto. + (w3m-lynx-like-map): Bind `C-tab' as the key to call `w3m-next-buffer'; + Bind `C-S-tab' as the key to call `w3m-previous-buffer'. + (w3m-info-like-map): Ditto. + +2001-10-31 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-accept-languages): New option. + (w3m-dump-head-source-command-argument): Abolished. + (w3m-dump-head-source-command-arguments): New constant. + (w3m-w3m-expand-arguments): New macro. + (w3m-w3m-dump-head-source): To generate command arguments for w3m, use + `w3m-w3m-expand-arguments' and refer + `w3m-dump-head-source-command-arguments'. + (w3m-rendering-half-dump): To generate command arguments for w3m, use + `w3m-w3m-expand-arguments'. + +2001-10-31 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-reload-this-page): Change the semantic of the prefix + argument to `clear form and post datas'. + +2001-10-31 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-pop-up-windows): Changed default value + (See [emacs-w3m: 01999]). + + * w3m-e21.el (w3m-tab-unselected-face): Changed underline color. + (w3m-tab-selected-face): Ditto. + (w3m-tab-background-face): Ditto. + (w3m-tab-line): Removed needless local variable `len'. + +2001-10-30 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-header-line-location-title-face): Specify background + color. + (w3m-header-line-location-title-face): Ditto. + (w3m-use-tab): New user option. + (w3m-tab-width): Ditto. + (w3m-tab-unselected-face): New face. + (w3m-tab-selected-face): Ditto. + (w3m-tab-background-face): Ditto. + (w3m-header-line-map): New variable. + (w3m-setup-header-line): If w3m-use-tab is non-nil, use header-line as + a tab area. + (w3m-insert-header-line): New function. + (w3m-tab-make-keymap): New function. + (w3m-tab-line): New function. + (w3m-fontify-after-hook): Add 'w3m-insert-header-line. + +2001-10-30 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-reload-this-page): If form data exist, ask to make use of + its. Check form data modified. + + * README.shimbun.ja (mew-shimbun.el): Modify description. + +2001-10-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-form-parse-forms): Dismantle `w3m-current-url' of + its query part before the rest is refered as the default value of the + action. + + * w3m.el (w3m-ccl-write-repeat): Accept optional arguments to avoid + difference between Emacesn on CCL. + (w3m-iso-latin-1-decoder): Call `w3m-ccl-write-repeat' with optional + argument. + +2001-10-30 Hideyuki SHIRAI <shirai@meadowy.org> + + * README.shimbun.ja: Add information for mew-shimbun.el + +2001-10-29 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-terminal-coding-system): Changed default value for + w3m(en). + (w3m-input-coding-system): Ditto. + (w3m-default-coding-system): Ditto. + (w3m-iso-latin-1-decoder): Fixed for latin-iso8859-1 under old Emacsen. + (w3m-ccl-write-repeat): Ditto. + +2001-10-29 ORI Manabu <ori@tahoo.org> + + * w3m.el (w3m-type): Added the expression to detect `w3m-m17n'. + +2001-10-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-accept-japanese-characters): Use `-halfdump' option + instead of `-dump' option in order to detect the real internal + character set of `w3m-command'. + (w3m-profile-directory): Fixed the expression to determine the default + value for the environment where `w3m-command' includes redundant + suffixes. + (w3m-default-save-directory): Ditto. + (w3m-euc-japan-encoder): Define in the old-style backquote. + (w3m-iso-latin-1-encoder): Ditto. + + * w3m.el (w3m-use-mule-ucs): Simplified. + (w3m-ccl-write-repeat): Fixed. + (w3m-euc-japan-decoder): Ditto. + +2001-10-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-ccl-write-repeat): Avoid a byte-compile warning. + +2001-10-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-info-like-map): Bind `\M-g' as the key to call + `goto-line'. + + * w3m.el (w3m-use-mule-ucs): More safe default value. + (w3m-accept-japanese-characters): Improved automatic detection. + (w3m-ccl-write-repeat): Fix typo. + + * w3m.el (w3m-type): Use the default value which detected + automatically. + (w3m-accept-japanese-characters): New internal variable. + (w3m-terminal-coding-system): Changed the default value for w3m which + doesn't accept Japanese characters. + (w3m-input-coding-system): Ditto. + (w3m-output-coding-system): Ditto. + (w3m-default-coding-system): Changed the default value for the + environment that `w3m-language' doesn't equal to "Japanese". + (w3m-internal-characters-alist): New constant. + (w3m-ccl-write-repeat): New internal function to generate a part of CCL + decoder. + (w3m-euc-japan-decoder): Modified. + (w3m-iso-latin-1-decoder): New CCL program. + (w3m-iso-latin-1-encoder): New CCL program which is used when + `w3m-use-mule-ucs' equals to nil. + (w3m-iso-latin-1): New coding system. + + * w3m-ucs.el (w3m-ucs-generate-ncr-program): New constant. + (w3m-euc-japan-encoder): Refer `w3m-ucs-generate-ncr-program'. + (w3m-iso-latin-1-encoder): New CCL program. + + * w3m-macro.el (w3m-static-when): New macro. + (w3m-static-unless): Ditto. + + * w3m-e21.el (w3m-setup-header-line): Protect aginst the error occurs + when `w3m-current-url' isn't string. + +2001-10-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-mime-text/html-w3m): Support `Xref' header in SHIMBUN + article. + +2001-10-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m): Call `w3m-mode' for a new session; use + `generate-new-buffer' instead of `get-buffer-create' for a new session; + allow the optional 2nd arg NEW-SESSION. + (w3m-goto-url-new-session): New command. + (w3m-goto-url): Always set the value of + `mode-line-buffer-identification'. + (w3m-mode): Update the doc-string for the new command + `w3m-goto-url-new-session'. + (w3m-info-like-map): Bind the key "G" to the command + `w3m-goto-url-new-session'. + (w3m-lynx-like-map): Bind the key "G" to the command + `w3m-goto-url-new-session'; replace the key "G" to "\M-g" for the + command `goto-line'. + (w3m-copy-buffer): Make all the arguments optional; make the 1st arg + BUF default to the current buffer. + (w3m-view-this-url): Call `w3m-copy-buffer' with the 1st arg nil. + (w3m-region, w3m-find-file, w3m-browse-url, w3m-gohome, w3m-download): + Add autoload magic cookie. + (w3m-popup-frame-p): Allow the optional arg FORCE. + +2001-10-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-examine-modules): Don't byte-compile w3m-ucs.el + when the version of XEmacs is not greater than or equal to 21.2.37. + + * w3m.el (w3m-pop-up-frames, w3m-pop-up-windows): Add a recommendation + to the doc-string about the use of XEmacs' buffers tab. + + * w3m-xmas.el (w3m-xmas-update-tab-in-gutter): New function; add it to + `w3m-display-hook'. + (format-buffers-tab-line): Advise the function to show the current + title string in the buffer tab. + (w3m-xmas-show-current-title-in-buffer-tab): New user option. + (TopLevel): When compiling, use `autoload' "w3m" for the void functions + instead of the use of `defalias' to `ignore'; autoload "gutter-items" + for `update-tab-in-gutter'. + +2001-10-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-copy-buffer): Bind `pop-up-windows' to the value of + `w3m-pop-up-windows'. + (w3m-pop-up-windows): New user option. + +2001-10-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-rendering-buffer-1): Redundant argument is removed. + +2001-10-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-this-url): Fixed the interactive spec. + +2001-10-24 Katsumi Yamaoka <yamaoka@jpl.org> + Suggested by Clifford Caoile <piyokun@email.com>. + + * w3m.el (w3m-info-like-map, w3m-lynx-like-map): Bind S-SPC key to the + command `w3m-scroll-down-or-previous-url'. + +2001-10-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-use-mule-ucs): Changed. + (w3m-url-encode-string): Refer `w3m-default-coding-system' and + `w3m-coding-system' when `coding' argument is lacked. + (w3m-url-decode-string): Ditto. + (w3m-rendering-buffer-1): Define as a normal function. + (w3m-lynx-like-map): Changed the key which calls `w3m-save-image' from + `M-I' to `M-i'. + (w3m-info-like-map): Ditto; Registerd `O' as the key which calls + `w3m-db-history'. + + * aclocal.m4 (AC_ADD_LOAD_PATH): Remove empty lines from auto detection + result. + + * Makefile.in (DOCS): Add FAQ.ja, README.namazu.ja and + README.shimbun.ja. + (tarball): Handle attic/ and patches/. + +2001-10-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-mode): Update the doc-string about making a new session. + (w3m-info-like-map, w3m-lynx-like-map): Bind keys for the new commands + to make a new session. + (w3m-mouse-view-this-url-new-session): New command. + (w3m-view-this-url-new-session): New command. + (w3m-mouse-view-this-url): Make it can create a new session. + (w3m-view-this-url): Ditto. + +2001-10-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (top): Add autoload for `w3m-form-parse-buffer'. + (w3m-display-hook): New option. + (w3m-decoder-alist): Reindent. + (w3m-use-form): Changed default value. + (w3m-dirlist-cgi-program): Changed the expression to get default path. + (w3m-work-binary-buffer-name): New constant. + (w3m-attributes): Handle URLs which start `about://source/'; It isn't + defined as an inline function but a normal function to avoid + byte-compile error. + (w3m-arrived-add): Fixed codes to remove fragments in the specified + URL. + (w3m-local-retrieve): Clean up. + (w3m-about-retrieve): Handle URLs which start `about://source/'. + (w3m-retrieve): Doesn't call `w3m-filter'. + (w3m-remove-meta-charset-tags): Renamed from `w3m-remove-meta-tags'. + (w3m-rendering-region): Removed. + (w3m-rendering-extract-title): New function. + (w3m-rendering-half-dump): Ditto. + (w3m-rendering-buffer-1): Ditto. + (w3m-rendering-unibyte-buffer): Ditto. + (w3m-rendering-multibyte-buffer): Ditto. + (w3m-exec): Call `w3m-rendering-unibyte-buffer' instead of + `w3m-rendering-region'. + (w3m-edit-url): Improved to handle URLs which start `about://source/' + or `about://header/'. + (w3m-goto-url): Removed code to highlight current line in the history; + Call hook functions in `w3m-display-hook'. + (w3m-region): Call `w3m-rendering-multibyte-buffer' instead of + `w3m-rendering-region'. + (w3m-about): Clean up. + (w3m-about-source): Removed. + (w3m-view-source): Make URLs which start `about:' available. + (w3m-about-header): Simplified. + (w3m-history-highlight-current-url): New function. + + * w3m-form.el (w3m-form-parse-buffer): New function. + (w3m-form-parse-region): Removed. + + * w3m-filter.el (w3m-filter-rules): Add the rule to call + `w3m-filter-www.zdnet.co.jp'. + (w3m-filter): Protect against wrong type argument. + (w3m-filter-www.zdnet.co.jp): New function. + + * w3m-antenna.el (w3m-antenna-size): Call `w3m-remove-comments' and + `w3m-filter' before checking size of contents. + + * w3mhack.el (w3mhack-load-path): Search `un-define' instead of + `un-define.el' to check the path where Mule-UCS is installed. + +2001-10-22 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3mhack.el (w3mhack-examine-modules): Handle `mew-shimbun.el'. + + * w3m-dtree.el (w3m-dtree-indent-strings, w3m-dtree-stop-strings): + Throw out the "Japanese Character" for non-mule's environments. + +2001-10-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * aclocal.m4 (AC_ADD_LOAD_PATH): When `yes' or null string is passed as + an argument, call `w3mhack-load-path' to search places of required + modules automatically. + + * w3mhack.el (w3mhack-load-path): New function. + +2001-10-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-create-image): Call `w3m-fix-gif' if + `w3m-should-convert-interlaced-gifs' is non-nil. + (w3m-fix-gif): Renamed from `w3m-unoptimize-animated-gif'; convert an + interlaced gif to be non-interlaced as well as unoptimization. + (w3m-cache-fixed-gif-images-max-length): Renamed from + `w3m-cache-unoptimized-gif-images-max-length'. + (w3m-cache-fixed-gif-images): Renamed from + `w3m-cache-unoptimized-gif-images'. + (w3m-should-convert-interlaced-gifs): New variable. + +2001-10-16 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * README.ja: Add description about "new custom". + + * README: Ditto. + + * w3m.el (w3m-attributes): When URL matches `about://source/', returns + nil as its content-charset. + (w3m-about-retrieve): When URL matches `about://source/', don't call + `encode-coding-region'. + (w3m-about-source): Don't call `w3m-decode-region'. + (w3m-exec): Use `set-buffer-file-coding-system' instead of to set + `buffer-file-coding-system'. + +2001-10-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-exec): Substitute `w3m-current-coding-system' for + `buffer-file-coding-system' to show the current coding system in the + mode line. + +2001-10-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-use-mule-ucs): Don't use Mule-UCS package for XEmacs + versions prior to 21.2.37. + +2001-10-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (top): It doesn't require `thingatpt'. + (w3m-url-at-point): New function. + (w3m-input-url): Call `w3m-url-at-point' instead of `thing-at-point'; + The 4th optional argument is added. + (w3m): Call `w3m-input-url' with the 4th argument. + +2001-10-15 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp> + + * README: Add description about ftp site of FLIM. + +2001-10-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-auto-insert-image): Change from 'defcont' to + 'defcustom', again. + (mew-w3m-safe-url-regexp): New constant. + (mew-w3m-view-inline-image): Rewrite. + (mew-mime-text/html-w3m): Bind 'w3m-safe-url-regexp' to + 'mew-w3m-safe-url-regexp'. + +2001-10-15 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp> + + * README.ja: Divided original section 2. a) into two parts, 2. a) and + 2. b). Add new section 2. c), 2. e) about APEL, FLIM, shimbun library. + * README: Ditto. + + * FAQ.ja (Q. ~~~~ Emacs ~?): Add description about where to get APEL. + +2001-10-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-expand-url): Accept URL which has the scheme part only. + +2001-10-15 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-url-components-regexp): Don't except `\' for scheme, + authority and path. + +2001-10-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (top): Removed autoload for `regexp-opt'. + + * w3m-weather.el (top): Likewise. + + * w3m-om.el (top): Add autoload for `regexp-opt'. + +2001-10-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-entity-regexp): Unified to the use of `regexp-opt'; + autoload regexp-opt for old Emacsen. + + * attic/regexp-opt.el: New file. + + * README.ja, README: Emacs-w3m requires the module regexp-opt. + + * w3m-weather.el: Autoload regexp-opt for old Emacsen. + +2001-10-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-safe-url-regexp): New variable. + (w3m-retrieve): When `w3m-safe-url-regexp' has non-nil value and it + matches the requested URL, doesn't fetch its contents. + + * mime-w3m.el (mime-w3m-display-inline-image): New option. + (mime-w3m-preview-text/html): In order to avoid web bug which is + described in [mew-dist 19267], restrict accesible URLs. + + * mew-w3m.el (mew-mime-text/html-w3m): Likewise. + + * w3m-weather.el (w3m-weather-url-alist): Abolished. + (w3m-weather-completion-table): New constant. + (w3m-weather-default-area): Refer `w3m-weather-completion-table' + instead of `w3m-weather-url-alist' to decide customize spec. + (w3m-weather-input-history): New variable. + (w3m-weather-input-area): New function. + (w3m-weather-area-completion): Ditto. + (w3m-weather): Call `w3m-weather-input-area'. + (w3m-about-weather): Refer `w3m-weather-completion-table' instead of + `w3m-weather-url-alist' to convert the area to the real URL. + +2001-10-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m-auto-insert-image): Change from 'defcustom' to + 'defconst' and default value to 'nil'. + (mew-w3m-view-inline-image): New function. + +2001-10-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-input-url): Accept the 3rd optional argument. + (w3m): Improved interactive form. + +2001-10-12 Yuuichi Teranishi <teranisi@gohome.org>, + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-e21.el (w3m-form-button-keymap): Renamed from + `w3m-widget-keymap'. + (w3m-form-make-button): Fixed. + (w3m-setup-widget-faces): Revived. + +2001-10-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m): Always prompts user for a URL string. + +2001-10-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-weather.el (w3m-weather-url-alist): Refer + `http://weather.yahoo.co.jp'. + (w3m-weather-default-area): Change default region. + (w3m-weather-filter-functions): Change default value. + (w3m-about-weather): Accept `no-cache' argument. + (w3m-weather-remove-headers): Modified for Yahoo. + (w3m-weather-remove-footers): Ditto. + (w3m-weather-insert-title): Ditto. + (w3m-weather-remove-weather-images): Removed. + (w3m-weather-remove-washing-images): Removed. + (w3m-weather-remove-futon-images): Removed. + (w3m-weather-remove-week-weather-images): Removed. + + * w3m-e21.el (w3m-widget-keymap): New keymap. + (w3m-form-make-button): Set `w3m-widget-keymap' as keymap on buttons; + Fix condition to make buttons. + (w3m-setup-widget-faces): Removed. + +2001-10-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * mew-w3m.el, w3m-form.el, w3m.el: Remove useless whitespaces. + +2001-10-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-local-dirlist-cgi): Replace `re-search-forward' to + `search-forward'; bind `beg' as a non-global variable. + +2001-10-11 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-local-dirlist-cgi): Remove <from>...</form>. + +2001-10-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-expand-path-name): Fix incompatibility of drive letter. + +2001-10-11 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (toplevel): Require 'wid-edit. + (w3m-form-button-face): Set background and foreground color; Set box + line-width as 2. + (w3m-form-button-pressed-face): Ditto. + (w3m-form-button-mouse-face): New face. + (w3m-form-button): New widget button. + (w3m-form-make-button): Use `widget-convert-button' to put + w3m-form-button. + (w3m-setup-widget-faces): New function. + (w3m-mode-hook): Add `w3m-setup-widget-faces'. + (w3m-form-make-button): Don't check :box attribute when + w3m-form-use-fancy-faces is non-nil. + +2001-10-11 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-decoder-alist): Fix for Windows or OS/2 environments. + +2001-10-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-display-inline-image): Update document. + (w3m-decoder-alist): Change default value. + (w3m-current-image-status): New buffer-local variable. + (w3m-which-command): Export to w3m-macro.el. + (w3m-decode-encoded-contents): Small change. + (w3m-expand-url): Fix to remove an empty query part and an empty + fragment part correctly. + (w3m-toggle-inline-images): Refer `w3m-current-image-status' instead of + `w3m-display-inline-image'. + (w3m-view-url-with-external-browser): Ditto. + (w3m-goto-url): Ditto. + (w3m-reload-this-page): Ditto. + (w3m-redisplay-with-charset): Ditto. + + * w3m-e21.el (top, w3m-display-inline-image-p): Refer + `w3m-current-image-status' instead of `w3m-display-inline-image'. + + * w3m-om.el (w3m-expand-path-name): Add 2nd optional argument. + + * w3m-macro.el (w3m-which-command): Import from w3m.el. + + * w3m-xmas.el (top, w3m-display-inline-image-p): Refer + `w3m-current-image-status' instead of `w3m-display-inline-image'. + + * mew-w3m.el (mew-mime-text/html-w3m): Refer `w3m-current-image-status' + instead of `w3m-display-inline-image'. + +2001-10-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-cache-header): Add 3rd optional argument. + (w3m-w3m-dump-head-source): Call `w3m-cache-header' with `overwrite' + option. + + * w3m.el (w3m-cache-header-delete-variable-part): New function. + (w3m-cache-header): Remove cached contents when inconsistency between + new header and cached header is found. + + * w3m.el (w3m-expand-url): Fix the last change. + (w3m-url-hierarchical-schemes): Add `file'. + (w3m-goto-url): Use `\`' instead of `^' as a meta character. + + * w3m.el (w3m-fontify-anchors): Fix. + (w3m-url-fallback-base): New constant. + (w3m-expand-url): Make it robust against illegal base-URL. + + * w3m.el (w3m-url-components-regexp): New constant. + (w3m-url-hierarchical-schemes): Ditto. + (w3m-expand-url): Reimplemented. + (w3m-view-this-url): Remove a redundant local variable. + (w3m-mouse-view-this-url): Call `w3m-view-this-url'. + (w3m-goto-url): Refer `w3m-url-components-regexp' to delete a fragment + part of URL. + + * mime-w3m.el (mime-w3m-view-this-url): When there is an inline image + under point, display it. + (mime-w3m-mouse-view-this-url): Call `mime-w3m-view-this-url'. + +2001-10-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-expand-url): Emergency fixed. + +2001-10-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-expand-url): Make it work correctly when a url begins + with "//". + +2001-10-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-language): New option. + (w3m-default-coding-system): Refer `w3m-language' to decide default + value. + (w3m-coding-system-priority-list): Ditto. + (w3m-toolbar): Ditto. + (w3m-url-to-file-name): Moved to avoid byte-compile warnings. + (w3m-expand-file-name-as-url): Ditto. + (w3m-url-local-p): Ditto. + (w3m-url-dtree-p): Ditto. + (w3m-view-this-url): When there is an inline image under point, display + it. + (w3m-mouse-view-this-url): Ditto. + (w3m-view-url-with-external-browser): Renamed from + `w3m-view-current-url-with-external-browser'. Handle an inline image + under point. + (w3m-download-this-url): Handle an inline image under point. + (w3m-info-like-map): Reconstructed. + + * w3m-search.el (w3m-search-default-coding-system): Abolished. + (w3m-search-engine-alist): Refer `w3m-language' to decide default + value. + (w3m-search-escape-query-string): Refer `w3m-default-coding-system' + instead of `w3m-search-default-coding-system'. + +2001-10-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-form-use-fancy-faces): New option. + (w3m-form-make-button): New function. + (w3m-form-fontify): Call `w3m-form-make-button'. + + * w3m-e21.el (w3m-form-button-face): New face. + (w3m-form-button-pressed-face): Ditto. + (w3m-form-make-button): New function. + +2001-10-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (read-string): Unify the advice form. + (w3m-om-coding-system-alist): Fix doc-string. + +2001-10-04 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (read-string): Don't modify the value of + `current-load-list' when advising it. + + * mime-w3m.el (mime-w3m-remove-text-properties): Don't modify the value + of `current-load-list' when advising the function `kill-new'; add a + doc-string. + + * w3m.el (w3m-decode-entities): Save-match-data when `w3m-entity-value' + is called. + +2001-10-03 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-xmas.el (w3m-detect-coding-region): Return just the return value + of `detect-coding-with-priority' if it is not a list, again. + +2001-10-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (read-string): Advise the function to allow the 4th + argument `default-value'. + +2001-10-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el (mime-w3m-remove-text-properties): New advice to protect + `kill-ring-save' against the `local-map' text property. + +2001-10-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (w3m-detect-coding-region): Use the fixed value for the + list of coding-categories; suppress the duplication of coding- + categories. + (TopLevel): Protect against non-existent coding-systems when creating + the modern coding-systems. + (w3m-om-coding-category-alist): Reinforce the default value. + (w3m-om-coding-categories): Abolish. + (w3m-om-coding-system-alist): Add some new coding-systems. + + * w3m-fsf.el (w3m-detect-coding-region): Suppress the duplication of + coding-categories. + * w3m-xmas.el (w3m-detect-coding-region): Ditto; use + `coding-system-category' instead of `coding-system-type'. + +2001-10-03 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-show-inline-images-before-hook, + w3m-show-inline-images-after-hook, + w3m-remove-inline-images-before-hook, + w3m-remove-inline-images-after-hook): Abolished. + (w3m-modeline-image-status-on): New constant. + (w3m-modeline-image-status-off): Ditto. + (w3m-image-only-page): New buffer local variable. + (w3m-display-inline-image-status): Abolished. + (w3m-fontify-images): Put `w3m-image-status property'. + (w3m-toggle-inline-images-internal): New inline function. + (w3m-exec): Set w3m-image-only-page as t. + (w3m-lynx-like-map): Bind "T" to 'w3m-toggle-inline-images and "t" to + 'w3m-toggle-inline-image. + (w3m-goto-url): Set w3m-image-only-page as nil at first; Setup modeline + to display image display status; Display image if w3m-image-only-page + is nil. + + * w3m-e21.el (w3m-cache-underline-faces): Abolished. + (w3m-insert-image): Set text property 'w3m-undeline-face to the image + instead of setting up w3m-cache-underline-faces. + (w3m-remove-image): Recover underline faces. + (w3m-fontify-before-hook, w3m-show-inline-images-before-hook, + w3m-show-inline-images-after-hook, + w3m-remove-inline-images-after-hook): Don't set up. + +2001-10-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (w3m-detect-coding-region): Make it work. + + * w3m-xmas.el (w3m-detect-coding-region): Return just the return value + of `detect-coding-with-priority' if it is not a list, otherwise the car + of the value. + +2001-10-02 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-coding-system-priority-list): New user option. + (w3m-decode-buffer): Use it. + + * w3m-fsf.el (w3m-detect-coding-region): Remove argument `highest'; + always return the first possible coding system. Add new optional + argument `priority-list'. Use `detect-coding-with-priority'. + + * w3m-xmas.el (w3m-detect-coding-region): Ditto. + + * w3m-om.el (w3m-detect-coding-region): Remove argument `highest'; + always return the first possible coding system. Add new optional + argument `priority-list'. + +2001-10-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (w3m-detect-coding-region): Return a non-list of a + coding-system if the number of return value is only one; use + `w3m-om-modernize-coding-system' and `w3m-om-coding-categories'; use + `code-detect-region' instead of `detect-coding-region'. + (w3m-om-modernize-coding-system): New function. + (w3m-om-coding-category-alist): Use `w3m-om-coding-categories'. + (w3m-om-coding-categories): New constant. + (w3m-om-coding-system-alist): Add `emacs-mule'. + +2001-10-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (TopLevel): Don't byte-compile the source form to bind colon + keywords for old Emacsen. + +2001-10-01 Masatake YAMATO <jet@gyve.org> + + * w3m.el (w3m-mode): Added `w3m-toggle-inline-images' to the mode + description. + +2001-10-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-edit-url-directory-alist): New option. + (w3m-edit-url): New function. + (w3m-edit-current-url): Call `w3m-edit-url'. + (w3m-edit-this-url): Ditto. + +2001-10-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (w3m-detect-coding-region): Prefer the coding-category that + the value of `w3m-default-coding-system' belongs to. + (w3m-om-coding-category-alist): New variable. + (w3m-om-coding-system-alist): New variable. + + * w3m.el (w3m-default-coding-system): Default to `shift_jis' when Mule2 + is running. + +2001-09-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3mhack.el (w3mhack-examine-modules): Handle `w3m-fsf.el'. + + * w3m.el (w3m-default-coding-system): New option. + (w3m-decode-buffer): Call `w3m-detect-coding-region' instead of + `detect-coding-region'. + (w3m-make-ccl-coding-system): Export it to `w3m-fsf.el'. + + * w3m-xmas.el (coding-system-category): Removed. + (w3m-detect-coding-region): New function. + + * w3m-om.el (coding-system-category): Removed. + (w3m-detect-coding-region): New function. + + * w3m-fsf.el: New file. + + * w3m-form.el (w3m-form-default-coding-system): Abolished. + (w3m-form-make-form-data): Refer `w3m-default-coding-system' instead of + `w3m-form-default-coding-system'. + + * w3m-e21.el (top): Require `w3m-fsf'. + (w3m-find-coding-system): Export it to `w3m-fsf.el'. + + * w3m-e20.el (top): Require `w3m-fsf'. + (w3m-find-coding-system): Export it to `w3m-fsf.el'. + + * w3m.el (w3m-goto-url): Change effect of the 3rd argument `charset'. + (w3m-redisplay-with-charset): Reimplemented. + (w3m-view-source): Improved to handle `about://header/...'. + (w3m-about-header): Show title etc. + (w3m-view-header): Improved to handle `about://source/...'. + +2001-09-28 kkonishi <ironbeat@mail.st.rim.or.jp> + + * w3m-search.el (w3m-search-engine-alist): New search engines, + `excite-ja', `lycos-ja', `altavista' and `freebsd-users-jp'. + +2001-09-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-goto-url): Speed up the action to refer a name anchor in + the same document. + +2001-09-27 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-copy-local-variables): Simplified. + (w3m-region): Set `w3m-current-base-url'. + + * w3m.el: Fix the bug reported in [emacs-w3m:01564]. + (w3m-current-base-url): New buffer-local variable. + (w3m-clear-local-variables): Handle `w3m-current-base-url'. + (w3m-copy-local-variables): Ditto. + (w3m-attributes): Change spec of return value. + (w3m-w3m-attributes): Ditto. + (w3m-local-attributes): Ditto. + (w3m-base-url): New macro. + (w3m-expand-url): Make the second argument `base' optional, and refer + `w3m-current-base-url' when a relative URL is canonicalized. + (w3m-fontify-anchors): Follow change of `w3m-expand-url'. + (w3m-fontify-images): Ditto. + (w3m-toggle-inline-images): Ditto. + (w3m-exec): Call `w3m-base-url' to set `w3m-current-base-url'. + + * w3m-form.el (w3m-form-new): Canonicalize `action' whenever this + function is called. + (w3m-form-parse-forms): Follow change of `w3m-form-new'. + (w3m-form-submit): Ditto. + (w3m-form-input-map-set): Follow change of `w3m-expand-url'. + +2001-09-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Position point to the current url and + highlight the line when the page is for listing the history + (suggested by SHIRAI-san). + (w3m-history-current-url-face): New face. + (w3m-image-face, w3m-arrived-anchor-face, w3m-anchor-face): Fix + doc-string. + +2001-09-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-about-db-history-today): New defsubst. + (w3m-about-db-history): If arrived time within 18 hours, display with + "HH:MM:SS". + +2001-09-18 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-ucs.el (w3m-euc-japan-encoder): Convert lain-jisx0201 to ASCII; + Avoid deep nesting. + (TopLevel): Don't require `w3m-macro'. + +2001-09-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-om.el (w3m-expand-path-name): Cancel last change. + +2001-09-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-expand-path-name): Except Mule2, define alias of + `expand-file-name'. + + * w3m-om.el (w3m-expand-path-name): Re-implemented. + + * w3m-e20.el (w3m-expand-path-name): Removed. + + * w3m-e21.el (w3m-expand-path-name): Ditto. + + * w3m-xmas.el (w3m-expand-path-name): Ditto. + +2001-09-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-generate-colon-keywords-file): Renamed from + `w3mhack-bind-colon-keywords'; generate a file which contains a list of + colon keywords; don't bind colon keywords. + (w3mhack-colon-keywords-file): New constant. + + * w3m.el: Load w3m-kwds.el if a colon keyword is not avaulable. + (w3m-colon-keywords): Abolished. + + * Makefile.in (keywords): Create w3m-kwds.el instead of w3mkwds.el; + don't remove w3m-kwds.el in advance. + (clean): Remove w3m-kwds.el instead of w3mkwds.el. + (install): Install w3m-kwds.el if it exists. + +2001-09-17 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-expand-url): Use `w3m-expand-path-name' instead of + `expand-file-name'. + + * w3m-om.el (w3m-expand-path-name): New function. + + * w3m-e20.el (w3m-expand-path-name): New alias. + + * w3m-xmas.el (w3m-expand-path-name): Ditto. + + * w3m-e21.el (w3m-expand-path-name): Ditto. + +2001-09-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-search.el (w3m-search-engine-alist): Changed default value of + `google'. Add new engines `debian-pkg', `debian-bts', and + `iij-archie'. + +2001-09-17 Masayuki Ataka <ataka@milk.freemail.ne.jp> + + * w3m-search.el (w3m-search-engine-alist): Changed default value of + `google-ja'. + +2001-09-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (top): Require `ccl'. + (w3m-make-ccl-coding-system): New function for Emacs20 / Emacs21. + (w3m-euc-japan): Define with `w3m-make-ccl-coding-system'. + + * w3m-macro.el (top): Delete garbage. + + * w3m-e21.el (top): Fix to avoid byte-compile warnings. + + * w3m-xmas.el (top): Require `pccl' and fix to avoid byte-compile + warnings. + (w3m-make-ccl-coding-system): New alias to `make-ccl-coding-system'. + + * w3m-om.el (top): Require `pccl'. + (w3m-make-ccl-coding-system): New alias to `make-ccl-coding-system'. + + * w3m-search.el (w3m-search): Fixed search engine specification error + when interactively called with prefix arguments. + +2001-09-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-macro.el (w3m-with-work-buffer): Keep `w3m-history' and + `w3m-history-flat' through buffers. + + * w3m.el (w3m-current-buffer): Abolished. + (w3m-goto-url): Don't set `w3m-current-buffer'. + (w3m-region): Ditto. + (w3m-about-history): Don't refer `w3m-current-buffer'. + + * w3m-form.el (w3m-form-parse-region): Simplified. + (w3m-form-parse-forms): Accept <OPTION> tag lacks `value' attribute. + + * w3m.el (w3m-resume-forms): Abolished. + (w3m-clear-local-variables): Don't handle `w3m-resume-forms'. + (w3m-copy-local-variables): Ditto. + (w3m-fontify): Don't call `w3m-form-resume'. + (w3m-cache-available-p): Protect against the illegal type of arguments. + (w3m-rendering-region): Removed the fourth optional argument, `forms'. + (w3m-exec): Follow change of `w3m-rendering-region'. + + * w3m-form.el (w3m-form-parse-region): Check the cached form/map + objects are available, and if available return them with the flag. + (w3m-fontify-forms): Its real part is moved to `w3m-form-fontify'. + Call `w3m-form-resume' if `w3m-current-forms' includes the flag. + (w3m-form-fontify): New function. + +2001-09-15 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-resume): Ignore `hidden' type form; Fixed + problem when no item is selected in the select form. + + * w3m.el (w3m-copy-local-variables): Bind local variable resume. + +2001-09-14 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-resume-forms): New buffer local variable. + (w3m-clear-local-variables): Add w3m-resume-forms. + (w3m-copy-local-variables): Ditto. + (w3m-fontify): If w3m-resume-forms is non-nil, call w3m-form-resume. + (w3m-rendering-region): Set w3m-resume-forms if form is cached. + + * w3m-form.el (w3m-form-replace-string): Eliminate. + (w3m-form-resume): New function. + (w3m-fontify-forms): Don't call `w3m-form-replace-string'. + +2001-09-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-form-replace-string): Protect against the illegal + type of arguments. + +2001-09-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-region): Defined new optional argument, `url'. + + * mime-w3m.el (mime-w3m-preview-text/html): Call `w3m-region' with an + optional argument `url'. + +2001-09-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-form.el (w3m-fontify-forms): Restore a string for the input + button from the history if it is available. + (w3m-form-replace-string): New function. + + * w3m.el (w3m): Clear the startup screen on the new frame. + (w3m-reload-this-page, w3m-goto-url, w3m-view-previous-page): + Save/restore post-data and referer as buffer-local properties in the + history. + +2001-09-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Register the value of `w3m-current-forms' in + the history as a buffer-local property. + (w3m-view-previous-page): Specify a url string to + `w3m-history-restore-position'. + (w3m-exec): Use cached forms if it is valid. + (w3m-rendering-region): Allow the optional argument `forms'; use + `forms' if it is non-nil. + (w3m-close-window, w3m-copy-buffer, w3m-exec-set-user, w3m-input-url, + w3m-copy-local-variables): Remove unused non-global variables. + + * w3m-hist.el (w3m-history-restore-position): Allow the optional + argument `url'. + (w3m-history-store-position): Ditto. + (w3m-history-plist-get): Return nil instead of to signal an error. + + * w3m-form.el (w3m-form-parse-region): Don't set the value of + `w3m-current-forms' here. + (w3m-form-input-map, w3m-form-input-map-set): Remove unused non- global + variables. + +2001-09-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Don't use `w3m-cleanup-plist'. + + * w3m-macro.el (w3m-cleanup-plist): Abolished. + + * w3m-hist.el (w3m-history-push): Don't add property whose value is + nil. + (w3m-history-modify-properties): Don't infloop. + + * Makefile.in (keywords): New rule. + (distclean): Remove the directory autom4te.cache which will be created + by autoconf v2.5x. + (clean): Remove w3mkwds.el. + + * .cvsignore: Add autom4te.cache. + + * w3mhack.el (w3mhack-bind-colon-keywords): Always define it. + +2001-09-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-current-referer, w3m-current-post-data): Abolished. + (w3m-copy-local-variables, w3m-clear-local-variables): Don't handle + them. + (w3m-reload-this-page, w3m-goto-url): Don't use them; use the history + instead. + +2001-09-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-add-referer): Removed. + (w3m-add-referer-regexps): Default value is changed. + (w3m-goto-url): No check `w3m-add-referer'. + +2001-09-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-w3m-retrieve): Don't send a referer if it does not + satisfy the rule of `w3m-add-referer-regexps'. + (w3m-add-referer-regexps): New user option. + +2001-09-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-cache-available-p): New function. + +2001-09-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el, w3m.el: Don't quote colon keywords. + + * Makefile.in (install): Don't install w3mkwds.el. + +2001-09-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-colon-keywords): New variable; bind some colon keywords + for Emacs versions prior to 20.3. + + * .cvsignore: Add w3mkwds.el. + + * w3mhack.el (w3mhack-bind-colon-keywords): New function; byte- compile + and exec it. + (w3mhack-examine-modules): Don't byte-compile w3mkwds.el. + + * w3m-macro.el (w3m-tag-regexp-of): Reverted; add a documentation. + (TopLevel): Require `cl' when compiling. + +2001-09-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Register post-data and a referer in the + history. + (w3m-info-like-map, w3m-lynx-like-map): Use `suppress-keymap'. + (w3m-view-previous-page): Give post-data and a referer to + `w3m-goto-url'. + (w3m-view-next-page): Use `w3m-view-previous-page'. + + * w3m-macro.el (w3m-cleanup-plist): New macro. + (w3m-tag-regexp-of): Use backquote. + + * w3m-hist.el (w3m-history-modify-properties): Don't infloop. + +2001-09-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-clear-local-variables): Not reset `w3m-initial-frame'. + (w3m-copy-local-variables): Not copy `w3m-initial-frame'. + + * w3m-form.el (w3m-form-parse-region): Modify `w3m-current-forms' in + this buffer. + +2001-09-11 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-expand-url): Use `expand-file-name' to expand path; If + URL is a form like 'scheme://server/path?query', only path is expanded. + +2001-09-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-meta-content-type-charset-regexp): Relaxed to accept + <meta> tag in XML style. + (w3m-meta-charset-content-type-regexp): Ditto. + (w3m-tag-regexp-of): Exported to `w3m-macro.el'. + + * w3m-macro.el (w3m-tag-regexp-of): Imported from `w3m.el'. + + * w3m.el (w3m-goto-url): Changed timing when `w3m-current-referer' and + `w3m-current-post-data' are set. + (w3m-exec): Call `w3m-clear-local-variables' before image data is + inserted. + + * w3m.el (w3m-current-forms): Definition imported from `w3m-form.el'. + (w3m-current-coding-system): New buffer local variable. + (w3m-clear-local-variables): New function. + (w3m-copy-local-variables): Ditto. + (w3m-arrived-p): Cancel the last change. + (w3m-arrived-auto-detected-coding-system): Removed. + (w3m-arrived-set-auto-detected-coding-system): Ditto. + (w3m-fontify-anchors): Expand `w3m-next-url' and `w3m-previous-url' on + `w3m-current-url'. + (w3m-decode-buffer): Set auto-detected coding system to + `w3m-current-coding-system'. + (w3m-remove-comments): Simplified. No point is saved. + (w3m-check-link-tags): `w3m-next-url' and `w3m-previous-url' are not + reseted. + (w3m-remove-meta-tags): New function. + (w3m-rendering-region): Call `w3m-remove-meta-tags'. + (w3m-exec): Clean up codes. + (w3m-redisplay-with-charset): Refer `w3m-current-coding-system'. + (w3m-region): Call `w3m-clear-local-variables'. + + * w3m-form.el (w3m-current-forms): Definition moved to `w3m.el'. + (w3m-form-make-form-data): Refer `w3m-current-coding-system'. + +2001-09-10 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-expand-url): Changed regexp for detecting absolute spec; + Don't use `expand-file-name'. + +2001-09-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-ucs.el (w3m-euc-japan-encoder): Simplified. + +2001-09-10 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m-ucs.el (w3m-euc-japan-encoder): Fixed for ASCII under XEmacs. + +2001-09-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-goto-url): Refer `coding-system-for-read' which is + specified by `universal-coding-system-argument'. + + * w3m-ucs.el (w3m-euc-japan-encoder): Protect against invalid value + which `emacs-char-to-ucs-codepoint-conversion' returns. + +2001-09-09 ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + + * w3m-ucs.el (w3m-euc-japan-encoder): Fixed for katakana-jisx0201. + +2001-09-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-form-make-form-data): Call + `w3m-arrived-auto-detected-coding-system' when `w3m-content-charset' + returns nil. + + * w3m.el (w3m-arrived-p): Strict checking. + (w3m-arrived-auto-detected-coding-system): New function. + (w3m-arrived-set-auto-detected-coding-system): Ditto. + (w3m-decode-buffer): Call `w3m-arrived-set-auto-detected-coding-system' + to store the coding system detectd by this function. + (w3m-w3m-attributes): Use content of w3m-document-charset: field as + charset, only when `w3m-type' equals `w3mmee' or `w3m-m17n'. + (w3m-redisplay-with-charset): Call + `w3m-arrived-auto-detected-coding-system' to get current coding-system. + +2001-09-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-use-mule-ucs): Strict checking. + (w3m-euc-japan-decode): Use `write-multibyte-character' except Mule2 + and XEmacs21.1. + (w3m-find-file): Refer `coding-system-for-read' which is specified by + `universal-coding-system-argument'. + + * w3m-xmas.el (w3m-euc-japan-decoder): Removed. + +2001-09-09 MIYOSHI Masanori <miyoshi@boreas.dti.ne.jp> + + * README.shimbun.ja: Ditto. + + * README.shimbun.ja: Ditto. + +2001-09-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-use-mule-ucs): New user option. + (w3m-input-coding-system): Changed default value. + (w3m-async-exec): Ditto. + (w3m-process-connection-type) [Solaris]: Changed default value. + (w3m-entity-alist): Enlarge a regular expression. + (w3m-ucs-to-char): New function. + (w3m-euc-japan-encoder): Follow the change of `w3m-ucs.el'. + + * w3mhack.el (w3mhack-examine-modules): Handle `w3m-ucs.el'. + + * w3m-ucs.el: New file. + +2001-09-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-use-toolbar): Use `w3m-image-type-available-p'. + (w3m-image-type-available-p): Use `display-images-p' instead of + `display-graphic-p'. + (w3m-display-inline-image-p): Ditto. + (w3m-display-graphic-p): Alias to `display-images-p' instead of + `display-graphic-p'. + (display-images-p): Make an alias to `display-graphic-p' if it is not + available. It is for Emacs version prior to 21.0.105. + +2001-09-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-filter.el (w3m-filter-lwn.net): Add link information to next + page. + +2001-08-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-load-list): Retry to read a file when failed. + +2001-08-26 MIYOSHI Masanori <miyoshi@boreas.dti.ne.jp> + + * README.shimbun.ja: Add information on nikkansports. + +2001-08-24 MIYOSHI Masanori <miyoshi@boreas.dti.ne.jp> + + * README.shimbun.ja: Add information on makanai, f1fan, f1express and + isize-sports. + +2001-08-13 NAKAGAWA Takayuki <tknakaga@kanagawa.hitachi.co.jp> + + * w3m.el (w3m-w3m-attributes): Refer `w3m-base-url' as current url, + when it is available. + +2001-08-10 Takenobu Sugiyama <sugiyama@ae.advantest.co.jp> + + * w3m-weather.el (w3m-weather-url-alist): Update data to follow the + most recent urls. + (w3m-weather-default-area): Ditto. + (w3m-weather-remove-weather-images): Ditto. + +2001-08-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-download): Made it to work as a command. + +2001-08-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify-images): Use `w3m-decode-anchor-string' to + convert "&" to "&" in the url string. + +2001-08-10 NOMIYA Masaru <nomiya@ttmy.ne.jp> + + * w3m.el (w3m-content-type-alist): Fix typos for gif and tiff. + +2001-08-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Put the url in the history even if `w3m-exec' + returns nil. + +2001-08-09 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * mew-w3m.el (mew-mime-text/html-w3m): Bug fix. Guess charset in cache + buffer. + +2001-08-07 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-type): Remove `w3m-mnc' option. + (w3m-w3m-dump-source): Removed. + (w3m-w3m-retrieve): Don't use `w3m-w3m-dump-source'. + +2001-08-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-content-type-alist): [Win32] Executed 'fiber' with + synchronous mode + (w3m-w32-browser-with-fiber): Ditto. + (w3m-external-view): Add a suffix to the temporally file name if + possible. + +2001-08-06 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-async-exec): Fix doc-string. + (w3m-exec-get-user): Rewrite. + (w3m-exec-get-passwd): New funciton. + (w3m-exec-set-user): Rewrite. + (w3m-get-server-root): Set 'server root' to downcase. + (w3m-exec-filter): Modify the method of 'user' and 'passwd' handling. + +2001-08-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-next-url): New buffer local variable. + (w3m-previous-url): Ditto. + (w3m-arrived-ignored-regexp): Add 'about://namazu/'. + (w3m-history-ignored-regexp): Ditto. + (w3m-url-decode-string): New funtcion. + (w3m-fontify-anchors): Process `rel' element of anchor tag. + (w3m-check-link-tags): New funtcion. + (w3m-rendering-region): Call `w3m-check-link-tags'. + (w3m-exec): Set `w3m-next-url' and `w3m-previous-url'. + (w3m-lynx-like-map): Replace `scroll-up' with + `w3m-scroll-up-or-next-url'. Replace `scroll-down' with + `w3m-scroll-down-or-previous-url'. + (w3m-info-like-map): Ditto. + (w3m-mode): Ditto. + (w3m-scroll-up-or-next-url): New command. + (w3m-scroll-down-or-previous-url): Ditto. + + * w3m-namazu.el (w3m-namazu-default-index-customize-spec): New + constant. + (w3m-namazu-index-alist): Change customize spec. + (w3m-namazu-default-index): Ditto. + (w3m-namazu-call-process): Change argument spec and followed change of + `w3m-namazu-index-alist'. + (w3m-about-namazu): Add link information to next or previous results. + (w3m-namazu): Stricter checking of arguments. Encoded index and query. + + * w3m-filter.el (w3m-filter-rules): Add `w3m-filter-google.com'. + (w3m-filter-google.com): New function. + +2001-08-03 Masayuki Ataka <ataka@milk.freemail.ne.jp>, + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-namazu.el (w3m-namazu): Fixed the problem which is reported in + [emacs-w3m:01389]. + +2001-08-03 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-download-save-directory): Abolished. + (w3m-goto-ftp-url, w3m-download): Reverted. ;; Those last changes were + nonsensical. + +2001-08-03 Masayuki Ataka <ataka@milk.freemail.ne.jp>, + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-namazu.el (w3m-namazu-default-index): Changed customize spec. + (w3m-namazu): Follow change of `w3m-namazu-default-index'. + +2001-08-03 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-toggle-inline-images): Display "Showing images..." + message only when there is at least one inline image. + (w3m-current-post-data): New buffer local variable. + (w3m-current-referer): Ditto. + (w3m-goto-url): Set up `w3m-current-post-data' and + `w3m-current-referer'. + (w3m-reload-this-page): Process post-data and referer. + +2001-08-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-download-save-directory): New user option. + (w3m-goto-ftp-url, w3m-download): Refer it. + +2001-08-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-antenna.el (w3m-antenna-shutdown): Don't specify a coding-system + to `w3m-save-list'. + (w3m-antenna-setup): Don't specify a coding-system to `w3m-load-list'. + (w3m-antenna-file-coding-system): Abolished. + + * w3m.el (w3m-arrived-shutdown): Don't specify a coding-system to + `w3m-save-list'. + (w3m-arrived-shutdown, w3m-arrived-setup): Don't specify a + coding-system to `w3m-load-list'. + (w3m-save-list): Made the arg `coding-system' optional; refer to + `w3m-file-coding-system' by default; insert the file magic in the + beginning of a file. + (w3m-load-list): Made the arg `coding-system' optional; refer to + `w3m-file-coding-system-for-read' by default. + (w3m-arrived-file-coding-system): Abolished. + (w3m-file-coding-system-for-read): New variable. + (w3m-file-coding-system): New user option. + +2001-08-02 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-arrived-user-alist): Rename from w3m-arrived-user-list. + (w3m-process-realm): New variable. + (w3m-exec-process): Bind w3m-process-realm to nil. Call + w3m-exec-set-user() for the certification. + (w3m-exec-get-user): Rewrite. + (w3m-exec-set-user): New function. + (w3m-get-server-root): Ditto. + (w3m-exec-filter): Support a pair of 'rootserver' and 'realm'. + +2001-08-02 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-make-form-data): Fixed typo. + (w3m-form-input-file): Rewrite. + (w3m-fontify-forms): Parse hseq attribute as well; Changed textarea + properties. + (w3m-form-text-chop): New function. + (w3m-form-input-textarea-hseq): New buffer local variable. + (w3m-form-input-textarea-name): Eliminated. + (w3m-form-input-textarea-set): Use `w3m-form-textarea-info', + `w3m-form-textarea-replace' and `w3m-form-input-textarea-hseq'. + (w3m-form-input-textarea): Use `w3m-form-textarea-info'; Adjust cursor + line at start time. + (w3m-form-textarea-replace): New function. + (w3m-form-textarea-info): Ditto. + +2001-08-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-add-referer): New option. + (w3m-goto-url): When `w3m-add-referer' equals nil, no reference + information is given to `w3m-exec'. + + * README, README.ja: Update documents for required version of w3m. + + * w3m-0.2.1-mnc.patch: Removed. + + * w3m.el (TOP): Add autoload for w3m-namazu. + + * w3m-namazu.el: New file. + +2001-08-01 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-w3m-retrieve): Bind coding-system-for-write as 'binary. + + * w3m-form.el (w3m-form-make-form-data): New function. + (w3m-form-make-form-urlencoded): Eliminated. + (w3m-fontify-forms): Added 'file' input processing. + (w3m-form-input-file): New function. + (w3m-form-input-textarea-keymap): Bind "\C-c\C-k" as well. + (w3m-form-input-select-keymap): Ditto. + (w3m-form-input-map-keymap): Ditto. + (w3m-form-submit): Call `w3m-form-make-form-data' instead of + `w3m-form-make-form-urlencoded'. + +2001-07-31 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el: Applied patch [emacs-w3m: 01330]. + (w3m-exec-filter): Changed regexp for authentication realm. + + * w3m.el (w3m-toggle-inline-images): Set `referer' argument of + `w3m-create-image'. + + * w3m-e21.el (w3m-create-image): Added argument `referer'. + + * w3m-xmas.el (w3m-create-image): Ditto. + + * w3m-form.el (w3m-form-submit): Set `referer' argument of + w3m-goto-url. + + * w3m.el (w3m-w3m-retrieve): Make a temporary file for POST; Use + -header option to specify Content-Type: field. + (w3m-w3m-retrieve): Added argument `referer'; Add -header option to + specify Referer: field. + (w3m-retrieve): Added argument `referer'. + (w3m-exec): Ditto. + (w3m-goto-url): Ditto. + (w3m-view-this-url): Set `referer' argument of w3m-goto-url. + +2001-07-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-make-help-echo): For FSF Emacs 21, specify the third + argument of `get-text-property' where the buffer is to be checked; for + XEmacs, make it not to work if the buffer is not focused. + (w3m-make-balloon-help): Make it not to work if the buffer is not + focused. + +2001-07-27 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-parse-forms): Fixed for initial value in the + textarea. + +2001-07-27 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-input-textarea-exit): New function. + (w3m-form-input-select-exit): Ditto. + (w3m-form-input-map-exit): Ditt. + (w3m-form-input-textarea-keymap): Add key for 'exit'. + (w3m-form-input-select-keymap): Ditto. + (w3m-form-input-map-keymap): Ditto. + (w3m-form-input-textarea-mode): Modify doc-string. + (w3m-form-input-select-mode): Ditto. + (w3m-form-input-map-mode): Ditto. + (w3m-form-input-select-set-mouse): Add doc-string. + (w3m-form-input-map-set-mouse): Ditto. + +2001-07-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-x-moe-decode-buffer): Use 'w3m-coding-system' instead of + 'euc-jp. + (w3m-w32-browser-with-fiber): Ignore process output. + + * w3m-form.el (w3m-form-mouse-face): New user option. + (w3m-form-input-select): Add mouse-face. + (w3m-form-input-map): Ditto. + + * mew-w3m.el (toplevel): Require 'cl, when byte-compile. + (mew-mime-text/html-w3m): Guess charset with the use of the Mew's + funcion and use its charset, if executed a combination of Mew Ver.2 and + w3m-m17n. + +2001-07-25 NAKAGAWA Takayuki <tknakaga@kanagawa.hitachi.co.jp> + + * w3m.el (w3m-fontify-anchors): Don't delete trailing whitespaces, + etc. from anchors. + +2001-07-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-parse-forms): Support the USEMAP attribute of + the IMG element. + (w3m-fontify-forms): Ditto. + (w3m-form-input-textarea-wincfg): New buffer local variable. + (w3m-form-input-select-wincfg): Ditto. + (w3m-form-input-textarea): Save the configuration of current window. + Guard error of the minimum height of window. + (w3m-form-input-select): Ditto. + (w3m-form-input-textarea-set): Restore the configuration of window. + (w3m-form-input-select-set): Ditto. + (w3m-form-input-map-buffer-lines): New user option. + (w3m-form-input-map-mode-hook): Ditto. + (w3m-form-input-map-set-hook): Ditto. + (w3m-form-input-map-keymap): New keymap. + (w3m-form-input-map-buffer): New buffer local variable. + (w3m-form-input-map-wincfg): Ditto. + (w3m-form-input-map-set): New function. + (w3m-form-input-map-mode): Ditto. + (w3m-form-input-map): Ditto. + (w3m-form-input-select-keymap): Added mouse operation. + (w3m-form-input-map-keymap): Ditto. + (w3m-form-input-select-set-mouse): New function. + (w3m-form-input-map-set-mouse): Ditto. + +2001-07-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-submit): New defmacro. + (w3m-mouse-view-this-url): Handle the action of form tag. + (w3m-submit-form): New function, submit the form. + (w3m-lynx-like-map): Add w3m-submit-form(). + (w3m-info-like-map): Ditto. + (w3m-mode): Modify doc-string. + + * w3m-form.el (w3m-fontify-forms): Add 'w3m-submit property on all tags + except the "reset". + +2001-07-18 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-w3m-retrieve): Added argument `post-data'. + (w3m-w3m-retrieve): Add -post and -post_ct to `w3m-command-arguments' + when `post-data' is specified. + (w3m-retrieve): Added argument `post-data'. + (w3m-exec): Ditto. + (w3m-goto-url): renamed `post-body' to `post-data'. Don't bind + w3m-command-arguments here. + +2001-07-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-w3m-dump-source, w3m-w3m-dump-head-source, + w3m-local-dirlist-cgi): Say where the url is being connected to. + + * w3mhack.el (w3mhack-compile): Changed message convention. + * w3m.el (w3m-view-source, w3m-rendering-region, w3m-w3m-dump-source, + w3m-w3m-dump-head-source, w3m-w3m-get-header, w3m-local-dirlist-cgi, + w3m-fontify): Ditto. + * w3m-e21.el (w3m-setup-header-line): Ditto. + * w3m-dtree.el (w3m-about-dtree): Ditto. + * w3m-bookmark.el (w3m-bookmark-add-current-url, + w3m-bookmark-add-this-url, w3m-bookmark-add-this-url): Ditto. + * mime-w3m.el (mime-w3m-mouse-view-this-url): Ditto. + + * w3m.el (w3m-gohome, w3m-convert-ftp-url-for-emacsen, + w3m-goto-mailto-url, w3m-edit-current-url, w3m-external-view, + w3m-local-dirlist-cgi, w3m-toggle-inline-images, w3m-parse-attributes): + Changed error message convention. + * w3m-hist.el (w3m-history-add-arrived-db, w3m-history-rename-url, + w3m-history-remove-properties, w3m-history-add-properties, + w3m-history-plist-put, w3m-history-plist-get): Ditto. + * w3m-bookmark.el (w3m-bookmark-add, w3m-bookmark-write-file): Ditto. + +2001-07-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-mbconv-command): New customize variable. + (w3m-decode-buffer): If charset equal 'x-moe-internal', call + w3m-x-moe-decode-buffer(). + (w3m-x-moe-decode-buffer): New funcion. A coding-system of buffer + converts 'x-moe-internal' to usual coding-system for emacsen. + + * w3m-form.el (w3m-form-parse-region): If charset equal + 'x-moe-internal', call w3m-x-moe-decode-buffer(). + (w3m-form-parse-forms): Handles value of 'charset', if w3m-type eq + 'w3mmee. + +2001-07-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-byte-optimize-letX): Remove `pop-up-frame-alist' + when compiling. + + * w3m.el (w3m): Use the new macros; set the value of + `w3m-initial-frame' in the popped up frame. + (w3m-close-window): Use `w3m-delete-frame-maybe'. + (w3m-quit): Use `w3m-delete-frame-maybe'. + (w3m-delete-frame-maybe): New function. + (w3m-copy-buffer): Pop up a new frame if `w3m-pop-up-frames' is + non-nil; set the value of `w3m-initial-frame' in the new frame. + (w3m-popup-frame-p): New macro. + (w3m-pop-up-frame-parameters): New macro. + (w3m-initial-frame): New internal variable. + + * w3m-xmas.el (w3m-setup-header-line): Use text-properties instead of + the raw extents for highlighting a header line. + +2001-07-13 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-new): Added 'charlst' option. + (w3m-form-charlst): New macro. + (w3m-form-plist): Move a indent of an array. + (w3m-form-put): Ditto. + (w3m-form-make-form-urlencoded): Remove 'coding' option. If + 'accept-charset' denotes within <form> tag, resolve coding-system + according to its list of charset. + (w3m-form-parse-forms): Handle value of 'accept-charset'. + +2001-07-12 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-tag-regexp-of): New macro to generate regexp of specified + tag(s). + (w3m-parse-attributes): Skip spaces before parsing. + + * w3m-form.el (w3m-form-parse-forms): More flexible and simple tag + finding using `w3m-tag-regexp-of' macro. + +2001-07-12 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-charset-coding-system-alist): Added 'us_ascii'. + (w3m-w3m-attributes): Use content of w3m-document-charset: field as + charset if exists. + +2001-07-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (w3m-form-parse-forms): Parse the tags only within the + "<form ..> ... </form>". + +2001-07-12 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-remove-redundant-spaces): Don't cause an error when str + contains only spaces. + +2001-07-12 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * mew-w3m.el: Hand-over of copyright of this file from Goto to + Tsuchiya. This is consensual. + +2001-07-11 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-rendering-region): Add charset option when call + w3m-form-parse-region(). + + * w3m-form.el (w3m-form-parse-region): Add charset option. If w3m-type + is 'w3mmee or 'w3m-m17n, forms parse within a decoded temporally + buffer. + (w3m-form-parse-forms): New function. + +2001-07-11 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m-form.el (w3m-form-parse-region): Don't extract value from submit + button, again. + (w3m-form-submit): Don't set value when NAME is omitted. + +2001-07-11 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-rendering-region): Do not break matching data. + +2001-07-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-fontify-forms): Put text properties corresponding to + form types. + (w3m-form-input): Simplify. + (w3m-form-input-password): New function. + (w3m-form-input-checkbox): Ditto. + (w3m-form-input-radio): Ditto. + (w3m-form-input-textarea): Follow changes in `w3m-form-input'. + (w3m-form-input-select): Ditto. + +2001-07-11 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m-form.el (w3m-form-goto-next-field): New function. + (w3m-form-make-form-urlencoded): Refine to support value of check-box + type which is list of value string. + (w3m-form-parse-region): Support CHECKBOX type and RADIO type. Note + that CHECKBOX type has multiple values. + (w3m-fontify-forms): Use new property 'w3m-form-field-id to identify + each field to support RADIO type item. Also removed value putting code + because values are already set in parsing. + (w3m-form-input): Support action for CHECKBOX and RADIO type field. + + * w3m.el (w3m-url-encode-string): Encode SPACE(0x20) as "+". + (w3m-rendering-region): Decode entities in title string. + +2001-07-10 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-w3m-attributes): Fixed problem when charset is quoted. + + * w3m-form.el (w3m-form-parse-region): Don't extract value from submit + button. + (w3m-form-submit): If ACTION is not specified, send data to current + url. + (w3m-form-make-get-string): Removed. + +2001-07-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Bind `:bool' for old Emacsen. + +2001-07-10 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-parse-attributes): Support :bool type attribute. + + * w3m-form.el (w3m-form-parse-region): Use :bool type for SELECTED + attribute of OPTION tag. + +2001-07-09 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-make-form-urlencoded): If second value of plist + is consp, use car value (for select). + (w3m-form-parse-region): Don't parse type attribute for textarea; + Process select. + (w3m-fontify-forms): Save value and name for submit. + (w3m-form-replace): Added optional argument `invisible'. + (w3m-form-input): Process SELECT and PASSWORD. + (w3m-form-input-select-buffer-lines): New user option. + (w3m-form-input-select-mode-hook): Ditto. + (w3m-form-input-select-set-hook): Ditto. + (w3m-form-input-select-keymap): New keymap. + (w3m-form-input-select-buffer): New buffer local variable. + (w3m-form-input-select-form): Ditto. + (w3m-form-input-select-name): Ditto. + (w3m-form-input-select-point): Ditto. + (w3m-form-input-select-candidates): Ditto. + (w3m-form-input-select-set): New function. + (w3m-form-input-select-mode): Ditto. + (w3m-form-input-select): Ditto. + (w3m-form-submit): Added optional argument name and value. + + * w3m.el (w3m-remove-comments): New function. + (w3m-rendering-region): Call it. + +2001-07-06 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-form.el (w3m-form-default-coding-system): Changed default value + to shift_jis. + (w3m-form-make-form-urlencoded): Removed redundant local variable. + + * w3m.el (w3m-url-encode-string): Encode newline as "%0D%0A" + + * w3m-form.el (w3m-form-default-coding-system): New user option. + (w3m-form-make-form-urlencoded): Use it. + (w3m-form-input-textarea-set): Get values of buffer local variables + before changing buffer. + (w3m-form-input-textarea): Set values of buffer local variables after + changing buffer. + +2001-07-06 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (comment): Modify URI of emacs-w3m. + (w3m-form-input-textarea-mode-hook): New user option. + (w3m-form-input-textarea-point): New buffer local variable. + (w3m-form-input-textarea-set): Run 'w3m-form-input-textarea-set-hook' + hook first. Get 'w3m-buffer' from input buffer. Go to the point of + the orignal form when switch to 'w3m-buffer'. + (w3m-form-input-textarea): Save original point to + 'w3m-form-input-textarea-point'. Set 'w3m-form-input-textarea-buffer' + within the buffer of the input area. + + * w3m.el (w3m-about): Modify URI of emacs-w3m. + * w3m-xmas.el (comment): Ditto. + * w3m-weather.el (comment): Ditto. + * w3m-search.el (comment): Ditto. + * w3m-om.el (comment): Ditto. + * w3m-macro.el (comment): Ditto. + * w3m-e21.el (comment): Ditto. + * w3m-e20.el (comment): Ditto. + * w3m-dtree.el (comment): Ditto. + * w3m-bookmark.el (comment): Ditto. + * w3m-antenna.el (comment): Ditto. + +2001-07-05 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-0.2.1-mnc.patch: Added [-post body] option. + + * w3m.el (w3m-url-encode-string): Don't cause an error when str is nil. + (w3m-goto-url): Added post-body argument; Set -post option if post-body + is specified. + + * w3m-form.el (w3m-form-make-form-urlencoded): New function. + (w3m-form-make-get-string): Use `w3m-form-make-form-urlencoded'. + (w3m-form-parse-region): Add textarea processing. + (w3m-form-replace): Delete newline characters. + (w3m-form-input): Added textarea processing. + (w3m-form-submit): If form method is POST, then set post-body argument + of `w3m-goto-url'. + (w3m-form-input-textarea-buffer-lines): New user option. + (w3m-form-input-textarea-mode-hook): Ditto. + (w3m-form-input-textarea-keymap): New keymap. + (w3m-form-input-textarea-buffer): New buffer local variable. + (w3m-form-input-textarea-form): Ditto. + (w3m-form-input-textarea-name): Ditto. + (w3m-form-input-textarea-set): New function. + (w3m-form-input-textarea-mode): Ditto. + (w3m-form-input-textarea): Ditto. + +2001-06-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el (mime-w3m-preview-text/html): Search xref in the root + entitiry. + +2001-06-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-version): Bind `print-level' and `print-length' + to nil. + (w3mhack-examine-modules): Ditto. + * w3m.el (w3m-rendering-region): Ditto. + * w3m-form.el (w3m-form-submit): Ditto. + +2001-06-12 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el: Added support code for w3m-m17n. + (w3m-type): Add new candidate. + (w3m-command, w3m-input-coding-system, w3m-output-coding-system) + (w3m-halfdump-command-arguments): Add default value for w3m-m17n. + (w3m-exec) [w3m-m17n]: No call `w3m-decode-buffer'. + (w3m-region) [w3m-m17n]: No call `encode-coding-region'. + +2001-06-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-dump-head-source-command-argument): Its old name is + `w3m-dump-head-source-command-arguments'. + +2001-06-11 Mito <mit@nines.nec.co.jp> + + * w3m.el (w3m-broken-proxy-cache): New variable. + (w3m-dump-head-source-command-arguments): Defined as list. + (w3m-w3m-retrieve): Cache on proxy server isn't used when neither + `no-cache' nor `w3m-broken-proxy-cache' equal to nil. + +2001-06-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-form.el (w3m-form-parse-region): Check the value of + `w3m-current-buffer' to avoid wrong type argument error. + + * w3m.el (w3m-rendering-region): Set `w3m-current-buffer' refered in + `w3m-form-parse-region'. + +2001-06-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-attributes): Remove URL fragments before checking its + attributes. + (w3m-retrieve): Remove URL fragments before getting its contents. + (w3m-w3m-retrieve): Follow changes in `w3m-retrieve'. + (w3m-arrived-add): Simplified regular expression. + (w3m-parse-attributes): Changed form spec for edebug. + + * w3m-form.el (w3m-form-parse-region): Set `w3m-current-forms' in the + buffer `w3m-current-buffer'. + + * mime-w3m.el (mime-w3m-save-background-color): Changed form spec for + edebug. + +2001-06-09 Kiyokazu SUTO <suto@ks-and-ks.ne.jp>, + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-fontify-anchors): Process w3m internal tag `<_id>' which + represents ID properties. + +2001-06-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-retrieve): Remove URL's fragment before checking + cache. + +2001-06-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-unoptimize-animated-gif): Truncate an animated gif + to have only one frame when the size is larger than the value of + `w3m-animated-gif-maximum-size'. + (w3m-animated-gif-maximum-size): New variable. + +2001-06-06 Kenichi OKADA <okada@opaopa.org> + + * w3m-xmas.el: Require `path-util'. + +2001-06-07 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp> + + * w3m.el (w3m-exec-process): Replace `delete' with `delq'. + +2001-06-05 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-toolbar): Use the English language when the value of the + variable `current-language-environment' is not "Japanese". + +2001-06-04 Pavel Janik <Pavel@Janik.cz> + + * w3m.el (w3m-about-db-history): Fix typo Titile -> Title. + +2001-06-01 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-halfdump-command-arguments): Changed default value to + "-dump=half-buffer" when w3m-type equal 'w3mmee. + +2001-05-31 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (iso-2022-7bit): New coding-system generated by copying + from `*iso-2022-jp*'. + +2001-05-31 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-coding-system): Changed default value to 'iso-2022-7bit. + (w3m-input-coding-system): Ditto. + +2001-05-31 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-dtree.el (w3m-dtree-create): Insert 'Meta tag' to the binding of + charset. + + * w3m.el (w3m-local-dirlist-cgi): Fix charset handling. + +2001-05-30 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-file-name-coding-system): New customizable value. + (w3m-charset-coding-system-alist): Reverse list. + (w3m-dirlist-cgi-program): Change default value for OS/2. + (w3m-local-dirlist-cgi): Set "QUERY_STRING" to encoded string of + 'w3m-file-name-coding-system'. Insert 'Meta tag' to the binding of + charset. + +2001-05-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-goto-url): Set a string representing file interpreted as + a directory to `default-directory'. + (w3m-about-source): Call `w3m-decode-buffer'. + +2001-05-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-decode-buffer): Allow `detect-coding-region' to return + both a coding-system and a list of coding-systems. + +2001-05-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (XEmacs): Require `byte-optimize' expressly before + advising the function `byte-optimize-form-code-walker'. + +2001-05-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-rename-url): Don't use `with-current-buffer' + for old Emacsen. + (w3m-history-copy): Ditto. + (w3m-history-share-properties): Ditto. + (w3m-history-seek-properties): Ditto. + +2001-05-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (slow): New rule for the developers to check a + portability for each module. + * w3m-xmas.el (w3m-cache-unoptimized-gif-images): Fix typo. + +2001-05-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-local-directory-view-method): Modify default value. + (w3m-direlist-cgi-program): New variable. + (w3m-local-retrieve): Call w3m-local-dirlist-cgi() when local + directory. + (w3m-local-dirlist-cgi): New function. Execute either 'w3m' or + 'direlist.cgi'. + (w3m-goto-url-localcgi-movepoint): Use 'w3m-name-anchor instead of + 'patter-matching'. + (w3m-url-completion): Handling drive letter for any broken OSes. + + * w3m-dtree.el (w3m-dtree-stop-strings): Add a new alternative. + +2001-05-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-decode-buffer): Removed reference of `w3m-coding-system'. + +2001-05-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-dtree.el (w3m-dtree-directory-depth): New variable. + (w3m-dtree-stop-strings): Ditto. + (w3m-dtree-create-sub): Add new arugument 'depth'. Stop recursive call, + if directory-depth over the 'w3m-dtree-directory-depth'. + +2001-05-25 NAKAGAWA Takayuki <tknakaga@kanagawa.hitachi.co.jp> + + * w3m-dtree.el (w3m-dtree-create-sub): To avoid infinite recusion, + directory-files now returns absolute file names and expand-file-name is + omitted. + +2001-05-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history): Get the values of `w3m-current-url' and + `w3m-history-flat' from the buffer `w3m-current-buffer'. + (w3m-goto-url): Set the value of `w3m-current-buffer' as the current + buffer. + (w3m-current-buffer): New internal variable. + +2001-05-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-examine-modules): Made it to return w3m-macro.elc + and the version specific module first. + + * w3m.el (w3m-setup-menu): Define it if the feature `xemacs' is not + provided. + (TopLevel): Don't bind the functions `w3m-display-inline-image-p', + `w3m-display-graphic-p', `w3m-update-toolbar', `w3m-setup-toolbar', + `w3m-image-type-available-p', `w3m-insert-image' and + `w3m-create-image'. + (w3m-get-buffer-create, w3m-add-text-properties, w3m-with-work-buffer): + Moved to w3m-macro.el. + (w3m-charset-coding-system-alist): Use `w3m-find-coding-system' + directly. + (w3m-find-coding-system): Moved to the version specific modules. + (w3m-static-cond, w3m-static-if): Moved to w3m-macro.el. + (TopLevel): Require `w3m-e20' when the version of the running Emacs is + neither XEmacs, Emacs 21 nor Mule2. + (TopLevel): Require `w3m-macro'. + + * w3m-xmas.el (w3m-euc-japan-decoder): Define it when the function + `ccl-compile-write-multibyte-character' is bound. + (widget-coding-system-action): Use `eval' instead of the funcall'ing + for the function `widget-coding-system-prompt-value'. It is only for + avoiding a byte-compile warning. + (w3m-should-unoptimize-animated-gifs): Check for both + `emacs-patch-level' and `emacs-beta-version' when XEmacs 21.2 is + running. + (TopLevel): Bind the functions `w3m-image-type' and `w3m-retrieve' when + compiling. + (TopLevel): Bind the variables `w3m-current-url', + `w3m-display-inline-image', `w3m-icon-directory', `w3m-menubar', + `w3m-toolbar', `w3m-toolbar-buttons', `w3m-use-header-line' and + `w3m-work-buffer-name' when compiling. + (TopLevel): Don't require `w3m'. + (TopLevel): Provide the feature `w3m-xmas' in the end of the file. + + * w3m-om.el (read-passwd): Enclose it with `eval-and-compile'. + (w3m-find-coding-system): New inline function moved from w3m.el. + (w3m-display-inline-image-p, w3m-display-graphic-p, w3m-update-toolbar, + w3m-setup-toolbar, w3m-image-type-available-p, w3m-insert-image, + w3m-create-image): Alias to `ignore'. + (TopLevel): Bind the variables `w3m-menubar' and `w3m-mode-map' when + compiling. + (TopLevel): Don't require `w3m'. + (TopLevel): Provide the feature `w3m-om' in the end of the file. + + * w3m-macro.el: New file which currently contains + `w3m-get-buffer-create', `w3m-add-text-properties', + `w3m-with-work-buffer', `w3m-static-cond' and `w3m-static-if'. + + * w3m-e21.el (w3m-update-toolbar): Alias to `ignore'. + (w3m-find-coding-system): New inline function moved from w3m.el. + (TopLevel): Bind the functions `w3m-image-type' and `w3m-retrieve' when + compiling. + (TopLevel): Bind the variables `w3m-work-buffer-name', + `w3m-use-header-line', `w3m-toolbar-buttons', `w3m-toolbar', + `w3m-mode-map', `w3m-icon-directory' and `w3m-display-inline-image' + when compiling. + (TopLevel): Don't require `w3m'; require `w3m-macro'. + (TopLevel): Provide the feature `w3m-e21' in the end of the file. + + * w3m-e20.el: New file. + +2001-05-25 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-expand-file-name-as-url): Remove handling + 'about://dtree'. + (w3m-local-content-type): Ditto. + (w3m-url-local-p): Ditto. + (w3m-local-directory-view-method): New variable. + (w3m-local-retrieve): If url is directory, call w3m by way of kick + 'dirlist.cgi' + (w3m-url-dtree-p): New defsubst. + (w3m-edit-current-url, w3m-edit-this-url): Use w3m-url-dtree-p(). + (w3m-goto-url-localcgi-movepoint): New function. + (w3m-goto-url): If URL is a local directory, check and change URL by + the use of 'w3m-local-directory-view-method'. If URL type is a local + cgi, move to its directory point. + +2001-05-25 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-euc-japan-decoder): Check if `emacs-major-version' + is 21 instead of 20 and check for `emacs-beta-version' instead of + `emacs-patch-level'. + (w3m-should-unoptimize-animated-gifs): Ditto. + +2001-05-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-xmas.el (w3m-euc-japan-decoder): Fix typo. + +2001-05-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-euc-japan-decoder): Don't check for the constant + `emacs-patch-level' when the beta versions of XEmacs is running. + +2001-05-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-euc-japan-decoder): Not define when it has been already + defined. + + * w3m-xmas.el (w3m-euc-japan-decoder): Define when XEmacs whose version + is greater than 21.2.19 is used. + +2001-05-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Modify messages in `w3m-view-header', `w3m-view-source', + `w3m-edit-this-url', `w3m-print-this-url', `w3m-download-this-url', + `w3m-view-current-url-with-external-browser', `w3m-save-image', + `w3m-view-image', `w3m-mouse-view-this-url', `w3m-view-this-url' and + `w3m-search-name-anchor'. + + * w3m.el (w3m-toggle-inline-images): Signal an error when the function + `w3m-display-graphic-p' returns nil. + (w3m-display-graphic-p): Alias to `ignore' by default. + (w3m-menubar): Disable a menu button "Toggle Images" when the function + `w3m-display-graphic-p' returns nil. + * w3m-xmas.el (w3m-display-graphic-p): Alias to + `device-on-window-system-p'. + * w3m-e21.el (w3m-display-graphic-p): Alias to `display-graphic-p'. + +2001-05-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-find-coding-system): New function to replace + `find-coding-system'. + (w3m-charset-to-coding-system): Use `w3m-find-coding-system'. + (make-ccl-coding-system): Removed. + (toplevel) [emacs20, emacs21]: Removed dependency on `pccl'. + +2001-05-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (toplevel): Fix condition for (require 'pccl). + +2001-05-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-charset-to-coding-system): Simplified. + (make-ccl-coding-system) [XEmacs, Mule]: Removed. + +2001-05-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-region): Use `w3m-display-inline-image-p'. + (w3m-goto-url): Ditto. + (w3m-display-inline-image-p): New function. + * w3m-xmas.el (w3m-display-inline-image-p): New function. + * w3m-e21.el (w3m-display-inline-image-p): New function. + +2001-05-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (toplevel): Define make-ccl-coding-system() myself, when + failed (require 'pccl). + +2001-05-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m): Made it can be called non-interactively or a batch job. + + * w3m.el (w3m-goto-url): Add autoload magic cookie. + * w3m-weather.el (w3m-about-weather, w3m-weather): Ditto. + * w3m-search.el (w3m-search): Ditto. + * w3m-form.el (w3m-fontify-forms, w3m-form-parse-region): Ditto. + * w3m-filter.el (w3m-filter): Ditto. + * w3m-dtree.el (w3m-dtree, w3m-about-dtree): Ditto. + * w3m-bookmark.el (w3m-bookmark-view, w3m-bookmark-add-current-url, + w3m-bookmark-add-this-url): Ditto. + * w3m-antenna.el (w3m-antenna, w3m-about-antenna): Ditto. + * mime-w3m.el (mime-w3m-preview-text/html): Ditto. + +2001-05-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-coding-system): Changed default value to + 'iso-2022-7bit-ss2. + (w3m-terminal-coding-system): New user option. + (w3m-attributes): When URL whose scheme equals to `about' is specified, + returns `w3m-coding-system' as its content-charset. + (w3m-exec-process): Refer `w3m-terminal-coding-system'. + (w3m-decode-buffer): Decode buffer everywhen it is called. + (w3m-about-retrieve): New function. + (w3m-cid-retrieve): Ditto. + (w3m-retrieve): Call `w3m-about-retrieve' and `w3m-cid-retrieve'. + (w3m-rendering-region) [w3mmee]: No call `encode-coding-region'. Fix + coding-system spec error for Mule-2.3. + (w3m-rendering-region): Simplified. + (w3m-region) [w3mmee]: Encode this buffer as unibyte representation. + (w3m-about-history): No call `w3m-with-work-buffer'. + (w3m-about-db-history): Ditto. + + * w3m-dtree.el (w3m-about-dtree): Ditto. + + * w3m-weather.el (w3m-about-weather): Call `w3m-decode-buffer'. + +2001-05-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m): Popup a new frame if there is neither a window nor a + frame associated with w3m and `w3m-pop-up-frames' is non-nil; refer to + `w3m-pop-up-frame-parameters' when creating a new w3m frame. + (w3m-pop-up-frame-parameters): New user option which allows a kludge + that it can be either an alist or a plist. + (w3m-pop-up-frames): New user option. + + * w3m-e21.el (w3m-setup-header-line): Replace "%" with "%%" in an url + string. + +2001-05-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-read-coding-system): Removed. + (w3m-process-environment): New variable. + (w3m-input-coding-system): Changed default value. + (w3m-output-coding-system) [w3mmee]: Changed default value. + (w3m-arrived-add-1): Changed argument spec. + (w3m-arrived-add): Ditto. + (w3m-arrived-coding-system): Removed. + (w3m-arrived-content-charset): New function. + (w3m-arrived-setup): Changed arrived file format to keep + content-charset instead of coding-system. + (w3m-arrived-shutdown): Ditto. + (w3m-exec-process): Refer `w3m-process-environment' to set environments + for sub-processes. + (w3m-decode-encoded-contents): Ditto. + (w3m-coding-system-to-charset): Removed. + (w3m-read-content-charset): New function. + (w3m-decode-buffer): Changed argument spec. Process this buffer if and + only if it's represented in unibyte. + (w3m-rendering-region): Reconstruced. + (w3m-exec): Changed argument spec and followed the change of + `w3m-decode-buffer'. + (w3m-goto-url): Changed argument spec and followed the change of + `w3m-exec'. + (w3m-redisplay-with-coding-system): Removed. + (w3m-redisplay-with-charset): New command to replace + `w3m-redisplay-with-coding-system'. + (w3m-region): No call `encode-coding-region'. + (w3m-about-history): Ditto. + (w3m-about-db-history): Ditto. + + * w3m-antenna.el (w3m-about-antenna): No call `encode-coding-region'. + + * w3m-dtree.el (w3m-about-dtree): Ditto. + + * w3m-om.el (w3m-read-coding-system): Removed. + (coding-system-list): New function. + +2001-05-23 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-expand-file-name-as-url): If file is directory, expand to + use 'about://dtree'. + (w3m-local-content-type): If url is directory or 'about://dtree/", + return "text/html" type. + (w3m-goto-url): If URL is local and directory, change URL 'file://' to + 'about://dtree'. + (w3m-halfdump-command): New variable. + (w3m-halfdump-command-arguments): Change to defvar. + (w3m-halfdump-command-common-arguments): New constant, common arguments + for 'halfdump' execution of all w3m variants. + (w3m-rendering-region): Use 'w3m-halfdump-command' if setted. Change + call process arguments. + (w3m-lynx-like-map): Add w3m-gohome() keybind. + (w3m-info-like-map): Add w3m-dtree() and w3m-edit-this-url() + keybind. Use w3m-gohome() instead of lamda expression. + (w3m-mode): Modify doc-string. + + * w3m-dtree.el (w3m-about-dtree): Modify message. + +2001-05-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-unoptimize-animated-gif): New function which is + separated from `w3m-create-image'; improve a way to check whether a + data should be unoptimized or not. + (w3m-create-image): Use it. + +2001-05-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-create-image): Attempt to extract the first frame of + an animated gif when the unoptimization is failed. + +2001-05-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-add-text-properties): Don't specify `end-open' nor + `front-nonsticky' that are the default. + (w3m-emacs-w3m-icon): Colorized. + +2001-05-22 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-cache-contents): Don't insert additional '\n' for binary + data. + +2001-05-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Don't make the coding-system `w3m-euc-japan' if it already + exists to make w3m.el reloadable in Emacs 20. + +2001-05-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about): Put an icon image as about://emacs-w3m.gif. + (w3m-retrieve): Make an exception of about://emacs-w3m.gif. + (w3m-attributes): Ditto. + (w3m-emacs-w3m-icon): New constant for about://emacs-w3m.gif. + +2001-05-22 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-region): Call w3m-render-region for the region from + `point-min' to `point-max' because buffer is already narrowed. + +2001-05-22 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-mime-text/html-w3m): Fix condition when + mew-mime-text/html() call, again. Avoid byte-compile warning when + compiling. + +2001-05-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Add support code of w3mmee. Reorganaized codes to handle + content types and coding systems which are specified by user. + (toplevel): Require 'pccl. + (w3m-type): New user option. + (w3m-mnc): Removed user option. + (w3m-linefeed-type): Removed variable. + (w3m-dump-head-source-option): Ditto. + (w3m-decode-all-to-this-charset): Ditto. + (w3m-halfdump-option): Ditto. + (w3m-halfdump-expand-options): Ditto. + (w3m-extended-characters-table): Ditto. + (w3m-command): Refer `w3m-type' to decide default value. + (w3m-command-arguments): Ditto. + (w3m-output-coding-system): Changed default value to `w3m-euc-japan'. + (w3m-profile-directory): Refer `w3m-command' to decide default value. + (w3m-default-save-directory): Ditto. + (w3m-dump-head-source-command-arguments): New constant. + (w3m-halfdump-command-arguments): Refer `w3m-type' to decide default + value. + (w3m-arrived-add-1): Add an argument `content-type'. + (w3m-arrived-add): Likewise and follow change of `w3m-arrived-add-1'. + (w3m-arrived-coding-system): Strict checking of return value. + (w3m-arrived-content-type): New function. + (w3m-arrived-setup): Follow change of `w3m-arrived-add'. + (w3m-arrived-shutdown): Ditto. + (w3m-exec-process): Set process environment to avoid unexpected + conversion in Windows. + (w3m-charset-to-coding-system): New function. + (w3m-decode-encoded-contents): Old name is `w3m-decode-encoded-buffer'. + Set process environment to avoid unexpected conversion in Windows. + (w3m-local-retrieve). Simplified. + (w3m-pretty-length): Removed. + (w3m-crlf-to-lf): Removed. + (w3m-w3m-dump-head-source): No call `w3m-crlf-to-lf'. + (w3m-w3m-dump-source): Ditto. + (w3m-w3m-retrieve) Removed optional argument `cs' and simplified. + (w3m-retrieve): Ditto. + (w3m-decode-extended-characters): Removed. + (w3m-euc-japan-decoder): New CCL program. + (w3m-euc-japan-encoder): Dummy CCL program. + (w3m-euc-japan): New coding system. + (w3m-rendering-region): New optional argument `charset' and support + codes of `w3mmee' are added. Handle new defintion style of + `w3m-halfdump-command-arguments'. Refer `w3m-euc-japan' to process + outputs of `w3m'. + (w3m-exec): Reconstructed. This accepts new optional argument + `content-type'. + (w3m-goto-url): Reconstructed to handle files which have unknown + cotent-types. + (w3m-redisplay-with-coding-system): Simplified. + (w3m-find-file): Simplified and optional argument `type' is removed. + (w3m-region): Encode output buffer into `w3m-input-coding-system'. + (w3m-about-history): Ditto. + (w3m-about-db-history): Ditto. + + * w3m-antenna.el (w3m-about-antenna): Encode output buffer into + `w3m-input-coding-system'. + + * w3m-dtree.el (w3m-about-dtree): Ditto. + + * mime-w3m.el (mime-w3m-cid-retrieve): Changed spec of arguments. + + * mew-w3m.el (mew-w3m-cid-retrieve): Ditto. + +2001-05-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-toggle-inline-images): Message "Showing...". + + * w3m-xmas.el (w3m-create-image): Unoptimize animated GIFs using + gifsicle program. + (w3m-cache-unoptimized-gif-images-max-length): New variable. + (w3m-cache-unoptimized-gif-images): New variable. + (w3m-gifsicle-program): New variable. + (w3m-should-unoptimize-animated-gifs): New variable. + +2001-05-21 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify): Don't initialize the value of + `w3m-cache-underline-faces' here. + (w3m-toggle-inline-images): Run the following new hooks instead of to + hide/show underlines behind inline images here. + (w3m-cache-underline-faces): Variable moved to w3m-e21.el. + (w3m-remove-inline-images-after-hook): New hook. + (w3m-remove-inline-images-before-hook): New hook. + (w3m-show-inline-images-after-hook): New hook. + (w3m-show-inline-images-before-hook): New hook. + + * w3m-e21.el: Use `w3m-remove-inline-images-after-hook', + `w3m-show-inline-images-after-hook', + `w3m-show-inline-images-before-hook' and `w3m-fontify-before-hook' to + fix the undesirable feature of Emacs 21 that to show an underline of a + text even if it has an image as a text property. + (w3m-cache-underline-faces): Variable moved from w3m.el. + +2001-05-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-cache-underline-faces): Modified docs that it is for + Emacs 21's exclusive use. + +2001-05-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-dtree.el (w3m-dtree-indent): Remove variable. + (w3m-dtree-fancy-display): Ditto. + (w3m-dtree-indent-strings): New variable. + (w3m-dtree-create-fancy): Remove function. + (w3m-dtree-create-sub): Rename function from w3m-dtree-create-fancy() + and tiny modified. + (w3m-about-dtree): Remove 'fancy style' method. + +2001-05-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * icons/db-history-up.xpm: Change color. + + * mew-w3m.el (mew-mime-text/html-w3m): Fix condition when + mew-mime-text/html() call. + +2001-05-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-find-file): Improved. + (w3m-default-content-type): New user option. + (w3m-url-completion): New function. + (w3m-input-url): Call `w3m-url-completion' to complete URLs. + +2001-05-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-find-file): New optional argument, `type' is added. + +2001-05-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-add-arrived-db): Improve the madness. + + * w3m.el (w3m-about-history): Add small indentation to sub trees. + +2001-05-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-about-db-history): Modify display format for no folding. + +2001-05-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history): New implementation. + (w3m-about-history-indent-level): New variable. + (w3m-about-history-max-indentation): New variable. + + * icons/history-up.xpm: Replaced a pixmap with a new pattern. + +2001-05-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-dtree.el (w3m-dtree-default-allfiles): Modify default value. + (w3m-dtree-fancy-display): New variable. + (w3m-dtree-create-fancy): New function. + (w3m-dtree-create-sub): Insert the indicator which directory or file, + if allfiles. + (w3m-about-dtree): Use fancy style function, if + 'w3m-dtree-fancy-display' is non-nil. + +2001-05-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m): Use existing frame or window. + +2001-05-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-dtree.el (w3m-dtree-create): Fix HTML bug. + +2001-05-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-cache-underline-faces): Added docs that it is currently + needed for only pretest versions of Emacs 21. + (w3m-fontify-anchors): Don't fontify the trailing white spaces of a + href. + * w3m-xmas.el (w3m-insert-image): Don't handle underline faces. + * w3m-e21.el (w3m-insert-image): Simplified. + +2001-05-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-setup-header-line, w3m-exec, w3m-decode-entities): + Replace `add-text-properties' with `w3m-add-text-properties'. + (w3m-fontify-images, w3m-fontify-anchors): Ditto. + (w3m-setup-header-line, w3m-cache-contents, w3m-refontify-anchor): + Replace `put-text-property' with `w3m-add-text-properties'. + (w3m-toggle-inline-images, w3m-fontify-anchors): Ditto. + (w3m-fontify-underline, w3m-fontify-bold): Ditto. + (w3m-add-text-properties): New macro used to put non-sticky text + properties. + + * w3m-xmas.el (w3m-setup-header-line): Don't put non-sticky text + property here. + +2001-05-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-w3m): Typo fix. + +2001-05-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-bookmark.el (w3m-bookmark-default-section): Changed + initialization order. + +2001-05-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-dtree.el (w3m-dtree-create): Modify warning message. + (w3m-about-dtree): Set path to directory name. + +2001-05-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el, w3m-antenna.el, w3m-bookmark.el, w3m-dtree.el, w3m-search.el, + w3m-weather.el: Fixed document strings of functions. + + * mew-w3m.el (mew-w3m): New customize group. + (mew-use-w3m-minor-mode): Use defcustom. + (mew-w3m-auto-insert-image): Use defcustom. + +2001-05-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-goto-url): Set 'default-directory' to + 'w3m-profile-directory', if 'url' is local but not exist that + directory. + + * w3m-dtree.el (w3m-dtree-create): If 'path' is not a directory, + display warning message. + +2001-05-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify): Initialize the value of + `w3m-cache-underline-faces'. + (w3m-toggle-inline-images): Remove or restore the underlined faces. + (w3m-cache-underline-faces): New buffer-local variable used to cache + the detached underlined faces from a buffer. + + * w3m-xmas.el (w3m-insert-image): Detach an underlined face in + `w3m-cache-underline-faces'. + * w3m-e21.el (w3m-insert-image): Ditto. + +2001-05-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-toggle-inline-images): Restore hidden faces in the text + property `w3m-hidden-face'. + + * w3m-xmas.el (w3m-setup-header-line): Don't inherit existing text + properties in a header line. + + * w3m-xmas.el (w3m-insert-image): Hide a face in the text property + `w3m-hidden-face' if it is underlined, instead of the removing. + * w3m-e21.el (w3m-insert-image): Ditto. + +2001-05-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (top-level): Fixed argument of autoload for `w3m-dtree', and + added autoload for `w3m-about-dtree'. + + * w3m-dtree.el (w3m-dtree): Fixed doc-string. + +2001-05-15 "Takayuki Nakagawa" <tknakaga@kanagawa.hitachi.co.jp> + + * w3m.el (w3m-goto-ftp-url): Use `file-directory-p' instead of file + name suffix to distinguish directories and files. + (w3m-time-parse-string (for buggy timezone.el)): Ignore errors occured + in `encode-time'. + +2001-05-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-dtree.el (top-level): Require `w3m' to suppress byte-compile + warnings. + +2001-05-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-view-this-url): Message if there is no link. + (w3m-cursor-anchor): Redefine as a macro for byte-optimization. + (w3m-action, w3m-image, w3m-anchor): Redefine as a macro using + `w3m-get-text-property-around'. + (w3m-get-text-property-around): New macro. + +2001-05-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-exec): Report a process exit status if an error has + occurred. + (w3m-download): Ditto. + (w3m-w3m-dump-source): Don't use `zerop' to check for a process exit + status. + (w3m-w3m-dump-head-source): Ditto. + (w3m-w3m-get-header): Ditto. + (w3m-exec-process): Made it to return t if succeeded otherwise nil, to + keep a process exit status in `w3m-process-exit-status'. + (w3m-process-exit-status): New variable. + +2001-05-15 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (TOP): Add autoload for w3m-dtree. + (w3m-url-to-file-name): If URL is started 'about://dtree', it convert + to local file. Change [A-z] to [A-Za-z]. + (w3m-url-local-p): If URL is started 'about://dtree', it assume to + local file. + (w3m-prog-dtree): Delete variable. + (w3m-about-history-ignored-regexp): Delete constant. + (w3m-arrived-ignored-regexp): New constant. + (w3m-history-ignored-regexp): New constant. + (w3m-arrived-add): Use 'w3m-arrived-ignored-regexp' instead of + 'w3m-about-history-ignored-regexp'. + (w3m-arrived-p): Ditto. + (w3m-parse-attributes): Change [A-z] to [A-Za-z]. + (w3m-fontify): Ditto. + (w3m-external-view): Remove 'about://dtree' handling. + (w3m-about-history): Use 'w3m-history-ignored-regexp' instead of + 'w3m-about-history-ignored-regexp'. + (w3m-about-db-history): Ditto. + (w3m-about-dtree): Move to 'w3m-dtree.el'. + (w3m-dtree): Ditto. + + * w3m-dtree.el: New file. + +2001-05-11 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-cursor-anchor): New defsubst. + (w3m-fontify-anchors): Add 'w3m-cursor-anchor property for + w3m-goto-(next|previous)-anchor. + (w3m-goto-anchor-hist): New buffer local variable. + (w3m-goto-next-anchor): Use 'w3m-cursor-anchor property. + (w3m-goto-previous-anchor): Ditto. + (w3m-next-anchor): Don't stop divided anchor using + 'w3m-goto-anchor-hist'. + (w3m-previous-anchor): Ditto. + + * w3m-form.el (w3m-fontify-forms): Add 'w3m-cursor-anchor property for + w3m-goto-(next|previous)-anchor. + +2001-05-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-copy): New implementation without recursive + funcall'ing using `w3m-history-tree'. + (w3m-history-tree): Allow the optional argument `newpos'. + (w3m-history-copy-1): Removed. + + * w3m.el (w3m-gohome): New command. + (w3m-setup-menu): Use `w3m-menubar'. + (w3m-menubar): New constant. + (w3m-toolbar): Added "copy"; use `w3m-gohome'. + (w3m-toolbar-buttons): Added "copy". + + * w3m-xmas.el (w3m-setup-menu): Moved menubar definition to w3m.el. + + * icons/copy-up.xpm: New file. + +2001-05-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-last-modified): When specified URL is not + found, returns t. + (w3m-antenna-check-sites): When the checking site is not found, use old + record. + (w3m-about-antenna): Excess arguments are ignored. + +2001-05-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-insert-image): Remove `face' property from a text + behind an image. + + * w3m-e21.el (w3m-remove-image): Use a regular plist in the arg of + `remove-text-properties'. + * w3m.el (w3m-toggle-inline-images): Ditto. + +2001-05-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-e21.el (w3m-insert-image): Remove `face' property from a text + behind an image. + +2001-05-10 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el: + (w3m-dump-head-source-option): New variable. + (w3m-decode-all-to-this-charset): Ditto. + (w3m-halfdump-option): Ditto. + (w3m-halfdump-expand-options): Ditto. + (w3m-edit-function): Ditto. + (w3m-prog-dtree): Ditto. + (w3m-halfdump-command-arguments): Remove "-halfdump". + (w3m-fontify): Display minibuffer messages. + (w3m-decode-buffer): Use w3m-decode-all-to-this-charset, when its + non-nil. + (w3m-local-retrieve): If file is directory, return 'nil'. + (w3m-w3m-dump-head-source): Use 'w3m-dump-head-source-option' instead + of "-dump_extra". + (w3m-rendering-region): Use 'w3m-halfdump-option', + 'w3m-halfdump-command-arguments' and 'w3m-halfdump-expand-options', + when call-process. + (w3m-exec): Add no-cache option for w3m-dtree when call + w3m-external-view(). + (w3m-external-view): Add no-cache option. If url is local directory, + call w3m-dtree(). + (w3m-print-this-url): Expand output message. + (w3m-edit-current-url): Use 'w3m-edit-function' instead of find-file(). + (w3m-edit-this-url): New function. + (w3m-goto-next-anchor): Input form support. + (w3m-goto-previous-anchor): Ditto. + (keymap): Add w3m-edit-current-url() and w3m-edit-this-url(). + (w3m-mode): Modify doc-string for new functions. + (w3m-view-header): Modify doc-string. + (w3m-history): Add doc-string. + (w3m-about-dtree): New function. + (w3m-dtree): Ditto. + +2001-05-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-flat): Don't funcall itself recursively. + + * w3m.el (w3m-fontify-images): Only put text properties `w3m-image' and + `w3m-image-redundant' if there is a property `w3m-href-anchor'. + +2001-05-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-tree): New function. + + +2001-05-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Release emacs-w3m-1.0 from emacs-w3m-1_0 branch. + +2001-05-08 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-setup-menu): Don't set up menu if it has already been + available. + + * w3m.el (w3m-setup-menu): Locate W3M menu in the forefront of the + menubar. + * w3m-xmas.el (w3m-setup-menu): Ditto. + +2001-05-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-mode): Modify doc-string for describe mode, again. + +2001-05-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-form.el (top-level): Modify string to 'iso-2022-7bit' for + set-auto-coding. + (w3m-form-make-get-string): Guard error in w3m-url-encode-string() + reported [emacs-w3m:00686]. + +2001-05-07 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history): Run `set-buffer-multibyte' after + `erase-buffer' is done. + +2001-05-07 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-w3m-retrieve): Fixed problem when no-cache is non-nil and + w3m-content-type returns nil. + +2001-05-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-search.el (top-level): Removed magic string to decide coding + system. + + * w3m-xmas.el (top-level): Ditto. + + * w3m-e21.el (top-level): Ditto. + +2001-05-07 Masatake YAMATO <jet@gyve.org> + + * w3m-xmas.el (w3m-setup-menu): Implemented. + +2001-05-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-attributes): Check validity of contents length, to + avoid the problem reported in [emacs-w3m:00682]. + +2001-05-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-bookmark.el (w3m-bookmark-section-history): Revival. + (w3m-bookmark-title-history): Ditto. + + * w3m.el (w3m-extended-characters-table): Add "\x90" entry. + (w3m-setup-menu): Move from w3m-e21.el. + (w3m-mode): Modify doc-string for describe mode. + (top-level): Add key-bind, w3m-antenna(), w3m-weather() and + w3m-search(). + (w3m-about-history): Set w3m work buffer as multibyte. + + * w3m-e21.el (w3m-setup-menu): Move to w3m.el. + +2001-05-03 Masatake YAMATO <jet@gyve.org> + + * w3m.el (w3m-mode): Call w3m-setup-menu. + + * w3m-xmas.el (w3m-setup-menu): New stub. + + * w3m-e21.el (w3m-setup-menu): New function. + +2001-04-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history): Replace ">" with ">". + +2001-04-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history): New implementation without recursive + funcall'ing. + (w3m-about-history-1): Removed. + +2001-04-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-ftp-url): Don't give a url string to the function + `file-name-nondirectory'. + +2001-04-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history): Enhance the last link. + (w3m-arrived-p): Return non-nil when url matches + `w3m-about-history-ignored-regexp'. + (w3m-arrived-add): Don't put url into an arrived-db when url matches + `w3m-about-history-ignored-regexp'. + (w3m-about-history-ignored-regexp): Renamed from + `w3m-about-history-except-regex'. + + * w3m-hist.el (w3m-history-restore-position): Instruct + `w3m-history-plist-get' to work with buffer-local properties. + (w3m-history-store-position): Instruct `w3m-history-add-properties' to + work with buffer-local properties. + (w3m-history-remove-properties): Allow the optional arg `local'. + (w3m-history-add-properties): Ditto. + (w3m-history-plist-put): Ditto. + (w3m-history-plist-get): Ditto. + (w3m-history-copy): Remove buffer-local properties. + (w3m-history-flat): Made it to have buffer-local properties. + +2001-04-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (mew-mime-text/html-w3m): Support Mew 1.95b120 or later. + +2001-04-24 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-quit): Clear the echo area just after prompting. + (w3m-save-list): Format a list by itself instead of the use of pp. + +2001-04-24 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-0.2.1-mnc.patch: See [emacs-w3m:00629]. + +2001-04-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Use `w3m-history-store-position' instead of + `w3m-arrived-store-position'. + (w3m-lynx-like-map): Bind `w3m-history-restore-position' instead of + `w3m-view-previous-point' for the key `C-c C-b'; new key `C-c C-SPC' to + bind the command `w3m-history-store-position'. + (w3m-view-previous-point): Removed. + (w3m-view-next-page): Use `w3m-history-restore-position' instead of + `w3m-arrived-restore-position'. + (w3m-view-previous-page): Ditto. + (w3m-arrived-restore-position): Removed. + (w3m-arrived-store-position): Removed. + + * w3m-hist.el (w3m-history-add-arrived-db): Don't specify the 2nd arg + in `w3m-history-push'; specify the 2nd in `w3m-history-backward'. + (w3m-history-restore-position): New command. + (w3m-history-store-position): New command. + (w3m-history-plist-put): Use `w3m-history-modify-properties'. + (w3m-history-plist-get): Don't specify the 3rd arg in + `w3m-history-assoc'. + (w3m-history-push): Allow the optional arg `replace-props'; use + `w3m-history-modify-properties'. + (w3m-history-assoc): Allow the optional arg `replace-props'; always + modify the properties of a history element; use + `w3m-history-modify-properties'. + (w3m-history-backward): Allow the optional arg `set-current'; don't + modify the position pointer of `w3m-history' normally; use + `w3m-history-save-position'. + (w3m-history-forward): Ditto. + (w3m-history-with-element): Don't specify the 3rd arg in + `w3m-history-assoc'. + (w3m-history-modify-properties): New macro. + (w3m-history-save-position): New macro. + +2001-04-23 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-xmas.el (w3m-setup-header-line): Check `major-mode' to decide + whether header line should be set up. + +2001-04-23 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-linefeed-type): Change default value. + + * w3m-0.2.1-mnc.patch: Define setmode(fileno(stdout), O_BINARY) if + win32 or OS/2. Define lrand48() and srand48() used if they don't have. + +2001-04-23 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-about-db-history): Set w3m work buffer as multibyte. + +2001-04-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-info-like-map): Changed key of `w3m-reload-this-page'. + +2001-04-20 Taiki SUGAWARA <taiki.s@cityfujisawa.ne.jp> + + * w3m.el (w3m-expand-file-name-as-url): Use "file:///cygdrive/" instead + of "/cygdrive/" when `w3m-use-cygdrive' is non-nil. + +2001-04-20 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-add-arrived-db): New command. + + * w3m.el (w3m-db-history): New command. + (w3m-about-history, w3m-about-history-1): Don't deactivate "about://*" + links. + (w3m-exec): Share a url string between the variable `w3m-current-url' + and the history structure. + (w3m-toolbar, w3m-toolbar-buttons): Added history and db-history. + + * icons/db-history-up.xpm: New file. + * icons/history-up.xpm: New file. + +2001-04-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-source): Don't execute if can't load its source. + (w3m-view-header): Don't execute if can't load its header. Toggle + html/header if execute twice. + +2001-04-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Use `set-text-properties' to remove all text + props from url string. + (w3m-exec): Use `add-text-properties' instead of `set-text-properties'. + (w3m-w3m-dump-source, w3m-w3m-dump-head-source): Removed not-used bound + variable `w3m-w3m-retrieve-length'. + (w3m-cache-request-contents): Removed not-used bound variables `type' + and `charset'. + (w3m-entity-value): Removed not-used bound variable `sym'. + (w3m-arrived-add): Use `w3m-arrived-add-1'; don't funcall itself + recursively to get rid of redundancy; don't use `set-text-properties' + here. + (w3m-arrived-add-1): New macro. + + * w3mhack.el (XEmacs): Byte-optimize `set-text-properties' to make the + program run a little bit faster. + +2001-04-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-use-cygdrive): Change default value. + (w3m-linefeed-type): New customize variable. + (w3m-executable-type): Remove variable. + (w3m-crlf-to-lf): Use 'w3m-linefeed-type' instead of + 'w3m-executable-type'. + +2001-04-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el: Byte-optimize `match-string-no-properties' not to use + `set-text-properties' under XEmacs. + +2001-04-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-setup-header-line): Check `major-mode' to decide whether + header line should be set up. + + * mime-w3m.el (mime-w3m-use-header-line): Removed. + (mime-w3m-preview-text/html): Canceled last change. + +2001-04-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-mode-map): Initialize when source file is loaded. + + * mime-w3m.el (mime-w3m-mode-map): Simplify. + + * mew-w3m.el (TopLevel): Initialization code of `w3m-mode-map' is + removed. + + * w3m.el, w3m-weather.el, w3m-filter.el, w3m-form.el: Change + coding-system. + + * mime-w3m.el (mime-w3m-use-header-line): New user option. + (mime-w3m-preview-text/html): Refer `mime-w3m-use-header-line' to + control `w3m-use-header-line'. + +2001-04-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist: Made the history management system to keep properties of + each history element to be shared by all the w3m buffers. + (w3m-history-remove-properties): Share properties. + (w3m-history-add-properties): Ditto. + (w3m-history-plist-put): Ditto. + (w3m-history-copy, w3m-history-copy-1): Ditto. + (w3m-history-push): Ditto. + (w3m-history-assoc): Ditto. + (w3m-history-share-properties): New function. + (w3m-history-seek-properties): New function. + + (w3m-history-rename-url): Allow the 4th arg `this-buffer'. + (w3m-history-with-element): Renamed from `w3m-history-with-elements'; + bind only the variable `element' to have a history element of + `w3m-history-flat'. + +2001-04-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-setup-header-line): Don't execute the setup-header-line, + if w3m-current-url is 'nil'. + + * w3m-xmas.el (w3m-setup-header-line): Ditto. + +2001-04-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify-images): Use `match-string-no-properties' instead + of `buffer-substring-no-properties'. + (w3m-parse-attributes): Use `match-string-no-properties' instead of + `match-string' to remove text properties. + + * w3m-xmas.el: Require `poe' for the function + `match-string-no-properties'. + +2001-04-17 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-setup-header-line): New function except for Emacs 21 nor + XEmacs. + (w3m-header-line-map): New variable except for Emacs 21 nor XEmacs. + (w3m-fontify-after-hook): Use it for emulating a header-line. + (w3m-header-line-location-content-face): New face except for Emacs 21. + (w3m-header-line-location-title-face): Ditto. + (w3m-use-header-line): Moved from w3m-e21.el. + + * w3m-xmas.el (w3m-setup-header-line): New function. + (w3m-header-line-map): New variable. + + * w3m-e21.el (w3m-use-header-line): Moved to w3m.el. + +2001-04-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * icons/parent-up.xpm: Reduced color depth. + * icons/parent-disabled.xpm: Renamed from parent-down.xpm. + +2001-04-16 Masatake YAMATO <masata-y@gyve.aist-nara.ac.jp> + + * w3m.el (w3m-toolbar): Added w3m-toolbar-parent-icon. + (w3m-toolbar-buttons): Added "parent". + (w3m-parent-page-available-p): New function. + + * icons/parent-up.xpm: New file. + * icons/parent-down.xpm: New file. + +2001-04-16 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-about-history): Set w3m work buffer as multibyte. + +2001-04-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history-1, w3m-about-history): Deactivate all + "about://*" links. + +2001-04-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history-1): New internal function. + (w3m-about-history): Use it. + +2001-04-15 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-e21.el (w3m-header-line-location-title-face): New face. + (w3m-header-line-location-content-face): Ditto. + (w3m-use-header-line): New user option. + (w3m-setup-header-line): New function. + (w3m-mode-hook): Add `w3m-setup-header-line'. + +2001-04-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history): Show a history tree (incompleted). + (w3m-exec): Put a title string into the history structure. + +2001-04-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-about-db-history): Change the format on display. + +2001-04-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el (w3m-icon-directory): Define it as the constant nil to + avoid byte-compile warnings when compiling. + * w3m.el (w3m-icon-directory): Undo last change. + +2001-04-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-icon-directory): Hide the actual function name + `locate-data-directory' for old Emacsen to avoid byte-compile warnings. + + * w3m-om.el (w3m-om-define-missing-widgets): New function. + (TopLevel): Use it for defining some missing widgets after the library + wid-edit is loaded. + +2001-04-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el (w3m-xmas-define-missing-widgets): New function. + (TopLevel): Use it for defining some missing widgets after the library + wid-edit is loaded. + + * w3m.el (w3m-track-mouse): Added a description about balloon-help. + (w3m-make-balloon-help): New macro. + (w3m-fontify-anchors, w3m-fontify-images): Use it. + +2001-04-12 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-track-mouse): Default to t. + (w3m-make-help-echo): New macro. + (w3m-fontify-anchors, w3m-fontify-images): Use it. + +2001-04-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * mew-w3m.el (TopLevel): Set w3m-mode-map if not exec w3m-mode() yet. + +2001-04-11 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-fontify-images, w3m-fontify-anchors): Put a url string to + each anchor as a `help-echo' property when the value of + `w3m-track-mouse' is non-nil. + (w3m-track-mouse): New user option. + +2001-04-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-copy-buffer): Use `w3m-history-copy' to make copies of + `w3m-history' and `w3m-history-flat'. + +2001-04-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el (mime-w3m-mode-map): Refer `w3m-key-binding' to avoid the + problem reported in [emacs-w3m:00498]. + +2001-04-10 Keisuke Nishida <kxn30@po.cwru.edu> + + * w3m-search.el (w3m-search): Find default using thing-at-point. + +2001-04-10 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-about-history): Use `w3m-history-flat' instead of + `w3m-url-history'. + (w3m-view-source): Don't bind `w3m-url-yrotsih' nor `w3m-url-history'. + (w3m-redisplay-with-coding-system): Don't treat `w3m-url-history'. + (w3m-reload-this-page): Ditto. + (w3m-view-next-page): Use `w3m-history-forward' instead of + `w3m-url-yrotsih'. + (w3m-view-previous-page): Use `w3m-history-backward' instead of + `w3m-url-history'. + (w3m-exec): Use `w3m-history-push' instead of `w3m-url-yrotsih' or + `w3m-url-history'. + (w3m-toolbar): Use `w3m-history-next-link-available-p' and + `w3m-history-previous-link-available-p'. + (w3m-url-yrotsih, w3m-url-history): Removed. + (TopLevel): Require `w3m-hist'. + +2001-04-09 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-info-like-map): Use `(shift iso-lefttab)' instead of + `S-iso-lefttab'. + (w3m-lynx-like-map): Ditto. + + * w3mhack.el (w3mhack-make-package): Add shimbun modules in + MANIFEST.w3m file. + (w3mhack-examine-modules): Look for the library "mime-def" instead of + "mime" to check whether FLIM has been installed or not. + * Makefile.in (install): Install shimbun modules as well. + (install-icons): Show subdirectory name. + +2001-04-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-key-binding): New user option. + (w3m-lynx-like-map, w3m-info-like-map): New keymaps. + (w3m): Refer w3m-key-binding, to decide whether keymap is used. + +2001-04-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-edit-current-url): New command. + (w3m-mode-map): `w3m-edit-current-url' is registered. + (w3m-save-this-url): Removed. + (w3m-decode-encoded-buffer): Use `w3m-which-command' in order to find + appropriate command in Windows. + +2001-04-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (default): Depends `Makefile'. + (Makefile): Removed `--recheck' option in order to re-create itself + when `Makefile.in' or `config.status' is updated. + +2001-04-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (top): Define w3m-read-coding-system(). + (w3m-content-type-alist): Change "fiber" to "fiber.exe". + (w3m-quit): Remove hook if no w3m exist. + (w3m-arrived-add): Add 'coding-system entry. + (w3m-arrived-coding-system): New function. + (w3m-arrived-setup): Handle 'coding-system entry. + (w3m-arrived-shutdown): Ditto. + (w3m-goto-url): Handle specified coding-system. + (w3m-redisplay-with-coding-system): Use w3m-read-coding-system. If no + coding-system specify, set 'reset. + + * w3m-om.el (w3m-read-coding-system): New function. + +2001-04-04 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-w3m-retrieve): Add 'cs(coding-system)' option. + (w3m-retrieve): Ditto. + (w3m-exec): Ditto. + (w3m-goto-url): Ditto. + (w3m-decode-buffer): Ditto. If 'cs' specify, decoding use it. + (w3m-mode-map): Add w3m-redisplay-with-coding-system() at "C". + (w3m-mode): Change doc string. + (w3m-redisplay-with-coding-system): New function. + +2001-04-04 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-attributes): When content type has trailing + semicolon, make it removed. + + * w3mhack.el (load-path): Add `shimbun' sub-directory. + +2001-04-04 Yuuichi Teranishi <teranisi@gohome.org> + + * Makefile.in (clean): Remove shimbun modules. + + * w3mhack.el (shimbun-module-directory): New constant. + (w3mhack-examine-modules): Add shimbun modules if mime is installed. + + * w3m.el (w3m-decode-entities): New function. + (w3m-fontify): Use it. + +2001-04-04 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-print-this-url): New optional argument `add-kill-ring' is + added. + +2001-04-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-filter.el: New file. + + * w3m-antenna.el (w3m-antenna-size): Refer decoded buffer as size. + + * w3m.el (TopLevel): Add autoload code of `w3m-filter'. + (w3m-use-filter): New user option. + (w3m-retrieve): Call `w3m-filter' when decode. + +2001-04-03 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-force-redisplay): New variable, default is 't'. + (w3m-toggle-inline-images): If w3m-force-redisplay is nil, don't + redraw. + (w3m-goto-url): Ditto. + (w3m-region): Ditto. + + * mew-w3m.el (mew-mime-text/html-w3m): Bind w3m-force-redisplay to + 'nil'. + (w3m-mew-support-cid): New variable. + (mew-w3m-cid-retrieve): Use mew-syntax-get-entry-by-cid(), Tnx, Kazu + Yamamoto <kazu@mew.org>. + +2001-04-03 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-process-message): Removed. + (w3m-exec-process): Clean up. + (w3m-w3m-dump-head-source): Removed code which refers + `w3m-process-message'. + (w3m-w3m-dump-source): Ditto. + (w3m-parse-attributes): Remove leading and trailing white space in + CDATA attribute values. + +2001-04-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-copy): Make a copy of `w3m-history-flat' + using `w3m-history-flat' instead of `w3m-history-copy-1'. + +2001-04-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (DISTS): Removed `Makefile'. + +2001-04-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-backward, w3m-history-forward): Simplified. + +2001-04-02 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-backward, w3m-history-forward): Allow the + optional argument `count'. + (w3m-history-backward-1, w3m-history-forward-1): New macros. + +2001-04-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-0.2.1-mnc.patch: Apply patch posted in [w3m-dev 01887]. + + * w3m.el (w3m-w3m-dump-head-source): Follow change in MNC patch. + (w3m-w3m-attributes): Ditto. + +2001-04-02 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-crlf-to-lf): New function. + (w3m-w3m-dump-head-source): Do crlf-to-lf when executable-type eq + 'cygwin. + (w3m-w3m-dump-source): All time do crlf-to-lf function when + executable-type eq 'cygwin. + +2001-04-02 Taiki SUGAWARA <taiki.s@cityfujisawa.ne.jp> + + * w3m.el (w3m-exec-process): Guard the process from some errors. + (w3m-copy-buffer): Restore view point with new window to the point in + original window. + +2001-04-02 Hiroya Murata <hiroya@use-ebisu.co.jp> + + * Makefile.in (Makefile): Depends on config.status instead of + configure. + (config.status): New rule. + +2001-04-01 Katsumi Yamaoka <yamaoka@jpl.org> + + * aclocal.m4 (AC_PATH_ICONDIR): Quote "$(data-directory)" in help- + string. + +2001-04-02 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-html-string-regexp): Make no exception of back-quote. + (w3m-parse-attributes): Follow up above change. + +2001-03-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-home-page): Default value is changed. + (w3m-html-string-regexp): Support single quoted string. + (w3m-parse-attributes): Import from w3m-form.el. + (w3m-fontify-anchors): Fix bug reported in [emacs-w3m:00400]. + (w3m-external-view): Fix. + (w3m-goto-url): Default argument is changed when it is interactively + called. + (w3m-browse-url): Fix. + (w3m-about): Update. + (w3m-about-history-except-regex): Add `about:'. + + * w3m-form.el: (w3m-parse-attributes): Exported. + + * mime-w3m.el (mime-w3m-save-background-color): Changed + `edebug-form-spec'. + + * Makefile.in (dist): Improved. + (Makefile, configure): New rules. + (ECC, MODULES): Removed macros. + +2001-03-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-with-elements): New macro. + (w3m-history-rename-url): Use it. + (w3m-history-remove-properties): Use it. + (w3m-history-add-properties): Use it. + (w3m-history-plist-put): Use it. + +2001-03-30 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-rename-url): New function. + (w3m-history-remove-properties): New function. + (w3m-history-add-properties): New function. + (w3m-history-plist-put): New function. + (w3m-history-plist-get): New function. + (w3m-history-assoc): Return a history element of `w3m-history-flat' + instead of `w3m-history'. + +2001-03-30 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-w3m-attributes): Fixed spec of return value when response + code is greater than 500. + +2001-03-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Fix bugs in caching deflated contents. + (w3m-attributes): Fixed spec of return value when `about:' is + specified. + (w3m-cache-available-p): Removed. + (w3m-w3m-dump-head-source): Reconstructed. + (w3m-w3m-dump-source): New function. + (w3m-w3m-retrieve): Use `w3m-w3m-dump-head-source' or + `w3m-w3m-dump-source'. + (w3m-real-url): Fix side effect of macro expansion. + + * w3m-0.2.1-mnc.patch: New file. + +2001-03-29 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (default): Replace with `fast'. + (install): Undo the last change. + (.el.elc, .SUFFIXES, install-anyway): Removed. + (fast-install-package, fast-install, fast): Removed. + + * w3m-hist.el (w3m-hist): Provide as a feature. + (w3m-history-copy, w3m-history-copy-1): New functions. + (w3m-history-push): Handle the variable `w3m-history-flat' as well as + `w3m-history'. + (w3m-history-assoc): Ditto. + (w3m-history-flat function): Set the value of the variable + `w3m-history-flat'. + (w3m-history-flat variable): New buffer-local variable. + (The whole module): Replace the term ATTRIBUTES with PROPERTIES; + replace the symbol name of the variable `w3m-url-history' with + `w3m-history'. + +2001-03-29 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-real-url): Return original url when real url is nil. + + * w3m-antenna.el (w3m-antenna-sites): Add 'time' type. + (w3m-antenna-alist): Modify comment. + (w3m-antenna-hns-last-modified): Don't use old 'Last-Modified:' format. + (w3m-antenna-last-modified): Use w3m-last-modified() when can not get + 'diary/di.cgi'. + (w3m-antenna-check-sites): Push current-time() if (nth 6 pre) is nil. + +2001-03-29 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Support deflated contents and redirected URLs. + (w3m-decoder-alist, w3m-mnc): New variable. + (w3m-encoding-alist): New constant. + (w3m-attributes, w3m-w3m-attributes, w3m-local-attributes): Spec of + return value is changed. + (w3m-content-charset, w3m-content-encoding, w3m-real-url): New macro. + (w3m-cache-available-p): New function. + (w3m-decode-encoded-buffer): Ditto. + (w3m-decode-buffer): Changed arguments spec. Call + `w3m-decode-encoded-buffer' to process encoded contents. + (w3m-w3m-dump-head-source): New function. + (w3m-w3m-retrieve): Call `w3m-w3m-dump-head-source' when `w3m-mnc' is + non-nil value. Follow change of `w3m-decode-buffer'. + (w3m-exec): Call `w3m-real-url' to process redirected URLs. + (w3m-sub-list): When N is nil, no elements in LIST should be deleted. + (w3m-save-list): Preserve file permission when file is overwritten. + +2001-03-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-compile): New function. + + * Makefile.in (fast-install-package, fast-install, fast): New rules. + (install-package): Make it to be more talkative. + (install-anyway): New rule separated from `install'. + (install): Use `install-anyway'. + + * w3m-hist.el (w3m-history-push): Rewrite for following the change of + `w3m-url-history'. + (w3m-history-assoc): Ditto. + (w3m-history-backward): Ditto. + (w3m-history-forward): Ditto. + (w3m-history-current): Ditto. + (w3m-history-current-1): New macro. + (w3m-history-next-link-available-p): New function. + (w3m-history-previous-link-available-p): New function. + (w3m-url-history): Make it to have the previous and the next position + pointers. + +2001-03-28 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-push): New function. + +2001-03-27 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-url-history): Define it here. + (w3m-history-assoc, w3m-history-flat, w3m-history-backward): New + functions. + +2001-03-26 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el (w3m-history-forward): New function. + +2001-03-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-goto-url): Put cursor at the top of minibuffer. + +2001-03-23 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-w3m-attributes): Don't check "OK" string in Status-Line. + +2001-03-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-time-parse-string the 2nd): Don't funcall + `parse-time-string' directly for avoiding compile warning. + + * w3m-hist.el (w3m-history-current): New function. + +2001-03-23 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-hist.el: New file. + +2001-03-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-time-parse-string): Fix condition to detect timezone.el + includes bug. + + * w3m-time.el: Removed. + + * w3m.el (TopLevel): Require `timezone' instead of `w3m-time'. + (w3m-time-parse-string): Use `timezone-fix-time' and spec of return + value is changed. + (w3m-time-newer-p): Imported. + + * w3m-antenna.el (w3m-antenna-hns-last-modified): Follow change of + `w3m-time-parse-string'. + +2001-03-23 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * README, README.ja: Update for w3m-0.2.1. + + * Makefile.in (dist, tarball): Fix that some files are not included in + package. + +2001-03-22 Keisuke Nishida <kxn30@po.cwru.edu> + + * w3m.el (w3m-goto-url): Insert the current url for input by default. + +2001-03-22 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-xmas.el (w3m-update-toolbar): New function. + (w3m-setup-toolbar): Added docstring. + + * w3m.el (w3m-goto-url): Call `w3m-update-toolbar'. + (toplevel): Define `w3m-update-toolbar' if it is not bound as function. + +2001-03-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-w3m-attributes): Ignore errors while parsing a + time-string. + +2001-03-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Moved generic macros and defsubsts in front of functions. + (w3m-content-encoding, w3m-content-charset): Commented out. + * w3m-form.el (w3m-parse-attributes): Moved from w3m.el. + +2001-03-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Make `w3m-fontify-forms' and `w3m-form-parse-region' to be + always autoloaded; encolose the defining procedures for the unbound + functions with `eval-and-compile'. + (browse-url-interactive-arg): Bind it only at the compile-time as an + autoload'ed function. + * w3m-xmas.el: Provide `w3m-xmas' and then require `w3m'. + * w3m-om.el: Provide `w3m-om' and then require `w3m'. + * w3m-form.el: Require `w3m'. + * w3m-e21.el: Provide `w3m-e21' and then require `w3m'. + +2001-03-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el: All occurrence of `natsumikan' is replaced with + `natsumican'. + +2001-03-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (coding-system-category): Don't define it for the Emacs + variants. + * w3m-om.el (coding-system-category): Defalias to `get-code-mnemonic'. + * w3m-xmas.el (coding-system-category): Defalias to + `coding-system-type' if it is not bound. + + * w3mhack.el (w3mhack-version): Don't require `w3m' in the top level, + do it here instead. + +2001-03-22 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-save-list): Use 'pp' if have pp(). Bind 'print-length' + and 'print-level' to nil. + +2001-03-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Structure of hash database of arrived urls is changed. + (w3m-arrived-setup): Follow change of DB structure. + (w3m-arrived-shutdown): Likewise. + (w3m-arrived-add): Likewise, and argument spec is changed. + (w3m-arrived-time): New function. + (w3m-arrived-seq, w3m-arrived-put-title, w3m-arrived-arrived-time, + w3m-arrived-put-arrived-time): Removed. + (w3m-goto-url): Follow change of `w3m-arrived-add'. + +2001-03-22 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-goto-url): Refresh the visibility of toolbar when XEmacs + is running. + +2001-03-22 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-url-to-file-name): Fix bug reported in [emacs-w3m:00305]. + (w3m-goto-url): Set the value interpreted as a directory to + `default-directory'. + +2001-03-21 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-about-db-history): Use w3m-arrived-arrived-time(). + (w3m-goto-url): Put arrived time to w3m-arrived-db. + (w3m-arrived-shutdown): Handling 'arrived-time in w3m-arrived-db. + (w3m-arrived-setup): Ditto. + (w3m-arrived-put-title): New function. + (w3m-arrived-arrived-time): Ditto. + +2001-03-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-arrived-shutdown): Check sites which are arrived on the + other emacs process. + +2001-03-21 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-input-url): 'nil' don't add candidates. + +2001-03-21 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-make-summary-function): Default value is + changed. + (w3m-antenna-make-summary-like-natsumikan): New function. + + * w3m.el (w3m-about-db-history-sort-time): Removed. + (w3m-about-db-history): Use `w3m-time-newer-p' instead of + `w3m-about-db-history-sort-time'. + +2001-03-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-about-history-except-regex): New constant. + (w3m-about-db-history): New function. + (w3m-about-db-history-sort-time): Ditto. + (w3m-about-history): If 'titile' is '<no-title>', show 'URL' instead of + 'title'. Use w3m-about-history-except-regex. + (w3m-history): If exec with 'C-u', goto 'about://db-history/'. + (w3m-w3m-attributes): Adhoc implementation when server return 'HTTP/1.x + 500x'. + +2001-03-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Format of arrived URL database is changed in order to store + page's title. + (w3m-arrived-title, w3m-arrived-put-title): New function. + (w3m-arrived-setup, w3m-arrived-shutdown): Follow format change. + (w3m-about-history): Use page's title to make history contents. + +2001-03-19 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-url-to-file-name): Fix 'file:///c/xxxx' format in + Windows. + (w3m-expand-file-name-as-url): Use 'file:///c|/xxxx' format if + non-cygwin Windows. + (w3m-about-history): Uniq history. Insert exposition of html. + +2001-03-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-url-to-file-name): Fix (Cf. RFC-1808). + (w3m-expand-file-name-as-url): Ditto. + (w3m-url-local-p): New function. + (w3m-goto-url): Set `default-directory' when URL points a local file. + (w3m-find-file): Use `w3m-goto-url'. + (w3m-w32-browser-with-fiber): Use `w3m-url-to-file-name'. + +2001-03-19 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-make-package): Fixed entries of autoloads and + cus-load, and added ChangeLog in the file MANIFEST.w3m. + + * aclocal.m4 (AC_CHECK_EMACS): Added the option `--with-xemacs'. + +2001-03-19 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-download): Bind `file-coding-system' to binary. + (w3m-content-type-alist): Fix. + +2001-03-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna): Optional argument, `no-cache' is added. + +2001-03-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-goto-url): Switch to buffer of w3m, certainty. + (w3m): Ditto. + +2001-03-17 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-halfdump-command-arguments): Rename from + 'w3m-command-arguments'. + (w3m-command-arguments): New customize variable. + (w3m-exec-process): Add w3m-command-arguments to args when w3m execute. + (w3m-rendering-region): Use w3m-halfdump-command-arguments when w3m + execute. + (w3m-fontify-anchors): Put w3m-name-anchor certainty. + +2001-03-17 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el: Changed antenna database format. + (w3m-antenna-site-key, w3m-antenna-site-title, w3m-antenna-site-class, + w3m-antenna-site-url, w3m-antenna-site-last-modified, + w3m-antenna-site-size, w3m-antenna-site-size-detected): New macros. + (w3m-antenna-setup): Follow change of database format. + (w3m-antenna-check-sites): New function. + (w3m-antenna-make-summary, w3m-antenna-sort-sites-by-time, + w3m-antenna-sort-sites-by-title): Use macros to refer database. + (w3m-about-antenna): Use w3m-antenna-check-sites. + + * w3m.el (w3m-about-history): Don't print "about://antenna/". + +2001-03-17 Yuuichi Teranishi <teranisi@gohome.org> + + * icons/antenna-up.xpm: New file. + + * w3m.el (w3m-toolbar-buttons): Added "antenna". + (w3m-toolbar): Ditto; Fixed behavior of `home'. + +2001-03-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el, w3m-antenna.el: Fix typo. + +2001-03-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-make-package): Remove autoloads and cus-load + files before generating. + + * w3m.el (w3m): Added autoload cookie. + (w3m-icon-directory): Attempt to set the default value using the way of + Wanderlust. + +2001-03-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * README: Update for `install-package' and `install-icons'. + * README.ja: Ditto. + + * w3mhack.el (w3mhack-make-package): New function. + (w3mhack-examine-modules): Ignore auto-save files. + + * mkinstalldirs: New file. + + * configure.in: Call `AC_PATH_PACKAGEDIR'. + + * aclocal.m4 (AC_PATH_PACKAGEDIR): New function. + (AC_EXAMINE_PACKAGEDIR): New function. + (AC_CHECK_EMACS_FLAVOR): Merged into `AC_CHECK_EMACS'. + + * Makefile.in (install-package): New rule. + (install-icons, install): Exec mkinstalldirs. + (SHELL, PACKAGEDIR): New variable. + +2001-03-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-goto-url): Force switch to '*w3m*' buffer. + (w3m-view-source): Don't add current-url to w3m-url-history|yrotsih. + + * mew-w3m.el (mew-w3m-cid-retrieve): Change mime-part handling. + +2001-03-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m-antenna.el (w3m-antenna-sort-function): Removed. + (w3m-antenna-sort-changed-sites-function): New variable. + (w3m-antenna-sort-unchanged-sites-function): Ditto. + (w3m-antenna-sort-sites-by-time): Refer time, when size modification + detected. + (w3m-about-antenna): Use new variables. + +2001-03-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-time.el (w3m-time-rules): Don't use backquote. + (w3m-time-zoneinfo): Ditto. + (w3m-time-parse-integer): Ditto. + +2001-03-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (TopLevel): Require `w3m-time'. + (w3m-w3m-attributes): Use `w3m-time-parse-string' instead of + `parse-time-string'. + + * w3m-time.el: Import parse-time.el of T-gnus and rename it. + + * w3m-antenna.el: Use `w3m-time-parse-string' instead of + `parse-time-string'. + +2001-03-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m-e21.el (w3m-create-image): Changed arguments spec, that + `accept-type-regexp' is removed. + + * w3m-xmas.el (w3m-create-image): Ditto. + +2001-03-16 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Arrived URL database format is changed and code to get + headers and to retrieve contents is cleaned up. + (w3m-attributes, w3m-local-attributes): New function. + (w3m-w3m-attributes): Old name is `w3m-w3m-check-header'. + (w3m-content-type): Use `w3m-attributes'. + (w3m-content-charset, w3m-content-length, w3m-content-encoding, + w3m-last-modified): New macro. + (w3m-retrieve, w3m-local-retrieve): Changed arguments spec, that + `accept-type-regexp' is removed. + (w3m-w3m-retrieve): Likewise and call `w3m-w3m-attributes' instead of + `w3m-w3m-check-header'. + (w3m-exec): Follow change of arguments spec of `w3m-retrieve'. + (w3m-about-source, w3m-about-header): Changed arguments spec that + `accept-type-regexp' is removed and follow change of arguments spec of + w3m-retrieve. + (w3m-arrived-last-modified): New function. + (w3m-arrived-add): Support optional argument `time' and follow change + of database format. + (w3m-arrived-setup, w3m-arrived-shutdown, w3m-arrived-store-position, + w3m-arrived-restore-position): Follow change of database format. + (w3m-with-work-buffer, w3m-parse-attributes): Changed + `edebug-form-spec', see [emacs-w3m:00238]. + (TopLevel): Add autoload codes for `w3m-antenna.el'. + + * w3m-antenna.el: New file. + + * mime-w3m.el (mime-w3m-cid-retrieve): Changed arguments spec, that + `accept-type-regexp' is removed. + + * mew-w3m.el (mew-w3m-cid-retrieve): Ditto. + +2001-03-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (install-icons): New rule. + (ICONDIR): New variable. + + * aclocal.m4 (AC_PATH_ICONDIR): New function. + * configure.in: Call it. + +2001-03-16 Yuuichi Teranishi <teranisi@gohome.org> + + * icons: New directory (Some toolbar icons are contained). + +2001-03-16 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-view-source): Render as html if already display source. + +2001-03-15 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-icon-directory): New variable. + (w3m-toolbar-buttons): New constant. + (w3m-toolbar): Ditto. + (w3m-setup-toolbar): Define as null function. + (w3m-mode): Call `w3m-setup-toolbar'. + + * w3m-xmas.el (w3m-use-toolbar): New variable. + (w3m-xmas-make-toolbar-buttons): New function. + (w3m-setup-toolbar): Ditto. + + * w3m-e21.el (w3m-use-toolbar): New variable. + (w3m-e21-toolbar-configurations): Ditto. + (w3m-e21-setup-toolbar): New function. + (w3m-e21-make-toolbar-buttons): Ditto. + (w3m-setup-toolbar): Ditto. + +2001-03-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (XEmacs): Implemented the source level optimizer for `let' + or `let*' form to remove some obsolete variables. + +2001-03-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * README, README.ja: Update procedure of package installation. + + * w3m.el (w3m-hook): Removed. + (w3m-goto-mailto-url): Old name is `w3m-mailto-url'. + (w3m-goto-ftp-url): Old name is `w3m-exec-ftp'. + (w3m-convert-ftp-url-for-emacsen): Old name is + `w3m-convert-ftp-to-emacsen'. + (w3m-exec): Removed code for ftp protocol. + (w3m-alive-p): Change spec of return value when w3m is alive. + (w3m-goto-url): Made this function safe when it is called at the buffer + whose major mode is not equal to w3m-mode. + (w3m): If it is interactively called when w3m is alive, it is simply + select the appropriate buffer in the current window without asking url. + (w3m-view-parent-page, w3m-browse-url, w3m-view-source, w3m-history): + Use `w3m-goto-url' instead of `w3m'. + (w3m-mode-map): Replace `w3m' with `w3m-goto-url'. + +2001-03-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (MULE): Make `locate-library' run quietly; bind + defcustom'ed variables at compile-time; require `w3m' after + byte-optimizations are done. + + * w3m.el (w3m-static-cond): New macro; use it for defining + `find-coding-system'. + (w3m-url-encode-string): Use `append' instead of `string-to-list' to + coerce a string to a list of chars. + (w3m-entity-regexp): Don't funcall `regexp-opt' directly for avoiding + compile warning. + +2001-03-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-exec-process): Add `delete-process' to clean up resources + of child process. + +2001-03-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (default): Report errors if it has occurred while + examining modules. + + * w3m.el: Add autoload for `w3m-remove-image' when compiling. + (w3m-charset-coding-system-alist): Use `coding-system-p' if the + function `find-coding-system' is not bound. + + * w3mhack.el: Use `require' instead of `load' for loading "w3m" to + avoid undesirable newlines in stdout. + +2001-03-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-xmas.el: Require `wid-edit' when the widget `coding-system' is + not available. + + * mime-w3m.el: Add autoload for `font-set-face-background' since it is + not auto-autoload'ed in XEmacs. + + * w3mhack.el: Require `bytecomp'; make XEmacs don't warn for unused + non-global variables. + +2001-03-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Bind colon keywords only if it is not available. + (rfc2368-parse-mailto-url): + (w3m-form-parse-region): + (w3m-fontify-forms): Bind them only at the compile-time as autoload'ed + functions to avoid byte-compile warnings. + + * w3mhack.el: Byte optimize `truncate-string' for replacing with + `truncate-string-to-width' if it is bound. + + * mew-w3m.el (mew-w3m-minor-mode-setter): Defun it after defining some + variables. + +2001-03-15 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Makefile.in (default): Add `-k' option to continue byte-compile as + much as possible after an error. + +2001-03-15 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in (default): Don't use `for' loop. + * w3mhack.el (w3mhack-examine-modules): Use space instead of newline + for the module names separator. + +2001-03-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Removed functions and variables of bookmark. + * w3m-bookmark.el: New file. + * Makefile.in: Clean up rules and removed GNU-make depended functions. + * w3mhack.el (TopLevel): Load w3m.el. + (w3mhack-version): New function. + * .cvsignore: Add files generated by autoconf. + +2001-03-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3mhack.el (w3mhack-examine-modules): Renamed from + `w3mhack-examine-additional-modules'. + * Makefile.in: Ditto. + +2001-03-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * Makefile.in, aclocal.m4, configure.in, install-sh, w3mhack.el: New + files. + * Makefile: Removed. + +2001-03-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Split file. + + * w3m-form.el: New file. + +2001-03-14 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m-xmas.el (w3m-insert-image): Don't use current cursor point to + make a new extent. + + * w3m.el (w3m-region): Call `sit-for' to redisplay before image + display. + (w3m-goto-url): Ditto. + (w3m-exec-process): Use `sleep-for' instead of `sit-for'. + (w3m-toggle-inline-images): Set cursor point before image insertion. + (w3m-goto-url): Set cursor point before redisplay. + +2001-03-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-read-passwd): Removed. + (w3m-exec-filter): Use `read-passwd' instead of `w3m-read-passwd'. + + * w3m-om.el (read-passwd): Added. + +2001-03-14 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m-om.el: Rewrite to insert "-" into the name of eol-type variants + of each newly generated coding-system. + +2001-03-14 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Split files. + (w3m-coding-system): Changed customize type. + (w3m-input-coding-system): Ditto. + (w3m-output-coding-system): Ditto. + (w3m-bookmark-file-coding-system): Ditto. + (w3m-url-encode-string): Removed redundant code for Mule-2. + + * w3m-e21.el: New file. + + * w3m-xmas.el: New file. + + * w3m-om.el: New file. + + * w3m-search.el (w3m-search-default-coding-system): Changed customize + type. + (w3m-search-engine-alist): Ditto. + + * w3m-weather.el: Fix comments. + +2001-03-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el: Use the copy of info-vector for newly generated coding- + systems; use `eval-when-compile' separately from "cl" for loading + "cl-macs". + +2001-03-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Split files. + * w3m-search.el: New file. + * w3m-weather.el: New file. + +2001-03-13 Katsumi Yamaoka <yamaoka@jpl.org> + + * w3m.el (w3m-rendering-region): Make no exceptions of Mule 2 in + coding-systems. + (w3m-download): Ditto. + (w3m-local-retrieve): Ditto. + (w3m-exec-process): Ditto. + (w3m-arrived-file-coding-system): Unified the default value to + `euc-japan'. + (w3m-bookmark-file-coding-system): Ditto. + (w3m-default-url-coding-system): Ditto. + (w3m-output-coding-system): Ditto. + (w3m-coding-system): Ditto. + (w3m-input-coding-system): Unified the default value to `iso-2022-jp'. + (TopLevel): Generate some coding-systems by copying for Mule 2. + (TopLevel): Load "cl-macs" if the macro `dolist' has been defined + incorrectly. + +2001-03-13 Masatake YAMATO <jet@gyve.org> + + * w3m.el (w3m-url-yrotsih): New variable. + (w3m-view-previous-page): Set w3m-url-yrotsih. Use while/cdr instead + of nthcdr. + (w3m-view-next-page): New function. + (w3m-mode-map): Bind w3m-view-next-page. + (w3m-mode): Added w3m-view-next-page and w3m-view-parent-page to the + function document. + (w3m-reload-this-page): Guard w3m-url-yrotsih from resetting. + (w3m-exec): Reset yrotsih. + +2001-03-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-content-type-alist): [UNIX] Change method for text/html + type. + +2001-03-13 Akihiro Arisawa <ari@mbf.sphere.ne.jp>, + TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Require `poem' when Mule 2.3 is running. Bind keywods + `:case-ignore' and `:integer' for Mule 2.3. + (coding-system-category): New alias when Mule 2.3 is running. + (w3m-arrived-file-coding-system): Fix typo. + (w3m-entity-alist): Fix for Mule 2.3. + (w3m-form-method, w3m-form-action, w3m-form-plist, w3m-form-put, + w3m-form-get): Convert to old style of macro definition. + (w3m-fontify): Removed code to decode w3m-specific characters. + (w3m-decode-extended-characters): New function. + (w3m-rendering-region): Use an unibyte temporary buffer and call + `w3m-decode-extended-characters'. + +2001-03-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-exec-process): Return process exit status. + (w3m-w3m-get-header): Check the return value of w3m-exec-process. + (w3m-w3m-check-header): Check the return value of w3m-w3m-get-header. + +2001-03-13 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-exec-process): Check exit status and cause an error if it + is not zero. + +2001-03-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-executable-type): Use (eq system-type 'windows-nt) for + determination of win32. + (w3m-content-type-alist): Ditto. + +2001-03-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-which-command): Support executable suffix, `.exe' for + win32. + +2001-03-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-content-type-alist): Add 'use fiber.exe' alist for + Windows. + (w3m-w32-browser-with-fiber): New funciton. + +2001-03-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-which-command): New function. + (w3m-external-view): When no viewing method is defined, call + `w3m-download' as alternative method. Added check which command exists + with `w3m-which-command'. + +2001-03-12 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-display-inline-image-status): Define as buffer local + variable. + (w3m-image-type): New function. + (w3m-image-type-available-p): Ditto. + (w3m-create-image): Check image type by `w3m-image-type-available-p'. + (w3m-exec): Accept all content-types in `w3m-retrieve'; Make an image + only page, if the image can be displayed inline; Call + `w3m-external-view' if the content-type of retrieved content is not + text nor image. + +2001-03-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-parent-page): Add a postfix '/' to parent-url. + +2001-03-12 Takaaki MORIYAMA <taka@airlab.cs.ritsumei.ac.jp> + + * w3m.el (w3m-extended-charcters-table): Add '\x80'. + +2001-03-12 Masatake YAMATO <masata-y@is.aist-nara.ac.jp> + + * w3m.el (w3m-view-parent-page): New command. + (w3m-mode-map): Add `w3m-view-parent-page'. + +2001-03-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el (mime-w3m-message-structure): Make variable buffer local + at top leve. + +2001-03-10 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-entity-alist): Eval at compile time.; Add character + entity references for ISO 8859-1 characters. + +2001-03-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-entity-regexp): New constant. + (w3m-fontify): Use `w3m-entity-regexp'. + (w3m-entity-value): Use defsubst, and fix typo. + (w3m-decode-anchor-string): New function. + (w3m-fontify-anchors): Decode `&' exists in URL string. + +2001-03-09 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-create-image) [EMACS21,XEMACS]: Guard against error. + + * mew-w3m.el (mew-w3m-auto-insert-image): New variable. + (mew-mime-text/html-w3m): Bind 'w3m-display-inline-image' with + 'mew-w3m-auto-insert-image'. + (mew-w3m-cid-retrieve): New function. Fix wrong guess. + +2001-03-09 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-mode-map): Add `w3m-close-window', `w3m-view-source', + `w3m-view-header', and `w3m-history'. Keybind of `w3m-quit' is + changed. + (w3m-close-window, w3m-about-source, w3m-view-source, w3m-about-header, + w3m-view-header, w3m-about-history, w3m-history): New functions. + + * mime-w3m.el (mime-put-keymap-region): Removed. + (mime-w3m-save-background-color): Old name is + `mime-save-background-color'. + (mime-w3m-mode-map): Add workaround for `w3m-close-window', + `w3m-view-source', `w3m-view-header', and `w3m-history'. + +2001-03-09 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * w3m.el (w3m-cid-retrieve-function-alist): New variable. + (w3m-retrieve): Add support for URLs which has `cid:' prefix. + + * mime-w3m.el: Always require `w3m'. Require `cl' when compiling. Set + `w3m-cid-retrieve-function-alist'. + (mime-w3m-message-structure): New variable. + (mime-w3m-preview-text/html): Set `mime-w3m-message-structure'. + (mime-w3m-cid-retrieve): New function. + +2001-03-09 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-toggle-inline-images): Eliminated needless local + variable. + (toplevel): Encloses old emacs judgement with eval-and-compile; Define + `find-coding-system' using `w3m-static-if'. + +2001-03-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: All w3m-backlog-* symbols are renamed into w3m-cache-*, and + coupling of retrieve module and cache module are cleand up. + (w3m-keep-cache-size): Old name is `w3m-keep-backlog'. + (w3m-cache-buffer, w3m-cache-articles, w3m-cache-hashtb, + w3m-cache-setup, w3m-cache-shutdown, w3m-cache-contents, + w3m-cache-request-contents): These symbols are renamed. + (w3m-cache-header, w3m-cache-request-header): New function. + (w3m-work-buffer-list): New variable. + (w3m-get-buffer-create): New function. + (w3m-with-work-buffer): New macro. + (w3m-kill-all-buffer): New function. + (w3m-create-image, w3m-local-retrieve): Use `w3m-with-work-buffer' + instead of `with-current-buffer'. + (w3m-arrived-setup): Set `w3m-input-url-history' when its value is nil. + (w3m-arrived-shutdown): More strict error check. This function is + added to `kill-emacs-hook'. + (w3m-w3m-get-header): New function. + (w3m-w3m-check-header): Use `w3m-w3m-get-header'. + (w3m-w3m-retrieve): Clean up code. + (w3m-download, w3m-exec): More strict error check. + (w3m-content-type): New optional argument `no-cache' is added. + (w3m-alive-p): New function. + (w3m-quit): Use `w3m-alive-p'. + +2001-03-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-local-retrieve): Bind 'auto conversion variables' to nil + when insert file with binary . + +2001-03-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-insert-image): Eliminated needless local variable. + (w3m-remove-image) [XEmacs]: Remove images at `end' too. + (w3m-fontify-images): Set `w3m-image-redundant' property if "img_alt" + string is upper case. + (w3m-toggle-inline-images): Fixed docstring; Insert and remove dummy + string if alt string has `w3m-image-redundant' property. + +2001-03-08 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-fontify): Allow '_' char for element name. + +2001-03-08 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-display-inline-image-status): New variable. + (w3m-image-type-alist): Define as constant. + (w3m-anchor): Moved position. + (w3m-image): Ditto. + (w3m-action): Ditto. + (w3m-create-image): Added argument `no-cache'. + (w3m-remove-image): New function. + (w3m-fontify-images): Don't display inline image here. + (w3m-toggle-inline-images): New function. + (w3m-mode-map): Bind 't' to `w3m-toggle-inline-images'. + (w3m-goto-url): Call `w3m-toggle-inline-images'; Set + `w3m-display-inline-image-status'. + (w3m-region): Ditto. + +2001-03-08 Akihiro Arisawa <ari@mbf.sphere.ne.jp> + + * mime-w3m.el (mime-w3m-preview-text/html): Use + `mime-entity-fetch-field' instead of `mime-w3m-get-xref'. + (mime-w3m-get-xref): Removed. + +2001-03-07 Keisuke Nishida <kxn30@po.cwru.edu> + + * w3m.el (w3m-search-engine-alist): Added "rpmfind". + (w3m-fontify-anchors): Treat single quotes (') as quotation marks. + +2001-03-08 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Backlog module is separated from front-end functions and code + to access the list of arrived URLs is put in order. + (w3m-arrived-file): Renamed from `w3m-arrived-urls-file'. + (w3m-arrived-anchor-list): Removed variable. + (w3m-arrived-list-load, w3m-arrived-list-save, w3m-arrived-list-add, + w3m-save-position, w3m-restore-position): Removed functions. + (w3m-arrived-db-size): New constant. + (w3m-arrived-db, w3m-arrived-seq): New variables. + (w3m-arrived-p, w3m-arrived-add, w3m-arrived-setup, + w3m-arrived-shutdown, w3m-arrived-store-position, + w3m-arrived-restore-position): New functions. + (w3m-input-url): Follow changes. + (w3m-view-previous-page): Ditto. + (w3m-view-previous-point): Ditto. + (w3m-quit): Ditto. + (w3m-goto-url): Ditto. + (w3m-create-image): Clean up codes. + +2001-03-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-current-url-with-external-browser): Fix typo when + browse current URL. + +2001-03-07 Yuuichi Teranishi <teranisi@gohome.org> + + * w3m.el (w3m-create-image) [XEmacs]: Retrieve header to determine + image type when `w3m-local-content-type' failed. + +2001-03-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-arrived-file-coding-system): Default value is changed to + avoid unknown coding system error on XEmacs. + (w3m-input-url): Changed for old style `completing-read'. + +2001-03-07 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-download): Bind 'auto conversion variables' to nil. + (w3m-w3m-check-header): Fix search 'HTTP/1.[01] 200' method. + (inline-image-features): Patch from Yuuichi Teranishi san + <teranisi@gohome.org> at [emacs-w3m:00103]. + +2001-03-07 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el: Renamed mime-w3m-preview-text/html from + w3m-mime-preview-text/html. Check of user setting is required. + (mime-w3m-mode-map): New variable. + (mime-w3m-get-xref): New function. + (mime-w3m-view-this-url): Ditto. + (mime-w3m-mouse-view-this-url): Ditto. + (mime-w3m-preview-text/html): Use `mime-w3m-mode-map' insted of + `w3m-mode-map'. Refer Xref: header to set `w3m-current-url'. + (mime-put-keymap-region): Define with `defmacro' instead of + `defmacro-maybe'. + (mime-save-background-color): Ditto. + + * w3m.el (w3m-exec-filter): Improved code to process prompt string. + +2001-03-06 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-exec-filter): Delete Prompt string with process output + buffer. + (w3m-w3m-check-header): Check 'HTTP/1.[01] 200' for valid + 'content-length'. + (w3m-w3m-retrieve): Cygwin binary data support. Remove Prompt handling. + +2001-03-06 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (emacs-w3m-version): New constant. + (find-coding-system): Removed duplicated definition. + (w3m-backlog-remove-oldest): Simplify. + (w3m-search): Fix typo in function document. + +2001-03-05 Keisuke Nishida <kxn30@po.cwru.edu> + + * w3m.el (w3m-anchor, w3m-image, w3m-action): Use defsubst. + +2001-03-05 Keisuke Nishida <kxn30@po.cwru.edu> + + * w3m.el (and-let*): Removed + (w3m-save-this-url): Updated. + +2001-03-06 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-goto-previous-anchor): Fix mistake on merging w3-anchor + patch. Cursor should go to beginning of anchor previous. + (w3m-mode-map): Assign Shift-TAB key with w3m-previous-anchor. + +2001-03-06 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (TOP): No need to load cl-macs explicitly. + (w3m-charset-coding-system-alist): Do not use doloop in defcustom + because it is not expanded in compile time. + +2001-03-05 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el: apply patch from Keisuke Nishida. URL is hold in text + property as already expanded. Some utility functions (w3m-anchor, + w3m-image, w3m-action) is defined and used. + (and-let*): New macro. + (w3m-fontify-anchors): Hold expanded url in text property. + (w3m-fontify-images): Likewise. + (w3m-expand-url): Save matching data. Match pattern bug fix (by + gotoh). + (w3m-anchor): New function. + (w3m-image): New function. + (w3m-action): New function. (added by gotoh) + (w3m-view-this-url): Use new functions to extract text prop. + (w3m-mouse-view-this-url): Likewise. + (w3m-download-this-url): Likewise. + (w3m-print-this-url): Likewise. + (w3m-save-this-url): Likewise. + (w3m-goto-next-anchor): Likewise, and do not expand url. + (w3m-external-view): Remove 1st arg CONTENT-TYPE. + (w3m-next-anchor): Use and-let* macro and do not expand url. + (w3m-goto-previous-anchor): Use utility functions. + (w3m-bookmark-add-this-url): Likewise and refine. + (w3m-url-encode-string): Do not escape ':' and '/'. + +2001-03-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-retrieve): Add support for URLs which has `about:' + prefix. + (w3m-content-type): Likewise. + (w3m-about, w3m-about-weather, w3m-weather, w3m-weather-remove-headers, + w3m-weather-remove-footers, w3m-weather-remove-weather-images, + w3m-weather-remove-washing-images, w3m-weather-remove-futon-images, + w3m-weather-remove-week-weather-images, w3m-weather-insert-title): New + function. + (w3m-weather-url-alist): New associative list of AREA vs. URL. + (w3m-weather-default-area): New customize variable. + (w3m-weather-default-area): Ditto. + (w3m-entity-value): When unknown entity is specified, return original + string instead of null string. + +2001-03-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-url-encode-string): New function. + (w3m-escape-query-string): Use `w3m-url-encode-string'. + (w3m-form-make-get-string): Ditto. + (w3m-message): Changed to support Emacs-19. + (w3m-parse-attributes): Ditto. + (w3m-fontify): Refer `mc-flag' when mule is used. + +2001-03-05 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-command-arguments): Make it as system constants user not + for user variable. User need not change this value. "-S" options is + removed because it doesn't work for non Text/Plain object. + (w3m-default-url-coding-system): New variable. + (w3m-search-engine-alist): Change format to hold encoding type for + query string. And add some engines. + (w3m-fill-column): Born again variable. Positive value is for fixed + column, negative value is for fitting frame width. + (w3m-mode): Add key description of "<" and ">" in doc-string. + (w3m-escape-query-string): Add 2nd argument for coding system. + (w3m-search): Adapt to new format of w3m-search-engine-alist. + +2001-03-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-sub-list): Guard error for XEmacs (N must count from + zero). + +2001-03-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-search): Simplify. + (w3m-do-search): Removed. + +2001-03-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Merge form branch to main trunk. + +2001-03-05 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-form-new): Changed w3m-form structure. + (w3m-form-p): Likewise. + (w3m-form-put): Likewise. + (w3m-form-get): Likewise. + (w3m-form-plist): New macro. + (w3m-form-symbol): Removed. + (w3m-url-encode): Ditto. + (w3m-form-make-get-string): Follow change of w3m-form and use + w3m-escape-query-string instead of w3m-url-encode. + (w3m-parse-attributes): New macro. + (w3m-form-parse-region): Use w3m-parse-attributes. + (w3m-fontify-forms): Use w3m-parse-attributes. + +2001-03-05 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-content-type-alist): Add some content-type. + (w3m-w3m-retrieve): Change bind variables method to 'let*'. + +2001-03-05 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-command-arguments): Add "-S" option for w3m. + (w3m-search-engine-alist): Add new spec for google with JA lang. + (w3m-current-url): Make variable buffer local at top leve. + (w3m-current-title): Likewise. + (w3m-url-history): Likewise. + (w3m-process-temp-file): Likewise. + (w3m-rendering-region): Do not make local variable for the reason + above. + (w3m-exec): Likewise. + (w3m-external-view): Likewise. + (w3m-goto-next-anchor): Bug fix. + (w3m-goto-previous-anchor): Bug fix. + (w3m-escape-query-string): Bug: Escape SPC char as "+" not "%20". + +2001-03-04 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-form-string-regexp): Add `eval-and-compile' to suprress + byte-compile error. + (w3m-form-p): Fix typo. + (w3m-mode-map): Swapped keybindings of w3m-scroll-left and + w3m-scroll-right to fit w3m's keybindings. + +2001-03-04 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el: Add Keisuke Nishida as author. + (TOP): Use thingatpt instead of ffap. + (w3m-fill-column): Obsoleted. Determine in dynamic. + (w3m-command-arguments): Specify as lambda + (w3m-command-arguments): Change initial value. + (w3m-search-engine-alist): Change spec more simple. + (w3m-input-url): Use thing-at-point. + (w3m-do-search): Adapt to new w3m-search-engine-alist spec. + (w3m-search): Change variable name and refine codes. + + * w3m.el: (w3m-entity-value): Allow immediate entity (&#nnn). + (w3m-fontify): Likewise. + +2001-03-04 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-delete-duplicated-empty-lines): New variable. + (w3m-search-engine-alist): New variable. + (w3m-default-search-engine): New variable. + (w3m-horizontal-scroll-columns): New variable. + (w3m-fontify): Change regexp to allow non-double-quoted string for href + attribute value of anchor tag. Remove duplicated empty lines for + compact view. + (w3m-mode-map): Add keymap "<" and ">" to scroll horizontaly. + (w3m-mode): Truncate lines. + (w3m-scroll-left): New interactive function. + (w3m-scroll-right): New interactive function. + (w3m-escape-query-string): New function. + (w3m-do-search): New function. + (w3m-search): New interactive function for searching word with various + search engine. + +2001-03-04 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Start implementation of code to process <form> tag. + (w3m-form-face): New face. + (w3m-current-forms): New internal variable. + (w3m-form-string-regexp): New internal constant. + (w3m-form-new, w3m-form-p, w3m-form-symbol, w3m-form-method, + w3m-form-action, w3m-form-put, w3m-form-get, w3m-url-encode, + w3m-form-make-get-string, w3m-form-parse-region, w3m-fontify-forms, + w3m-form-replace, w3m-form-input, w3m-form-submit, w3m-form-real-reset, + w3m-form-reset, w3m-fontify-bold, w3m-fontify-underline, + w3m-fontify-images): New function. + (w3m-fontify): Use new functions. + (w3m-mode-map): Add scroll-right and scroll-left. + (w3m-mode): Set t to `truncate-line'. + +2001-03-04 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el: Patch from Keisuke Nishida <kxn30@po.cwru.edu>. + (w3m-print-this-url): Do not save URL, print only. + (w3m-save-this-url): New function. Print and save URL under cursor. + (w3m-goto-next-anchor): New function. + (w3m-next-anchor): Move to top anchor from bottom. Print URL after + move. + (w3m-goto-previous-anchor): New function. + (w3m-previous-anchor): Move to bottom anchor from top. Print URL after + move. + +2001-03-04 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el: Patch from Keisuke Nishida <kxn30@po.cwru.edu>. + (TOP): Require ffap.el. + (w3m-input-url): Prompt with default URL, and use URL under cursor as + default if not specified. + (w3m): Do not specify default url for w3m-input-url. + +2001-03-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-backlog-enter): Overwrite backlog data when specified URL + is duplicated. + (w3m-home-page): Changed official emacs-w3m page's address to + namazu.org. + +2001-03-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Renamed w3m-http-* to w3m-w3m-* in order to prepare name + space of symbols processing HTTP protocol directly, and fix for cookie. + (w3m-w3m-check-header): Renamed from `w3m-http-check-header'. + (w3m-w3m-retrieve): Renamed from `w3m-http-retrieve' and added code to + remove cookies. + (w3m-retrieve): Follow changes of fuction name. + (w3m-download): Likewise and changed argument spec. + (w3m-exec): Changed argument spec. + (w3m-goto-url): Changed reload scheme, + (w3m-fontify): Move point to the top of the buffer before delete <?xml + ... ?> tag. + +2001-03-02 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (TOP): Changed code to detect XEmacs and add to define + `find-coding-system'. + (w3m-backlog-setup): Changed caching data format. + (w3m-backlog-enter): Ditto and changed argument spec. + (w3m-backlog-request): Ditto and changed spec of return value. + (w3m-http-retrieve): Access backlog in this function and changed + argument spec. + (w3m-retrieve): Changed argument spec. + (w3m-exec): Clean up and chaned spec of return value. + (w3m-goto-url): Follow changes in `w3m-exec'. + (w3m-decode-buffer): Clean up. + (w3m-process-temp-file): New variable to suppress byte-compile warning. + (w3m-external-view): Use w3m-process-temp-file to suppress byte-compile + warning. + (w3m): Change `mode-line-buffer-identification'. + +2001-03-02 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-home-page): Initialize as URL. + +2001-03-02 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el: Correcting wrong use of cygwin type filename usage, using + dolist macro, adding handling codes html character entities, correct + bug of w3m-view-bookmark on win32 environment, fixing some small bugs, + etc. + (w3m-url-to-file-name): New function. + (w3m-expand-file-name-as-url): Renamed from w3m-expand-file-name. + (w3m-bookmark-file): Initialize as native filename format. + (w3m-arrived-urls-file): Likewise. + (w3m-charset-coding-system-alist): Use dolist macro. + (w3m-entity-alist): New constant. + (w3m-entity-db): New variable. + (w3m-entity-db-size): New variable. + (w3m-entity-db-setup): New function. + (w3m-entity-value): New function + (w3m-fontify): Refine html character entity decoding. Use dolist + macro. Some bug fix. + (w3m-exec-get-user): Simplify using dolist macro. + (w3m-bookmark-save): Likewise. + (w3m-local-content-type): Likewise. + (w3m-local-retrieve): Fix filename handling considering cygwin + convention by using w3m-local-file-name function. + (w3m-http-retrieve): Buf fix. + (w3m-rendering-region): Bug fix, use w3m-current-url. + (w3m-view-bookmark): Use w3m to do initialize on interactive call. + (w3m-find-file): Fix for renamed function. + +2001-03-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * Merge changes on `url' branch to main trunk. + +2001-03-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-home-page): Changed to official w3m.el page. + (w3m-anchor-face): Changed default face in dark backgraound. + (w3m-arrived-anchor-face): Ditto. + (w3m-download): Fix typo. + (w3m-content-type-alist): Accept .png file. + (w3m-external-view): Fix typo. + (w3m-view-image): Fix. + +2001-03-01 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * mew-w3m.el: New file to use w3m with Mew. + +2001-03-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * mime-w3m.el: New file to use w3m with SEMI. + + * w3m.el (w3m-message): New function. + (w3m-verbose): New variable. + (w3m-process-message): Ditto. + (w3m-process-url): Removed. + (w3m-exec-process): Add code to show progress status. + (w3m-exec-filter): Fix prompt bug and clean up codes. + (w3m-retrieve): Changed arguments spec. + (w3m-local-retrieve): Ditto. + (w3m-http-retrieve): Ditto. + (w3m-pretty-length): New function. + (w3m-rendering-region): Add code to show progress status. + +2001-03-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-http-retrieve): Add adhoc fragment to avoid new-line + replacement. + (w3m-decode-buffer): Renamed from w3m-html-decode-buffer. + +2001-02-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-content-type-alist): Accept .htm as text/html. + (w3m-backlog-enter): Add code to memory w3m-current-title. + (w3m-backlog-request): Resume w3m-current-title from backlog data. + (w3m-html-decode-buffer): Change arguments spec. + (w3m-rendering-region): Removed code to set w3m-current-url. + (w3m-exec): Fix bug of proecessing text/plain files and changed data + format to preserve in backlog. + +2001-02-28 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el: Support XEmacs using APEL. + (w3m-fontify): Delete <?XML ... ?> tag for XHTML page. + (w3m-input-url): Do not use 7th arg of completing-read for XEmacs + support. + (w3m-bookmark-save): Check bookmark file is writable. + +2001-02-28 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-bookmark-add): Fix problem of adding bookmark first time. + +2001-02-28 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Reconstructed drastically and removed w3 depended codes. + +2001-02-28 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-executable-type): New variable. + (w3m-cygwin-path): New function. + (w3m-region): New function. + +2001-02-26 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-fontify): Add code to decode w3m-specific extended + charcters. + (w3m-extended-charcters-table): New constant. + +2001-02-08 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-async-exec): New customizable variable. + (w3m-exec-process): Use 'w3m-async-exec' instead of 'w3m-process-type'. + +2001-02-07 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el: Fixed small and thoughtless bugs... + (w3m-bookmark-file-modified-p): Bug fix. + (w3m-bookmark-save): Bug fix. Don't forget time stamp updating. + (w3m-bookmark-add): Bug fix. Function name miss-typing. + +2001-02-07 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el: Add bookmark operations. This feature is very ad-hoc. + Support loading w3m's bookmark file into internal bookmark data, adding + new entry interactively, and saving data as w3m's bookmark file format. + (w3m-bookmark-file-coding-system): New user varible. + (w3m-bookmark-data): New internal variable. + (w3m-bookmark-file-time-stamp): ditto. + (w3m-bookmark-section-history): ditto. + (w3m-bookmark-title-history): ditto. + (w3m-mode-map): Add bookmark operation functions to mode map. + (w3m-bookmark-file-modified-p): New function. + (w3m-bookmark-parse): ditto. + (w3m-bookmark-load): ditto. + (w3m-bookmark-save): ditto. + (w3m-bookmark-data-prepare): ditto. + (w3m-bookmark-add): ditto. + (w3m-bookmark-add-this-url): ditto. + (w3m-bookmark-add-current-url): ditto. + +2000-12-12 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-sub-list, w3m-load-list, w3m-save-list): New utility + function. + (w3m-arrived-list-load): Refine and move out common code into + w3m-load-list. + (w3m-arrived-list-save): Refine and move out common code into + w3m-save-list and w3m-sub-list. (Previous code had side effect of + nreverse). + +2000-12-10 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * makepatch.pl, Makefile, .cvsignore: New files. + +2000-10-26 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-this-url): Chang optinal argument 'arg'. + (w3m-next-anchor, w3m-previous-anchor): Bind 'pos'. + (w3m-fontify): Put mouse-face at anchor and image property. + (w3m-mouse-view-this-url): Handling 'w3m-image property. + +2000-10-20 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-process-type): Change default valule to 'start-process. + (w3m-process-user-counter): New buffer local variable. + (w3m-exec-get-user): New funciton, get user and passwd from + w3m-arrived-user-list. + (w3m-exec-filter): Use w3m-exec-get-user(). + +2000-10-18 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-view-previous-point): New function. + (w3m-expand-url): If BASE is nil, it set "". + (w3m-download-this-url): w3m-refontify-anchor() exec when finished + download. + +2000-10-16 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-arrived-ct-file, w3m-arrived-file-cs, + w3m-always-html-url-regex): New variables. + (w3m-process-type): Change name from w3m-exec-process-type. + (w3m-refontify-anchor): New funcition. + (w3m-exec): Pre-check content-type. + (w3m-exec-w3m-ctcheck): New funcition, check context-type for URL. + (w3m-exec-w3m): New funcion, execute w3m. + (w3m-exec-ftp): New function, execute dired-other-window() or + copy-file(), if URL is 'ftp://'. + (w3m-convert-ftp-to-emacsen): Change 'ftp://' to '/user@host:/' from + elisp ML. + (w3m-download-this-url, w3m-save-image, w3-view-image): Use w3 + features. + +2000-10-12 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (top-level): Add authors. + (w3m-expand-url): Check relative URL first. + (w3m-fontify): Add original text properties when replace 'escaped + character'. + +2000-10-11 Hideyuki SHIRAI <shirai@meadowy.org> + + * w3m.el (w3m-mailto-url-function, w3m-use-cygdrive, + w3m-default-save-dir, w3m-arrived-list-file, w3m-arrived-list-keep, + w3m-arrived-anchor-face, w3m-exec-process-type, + w3m-process-connection-type, w3m-arrived-anchor-list): New user + custumize variables. + (w3m-mode): Change doc-string for key binding. + (w3m-arrived-list-add, w3m-arrived-list-load, w3m-arrived-list-save): + New functions for handling arrived anchor. + (w3m-fontify): Add arrived anchor face. + (w3m-exec-process, w3m-exec-filter, w3m-exec-sentinel): New functions + for asynchronous w3m execution. + (w3m-find-file, w3m-read-file-name, w3m-read-passwd): New miscellaneous + functions. + (w3m-expand-file-name): Support old cygwin. + (w3m-view-current-url-with-external-browser): If w3m-browser-command is + function, funcall it. + (w3m-mailto-url): If w3m-mailto-url-function is function, funcall it. + (w3m-mode-map): If running xemacs, use (button2) instead of (mouse-2). + +2000-09-21 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m): Cancel last change, use switch-to-buffer again. + +2000-09-20 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m): Do not switch buffer if w3m window already exists. + +2000-09-20 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Add declaration of dependency on APEL. + (w3m-quit): When other w3m buffers exist, don't destruct cache. + (w3m-browse-url): New function. + +2000-09-20 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-command-arguments): Remove option -m, that's not good for + bookmark / local file handling. + +2000-09-19 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-command-arguments): Add -m option explicitly. + (w3m-exec): Ad-hoc change to view .txt object. It's temporary + fix. Should we consider type? w3m option -dump_head may help us. + (w3m-exec): Get title and remove both format <title_alt> and <title>. + (w3m-view-this-url): Force reloading by prefix. + (w3m-view-current-url-with-external-browser): Works correctly. + (w3m-print-current-url): Push url to kill king to paste later. + (w3m-print-this-url): ditto. + (w3m-mailto-url): Use rfc2368.el instead of mailto.el. + (w3m-goto-url): Add 2nd argument RELOAD to withdraw data cached on + emacs. + (w3m-reload-this-page): Simplified by using new w3m-goto-url. + (w3m): Set mode-line-buffer-identification after changing major mode + because it overwrite that variable. + +2000-09-19 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el (w3m-fontify): Add code to handle irregular ordered elements + of anchor tags. + (w3m-mailto-url): Adopt for Emacs-19. + (w3m-input-url): Call `w3m-backlog-setup' to initialize + `w3m-backlog-hashtb'. + +2000-09-19 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m): Sorry, over paren. + +2000-09-18 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-exec): Get title correctly within -halfdump format of + w3m. + (w3m-mouse-view-this-url): New function to view page by clicking mouse + middle button. + (w3m-mode-map): Assign mouse middle button to view page. + (w3m): Change mode-line spec to show title of current page. + +2000-09-18 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Add authors. + +2000-09-18 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m-input-url): Enter url with completion. Candidates are + visited url kept in w3m-backlog-hashtb. + (w3m-backlog-setup): Change hash size as prime number and initialized + with value 0 for obarray. + (w3m-backlog-remove): Remove unused 2nd arg NUMBER and remove when + block to check NUMBER. + (w3m-exec): Show message "Loading..." while loading. + (w3m-save-position): New function to keep display position in Emacs + window into hash symbol, but I think this is not best way. + (w3m-restore-position): New function to restore display position. + (w3m-view-previous-page): Restore display position. + (w3m-expand-url): Canonicalize url, ex. "http://www.host.org" to + "http://www.host.org/". Change regexp to allow "mailto:" protocol. + Remove drive letter as side-effect using expand-file-name to expand url + for Win32 emacen. + (w3m-expand-file-name): New function to alternates expand-file-name + function with convert drive letter prefixed path to cygwin path. + i.e. c:/users/home to /cygdrive/c/users/home + (w3m-view-bookmark): Expand bookmark filename as cygwin path format to + pass to w3m. + (w3m-mode-map): Add new key binding 'B' to back to previous page. Add + new key binding 'R' to force reloading current page. + (w3m-mailto-url): New function to support mailto: protocol. It use + rfc2368.el if available. + (w3m-goto-url): Ad-hoc support mailto: protocol. We should consider + more... + (w3m-reload-this-page): New function to reload current page. + +2000-09-18 Shun-ichi GOTO <gotoh@taiyo.co.jp> + + * w3m.el (w3m): Add 2nd arguemnt to use with browse url. This is patch + from Satoru Takabayashi <satoru-t@is.aist-nara.ac.jp> in ELF-ML, Seq# + 875. + (w3m-fontify): Change regexp for <a ...> tag to allow newline in + between attributes. This is patch from Satoru Takabayashi + <satoru-t@is.aist-nara.ac.jp> in ELF-ML, Seq# 876. + (w3m-fontify): Allow un-ended tag for name attribute, is it w3m bug?). + This is Patch from Satoru Takabayashi <satoru-t@is.aist-nara.ac.jp> in + ELF-ML, Seq# 876. + +2000-07-13 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Added handling of name anchors. Add comments. + +2000-07-12 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Improved to handle multi buffer. Fix broken cache and order + of fontify. + +2000-07-01 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: Handle &-sequence. Add history and cache. + +2000-06-25 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + + * w3m.el: New file. + + +Local Variables: +coding: iso-2022-7bit +fill-column: 79 +indent-tabs-mode: t +End: diff --git a/share/emacs/site-lisp/w3m/mew-w3m.el b/share/emacs/site-lisp/w3m/mew-w3m.el new file mode 100644 index 00000000000..ed24004d188 --- /dev/null +++ b/share/emacs/site-lisp/w3m/mew-w3m.el @@ -0,0 +1,474 @@ +;; mew-w3m.el --- View Text/Html content with w3m in Mew + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2008, 2009, 2010 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Author: Shun-ichi GOTO <gotoh@taiyo.co.jp>, +;; Hideyuki SHIRAI <shirai@meadowy.org> +;; Created: Wed Feb 28 03:31:00 2001 +;; Version: $Revision: 1.69 $ +;; Keywords: Mew, mail, w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This package is for viewing formatted (rendered) Text/Html content +;; in Mew's message buffer. + +;;; Installation: + +;; (1) Simply load this file and add followings in your ~/.mew file. +;; +;; (require 'mew-w3m) +;; +;; (2) And you can use keymap of w3m-mode as mew-w3m-minor-mode. +;; To activate this feaeture, add followings also: +;; +;; (setq mew-use-w3m-minor-mode t) +;; (add-hook 'mew-message-hook 'mew-w3m-minor-mode-setter) +;; +;; (3) If you use mew-1.95b118 or later on which Emacs 21, 22 or XEmacs, +;; can display the images in the Text/Html message. +;; To activate this feaeture, add following in your ~/.mew file. +;; +;; (define-key mew-summary-mode-map "T" 'mew-w3m-view-inline-image) +;; +;; Press "T": Toggle the visibility of the images included its message only. +;; Press "C-uT": Display the all images included its Text/Html part." +;; +;; (4) You can use emacs-w3m to fetch and/or browse +;; `external-body with URL access'. To activate this feaeture, +;; add followings also: +;; +;; (setq mew-ext-url-alist +;; '(("^application/" "Fetch by emacs-w3m" mew-w3m-ext-url-fetch nil) +;; (t "Browse by emacs-w3m" mew-w3m-ext-url-show nil))) +;; or +;; (setq mew-ext-url-alist +;; '((t "Browse by emacs-w3m" mew-w3m-ext-url-show nil))) +;; + +;;; Usage: + +;; There's nothing special. Browse messages in usual way. +;; On viewing Text/Html file, rendered text is appeared in message +;; buffer instead of usual "HTML" banner. +;; C-c C-e operation is also allowed to view with external browser. +;; +;; If mew-use-w3m-minor-mode is t, key operations of w3m-mode is +;; allowed (as minor-mode-map) and jump links in message buffer. +;; NOTE: This feature is not complete. You may confuse. +;; +;; + +;;; Code: + +(require 'mew) +(require 'w3m) +(eval-when-compile (require 'cl)) + +;;; initializer for mew +(defgroup mew-w3m nil + "mew-w3m - Inline HTML rendering extension of Mew" + :group 'w3m) + +(defcustom mew-use-w3m-minor-mode nil + "*Use w3m minor mode in message buffer. +Non-nil means that the minor mode whose keymap contains keys binded to +some emacs-w3m commands are activated in message buffer, when viewing +Text/Html contents." + :group 'mew-w3m + :type 'boolean) + +(defcustom mew-w3m-auto-insert-image nil + "*If non-nil, images are inserted automatically in Multipart/Related message. +This variable is effective only in XEmacs, Emacs 21 and Emacs 22." + :group 'mew-w3m + :type 'boolean) + +(defcustom mew-w3m-cid-retrieve-hook nil + "*Hook run after cid retrieved" + :group 'mew-w3m + :type 'hook) + +(defcustom mew-w3m-region-cite-mark "> " + "*Method of converting `blockquote'." + :group 'mew-w3m + :type '(choice (const :tag "Use Indent" nil) + (const :tag "Use Cite Mark \"> \"" "> ") + (string :tag "Use Other Mark"))) + +(defconst mew-w3m-safe-url-regexp "\\`cid:") + +;; Avoid bytecompile error and warnings. +(eval-when-compile + (defvar mew-use-text/html) + (unless (fboundp 'mew-current-get-fld) + (autoload 'mew-coding-system-p "mew") + (autoload 'mew-current-get-fld "mew") + (autoload 'mew-current-get-msg "mew") + (autoload 'mew-syntax-get-entry-by-cid "mew") + (defun mew-cache-hit (&rest args) ()))) + +(defmacro mew-w3m-add-text-properties (props) + `(add-text-properties (point-min) + (min (1+ (point-min)) (point-max)) + ,props)) + +(defun mew-w3m-minor-mode-setter () + "Check message buffer and activate w3m-minor-mode." + (w3m-minor-mode (or (and (get-text-property (point-min) 'w3m) + mew-use-w3m-minor-mode) + 0))) + +(defvar mew-w3m-use-safe-url-regexp t) + +(defun mew-w3m-view-inline-image (&optional allimage) + "Display the images of Text/Html part. +\\<mew-summary-mode-map> +'\\[mew-w3m-view-inline-image]' Toggle display the images included its message only. +'\\[universal-argument]\\[mew-w3m-view-inline-image]' Display the all images included its Text/Html part." + (interactive "P") + (mew-summary-msg-or-part + (if allimage + (let ((mew-use-text/html t) + (mew-w3m-auto-insert-image t) + (mew-w3m-use-safe-url-regexp nil)) + (mew-summary-display 'force)) + (with-current-buffer (mew-buffer-message) + (let* ((image (get-text-property (point-min) 'w3m-images)) + (w3m-display-inline-images image) + (w3m-safe-url-regexp (when mew-w3m-use-safe-url-regexp + mew-w3m-safe-url-regexp))) + (w3m-toggle-inline-images) + (mew-elet + (mew-w3m-add-text-properties `(w3m-images ,(not image))) + (set-buffer-modified-p nil))))))) + +(defun mew-w3m-region (start end &optional url charset) + "w3m-region with inserting the cite mark." + (if (null mew-w3m-region-cite-mark) + (w3m-region start end url charset) + (save-restriction + (narrow-to-region start end) + (let ((case-fold-search t) + pos lines tagbeg0 tagend0 tagbeg1 tagend1) + (goto-char (point-min)) + (while (w3m-search-tag "blockquote") + (setq tagbeg0 (match-beginning 0)) + (setq tagend0 (match-end 0)) + (when (w3m-search-tag "/blockquote") + (setq tagbeg1 (match-beginning 0)) + (setq tagend1 (match-end 0)) + (setq lines (buffer-substring tagend0 tagbeg1)) + (delete-region tagbeg0 tagend1) + (insert (with-temp-buffer + (insert lines) + (goto-char (point-min)) + (if (and (w3m-search-tag "pre") + (setq tagbeg0 (match-beginning 0)) + (setq tagend0 (match-end 0)) + (w3m-search-tag "/pre") + (setq tagbeg1 (match-beginning 0)) + (setq tagend1 (match-end 0))) + (progn + (delete-region tagbeg1 tagend1) + (delete-region tagbeg0 tagend0)) + ;; delete <br> + (goto-char (point-min)) + (while (w3m-search-tag "br") + (delete-region (match-beginning 0) (match-end 0)) + (unless (looking-at "[\n\r]") (insert "\n")))) + (goto-char (point-max)) + (skip-chars-backward " \t\n\f\r") + (delete-region (point) (point-max)) + (goto-char (point-min)) + (skip-chars-forward " \t\n\f\r") + (delete-region (point-min) (point)) + (goto-char (point-min)) + (while (not (eobp)) + (insert mew-w3m-region-cite-mark) + (forward-line 1)) + (goto-char (point-min)) + (insert "<pre>\n") + (goto-char (point-max)) + (insert "\n</pre>\n") + (buffer-substring (point-min) (point-max))))))) + (w3m-region (point-min) (point-max) url charset)))) + +;; processing Text/Html contents with w3m. +(defun mew-mime-text/html-w3m (&rest args) + "View Text/Html contents with w3m rendering output." + (let ((w3m-display-inline-images mew-w3m-auto-insert-image) + (w3m-safe-url-regexp (when mew-w3m-use-safe-url-regexp + mew-w3m-safe-url-regexp)) + w3m-force-redisplay ;; don't redraw + charset wcs xref + cache begin end params execute) + (if (= (length args) 2) + ;; Mew-2 + (setq begin (nth 0 args) end (nth 1 args)) + ;; Old Mew + (setq cache (nth 0 args)) + (setq begin (nth 1 args)) + (setq end (nth 2 args)) + (setq params (nth 3 args)) + (setq execute (nth 4 args))) + (if (and cache (or execute (<= end begin))) + ;; 'C-cC-e' + Old Mew + (apply 'mew-mime-text/html (list cache begin end params execute)) + (save-excursion + ;; search Xref: Header in SHIMBUN article + (when cache (set-buffer cache)) + (goto-char (point-min)) + (when (re-search-forward mew-eoh nil t) + (let ((eoh (point)) + (case-fold-search t)) + (goto-char (point-min)) + (when (and (re-search-forward "^X-Shimbun-Id: " eoh t) + (goto-char (point-min)) + (re-search-forward "^Xref: \\(.+\\)\n" eoh t)) + (setq xref (match-string 1)) + (w3m-static-if (fboundp 'match-string-no-properties) + (setq xref (match-string-no-properties 1)) + (setq xref (match-string 1)) + (set-text-properties 0 (length xref) nil xref)))))) + (mew-elet + (cond + ((and (null cache) (eq w3m-type 'w3m-m17n)) + ;; Mew-2 + w3m-m17n. + ;; Coding-system and charset are decided by Mew. + (let ((w3m-input-coding-system w3m-input-coding-system) + (w3m-output-coding-system w3m-output-coding-system) + (w3m-halfdump-command-arguments w3m-halfdump-command-arguments)) + (when (setq charset (mew-charset-guess-region begin end)) + (setq wcs (mew-charset-to-cs charset))) + (when (and charset wcs (mew-coding-system-p wcs)) + ;; guess correctly and not us-ascii + (setq w3m-input-coding-system wcs) + (setq w3m-output-coding-system wcs) + (setq w3m-halfdump-command-arguments + (list "-halfdump" + "-I" charset "-O" charset + "-o" "ext_halfdump=1" + "-o" "pre_conv=1" + "-o" "strict_iso2022=0"))) + (mew-w3m-region begin end xref))) + ((null cache) ;; Mew-2 + w3m, w3mmee + (mew-w3m-region begin end xref (mew-charset-guess-region begin end))) + (t ;; Old Mew + (setq charset (or (mew-syntax-get-param params "charset") + (with-current-buffer cache + (mew-charset-guess-region begin end)))) + (if charset + (setq wcs (mew-charset-to-cs charset)) + (setq wcs mew-cs-text-for-write)) + (mew-frwlet + mew-cs-dummy wcs + (mew-w3m-region (point) + (progn (insert-buffer-substring cache begin end) + (point)) + xref)))) + (mew-w3m-add-text-properties `(w3m t w3m-images ,mew-w3m-auto-insert-image)))))) + +(defvar w3m-mew-support-cid (and (boundp 'mew-version-number) + (fboundp 'mew-syntax-get-entry-by-cid))) + +(defun mew-w3m-cid-retrieve (url &rest args) + (let ((output-buffer (current-buffer))) + (with-current-buffer w3m-current-buffer + (when (and w3m-mew-support-cid + (string-match "^cid:\\(.+\\)" url)) + (setq url (match-string 1 url)) + (let* ((fld (mew-current-get-fld (mew-frame-id))) + (msg (mew-current-get-msg (mew-frame-id))) + (cache (mew-cache-hit fld msg 'must-hit)) + (syntax (mew-cache-decode-syntax cache)) + cidstx beg end) + (if (string< "4.0.53" mew-version-number) + (setq cidstx (mew-syntax-get-entry-by-cid syntax (concat "<" url ">"))) + (setq cidstx (mew-syntax-get-entry-by-cid syntax url))) + (when cidstx + (setq beg (mew-syntax-get-begin cidstx)) + (setq end (mew-syntax-get-end cidstx)) + (prog1 + (with-current-buffer output-buffer + (set-buffer-multibyte t) + (insert-buffer-substring cache beg end) + (set-buffer-multibyte nil) + (downcase (car (mew-syntax-get-ct cidstx)))) + (run-hooks 'mew-w3m-cid-retrieve-hook)))))))) + +(when w3m-mew-support-cid + (push (cons 'mew-message-mode 'mew-w3m-cid-retrieve) + w3m-cid-retrieve-function-alist)) + +(defun mew-w3m-ext-url-show (dummy url) + (pop-to-buffer (mew-buffer-message)) + (w3m url)) + +(defun mew-w3m-ext-url-fetch (dummy url) + (lexical-let ((url url) + (name (file-name-nondirectory url)) + handler) + (w3m-process-do + (success (prog1 + (w3m-download url nil nil handler) + (message "Download: %s..." name))) + (if success + (message "Download: %s...done" name) + (message "Download: %s...failed" name)) + (sit-for 1)))) + +(defun w3m-mail-compose-with-mew (source url charset content-type + to subject other-headers) + "Compose a mail using Mew." + (when (one-window-p) + (split-window)) + (select-window (next-window)) + (condition-case nil + (unless (and (boundp 'mew-init-p) mew-init-p + (progn + (mew-summary-jump-to-draft-buffer) + (and (eq major-mode 'mew-draft-mode) + (y-or-n-p "Attatch this draft? ")))) + (mew-user-agent-compose to subject other-headers)) + (quit + (if (y-or-n-p "Create new draft? ") + (mew-user-agent-compose to subject other-headers) + (delete-window) + (error "Abort mail composing")))) + (let* ((basename (file-name-nondirectory (w3m-url-strip-query url))) + (ct (downcase content-type)) + (mew-attach-move-next-after-copy nil) + (i 1) + (pos -1) + (csorig (mew-charset-to-cs (symbol-name charset))) + last filename cs) + (unless (mew-attach-p) + (mew-draft-prepare-attachments)) + ;; goto last attachment + (setq last (catch 'last + (while (not (= pos (point))) + (setq i (1+ i)) + (mew-attach-goto-number 'here `(,i)) + (when (mew-attach-line-lastp) + (throw 'last t))))) + (when (eq csorig mew-cs-unknown) + (setq csorig nil)) + (if (or (not last) (not (mew-attach-not-line012-1))) + (message "Can not attach from emacs-w3m here!") + ;; Application/.*xml is not inline view with Mew. + (cond + ((string= "application/xhtml+xml" ct) + (setq ct "text/html")) + ((string-match "^application/.*xml$" ct) + (setq ct "text/xml"))) + (setq filename (expand-file-name (cond + ((and (string-match "^[\t ]*$" basename) + (string= ct "text/html")) + "index.html") + ((and (string-match "^[\t ]*$" basename) + (string= ct "text/xml")) + "index.xml") + ((string-match "^[\t ]*$" basename) + "dummy") + (t + basename)) + mew-temp-dir)) + (with-temp-buffer + (cond + ((string= "text/html" ct) + (insert source) + (setq cs (w3m-static-if (fboundp 'mew-text/html-detect-cs) + (mew-text/html-detect-cs (point-min) (point-max)))) + (when (or (eq cs mew-cs-unknown) (not cs)) + (cond + (csorig + (setq cs csorig)) + (t + (setq cs mew-cs-autoconv))))) + ((string= "text/xml" ct) + (insert source) + (setq cs (w3m-static-if (fboundp 'mew-text/html-detect-cs) + (mew-text/html-detect-cs (point-min) (point-max)))) + (when (or (eq cs mew-cs-unknown) (not cs)) + (cond + (csorig + (setq cs csorig)) + ((mew-coding-system-p 'utf-8) + (setq cs 'utf-8)) + (t + (setq cs mew-cs-autoconv))))) + ((string-match "^text/" ct) + (insert source) + (setq cs mew-cs-autoconv)) + (t + (mew-set-buffer-multibyte nil) + (insert source) + (setq cs mew-cs-binary))) + (setq charset (cond + ((eq cs mew-cs-autoconv) + (mew-charset-guess-region (point-min) (point-max))) + ((eq cs mew-cs-binary) + nil) + (t + (mew-cs-to-charset cs)))) + (mew-frwlet + mew-cs-text-for-read cs + (write-region (point-min) (point-max) filename nil 'nomsg))) + (when ct + (setq ct (mew-capitalize ct))) + (mew-attach-copy filename (file-name-nondirectory filename)) + ;; content-type check & set + (let* ((nums (mew-syntax-nums)) + (syntax (mew-syntax-get-entry mew-encode-syntax nums)) + (file (mew-syntax-get-file syntax)) + (ctl (mew-syntax-get-ct syntax)) + (ct-orig (mew-syntax-get-value ctl 'cap)) + cte) + (unless (string= ct ct-orig) + (setq ctl (list ct)) + (mew-syntax-set-ct syntax ctl) + (setq cte (mew-ctdb-cte (mew-ctdb-by-ct ct))) + (mew-syntax-set-cte syntax cte) + (mew-syntax-set-cdp syntax (mew-syntax-cdp-format ct file)) + (mew-encode-syntax-print mew-encode-syntax))) + ;; charset set + (let* ((nums (mew-syntax-nums)) + (syntax (mew-syntax-get-entry mew-encode-syntax nums)) + (file (mew-syntax-get-file syntax)) + (ctl (mew-syntax-get-ct syntax)) + (ct (mew-syntax-get-value ctl 'cap)) + (params (mew-syntax-get-params ctl)) + (ocharset "charset")) + (when (and (string-match "^Text" ct) charset) + (setq params (mew-delete ocharset params)) + (setq ctl (cons ct (cons (list ocharset charset) params))) + (mew-syntax-set-ct syntax ctl)) + (mew-syntax-set-cd syntax url) + (mew-encode-syntax-print mew-encode-syntax)) + (message "Compose a mail using Mew with %s...done" url) + (when (and (file-exists-p filename) (file-writable-p filename)) + (delete-file filename))))) + +;;; +(provide 'mew-w3m) + +;; mew-w3m.el ends here diff --git a/share/emacs/site-lisp/w3m/mime-w3m.el b/share/emacs/site-lisp/w3m/mime-w3m.el new file mode 100644 index 00000000000..099d1211d80 --- /dev/null +++ b/share/emacs/site-lisp/w3m/mime-w3m.el @@ -0,0 +1,227 @@ +;;; mime-w3m.el --- mime-view content filter for text + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Author: TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; Akihiro Arisawa <ari@mbf.sphere.ne.jp> +;; Keywords: HTML, MIME, multimedia, mail, news + +;; This file is *NOT* yet part of SEMI (Suite of Emacs MIME Interfaces). + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Install: + +;; (1) Install SEMI. +;; (2) Put this file to appropriate directory. +;; (3) Write these following code to your ~/.emacs or ~/.gnus. +;; +;; (require 'mime-w3m) + + +;;; Code: + +(eval-when-compile + (require 'cl) + ;; mime-parse.el should be loaded before mime.el so as not to make + ;; `mime-uri-parse-cid' an autoloaded function to which the byte + ;; compiler might issue a nonsense warning. + (require 'mime-parse) + (require 'mime) + (require 'w3m) + (defvar mime-preview-condition) + (defvar mime-setup-enable-inline-html) + (defvar mime-view-mode-default-map)) + +(eval-and-compile + (when (featurep 'xemacs) + (require 'font))) + +(defcustom mime-w3m-display-inline-images 'default + "*Non-nil means that inline images are displayed. +When this option is equal to `default', +`w3m-default-display-inline-images' is refered instead of this option, +to decide whether inline images are displayed." + :group 'w3m + :group 'mime-view + :type '(radio (const :format "%v " nil) + (sexp :format "non-nil " + :match + (lambda (widget value) + (and value (not (eq value 'default)))) + :value-to-internal + (lambda (widget value) + (if (and value (not (equal value "default"))) + (widget-sexp-value-to-internal widget value) + "t"))) + (const default))) + +(defcustom mime-w3m-safe-url-regexp "\\`cid:" + "*Regexp that matches safe url names. +Some HTML mails might have the trick of spammers using <img> tags. It +is likely to be intended to verify whether you have read the mail. +You can prevent your personal informations from leaking by setting +this to the regexp which matches the safe url names. The value of the +variable `w3m-safe-url-regexp' will be bound with this value. You may +set this value to nil if you consider all the urls to be safe." + :group 'mime-w3m + :type '(choice (regexp :format "%t: %v\n" :size 0) + (const :tag "All URLs are safe" nil))) + +(defcustom mime-w3m-after-cursor-move-hook + '(w3m-print-this-url) + "*Hook run each time after the cursor moves in mime-w3m buffers. +This hook is called by the `mime-w3m-check-current-position' function +by way of `post-command-hook'." + :group 'mime-w3m + :type 'hook) + +(defcustom mime-w3m-setup-hook nil + "*Hook run at the end of function `mime-w3m-setup'." + :group 'mime-w3m + :type 'hook) + +(defvar mime-w3m-message-structure nil) +(make-variable-buffer-local 'mime-w3m-message-structure) + +(defun mime-w3m-insinuate () + "Insinuate `mime-w3m' module to SEMI." + (setq mime-setup-enable-inline-html nil) + (let (flag) + (when (boundp 'mime-preview-condition) + (labels ((overwrite (x) + (if (symbolp x) + (if (eq x 'mime-preview-text/html) + (setq flag 'mime-w3m-preview-text/html) + (when (eq x 'mime-w3m-preview-text/html) + (setq flag t)) + x) + (if (consp x) + (cons (overwrite (car x)) (overwrite (cdr x))) + x)))) + (setq mime-preview-condition + (overwrite mime-preview-condition)))) + (unless flag + (eval-after-load "mime-view" + '(progn + (ctree-set-calist-strictly + 'mime-preview-condition + '((type . text) + (subtype . html) + (body . visible) + (body-presentation-method . mime-w3m-preview-text/html))) + (set-alist 'mime-view-type-subtype-score-alist + '(text . html) 3)))))) + +(defun mime-w3m-setup () + "Setup `mime-w3m' module." + (require 'w3m) + (when (eq mime-w3m-display-inline-images 'default) + (setq mime-w3m-display-inline-images w3m-default-display-inline-images)) + (unless (assq 'mime-view-mode w3m-cid-retrieve-function-alist) + (push (cons 'mime-view-mode 'mime-w3m-cid-retrieve) + w3m-cid-retrieve-function-alist)) + (run-hooks 'mime-w3m-setup-hook)) + +(def-edebug-spec mime-w3m-save-background-color t) +(defmacro mime-w3m-save-background-color (&rest body) + (if (featurep 'xemacs) + `(let ((color (color-name (face-background 'default)))) + (prog1 + (progn ,@body) + (font-set-face-background 'default color (current-buffer)))) + (cons 'progn body))) + +;;;###autoload +(defun mime-w3m-preview-text/html (entity situation) + (mime-w3m-setup) + (setq mime-w3m-message-structure (mime-find-root-entity entity)) + (let ((p (point)) + (xref + (or (mime-entity-fetch-field entity "xref") + (mime-entity-fetch-field mime-w3m-message-structure "xref")))) + (goto-char p) + (insert "\n") + (goto-char p) + (mime-w3m-save-background-color + (save-restriction + (narrow-to-region p p) + (mime-insert-text-content entity) + (run-hooks 'mime-text-decode-hook) + (condition-case err + (let ((w3m-safe-url-regexp mime-w3m-safe-url-regexp) + (w3m-display-inline-images mime-w3m-display-inline-images) + w3m-force-redisplay) + (w3m-region p (point-max) + (and (stringp xref) + (string-match "\\`http://" xref) + xref) + (mime-content-type-parameter + (mime-entity-content-type entity) + "charset")) + (add-text-properties p (point-max) + (list 'keymap w3m-minor-mode-map + 'text-rendered-by-mime-w3m t))) + (error (message "%s" err))))))) + +(let (current-load-list) + (defadvice mime-display-message + (after mime-w3m-add-local-hook activate compile) + "Advised by emacs-w3m. +Set hooks run arround each command is executed." + (when (featurep 'w3m) + (w3m-add-local-hook 'pre-command-hook + 'w3m-store-current-position) + (w3m-add-local-hook 'post-command-hook + 'mime-w3m-check-current-position)))) + +(defun mime-w3m-check-current-position () + "Run `mime-w3m-after-cursor-move-hook' if the cursor has been moved." + (when (and (/= (point) (car w3m-current-position)) + (ignore-errors + (or (get-text-property (point) + 'text-rendered-by-mime-w3m) + (get-text-property (car w3m-current-position) + 'text-rendered-by-mime-w3m)))) + (run-hooks 'mime-w3m-after-cursor-move-hook))) + +(defun mime-w3m-cid-retrieve (url &rest args) + (let ((entity (mime-find-entity-from-content-id + (mime-uri-parse-cid url) + (with-current-buffer w3m-current-buffer + mime-w3m-message-structure)))) + (when entity + ;; `mime-decode-string' should be performed in a unibyte buffer. + (w3m-insert-string (mime-entity-content entity)) + (mime-entity-type/subtype entity)))) + +(let (current-load-list) + (defadvice kill-new (before strip-keymap-properties-from-kill activate) + "Advised by emacs-w3m. +Strip `keymap' or `local-map' properties from a killed string." + (if (text-property-any 0 (length (ad-get-arg 0)) + 'text-rendered-by-mime-w3m t (ad-get-arg 0)) + (remove-text-properties 0 (length (ad-get-arg 0)) + '(keymap nil local-map nil) + (ad-get-arg 0))))) + +(mime-w3m-insinuate) + +(provide 'mime-w3m) + +;;; mime-w3m.el ends here diff --git a/share/emacs/site-lisp/w3m/octet.el b/share/emacs/site-lisp/w3m/octet.el new file mode 100644 index 00000000000..21b99656921 --- /dev/null +++ b/share/emacs/site-lisp/w3m/octet.el @@ -0,0 +1,547 @@ +;;; octet.el --- An octet stream viewer. + +;; Copyright (C) 2000, 2002, 2003, 2004, 2005 +;; Yuuichi Teranishi <teranisi@gohome.org> + +;; Author: Yuuichi Teranishi <teranisi@gohome.org> +;; Created: 2000/05/19 +;; Keywords: octet-stream, broken document + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; This program is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: +;; +;; Display application/octet-stream inline on the emacs buffer. +;; +;; This program requires: +;; +;; emacs-w3m for HTML rendereing. +;; (http://emacs-w3m.namazu.org/) +;; Mule-UCS for UTF-8 decoding. +;; (ftp://ftp.m17n.org/pub/mule/Mule-UCS/) +;; wvHtml for MS Word document. +;; (http://www.wvware.com/) +;; xlHtml for MS Excel document. +;; (http://chicago.sourceforge.net/xlhtml/) +;; pptHtml for MS PowerPoint document. +;; (http://chicago.sourceforge.net/xlhtml/) +;; gunzip for decoding gzipped file. +;; bunzip2 for decoding bzip2ed file. + +;; Put follwing line in your setting file: +;; +;; (require 'octet) +;; +;; To display octet data file, execute following command. +;; +;; M-x octet-find-file +;; +;; If you use SEMI, put following lines in your setting file: +;; +;; (require 'octet) +;; (octet-mime-setup) +;; +;; Then you can toggle displaying application/octet-stream messages. + +;;; History: +;; +;; This file is created in 2000/05/19. +;; All part was rewrote in 2002/01/28. +;; Added to emacs-w3m repository in 2002/01/29. + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'poe) ; for compatibility +(require 'pces) ; as-binary-process +(require 'mime) ; SEMI +(require 'static) +(require 'w3m-util); w3m-insert-string + +(defvar octet-temp-directory temporary-file-directory + "A directory to create temporal files.") + +(defvar octet-html-render-function 'octet-w3m-region + "A function for HTML rendering.") + +(defvar octet-suffix-type-alist + '(("xls" . msexcel) + ("ppt" . msppt) + ("doc" . msword) + ("gz" . gzip) + ("bz2" . bzip2) + ("html" . html) + ("jpg" . jpeg) + ("jpeg" . jpeg) + ("gif" . gif) + ("png" . png) + ("tif" . tiff) + ("tiff" . tiff) + ("txt" . text) + ("lzh" . lzh) + ("tar" . tar) + ("pdf" . pdf)) + "Alist of suffix-to-octet-type.") + +(defvar octet-content-type-alist + '(("application/vnd\\.ms-excel" . msexcel) + ("application/vnd\\.ms-powerpoint" . msppt) + ("application/x-msexcel" . msexcel) + ("application/msword" . msword) + ("image/jpeg" . jpeg) + ("image/gif" . gif) + ("image/png" . png) + ("image/tiff" . tiff) + ("audio/midi" . ignore) + ("video/mpeg" . ignore) + ("text/html" . html-un) + ("application/x-tar" . tar) + ("application/pdf" . pdf)) + "Alist of content-type-regexp-to-octet-type.") + +(defvar octet-magic-type-alist + '(("^\377\330\377[\340\356]..JFIF" image jpeg) + ("^\211PNG" image png) + ("^GIF8[79]" image gif) + ("^II\\*\000" image tiff) + ("^MM\000\\*" image tiff) + ("^MThd" audio midi) + ("^\000\000\001\263" video mpeg) + ("^<!doctype html" text html) + ("^<head" text html) + ("^<title" text html) + ("^<html" text html)) + "*Alist of regexp about magic-number vs. corresponding content-types. +Each element looks like (REGEXP TYPE SUBTYPE). +REGEXP is a regular expression to match against the beginning of the +content of entity. +TYPE is symbol to indicate primary type of content-type. +SUBTYPE is symbol to indicate subtype of content-type.") + +(defvar octet-type-filter-alist + `((msexcel octet-filter-call1 "xlhtml" ("-te") html-u8) + (msppt octet-filter-call1 "ppthtml" nil html-u8) + (msword octet-filter-call2-extra "wvHtml" nil html-u8) + (html octet-render-html nil nil nil) + (html-u8 octet-decode-u8-text nil nil html) + (html-un octet-decode-text nil nil html) + (gzip octet-filter-call1 "gunzip" ("-c") guess) + (bzip2 octet-filter-call1 "bunzip2" ("-c") guess) + (text octet-decode-text nil nil nil) + (ignore ignore nil nil nil) + (jpeg octet-decode-image nil jpeg nil) + (gif octet-decode-image nil gif nil) + (png octet-decode-image nil png nil) + (tiff octet-decode-image nil tiff nil) + (guess octet-filter-guess nil nil nil) + (lzh octet-filter-call1 "lha" ("-v") text) + (tar octet-tar-mode nil nil nil) + (pdf octet-filter-call2 "pdftotext" ("-q" "-eucjp" "-raw") text)) + "Alist of type-to-filter-program. +Each element should have the form like: +\(TYPE FUNCTION FILTER_PROGRAM ARGUMENT NEW-TYPE\) +nil in NEW-TYPE means filtering is completed.") + +(defvar octet-find-file-hook nil) + +(defvar octet-attachments nil) +(make-variable-buffer-local 'octet-attachments) + +(defun octet-render-html (&rest args) + (funcall octet-html-render-function (point-min) (point-max)) + 0) + +(defun octet-decode-text (&rest args) + (let ((string (buffer-string))) + (erase-buffer) + (set-buffer-multibyte t) + (insert (decode-coding-string string 'undecided))) + 0) + +;;; HTML rendering by w3m.el +(defun w3m-about-octet-attachments (url &optional no-decode no-cache + &rest args) + (let (buffer attachments pair) + (set-buffer-multibyte nil) + (when (string-match "\\`about://octet-attachments/\\([^/]+\\)/" url) + (setq buffer (get-buffer (base64-decode-string (match-string 1 url))) + url (substring url (match-end 0)) + attachments (with-current-buffer buffer + octet-attachments)) + (when (and buffer attachments + (setq pair (assoc url attachments))) + (insert (cdr pair))))) + (car (funcall (symbol-function 'w3m-local-file-type) url))) + +(defun octet-w3m-region (beg end) + (let ((w3m-display-inline-images t) + (w3m-url-hierarchical-schemes '("about"))) + (funcall (symbol-function 'w3m-region) + beg end (concat "about://octet-attachments/" + (base64-encode-string + (buffer-name (current-buffer))) "/")) + (setq octet-attachments nil)) + 0) + +;; Decode image +(static-cond + ((featurep 'xemacs) + (defun octet-decode-image (ignore &rest args) + (let (glyph) + (if (memq (car args) (image-instantiator-format-list)) + (progn + (setq glyph (make-glyph (vector (car args) :data (buffer-string)))) + (if glyph + (progn (erase-buffer) + (set-extent-end-glyph + (make-extent (point-min)(point-min)) + glyph) + 0) + 1)) + 1)))) + (t + (defun octet-decode-image (ignore &rest args) + (let (image) + (if (image-type-available-p (car args)) + (progn + (setq image (create-image (buffer-string) (car args) 'data)) + (if image + (progn (erase-buffer) + (insert-image image) 0) + 1)) + 1))))) + +(defun octet-decode-u8-text (&rest args) + (let ((string (buffer-string))) + (erase-buffer) + (set-buffer-multibyte t) + (insert (decode-coding-string string 'utf-8))) + 0) + +(defun octet-filter-call2 (filter &optional args) + "Call octed filter with two arguments (infile, outfile). +Current buffer content is replaced. +Returns 0 if succeed." + (let ((infile (file-name-nondirectory + (make-temp-file (expand-file-name "octet" + octet-temp-directory)))) + (outfile (file-name-nondirectory + (make-temp-file (expand-file-name "octet" + octet-temp-directory)))) + (last-dir default-directory) + result) + (cd octet-temp-directory) + (write-region-as-binary (point-min) (point-max) infile nil 'no-msg) + (unwind-protect + (progn + (as-binary-process + (setq result (apply 'call-process filter nil nil nil + (append args (list infile outfile))))) + (when (and (numberp result) + (zerop result)) + (erase-buffer) + (insert-file-contents-as-binary outfile)) + 0) + (if (file-exists-p infile) (delete-file infile)) + (if (file-exists-p outfile) (delete-file outfile)) + (cd last-dir)))) + +(defun octet-filter-call2-extra (filter &optional args) + "Call octed filter with two arguments (infile, outfile). +Current buffer content is replaced. +Also, exta attachments are collected to `octet-attachments'. +Returns 0 if succeed." + (let ((infile (file-name-nondirectory + (make-temp-file (expand-file-name "octet" + octet-temp-directory)))) + (outfile (file-name-nondirectory + (make-temp-file (expand-file-name "octet" + octet-temp-directory)))) + (last-dir default-directory) + result) + (cd octet-temp-directory) + (write-region-as-binary (point-min) (point-max) infile nil 'no-msg) + (unwind-protect + (progn + (as-binary-process + (setq result (apply 'call-process filter nil nil nil + (append args (list infile outfile))))) + (when (and (numberp result) + (zerop result)) + (erase-buffer) + (insert-file-contents-as-binary outfile) + (dolist (attach (directory-files "." nil (concat + (regexp-quote outfile) + ".*\\..*"))) + (setq octet-attachments + (cons (cons + attach + (with-temp-buffer + (insert-file-contents-as-binary attach) + (buffer-string))) + octet-attachments)) + (if (file-exists-p attach) (delete-file attach)) + )) + 0) + (if (file-exists-p infile) (delete-file infile)) + (if (file-exists-p outfile) (delete-file outfile)) + (cd last-dir)))) + +(defun octet-filter-call1 (filter &optional args) + "Call external octed filter with two arguments (infile) and obtain stdout. +Current buffer content is replaced. +Returns 0 if succeed." + (let ((infile (file-name-nondirectory + (make-temp-file (expand-file-name "octet" + octet-temp-directory)))) + (last-dir default-directory) + result) + (cd octet-temp-directory) + (write-region-as-binary (point-min) (point-max) infile nil 'no-msg) + (unwind-protect + (progn + (erase-buffer) + (as-binary-process + (setq result (apply 'call-process filter nil t nil + (append args (list infile))))) + (if (numberp result) result 1)) + (if (file-exists-p infile) (delete-file infile)) + (cd last-dir)))) + +(defun octet-filter-guess (&rest args) + (let (buffer-file-name) + (octet-buffer) + 0)) + +(defun octet-tar-mode (&rest args) + (funcall (symbol-function 'tar-mode)) + 0) + +(defun octet-guess-type-from-name (name) + (when (string-match "\\.\\([a-z0-9]+\\)\\'" name) + (cdr (assoc (downcase (match-string 1 name)) + octet-suffix-type-alist)))) + +(defun octet-guess-type-from-content-type (content-type) + (let ((alist octet-content-type-alist) + type) + (while alist + (when (string-match (car (car alist)) content-type) + (setq type (cdr (car alist)) + alist nil)) + (setq alist (cdr alist))) + type)) + +(defun octet-guess-type-from-magic () + (let ((rest octet-magic-type-alist) + type subtype) + (goto-char (point-min)) + (while (not (let ((cell (car rest))) + (if cell + (if (looking-at (car cell)) + (setq type (nth 1 cell) + subtype (nth 2 cell))) + t))) + (setq rest (cdr rest))) + (if type + (octet-guess-type-from-content-type + (concat (symbol-name type) "/" (symbol-name subtype)))))) + +(defun octet-filter-buffer (type) + "Call a filter function in `octet-type-filter-alist'. +TYPE is the symbol of type. +Returns NEW-TYPE." + (let ((elem (assq type octet-type-filter-alist))) + (if (zerop (apply (nth 1 elem) (list (nth 2 elem) (nth 3 elem)))) + (nth 4 elem)))) + +;;;###autoload +(defun octet-buffer (&optional name content-type) + "View octet-stream content according to `octet-type-filter-alist'. +Optional NAME is the filename. +If optional CONTENT-TYPE is specified, it is used for type guess." + (interactive) + (let ((type (or (and content-type + (octet-guess-type-from-content-type + content-type)) + (octet-guess-type-from-magic) + (and (or name buffer-file-name) + (octet-guess-type-from-name + (or name buffer-file-name))) + (intern (condition-case nil + (completing-read "Octet Type(text): " + (mapcar + (lambda (pair) + (list (symbol-name + (cdr pair)))) + octet-suffix-type-alist) + nil 'require-match nil nil + "text") + (quit "text")))))) + (while (setq type (octet-filter-buffer type))))) + +(static-if (featurep 'xemacs) + (defun octet-insert-buffer (from) + "Insert after point the contents of BUFFER and the image." + (let (extent glyph) + (with-current-buffer from + (if (setq extent (extent-at (point-min) nil nil nil 'at)) + (setq glyph (extent-end-glyph extent)))) + (insert-buffer-substring from) + (if glyph + (set-extent-end-glyph (make-extent (point) (point)) + glyph)))) + (defalias 'octet-insert-buffer 'insert-buffer)) + +;;;###autoload +(defun octet-find-file (file) + "Find FILE with octet-stream decoding." + (interactive "fFilename: ") + (as-binary-input-file (find-file file)) + (unwind-protect + (let (buffer-read-only) + (octet-buffer)) + (goto-char (point-min)) + (set-buffer-modified-p nil) + (auto-save-mode -1) + (setq buffer-read-only t + truncate-lines t) + (run-hooks 'octet-find-file-hook))) + +;;; +;; Functions for SEMI. +;; + +(defvar mime-preview-octet-hook nil) +(defvar mime-view-octet-hook nil) + +;;;###autoload +(defun mime-preview-octet (entity situation) + "A method for mime-view to preview octet message." + (goto-char (point-max)) + (let ((p (point)) + (name (mime-entity-filename entity)) + from-buf to-buf) + (insert "\n") + (goto-char p) + (save-restriction + (narrow-to-region p p) + (setq to-buf (current-buffer)) + (with-temp-buffer + (setq from-buf (current-buffer)) + (w3m-insert-string (mime-entity-content entity)) + (octet-buffer name (mime-entity-type/subtype entity)) + (with-current-buffer to-buf + (octet-insert-buffer from-buf) + (run-hooks 'mime-preview-octet-hook)))))) + +;;;###autoload +(defun mime-view-octet (entity situation) + "A method for mime-view to display octet message." + (let (type subtype) + (let ((mdata (mime-entity-content entity)) + (rest octet-magic-type-alist)) + (while (not (let ((cell (car rest))) + (if cell + (if (string-match (car cell) mdata) + (setq type (nth 1 cell) + subtype (nth 2 cell))) + t))) + (setq rest (cdr rest))) + (if type + (progn + (setq situation (del-alist 'method (copy-alist situation))) + (funcall (symbol-function 'mime-play-entity) + entity + (put-alist 'type type + (put-alist 'subtype subtype + situation)) + 'mime-view-octet)) + (let ((buf (get-buffer-create + (format "%s-%s" (buffer-name) (mime-entity-number entity)))) + (name (mime-entity-filename entity))) + (with-current-buffer buf + (set-buffer-multibyte nil) + (setq buffer-read-only nil) + (erase-buffer) + (w3m-insert-string mdata) + (octet-buffer name (mime-entity-type/subtype entity)) + (setq buffer-read-only t + truncate-lines t) + (set-buffer-multibyte t) + (set-buffer-modified-p nil)) + (let ((win (get-buffer-window (current-buffer)))) + (or (eq (selected-window) win) + (select-window (or win (get-largest-window))))) + (view-buffer buf) + (run-hooks 'mime-view-octet-hook) + (goto-char (point-min))))))) + +;;;###autoload +(defun octet-mime-setup () + "Octet setting for MIME module." + (eval-after-load "mime-view" + '(progn + (ctree-set-calist-strictly + 'mime-acting-condition + '((mode . "play") + (type . application)(subtype . msword) + (method . mime-view-octet))) + + (ctree-set-calist-strictly + 'mime-acting-condition + '((mode . "play") + (type . application)(subtype . excel) + (method . mime-view-octet))) + + (ctree-set-calist-strictly + 'mime-acting-condition + '((mode . "play") + (type . application)(subtype . x-msexcel) + (method . mime-view-octet))) + + (ctree-set-calist-strictly + 'mime-acting-condition + '((mode . "play") + (type . application)(subtype . vnd.ms-excel) + (method . mime-view-octet))) + + (ctree-set-calist-strictly + 'mime-acting-condition + '((mode . "play") + (type . application)(subtype . vnd.ms-powerpoint) + (method . mime-view-octet))) + + (ctree-set-calist-strictly + 'mime-acting-condition + '((mode . "play") + (type . application)(subtype . octet-stream) + (method . mime-view-octet))) + + (ctree-set-calist-strictly + 'mime-preview-condition + '((type . application)(subtype . t) + (encoding . t) + (body . invisible) + (body-presentation-method . mime-preview-octet))) + ;; another condition? + ))) + +(provide 'octet) + +;;; octet.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-antenna.el b/share/emacs/site-lisp/w3m/w3m-antenna.el new file mode 100644 index 00000000000..4373ba81bbc --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-antenna.el @@ -0,0 +1,659 @@ +;;; w3m-antenna.el --- Utility to detect changes of WEB + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; w3m-antenna.el is the add-on utility of emacs-w3m to detect changes +;; of WEB pages. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + + +;;; How to install: + +;; Please put this file to appropriate directory, and if you want +;; byte-compile it. And add following lisp expressions to your +;; ~/.emacs. +;; +;; (autoload 'w3m-antenna "w3m-antenna" "Report changes of WEB sites." t) + + +;;; Code: + +(eval-when-compile (require 'cl)) +(require 'w3m-util) +(require 'w3m-rss) +(require 'w3m) + +(defgroup w3m-antenna nil + "w3m-antenna - Utility to detect changes of WEB." + :group 'w3m + :prefix "w3m-antenna-") + +(define-widget 'w3m-antenna-string 'string + "String widget with default value. +When creating a new widget, its value is given by an expression specified +with :value-from." + :tag "URL" + :value-from nil + :create 'w3m-antenna-string-create) + +(defun w3m-antenna-string-create (widget) + (if (string= "" (widget-get widget :value)) + ;; No value is given. + (widget-put widget :value + (let* ((symbol (widget-get widget :value-from)) + (value (eval symbol))) + (if value + (set symbol nil) + (setq value "")) + value))) + (widget-default-create widget)) + +(eval-when-compile + ;; Compiler warning in Emacs 19. + (autoload 'widget-default-get "wid-edit")) + +(apply 'define-widget 'w3m-antenna-function 'function + "Bug-fixed version of the `function' widget. +In Emacs 20.7 through 21.4 and XEmacs, it doesn't represent a value as +a string internally, converts it into a string in the customization +buffer, and provides the default value as `ignore'." + (if (and (fboundp 'widget-default-get) + (widget-default-get + '(function :value-to-external ignore :value foo))) + '(:value-create + (lambda (widget) + (widget-put widget :value + (widget-sexp-value-to-internal widget value)) + (widget-field-value-create widget)) + :value-to-internal + (lambda (widget value) value) + :value ignore))) + +(defvar w3m-antenna-alist nil + "A list of site information (internal variable). nil means that +antenna database is not initialized. Each site information is a list +that consists of: + 0. Format string of URL. + 1. Title. + 2. Class (Normal, HNS or TIME). + 3. Real URL. + 4. Last modification time. + 5. Size in bytes. + 6. Time when size modification is detected. +") + +(defmacro w3m-antenna-site-key (site) + `(car ,site)) +(defmacro w3m-antenna-site-title (site) + `(nth 1 ,site)) +(defmacro w3m-antenna-site-class (site) + `(nth 2 ,site)) +(defmacro w3m-antenna-site-url (site) + `(nth 3 ,site)) +(defmacro w3m-antenna-site-last-modified (site) + `(nth 4 ,site)) +(defmacro w3m-antenna-site-size (site) + `(nth 5 ,site)) +(defmacro w3m-antenna-site-size-detected (site) + `(nth 6 ,site)) + +(defcustom w3m-antenna-file + (expand-file-name ".antenna" w3m-profile-directory) + "File which has list of antenna URLs." + :group 'w3m-antenna + :type '(file :size 0)) + +(defcustom w3m-antenna-refresh-interval nil + "Interval time to update (to refresh) the antenna page automatically. +The value should be a positive integer in seconds, or nil which means +not to update the page." + :group 'w3m-antenna + :type '(choice + (const :tag "Not reload." nil) + (integer :tag "Interval second."))) + +(defcustom w3m-antenna-sites + (unless noninteractive + (mapcar (lambda (site) + (list (w3m-antenna-site-key site) + (w3m-antenna-site-title site) + (w3m-antenna-site-class site))) + (w3m-load-list w3m-antenna-file))) + "List of WEB sites, watched by `w3m-antenna'." + :group 'w3m-antenna + :type `(repeat + (group + :indent 7 + (w3m-antenna-string :format "URL: %v\n" :size 0 + :value-from w3m-antenna-tmp-url) + (w3m-antenna-string :format "Title: %v\n" :size 0 + :value-from w3m-antenna-tmp-title) + (choice + :tag "Procedure" + (const :tag "Check either its last modified time or its size" nil) + (const :tag "Check its last modified time only" time) + (const :tag "Check its current date provided by Hyper Nikki System" + hns) + (list :tag "Check RSS" + (function-item :format "" w3m-antenna-check-rss) + (string :format "URL: %v\n" :value "")) + (list :tag "Check the another changelog page" + (function-item :format "" w3m-antenna-check-another-page) + (string :format "URL: %v\n" :value "")) + (list :tag "Check the page linked by the anchor that matches" + (function-item :format "" w3m-antenna-check-anchor) + (regexp :value "") + (integer :value 0)) + (cons :tag "Check with a user defined function" + (w3m-antenna-function + :match (lambda (widget value) + (and (functionp value) + (not (memq value + '(w3m-antenna-check-rss + w3m-antenna-check-another-page + w3m-antenna-check-anchor)))))) + (repeat :tag "Arguments" sexp)))))) + +(defcustom w3m-antenna-html-skelton + (eval-when-compile + (concat "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">\n" + "<html>\n<head>\n<title>Antenna</title>\n%R</head>\n<body>\n" + "<h1>Antenna</h1>\n<p align=\"right\">Checked at %D.</p>\n" + "<h2>Updated</h2>\n<ul>\n%C</ul>\n" + "<h2>Visited</h2>\n<ul>\n%U</ul>\n" + "</body>\n</html>\n")) + "HTML skelton of antenna." + :group 'w3m-antenna + :type 'string) + +(defcustom w3m-antenna-make-summary-function + 'w3m-antenna-make-summary-like-natsumican + "Function to make summary of site information." + :group 'w3m-antenna + :type '(choice + :format "%{%t%}:\n %[Value Menu%] %v" + (function-item :tag "Simple style." w3m-antenna-make-summary) + (function-item :tag "Natsumican style." + w3m-antenna-make-summary-like-natsumican) + (function :format "User function: %v\n" :size 0))) + +(defcustom w3m-antenna-sort-changed-sites-function + 'w3m-antenna-sort-sites-by-time + "Function to sort list of changed sites." + :group 'w3m-antenna + :type '(choice + :format "%{%t%}:\n %[Value Menu%] %v" + (function-item :tag "Sort by last modification time." + w3m-antenna-sort-sites-by-time) + (function-item :tag "Sort by title." w3m-antenna-sort-sites-by-title) + (function-item :tag "Do nothing." identity) + (function :format "User function: %v\n" :size 0))) + +(defcustom w3m-antenna-sort-unchanged-sites-function + 'w3m-antenna-sort-sites-by-time + "Function to sort list of unchanged sites." + :group 'w3m-antenna + :type '(choice + :format "%{%t%}:\n %[Value Menu%] %v" + (function-item :tag "Sort by last modification time." + w3m-antenna-sort-sites-by-time) + (function-item :tag "Sort by title." w3m-antenna-sort-sites-by-title) + (function-item :tag "Do nothing." identity) + (function :format "User function: %v\n" :size 0))) + +(defun w3m-antenna-alist () + (let ((alist (w3m-load-list w3m-antenna-file))) + (mapcar (lambda (site) + (let ((l (assoc (w3m-antenna-site-key site) alist))) + (if l + (progn + (setf (w3m-antenna-site-class l) + (w3m-antenna-site-class site)) + l) + (append site (list nil nil nil nil))))) + w3m-antenna-sites))) + +(defun w3m-antenna-hns-last-modified (url handler) + (w3m-process-do-with-temp-buffer + (type (w3m-retrieve (w3m-expand-url "di.cgi" url) nil t nil nil handler)) + (when type + (or (let (start str) + ;; Process a line such as "Tue, 27 Mar 2001 12:43:16 GMT<br>". + (goto-char (point-min)) + (and + (search-forward "\nLast-Modified: " nil t) + (setq start (match-end 0)) + (search-forward "<br>" nil t) + (setq str (buffer-substring start (match-beginning 0))) + ;; Ignore format such as "2001, 27 03 GMT", which is used + ;; by old HNS. + (not (string-match + " *[0-9][0-9][0-9][0-9], +[0-9][0-9] +[0-9][0-9] +" str)) + (w3m-time-parse-string str))) + (progn + ;; Process a line such as "newest day is 2001/03/15". + (goto-char (point-min)) + (and + (re-search-forward "\ +^newest day is \\([0-9][0-9][0-9][0-9]\\)/\\([0-9][0-9]\\)/\\([0-9][0-9]\\)$" + nil t) + (encode-time 0 0 0 + (string-to-number (match-string 3)) + (string-to-number (match-string 2)) + (string-to-number (match-string 1)) + 32400))))))) + +(defun w3m-antenna-check-hns (site handler) + "Check the page served by HNS (Hyper Nikki System) asynchronously." + (lexical-let ((site site)) + (w3m-process-do + (time + (w3m-antenna-hns-last-modified (w3m-antenna-site-key site) handler)) + (if time + (w3m-antenna-site-update site (w3m-antenna-site-key site) time nil) + (w3m-antenna-check-page site handler))))) + +(defun w3m-antenna-check-rss (site handler url) + "Check RSS to detect change of SITE asynchronously. +In order to use this function, `xml.el' is required." + (lexical-let ((url url) + (site site)) + (w3m-process-do-with-temp-buffer + (type (w3m-retrieve url nil t nil nil handler)) + (let (link date dates) + (when type + (w3m-decode-buffer url) + (let* ((xml (ignore-errors + (xml-parse-region (point-min) (point-max)))) + (dc-ns (w3m-rss-get-namespace-prefix + xml "http://purl.org/dc/elements/1.1/")) + (rss-ns (w3m-rss-get-namespace-prefix + xml "http://purl.org/rss/1.0/")) + (channel (car (w3m-rss-find-el + (intern (concat rss-ns "channel")) + xml))) + (items (w3m-rss-find-el + (intern (concat rss-ns "item")) + xml))) + (setq link (nth 2 (car (w3m-rss-find-el + (intern (concat rss-ns "link")) + channel)))) + (setq dates (append + (w3m-rss-find-el + (intern (concat dc-ns "date")) + channel) + (w3m-rss-find-el + (intern (concat dc-ns "date")) + items) + (w3m-rss-find-el 'pubDate channel) + (w3m-rss-find-el 'pubDate items))) + (when dates + ;; Ignore future entries to display site announcements. + (let ((now (current-time))) + (let ((low (+ (nth 1 now) 3600))) ; 3600 = clock skew margin + (setq now + (if (>= low 65536) + (list (1+ (car now)) + (- low 65536) + (nth 2 now)) + (list (car now) + low + (nth 2 now))))) + (setq date '(0 0)) + (dolist (tmp dates) + (setq tmp (w3m-rss-parse-date-string (nth 2 tmp))) + (and (w3m-time-newer-p tmp date) + (w3m-time-newer-p now tmp) + (setq date tmp))))))) + (if (and link date) + (w3m-antenna-site-update site link date nil) + (w3m-antenna-check-page site handler)))))) + +(defun w3m-antenna-check-another-page (site handler url) + "Check the another page to detect change of SITE asynchronously. +This function checks the another page specified by the URL before +checking the SITE itself. This function is useful when the SITE's +owner either maintains the page which describes the change of the +SITE." + (lexical-let ((site site)) + (w3m-process-do-with-temp-buffer + (time (w3m-last-modified url t handler)) + (if time + (w3m-antenna-site-update site (w3m-antenna-site-key site) time nil) + (w3m-antenna-check-page site handler))))) + +(defun w3m-antenna-check-anchor (site handler regexp number) + "Check the page linked from SITE asynchronously. +This function checks the page linked by an anchor that matches REGEXP +from the page that is specified by SITE's key attribute." + (lexical-let ((site site) + (regexp regexp) + (number (or number 0))) + (w3m-process-do-with-temp-buffer + (type (w3m-retrieve (w3m-antenna-site-key site) + nil nil nil nil handler)) + (w3m-antenna-check-page site + handler + (when type + (w3m-decode-buffer (w3m-antenna-site-key site)) + (goto-char (point-min)) + (when (re-search-forward regexp nil t) + (w3m-expand-url + (match-string number) + (w3m-antenna-site-key site)))))))) + +;; To avoid byte-compile warning. +(eval-and-compile + (autoload 'w3m-filter "w3m-filter")) + +(defun w3m-antenna-check-page (site handler &optional url) + "Check SITE with the generic procedure. +It consists of 3 steps: +\(1\) Check the time when the SITE was last modified with HEAD request. +\(2\) Check the size of the SITE with HEAD request. +\(3\) Get the real content of the SITE, and check its size. +" + (lexical-let ((site site) + (url (or url + (w3m-antenna-site-url site) + (w3m-antenna-site-key site)))) + (w3m-process-do + (attr (w3m-attributes url t handler)) + (when attr + (if (nth 4 attr) ; Use the value of Last-modified header. + (w3m-antenna-site-update site url (nth 4 attr) (nth 2 attr)) + (unless (eq 'time (w3m-antenna-site-class site)) + (if (nth 2 attr) ; Use the value of Content-Length header. + (w3m-antenna-site-update site url nil (nth 2 attr)) + ;; Get the real content of the SITE, and calculate its size. + (w3m-process-do-with-temp-buffer + (type (w3m-retrieve url nil t nil nil handler)) + (when type + (w3m-decode-buffer url nil type) + (w3m-remove-comments) + (when w3m-use-filter + (w3m-filter url)) + (w3m-antenna-site-update site url nil (buffer-size))))))))))) + +(defun w3m-antenna-site-update (site url time size) + "Update SITE's status information with specified TIME and SIZE." + ;; (w3m-antenna-site-size-detected site) keeps the time when SITE's + ;; size attribute is checked. + (setf (w3m-antenna-site-size-detected site) + (when size + (or (when (and url + (w3m-antenna-site-url site) + (string= url (w3m-antenna-site-url site)) + (w3m-antenna-site-size site) + (= size (w3m-antenna-site-size site))) + (w3m-antenna-site-size-detected site)) + (current-time)))) + (setf (w3m-antenna-site-url site) url) + (setf (w3m-antenna-site-last-modified site) time) + (setf (w3m-antenna-site-size site) size) + site) + +(defun w3m-antenna-check-site (site handler) + "Check SITE asynchronously. +If a class attribute of the SITE is a list that consists of a function +to check SITE and its options, call it. When a class attribute of the +SITE is equal to the symbol `hns', call `w3m-antenna-check-hns'. +Otherwise, call `w3m-antenna-check-page'." + (if (and (listp (w3m-antenna-site-class site)) + (functionp (car (w3m-antenna-site-class site)))) + (apply (car (w3m-antenna-site-class site)) + site handler (cdr (w3m-antenna-site-class site))) + (if (eq 'hns (w3m-antenna-site-class site)) + (w3m-antenna-check-hns site handler) + (w3m-antenna-check-page site + handler + (format-time-string (w3m-antenna-site-key site) + (current-time)))))) + +(defun w3m-antenna-mapcar (function sequence handler) + "Apply FUNCTION to each element of SEQUENCE asynchronously, and make +a list of the results." + (let ((index -1) + (table (make-symbol "table")) + (buffer (make-symbol "buffer"))) + (set table (make-vector (length sequence) nil)) + (set buffer (current-buffer)) + (dolist (element sequence) + (aset (symbol-value table) + (incf index) + (funcall function + element + (cons `(lambda (x) + (aset ,table ,index x) + (w3m-antenna-mapcar-after ,table ,buffer)) + handler)))) + (w3m-antenna-mapcar-after (symbol-value table) (symbol-value buffer)))) + +(defun w3m-antenna-mapcar-after (result buffer) + "Handler function of `w3m-antenna-mapcar'. +If all asynchronous processes have finished, return a list of the +results for the further handler functions. Otherwise, return an +asynchronous process that has not finished yet." + (or (catch 'found-proces + (let ((index -1)) + (while (< (incf index) (length result)) + (when (w3m-process-p (aref result index)) + (throw 'found-proces (aref result index)))))) + (progn + (set-buffer buffer) + (append result nil)))) + +(defun w3m-antenna-check-all-sites (&optional handler) + "Check all sites specified in `w3m-antenna-sites'." + (unless w3m-antenna-alist + (setq w3m-antenna-alist (w3m-antenna-alist))) + (if (not handler) + (w3m-process-with-wait-handler + (w3m-antenna-check-all-sites handler)) + (w3m-process-do + (result + (w3m-antenna-mapcar 'w3m-antenna-check-site + w3m-antenna-alist + handler)) + (prog1 w3m-antenna-alist + (w3m-save-list w3m-antenna-file w3m-antenna-alist) + (setq w3m-antenna-alist nil))))) + +(defun w3m-antenna-make-summary (site) + (format "<li><a href=\"%s\">%s</a> %s" + (or (w3m-antenna-site-url site) + (w3m-antenna-site-key site)) + (w3m-antenna-site-title site) + (cond + ((w3m-antenna-site-last-modified site) + (current-time-string (w3m-antenna-site-last-modified site))) + ((w3m-antenna-site-size site) "Size") + (t "")))) + +(defun w3m-antenna-make-summary-like-natsumican (site) + (let ((t1 (w3m-antenna-site-last-modified site)) + (t2 (w3m-antenna-site-size-detected site))) + (format "<li>%20s (%s) <a href=\"%s\">%s</a>" + (if (or t1 t2) + (format-time-string "%Y/%m/%d %R" (or t1 t2)) + "----/--/-- --:--") + (cond + (t1 "T") + (t2 "S") + (t "?")) + (or (w3m-antenna-site-url site) + (w3m-antenna-site-key site)) + (w3m-antenna-site-title site)))) + +(defun w3m-antenna-sort-sites-by-time (sites) + (sort sites + (lambda (a b) + (w3m-time-newer-p + (or (w3m-antenna-site-last-modified a) + (w3m-antenna-site-size-detected a)) + (or (w3m-antenna-site-last-modified b) + (w3m-antenna-site-size-detected b)))))) + +(defun w3m-antenna-sort-sites-by-title (sites) + (sort sites + (lambda (a b) + (string< (w3m-antenna-site-title a) + (w3m-antenna-site-title b))))) + +(defun w3m-antenna-make-contents (changed-sites unchanged-sites) + (insert w3m-antenna-html-skelton) + (goto-char (point-min)) + (while (re-search-forward "%\\(.\\)" nil t) + (let ((c (char-after (match-beginning 1)))) + (cond + ((memq c '(?C ?U)) + (save-restriction + (narrow-to-region (match-beginning 0) (match-end 0)) + (delete-region (point-min) (point-max)) + (goto-char (point-min)) + (dolist (site (if (eq c ?C) + changed-sites + unchanged-sites)) + (insert (funcall w3m-antenna-make-summary-function site) + "\n")) + (goto-char (point-max)))) + ((eq c '?D) + (goto-char (match-beginning 0)) + (delete-region (match-beginning 0) (match-end 0)) + (insert (let ((time (nth 5 (file-attributes w3m-antenna-file)))) + (if time + (current-time-string time) + "(unknown)")))) + ((eq c '?R) + (save-restriction + (narrow-to-region (match-beginning 0) (match-end 0)) + (delete-region (point-min) (point-max)) + (when (and w3m-antenna-refresh-interval + (integerp w3m-antenna-refresh-interval) + (< 0 w3m-antenna-refresh-interval)) + (insert (format "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"%d\">\n" + w3m-antenna-refresh-interval))))))))) + +;;;###autoload +(defun w3m-about-antenna (url &optional no-decode no-cache + post-data referer handler) + (w3m-process-do + (alist (if no-cache + (w3m-antenna-check-all-sites handler) + (or w3m-antenna-alist (w3m-antenna-alist)))) + (let (changed unchanged) + (dolist (site alist) + (if (w3m-time-newer-p (or (w3m-antenna-site-last-modified site) + (w3m-antenna-site-size-detected site)) + (or (w3m-arrived-last-modified + (w3m-antenna-site-url site)) + (w3m-arrived-time + (w3m-antenna-site-url site)))) + (progn + (w3m-cache-remove (w3m-antenna-site-url site)) + (push site changed)) + (push site unchanged))) + (w3m-antenna-make-contents + (funcall w3m-antenna-sort-changed-sites-function (nreverse changed)) + (funcall w3m-antenna-sort-unchanged-sites-function (nreverse unchanged))) + "text/html"))) + +;;;###autoload +(defun w3m-antenna (&optional no-cache) + "Report changes of WEB sites, which is specified in `w3m-antenna-sites'." + (interactive "P") + (w3m-goto-url "about://antenna/" no-cache)) + +(defvar w3m-antenna-tmp-url nil) +(defvar w3m-antenna-tmp-title nil) + +(defun w3m-antenna-add-current-url (&optional arg) + "Add link of current page to antenna. +With prefix, ask new url to add instead of current page." + (interactive "P") + (w3m-antenna-add (if arg (w3m-input-url) w3m-current-url) + (w3m-encode-specials-string w3m-current-title))) + +(defun w3m-antenna-add (url &optional title) + "Add URL to antenna. +Optional argument TITLE is title of link." + (setq w3m-antenna-tmp-url url) + (setq w3m-antenna-tmp-title title) + (customize-variable 'w3m-antenna-sites) + ;; dirty... + (goto-char (point-max)) + (re-search-backward "INS") + (widget-button-press (point)) + (re-search-forward "State:\\|\\(\\[State\\]:\\)") + (backward-char (if (match-beginning 1) 3 2))) + +(defvar w3m-antenna-mode-map + (let ((map (make-sparse-keymap))) + (substitute-key-definition 'w3m-edit-current-url 'w3m-antenna-edit + map w3m-mode-map) + map) + "*Keymap for `w3m-antenna-mode'.") + +(defvar w3m-antenna-mode nil "Non-nil if w3m antenna mode is enabled.") +(make-variable-buffer-local 'w3m-antenna-mode) +(unless (assq 'w3m-antenna-mode minor-mode-alist) + (push (list 'w3m-antenna-mode " antenna") minor-mode-alist)) +(unless (assq 'w3m-antenna-mode minor-mode-map-alist) + (push (cons 'w3m-antenna-mode w3m-antenna-mode-map) minor-mode-map-alist)) + +(defun w3m-antenna-mode (&optional arg) + "\\<w3m-antenna-mode-map> +Minor mode to edit antenna. + +\\[w3m-antenna-edit] Customize `w3m-antenna-sites'. +" + (interactive "P") + (when (setq w3m-antenna-mode + (if arg + (> (prefix-numeric-value arg) 0) + (not w3m-antenna-mode))) + (run-hooks 'w3m-antenna-mode-hook))) + +(defun w3m-antenna-mode-setter (url) + "Activate `w3m-antenna-mode', when visiting page shows antenna." + (w3m-antenna-mode (if (string-match "\\`about://antenna/" url) + (progn + (setq default-directory + (file-name-directory w3m-antenna-file)) + 1) + 0))) +(add-hook 'w3m-display-functions 'w3m-antenna-mode-setter) + +(defun w3m-antenna-edit () + "Start customize of `w3m-antenna-sites'." + (interactive) + (customize-variable 'w3m-antenna-sites)) + +(provide 'w3m-antenna) + +;;; w3m-antenna.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-bookmark.el b/share/emacs/site-lisp/w3m/w3m-bookmark.el new file mode 100644 index 00000000000..09863b08d08 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-bookmark.el @@ -0,0 +1,588 @@ +;;; w3m-bookmark.el --- Functions to operate bookmark file of w3m + +;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: Shun-ichi GOTO <gotoh@taiyo.co.jp>, +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; w3m-bookmark.el is the add-on program of emacs-w3m to operate +;; bookmark file. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + + +;;; Code: + +(eval-when-compile (require 'cl)) +(require 'w3m-util) +(require 'w3m) +(require 'easymenu) + +(defcustom w3m-bookmark-file + (expand-file-name "bookmark.html" w3m-profile-directory) + "Bookmark file of w3m." + :group 'w3m + :type '(file :size 0)) + +(defcustom w3m-bookmark-file-coding-system 'euc-japan + "Coding system for a created bookmark file. +This option is used when a new bookmark file is created, or when an +existing bookmark file includes ASCII characters only. If the coding +system which is used to encode your using bookmark file is different +from the value of this option, emacs-w3m does not change the encoding +of your bookmark file." + :group 'w3m + :type '(coding-system :size 0)) + +(defcustom w3m-bookmark-default-section + nil + "Default section to add new entry." + :group 'w3m + :type '(radio (const :tag "Not specified" nil) + (string :format "Default section name: %v\n" :size 0))) + +(defcustom w3m-bookmark-mode-hook nil + "*Hook run at the end of function `w3m-bookmark-mode'." + :group 'w3m + :type 'hook) + +(defcustom w3m-bookmark-menu-open-new-session nil + "If non-nil, \"Bookmark\" menu item open new session." + :group 'w3m + :type 'boolean) + +(eval-and-compile + (defconst w3m-bookmark-section-delimiter + "<!--End of section (do not delete this comment)-->\n")) + +(eval-and-compile + (defconst w3m-bookmark-section-format + (eval-when-compile + (concat "<h2>%s</h2>\n<ul>\n" + "<li><a href=\"%s\">%s</a>\n" + w3m-bookmark-section-delimiter + "</ul>\n")))) + +(defconst w3m-bookmark-initial-format + (eval-when-compile + (concat "<html><head><title>Bookmarks</title></head>\n" + "<body>\n<h1>Bookmarks</h1>\n" + w3m-bookmark-section-format + "</body>\n</html>\n"))) + +(defvar w3m-bookmark-section-history nil) +(defvar w3m-bookmark-title-history nil) + +(defvar w3m-bookmark-buffer-file-name nil + "Non-nil means that `w3m-bookmark-file' has been loaded to this buffer.") +(make-variable-buffer-local 'w3m-bookmark-buffer-file-name) + +(defvar w3m-bookmark-mode-map + (let ((map (make-sparse-keymap)) + (table '((kill-line . w3m-bookmark-kill-entry) + (undo . w3m-bookmark-undo)))) + (dolist (pair table) + (substitute-key-definition (car pair) (cdr pair) map global-map)) + (substitute-key-definition 'w3m-edit-current-url 'w3m-bookmark-edit + map w3m-mode-map) + map) + "*Keymap for `w3m-bookmark-mode'.") + +(defvar w3m-bookmark-mode nil "Non-nil if w3m bookmark mode is enabled.") +(make-variable-buffer-local 'w3m-bookmark-mode) +(unless (assq 'w3m-bookmark-mode minor-mode-alist) + (push (list 'w3m-bookmark-mode " bookmark") minor-mode-alist)) +(unless (assq 'w3m-bookmark-mode minor-mode-map-alist) + (push (cons 'w3m-bookmark-mode w3m-bookmark-mode-map) minor-mode-map-alist)) + +(defun w3m-bookmark-mode (&optional arg) + "\\<w3m-bookmark-mode-map> +Minor mode to edit bookmark. + +\\[w3m-bookmark-kill-entry] Kill the current entry of this bookmark. +\\[w3m-bookmark-undo] Undo some previous changes on this bookmark. +\\[w3m-bookmark-edit] Open `w3m-bookmark-file'. +" + (interactive "P") + (when (setq w3m-bookmark-mode + (if arg + (> (prefix-numeric-value arg) 0) + (not w3m-bookmark-mode))) + (run-hooks 'w3m-bookmark-mode-hook))) + +(defun w3m-bookmark-mode-setter (url) + "Activate `w3m-bookmark-mode', when visiting page shows bookmark." + (w3m-bookmark-mode (if (string-match "\\`about://bookmark/" url) + (progn + (setq default-directory + (file-name-directory w3m-bookmark-file)) + 1) + 0))) +(add-hook 'w3m-display-functions 'w3m-bookmark-mode-setter) + +(defun w3m-bookmark-file-modtime () + "Return the modification time of the bookmark file `w3m-bookmark-file'. +The value is a list of two time values `(HIGH LOW)' if the bookmark +file exists, otherwise nil." + (nth 5 (file-attributes w3m-bookmark-file))) + +(defun w3m-bookmark-buffer (&optional no-verify-modtime) + "Return the buffer reading `w3m-bookmark-file' current." + (let ((buffer (get-file-buffer w3m-bookmark-file))) + (if buffer + ;; When a buffer visiting `w3m-bookmark-file' is found, return + ;; it instead of a working buffer. In this case, kill the + ;; working buffer which was generated in the past. + (progn (w3m-kill-buffer " *w3m bookmark*") buffer) + ;; Generate a working buffer. + (with-current-buffer (w3m-get-buffer-create " *w3m bookmark*") + (unless (and w3m-bookmark-buffer-file-name + (or no-verify-modtime + (equal (w3m-visited-file-modtime) + (w3m-bookmark-file-modtime)))) + (when (file-readable-p w3m-bookmark-file) + (buffer-disable-undo) + (erase-buffer) + (let ((coding-system-for-read 'binary)) + (insert-file-contents w3m-bookmark-file)) + (w3m-decode-buffer + (w3m-expand-file-name-as-url w3m-bookmark-file)) + (set-buffer-file-coding-system + (if (memq w3m-current-coding-system + '(undecided undecided-dos undecided-mac undecided-unix)) + w3m-bookmark-file-coding-system + w3m-current-coding-system)) + (set-buffer-modified-p nil)) + (setq w3m-bookmark-buffer-file-name w3m-bookmark-file) + (set-visited-file-modtime (or (w3m-bookmark-file-modtime) + ;; No bookmark file. + (with-temp-buffer + ;; 0 in Emacs; (0 . 0) in XEmacs + (visited-file-modtime)))) + (buffer-enable-undo)) + (current-buffer))))) + +(defun w3m-bookmark-verify-modtime () + (unless (equal (w3m-visited-file-modtime) + (w3m-bookmark-file-modtime)) + (if (buffer-file-name) + (ask-user-about-supersession-threat w3m-bookmark-file) + (let ((modified (buffer-modified-p)) + (name (buffer-name))) + (unwind-protect + (progn + (set-visited-file-name w3m-bookmark-file) + (ask-user-about-supersession-threat w3m-bookmark-file)) + (set-visited-file-name nil) + (rename-buffer name) + (set-buffer-modified-p modified)))))) + +(defun w3m-bookmark-sections () + "Return collection of registered sections." + (let (sections) + (with-current-buffer (w3m-bookmark-buffer) + (goto-char (point-min)) + (while (search-forward "<h2>" nil t) + (push (cons (buffer-substring-no-properties + (point) + (if (search-forward "</h2>" nil t) + (match-beginning 0) + (point-at-eol))) + nil) + sections))) + (nreverse sections))) + +(defun w3m-bookmark-save-buffer () + "Save this current buffer to `w3m-bookmark-file'." + (cond + ((buffer-file-name) + (basic-save-buffer)) + ((buffer-modified-p) + (let ((backup-info (find-backup-file-name w3m-bookmark-file)) + (modes (when (file-exists-p w3m-bookmark-file) + (file-modes w3m-bookmark-file)))) + (when (and modes ; means that `w3m-bookmark-file' exists. + make-backup-files + (funcall backup-enable-predicate w3m-bookmark-file)) + (rename-file w3m-bookmark-file (car backup-info) t)) + (write-region (point-min) (point-max) w3m-bookmark-file) + (when modes + (set-file-modes w3m-bookmark-file modes)) + (set-visited-file-modtime (w3m-bookmark-file-modtime)) + (set-buffer-modified-p nil) + (dolist (file (cdr backup-info)) + (condition-case () + (delete-file file) + (file-error nil))))))) + +(defun w3m-bookmark-safe-string (string format) + (labels ((filter (s c) (decode-coding-string (encode-coding-string s c) c))) + (if (let ((encoding (w3m-static-when (featurep 'mule) + buffer-file-coding-system))) + (or (string= string (filter string encoding)) + (when w3m-use-mule-ucs + (string= (setq string + (filter string + (if w3m-accept-japanese-characters + 'w3m-euc-japan + 'w3m-iso-latin-1))) + (filter string encoding))))) + string + (error format string)))) + +(defun w3m-bookmark-write-file (url title section) + "Make new bookmark with specified spec, and save it." + (with-current-buffer (w3m-bookmark-buffer) + (setq title (w3m-bookmark-safe-string + title + "Specified title includes unsafe character(s): %s") + section (w3m-bookmark-safe-string + section + "Specified section includes unsafe character(s): %s")) + (if (zerop (buffer-size)) + ;; New bookmark file. + (progn + (insert (format w3m-bookmark-initial-format section url title)) + (set-buffer-file-coding-system w3m-bookmark-file-coding-system)) + (goto-char (point-min)) + (if (search-forward (format "<h2>%s</h2>" section) nil t) + (progn + (unless (search-forward w3m-bookmark-section-delimiter nil t) + (error "Can't find section delimiter: %s" section)) + (goto-char (match-beginning 0)) + (insert (format "<li><a href=\"%s\">%s</a>\n" url title))) + ;; New section. + (unless (search-forward "</body>\n" nil t) + (error "%s" "Can't find terminator of bookmark")) + (goto-char (match-beginning 0)) + (insert (format w3m-bookmark-section-format + section url title)))) + (w3m-bookmark-save-buffer))) + +(defun w3m-bookmark-add (url &optional title) + "Add URL to bookmark. +Optional argument TITLE is title of link." + (let ((section (completing-read + (if w3m-bookmark-default-section + (format "Section (default %s): " + w3m-bookmark-default-section) + "Section: ") + (w3m-bookmark-sections) nil nil nil + 'w3m-bookmark-section-history))) + (and (string= section "") + (setq section w3m-bookmark-default-section)) + (when (or (not section) + (string-match section "^ *$")) + (error "%s" "You must specify section name")) + (setq title (read-string "Title: " title 'w3m-bookmark-title-history)) + (when (or (not title) + (string-match title "^ *$")) + (error "%s" "You must specify title")) + (w3m-bookmark-write-file url + (w3m-encode-specials-string title) + (w3m-encode-specials-string section)))) + +;;;###autoload +(defun w3m-bookmark-add-this-url () + "Add link under cursor to bookmark." + (interactive) + (if (null (w3m-anchor)) + (message "No anchor") ; nothing to do + (let ((url (w3m-anchor)) + (title (buffer-substring-no-properties + (previous-single-property-change (1+ (point)) + 'w3m-href-anchor) + (next-single-property-change (point) 'w3m-href-anchor)))) + (w3m-bookmark-add url title)) + (message "Added"))) + +;;;###autoload +(defun w3m-bookmark-add-current-url (&optional arg) + "Add a url of the current page to the bookmark. +With prefix, ask for a new url instead of the present one." + (interactive "P") + (w3m-bookmark-add (if arg (w3m-input-url) w3m-current-url) + w3m-current-title) + (message "Added")) + +;;;###autoload +(defun w3m-bookmark-add-all-urls () + "Add urls of all pages being visited to the bookmark." + (interactive) + (let ((buffers (w3m-list-buffers))) + (if (and w3m-use-tab + (>= (length buffers) 2)) + (while buffers + (switch-to-buffer (pop buffers)) + (condition-case nil + (w3m-bookmark-add-current-url) + (quit))) + (message + "Use the `%s' command instead" + (key-description (car (where-is-internal 'w3m-bookmark-add-current-url + w3m-mode-map))))))) + +;;;###autoload +(defun w3m-bookmark-add-current-url-group () + "Add link of the group of current urls to the bookmark." + (interactive) + (w3m-bookmark-add + (concat "group:" + (mapconcat + 'w3m-url-encode-string + (mapcar (lambda (buffer) + (with-current-buffer buffer w3m-current-url)) + (w3m-list-buffers)) + "&"))) + (message "Added as URL group")) + +;;;###autoload +(defun w3m-bookmark-view (&optional reload) + "Display the bookmark." + (interactive "P") + (if (file-exists-p w3m-bookmark-file) + (w3m-goto-url "about://bookmark/" reload) + (message "No bookmark file is available"))) + +;;;###autoload +(defun w3m-bookmark-view-new-session (&optional reload) + "Display the bookmark on a new session." + (interactive "P") + (if (not (eq major-mode 'w3m-mode)) + (message "This command can be used in w3m mode only") + (if (file-exists-p w3m-bookmark-file) + (w3m-view-this-url-1 "about://bookmark/" reload 'new-session) + (message "No bookmark file is available")))) + +;;;###autoload +(defun w3m-about-bookmark (&rest args) + (insert-buffer-substring (w3m-bookmark-buffer)) + (let ((ident) (i 0) (j 0)) + (goto-char (point-min)) + (while (search-forward (setq ident (format "w3mbk%d." i)) nil t) + (incf i)) + (setq i 0) + (goto-char (point-min)) + (while (re-search-forward "\n<\\(?:h2\\|\\(li\\)\\)>" nil t) + (forward-char -1) + (insert (if (match-beginning 1) + (format " id=\"%s%d.%d\"" ident i (incf j)) + (format " id=\"%s%d\"" ident (incf i)))))) + "text/html") + +(defun w3m-bookmark-current-number () + "Return the ordinal number of the current bookmark entry." + (let ((x (car (get-text-property (point-at-eol) 'w3m-name-anchor)))) + (and x + (string-match "\\`w3mbk[0-9]+\\.[0-9]+\\.\\([0-9]+\\)\\'" x) + (string-to-number (match-string 1 x))))) + +(defun w3m-bookmark-kill-entry (num) + "Kill the bookmark entry of the current line. +With prefix argument, kill that many entries from point." + (interactive "p") + (let ((entries (w3m-bookmark-current-number))) + (when entries + (setq entries (list entries)) + (while (> (decf num) 0) + (push (1+ (car entries)) entries)) + (condition-case nil + (w3m-bookmark-kill-entries entries) + (file-supersession nil)) + (w3m-bookmark-view t)))) + +(defun w3m-bookmark-kill-entries (entries) + (with-current-buffer (w3m-bookmark-buffer t) + (w3m-bookmark-verify-modtime) + (goto-char (point-min)) + (let ((i 0)) + (while (search-forward "\n<li>" nil t) + (when (memq (incf i) entries) + (let ((beg (point-at-bol)) + (end (progn + (search-forward w3m-bookmark-section-delimiter) + (match-beginning 0)))) + (delete-region (goto-char beg) + (if (search-forward "\n<li>" end t) + (point-at-bol) + end)) + (goto-char (1- beg)))))) + (w3m-bookmark-save-buffer))) + +(defun w3m-bookmark-undo (&optional arg) + "Undo some previous changes on bookmark." + (interactive "p") + (condition-case nil + (with-current-buffer (w3m-bookmark-buffer t) + (w3m-bookmark-verify-modtime) + (undo arg) + (w3m-bookmark-save-buffer)) + (file-supersession nil)) + (w3m-bookmark-view t)) + +(defun w3m-bookmark-edit () + "Edit the bookmark file." + (interactive) + (w3m-edit-url (w3m-expand-file-name-as-url w3m-bookmark-file))) + +;; Bookmark menu +(defvar w3m-bookmark-menu-items + (let ((etsu (when w3m-use-japanese-menu + (decode-coding-string "\e$B1\\\e(B" 'iso-2022-jp)))) ;; $B1\(B + `(([,(w3m-make-menu-item (concat "$B%V%C%/%^!<%/$N(B" etsu "$BMw(B") "View Bookmark") + w3m-bookmark-view t] + [,(w3m-make-menu-item (concat "$B?7%;%C%7%g%s$G%V%C%/%^!<%/$N(B" etsu "$BMw(B") + "View Bookmark in a New Session") + w3m-bookmark-view-new-session t] + [,(w3m-make-menu-item "$B%V%C%/%^!<%/$NJT=8(B" "Edit Bookmark") + w3m-bookmark-edit t] + "----" + [,(w3m-make-menu-item "$B$3$N%Z!<%8$r%V%C%/%^!<%/(B" "Add Current URL to Bookmark") + w3m-bookmark-add-current-url t] + [,(w3m-make-menu-item "$B$9$Y$F$N(B URL $B$r%V%C%/%^!<%/(B" "Add These URLs to Bookmark") + w3m-bookmark-add-current-url-group t] + [,(w3m-make-menu-item "$B$3$N(B URL $B$r%V%C%/%^!<%/(B" "Add This URL to Bookmark") + w3m-bookmark-add-this-url (w3m-anchor)]) + . + ([,(w3m-make-menu-item "$B$3$N%(%s%H%j$r>C5n(B" "Kill Current Entry") + w3m-bookmark-kill-entry + (text-property-not-all (point-at-bol) (point-at-eol) + 'w3m-href-anchor nil)] + [,(w3m-make-menu-item "$B$b$H$KLa$9(B" "Undo") + w3m-bookmark-undo t] + [,(w3m-make-menu-item "$B%V%C%/%^!<%/$NJT=8(B" "Edit Bookmark") + w3m-bookmark-edit t]))) + "*List of the bookmark menu items. +The car is used if `w3m-bookmark-mode' is nil, otherwise the cdr is used.") + +;;;###autoload +(defun w3m-setup-bookmark-menu () + "Setup w3m bookmark items in menubar." + (w3m-static-if (featurep 'xemacs) + (unless (car (find-menu-item current-menubar '("Bookmark"))) + (easy-menu-define w3m-bookmark-menu w3m-mode-map + "" '("Bookmark" ["(empty)" ignore nil])) + (easy-menu-add w3m-bookmark-menu) + (add-hook 'activate-menubar-hook 'w3m-bookmark-menubar-update)) + (unless (lookup-key w3m-mode-map [menu-bar Bookmark]) + (easy-menu-define w3m-bookmark-menu w3m-mode-map "" '("Bookmark")) + (easy-menu-add w3m-bookmark-menu) + (add-hook 'menu-bar-update-hook 'w3m-bookmark-menubar-update)))) + +(defun w3m-bookmark-menubar-update () + "Update w3m bookmark menubar." + (when (and (eq major-mode 'w3m-mode) + (w3m-static-if (featurep 'xemacs) + (frame-property (selected-frame) 'menubar-visible-p) + menu-bar-mode)) + (let ((items (if w3m-bookmark-mode + (cdr w3m-bookmark-menu-items) + (car w3m-bookmark-menu-items))) + (pages (w3m-bookmark-make-menu-items))) + (easy-menu-define w3m-bookmark-menu w3m-mode-map + "The menu kepmap for the emacs-w3m bookmark." + (cons "Bookmark" (if pages + (append items '("----") pages) + items))) + (w3m-static-when (featurep 'xemacs) + (when (setq items (car (find-menu-item current-menubar '("Bookmark")))) + (setcdr items (cdr w3m-bookmark-menu)) + (set-buffer-menubar current-menubar)))))) + +(defun w3m-bookmark-iterator () + "Iteration bookmark groups/entries. +Format as (list (\"Group name\" . (\"Entry URL\" . \"Entry name\")* )* )." + (let ((entries nil)) + (with-current-buffer (w3m-bookmark-buffer) + (goto-char (point-min)) + (let (group entry beg end) + (while (re-search-forward "<h2>\\([^<]+\\)</h2>" nil t) + (setq group (match-string-no-properties 1)) + (setq beg (match-beginning 0)) + (setq end (re-search-forward "</ul>" nil t)) + (save-excursion + (let (urls) + (narrow-to-region beg end) + (goto-char (point-min)) + (while (re-search-forward + "<a href=\"\\([^\"]+\\)\">\\([^<]+\\)</a>" + nil t) + (push (cons (match-string-no-properties 1) + (match-string-no-properties 2)) + urls)) + (setq entry (cons group (nreverse urls))) + (push entry entries) + (widen))) + (goto-char (match-end 0)))) + (nreverse entries)))) + +(defun w3m-bookmark-menu-open-item (url) + "Open URL at current/new buffer" + (if w3m-bookmark-menu-open-new-session + (w3m-goto-url-new-session url) + (w3m-goto-url url))) + +(defvar w3m-bookmark-menu-items-pre nil) +(defvar w3m-bookmark-menu-items-time nil) + +(defvar w3m-bookmark-make-item-xmas + (and (equal "Japanese" w3m-language) (featurep 'xemacs))) + +(defun w3m-bookmark-make-item (item) + (if w3m-bookmark-make-item-xmas + (concat item "%_ ") + item)) + +(defun w3m-bookmark-make-menu-items (&optional nomenu) + "Create w3m bookmark menu items." + (when (not nomenu) + (if (and w3m-bookmark-menu-items-pre + w3m-bookmark-menu-items-time + (equal w3m-bookmark-menu-items-time + (w3m-bookmark-file-modtime))) + w3m-bookmark-menu-items-pre + (setq w3m-bookmark-menu-items-time (w3m-bookmark-file-modtime)) + (let ((entries (when (file-exists-p w3m-bookmark-file) + (w3m-bookmark-iterator)))) + (setq w3m-bookmark-menu-items-pre + (and entries + (mapcar + (lambda (entry) + (let ((group (car entry)) + (items (cdr entry))) + (cons (w3m-bookmark-make-item group) + (and items + (mapcar + (lambda (item) + (vector + (w3m-bookmark-make-item (cdr item)) + `(w3m-bookmark-menu-open-item + ,(car item)))) + items))))) + entries))))))) + +(provide 'w3m-bookmark) + +;;; w3m-bookmark.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-bug.el b/share/emacs/site-lisp/w3m/w3m-bug.el new file mode 100644 index 00000000000..a5d790b6cee --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-bug.el @@ -0,0 +1,192 @@ +;;; w3m-bug.el --- command to report emacs-w3m bugs -*- coding: euc-japan -*- + +;; Copyright (C) 2002, 2003, 2005, 2007, 2010 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Author: Katsumi Yamaoka <yamaoka@jpl.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; `M-x report-emacs-w3m-bug' starts an email note to the emacs-w3m +;; developers describing a problem. + +;;; Code: + +(defvar report-emacs-w3m-bug-address "emacs-w3m@namazu.org" + "*Address of mailing list for emacs-w3m bugs.") + +(defvar report-emacs-w3m-bug-no-explanations nil + "*If non-nil, suppress the explanations given for the sake of novice users.") + +(defconst report-emacs-w3m-bug-system-informations + (eval + '`(emacs-w3m-version + emacs-version + ,@(if (or (boundp 'mule-version) + (functionp 'mule-version)) + '(mule-version)) + ,@(cond ((featurep 'xemacs) + '((featurep 'mule) + (featurep 'file-coding))) + ((or (boundp 'Meadow-version) + (functionp 'Meadow-version)) + '(Meadow-version))) + system-type + (featurep 'gtk) + w3m-version + w3m-type + w3m-compile-options + w3m-language + w3m-command-arguments + w3m-command-arguments-alist + w3m-command-environment + w3m-input-coding-system + w3m-output-coding-system + w3m-use-mule-ucs)) + "List of the system informations. Users should NEVER modify the value." + ;; For the developers: + ;; It is possible that it would be a security hole. To prevent those + ;; rogue attacks, this constant should be reloaded for each time to + ;; send a bug report. Each element can be the symbol of a variable, + ;; a Lisp function with no argument or any Lisp form to be evaluated. + ) + +(eval-when-compile + (require 'cl)) + +(defun report-emacs-w3m-bug (topic &optional buffer) + "Report a bug in emacs-w3m. +Prompts for bug subject. Leaves you in a mail buffer." + (interactive + (let* ((buffer (current-buffer)) + (buffers (cons buffer (delq buffer (buffer-list)))) + (inhibit-point-motion-hooks t) + keymap) + (save-current-buffer + (while buffers + (setq buffer (car buffers) + buffers (cdr buffers)) + (set-buffer buffer) + (save-restriction + (widen) + (if (or (eq major-mode 'w3m-mode) + (and (keymapp (setq keymap + (or (get-text-property + (max (1- (point-max)) (point-min)) + 'keymap) + (get-text-property + (max (1- (point-max)) (point-min)) + 'local-map))))) + (where-is-internal 'w3m-print-current-url keymap)) + (setq buffers nil) + (setq buffer nil))))) + (list (read-string "Bug Subject: ") buffer))) + (let (after-load-alist) + ;; See the comment for `report-emacs-w3m-bug-system-informations'. + (load "w3m-bug")) + (compose-mail report-emacs-w3m-bug-address topic nil 'new) + (goto-char (point-min)) + (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$")) + (forward-line 1) + (unless buffer + (insert + (if (and (boundp 'w3m-language) + (equal (symbol-value 'w3m-language) "Japanese")) + "¤â¤·²Äǽ¤Ê¤é emacs-w3m ¤òµ¯Æ°¤·¤Æ¤«¤é¤ä¤êľ¤·¤Æ¤¯¤À¤µ¤¤¡£\n" + "It is if possible, please redo after starting emacs-w3m.\n") + "\ +================================================================\n")) + (unless report-emacs-w3m-bug-no-explanations + ;; Insert warnings for the novice users. + (if (and (boundp 'w3m-language) + (equal (symbol-value 'w3m-language) "Japanese")) + (progn + (insert "¤³¤Î¥Ð¥°¥ê¥Ý¡¼¥È¤Ï emacs-w3m ³«È¯¥Á¡¼¥à¤ËÁ÷¤é¤ì¤Þ¤¹¡£\n") + (put-text-property (point) + (progn + (insert "\ +¤¢¤Ê¤¿¤Î¥í¡¼¥«¥ë¥µ¥¤¥È¤Î´ÉÍý¼Ô°¸¤Æ¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó!!") + (point)) + 'face 'underline) + (insert "\n\n¤Ç¤¤ë¤À¤±´Ê·é¤Ë½Ò¤Ù¤Æ¤¯¤À¤µ¤¤: +\t- ²¿¤¬µ¯¤¤Þ¤·¤¿¤«? +\t- ËÜÅö¤Ï¤É¤¦¤Ê¤ë¤Ù¤¤À¤Ã¤¿¤È»×¤¤¤Þ¤¹¤«? +\t- ¤½¤Î¤È¤²¿¤ò¤·¤Þ¤·¤¿¤«? (Àµ³Î¤Ë) + +¤â¤· Lisp ¤Î¥Ð¥Ã¥¯¥È¥ì¡¼¥¹¤¬¤¢¤ì¤ÐźÉÕ¤·¤Æ¤¯¤À¤µ¤¤¡£\n")) + (insert "\ +This bug report will be sent to the emacs-w3m development team,\n") + (put-text-property (point) + (progn + (insert " not to your local site managers!!") + (point)) + 'face 'italic) + (insert "\nPlease write in ") + (put-text-property (point) (progn + (insert "simple") + (point)) + 'face 'italic) + (insert " English, because the emacs-w3m developers +aren't good at English reading. ;-) + +Please describe as succinctly as possible: +\t- What happened. +\t- What you thought should have happened. +\t- Precisely what you were doing at the time. + +Please also include any Lisp back-traces that you may have.\n")) + (insert "\ +================================================================\n")) + (insert "Dear Bug Team!\n\n") + (let ((user-point (point)) + (print-escape-newlines t) + (print-quoted t) + infos print-length print-level) + (insert "\n +================================================================ + +System Info to help track down your bug: +---------------------------------------\n") + (with-current-buffer (or buffer (current-buffer)) + (dolist (info report-emacs-w3m-bug-system-informations) + (push (prin1-to-string info) infos) + (push "\n => " infos) + (push (cond ((functionp info) + (prin1-to-string (condition-case code + (funcall info) + (error + code)))) + ((symbolp info) + (prin1-to-string (condition-case code + (symbol-value info) + (error + code)))) + ((consp info) + (prin1-to-string (condition-case code + (eval info) + (error + code))))) + infos) + (push "\n" infos))) + (apply 'insert (nreverse infos)) + (goto-char user-point))) + +;;; w3m-bug.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-ccl.el b/share/emacs/site-lisp/w3m/w3m-ccl.el new file mode 100644 index 00000000000..e8bea09c0ec --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-ccl.el @@ -0,0 +1,202 @@ +;;; w3m-ccl.el --- CCL programs to process Unicode and internal characters. + +;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 2007 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; ARISAWA Akihiro <ari@mbf.sphere.ne.jp> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This file contains CCL programs to process Unicode and internal +;; characters of w3m. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + +;;; MEMO: + +;; It is possible to support multi scripts without Mule-UCS. For more +;; detail, see [emacs-w3m:01950] + +;;; Code: + +(eval-and-compile + (cond + ((featurep 'xemacs) + (require 'pccl)) + (t + (require 'ccl)))) + +;;; CCL programs: + +(eval-when-compile + (when (and (not (fboundp 'charset-id)) + (fboundp 'charset-id-internal)) + (defmacro charset-id (charset) + "Return charset identification number of CHARSET." + `(charset-id-internal ,charset)))) + +(eval-and-compile + (defconst w3m-internal-characters-alist + '((?\x90 . ? ) ; ANSP (use for empty anchor) + (?\x91 . ? ) ; IMSP (blank around image) + (?\xa0 . ? )) ; NBSP (non breakble space) + "Alist of internal characters v.s. ASCII characters.") + + (defun w3m-ccl-write-repeat (charset &optional r0 r1) + (unless r0 + (setq r0 'r0)) + (unless r1 + (setq r1 (if (eq r0 'r1) 'r0 'r1))) + (let ((unibyte (memq charset '(latin-iso8859-1 katakana-jisx0201)))) + (if (fboundp 'ccl-compile-write-multibyte-character) + `((,r1 &= ?\x7f) + ,@(unless unibyte + `((,r1 |= ((,r0 & ?\x7f) << 7)))) + (,r0 = ,(charset-id charset)) + (write-multibyte-character ,r0 ,r1) + (repeat)) + `((write ,(charset-id charset)) + ,@(unless unibyte + `((write ,r0))) + (write-repeat ,r1))))) + + (defconst w3m-ccl-write-euc-japan-character + (when (fboundp 'ccl-compile-read-multibyte-character) + `((read-multibyte-character r1 r0) + (if (r1 == ,(charset-id 'ascii)) + ;; (1) ASCII characters + (write-repeat r0)) + (if (r1 == ,(charset-id 'latin-jisx0201)) + ;; (2) Latin Part of Japanese JISX0201.1976 + ;; Convert to ASCII + (write-repeat r0)) + (r2 = (r1 == ,(charset-id 'japanese-jisx0208-1978))) + (if ((r1 == ,(charset-id 'japanese-jisx0208)) | r2) + ;; (3) Characters of Japanese JISX0208. + ((r1 = ((r0 & 127) | 128)) + (r0 = ((r0 >> 7) | 128)) + (write r0) + (write-repeat r1))) + (if (r1 == ,(charset-id 'katakana-jisx0201)) + ;; (4) Katakana Part of Japanese JISX0201.1976 + ((r0 |= 128) + (write ?\x8e) + (write-repeat r0))))) + "CCL program to write characters represented in `euc-japan'.") + + (defconst w3m-ccl-write-iso-latin-1-character + (when (fboundp 'ccl-compile-read-multibyte-character) + `((read-multibyte-character r1 r0) + (if (r1 == ,(charset-id 'ascii)) + ;; (1) ASCII characters + (write-repeat r0)) + (if (r1 == ,(charset-id 'latin-jisx0201)) + ;; (2) Latin Part of Japanese JISX0201.1976 + ;; Convert to ASCII + (write-repeat r0)) + (if (r1 == ,(charset-id 'latin-iso8859-1)) + ;; (3) Latin-1 characters + ((r0 |= ?\x80) + (write-repeat r0))))) + "CCL program to write characters represented in `iso-latin-1'.") + + (defconst w3m-ccl-generate-ncr + `((r1 = 0) + (r2 = 0) + (loop + (r1 = (r1 << 4)) + (r1 |= (r0 & 15)) + (r0 = (r0 >> 4)) + (if (r0 == 0) + (break) + ((r2 += 1) + (repeat)))) + (write "&#x") + (loop + (branch (r1 & 15) + ,@(mapcar + (lambda (i) + (list 'write (string-to-char (format "%x" i)))) + '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))) + (r1 = (r1 >> 4)) + (if (r2 == 0) + ((write ?\;) + (break)) + ((r2 -= 1) + (repeat)))) + (repeat)) + "CCL program to generate a string which represents a UCS codepoint +in NCR (Numeric Character References).")) + +(define-ccl-program w3m-euc-japan-decoder + `(2 + (loop + (read r0) + ;; Process normal EUC characters. + (if (r0 < ?\x80) + (write-repeat r0)) + (if (r0 > ?\xa0) + ((read r1) + ,@(w3m-ccl-write-repeat 'japanese-jisx0208))) + (if (r0 == ?\x8e) + ((read r1) + ,@(w3m-ccl-write-repeat 'katakana-jisx0201))) + (if (r0 == ?\x8f) + ((read r0) + (read r1) + ,@(w3m-ccl-write-repeat 'japanese-jisx0212))) + ;; Process internal characters used in w3m. + ,@(mapcar (lambda (pair) + `(if (r0 == ,(car pair)) + (write-repeat ,(cdr pair)))) + w3m-internal-characters-alist) + (write-repeat r0)))) + +(unless (get 'w3m-euc-japan-encoder 'ccl-program-idx) + (define-ccl-program w3m-euc-japan-encoder + `(1 (loop (read r0) (write-repeat r0))))) + +(define-ccl-program w3m-iso-latin-1-decoder + `(2 + (loop + (read r0) + ;; Process ASCII characters. + (if (r0 < ?\x80) + (write-repeat r0)) + ;; Process Latin-1 characters. + (if (r0 > ?\xa0) + (,@(w3m-ccl-write-repeat 'latin-iso8859-1 'r1))) + ;; Process internal characters used in w3m. + ,@(mapcar (lambda (pair) + `(if (r0 == ,(car pair)) + (write-repeat ,(cdr pair)))) + w3m-internal-characters-alist) + (write-repeat r0)))) + +(unless (get 'w3m-iso-latin-1-encoder 'ccl-program-idx) + (define-ccl-program w3m-iso-latin-1-encoder + `(1 (loop (read r0) (write-repeat r0))))) + + +(provide 'w3m-ccl) + +;;; w3m-ccl.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-cookie.el b/share/emacs/site-lisp/w3m/w3m-cookie.el new file mode 100644 index 00000000000..f79ff5cf71a --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-cookie.el @@ -0,0 +1,578 @@ +;;; w3m-cookie.el --- Functions for cookie processing + +;; Copyright (C) 2002, 2003, 2005, 2006, 2008, 2009, 2010 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: Teranishi Yuuichi <teranisi@gohome.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This file contains the functions for cookies. For more detail +;; about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + +;; Reference for version 0 cookie: +;; http://www.netscape.com/newsref/std/cookie_spec.html +;; Reference for version 1 cookie: +;; http://www.ietf.org/rfc/rfc2965.txt +;; + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m-util) +(require 'w3m) + +(defvar w3m-cookies nil + "A list of cookie elements. +Currently only browser local cookies are stored.") + +(defconst w3m-cookie-two-dot-domains-regexp + (concat "\\.\\(?:" + (mapconcat 'identity (list "com" "edu" "net" "org" "gov" "mil" "int") + "\\|") + "\\)$") + "A regular expression of top-level domains that only require two matching +'.'s in the domain name in order to set a cookie.") + +(defcustom w3m-cookie-accept-domains nil + "A list of trusted domain name string." + :group 'w3m + :type '(repeat (string :format "Domain name: %v\n" :size 0))) + +(defcustom w3m-cookie-reject-domains nil + "A list of untrusted domain name string." + :group 'w3m + :type '(repeat (string :format "Domain name: %v\n" :size 0))) + +(defcustom w3m-cookie-accept-bad-cookies nil + "If nil, don't accept bad cookies. +If t, accept bad cookies. +If ask, ask user whether accept bad cookies or not." + :group 'w3m + :type '(radio + (const :tag "Don't accept bad cookies" nil) + (const :tag "Ask accepting bad cookies" ask) + (const :tag "Always accept bad cookies" t))) + +(defcustom w3m-cookie-save-cookies t + "*Non-nil means save cookies when emacs-w3m cookie system shutdown." + :group 'w3m + :type 'boolean) + +(defcustom w3m-cookie-file + (expand-file-name ".cookie" w3m-profile-directory) + "File in which cookies are kept." + :group 'w3m + :type '(file :size 0)) + +;;; Cookie accessor. +(defmacro w3m-cookie-url (cookie) + `(aref ,cookie 0)) +(defmacro w3m-cookie-domain (cookie) + `(aref ,cookie 1)) +(defmacro w3m-cookie-secure (cookie) + `(aref ,cookie 2)) +(defmacro w3m-cookie-name (cookie) + `(aref ,cookie 3)) +(defmacro w3m-cookie-value (cookie) + `(aref ,cookie 4)) +(defmacro w3m-cookie-path (cookie) + `(aref ,cookie 5)) +(defmacro w3m-cookie-version (cookie) + `(aref ,cookie 6)) +(defmacro w3m-cookie-expires (cookie) + `(aref ,cookie 7)) +(defmacro w3m-cookie-ignore (cookie) + `(aref ,cookie 8)) + +(defun w3m-cookie-create (&rest args) + (let ((cookie (make-vector 9 nil))) + (setf (w3m-cookie-url cookie) (plist-get args :url)) + (setf (w3m-cookie-domain cookie) (plist-get args :domain)) + (setf (w3m-cookie-secure cookie) (plist-get args :secure)) + (setf (w3m-cookie-name cookie) (plist-get args :name)) + (setf (w3m-cookie-value cookie) (plist-get args :value)) + (setf (w3m-cookie-path cookie) (plist-get args :path)) + (setf (w3m-cookie-version cookie) (or (plist-get args :version) 0)) + (setf (w3m-cookie-expires cookie) (plist-get args :expires)) + (setf (w3m-cookie-ignore cookie) (plist-get args :ignore)) + cookie)) + +(defun w3m-cookie-store (cookie) + "Store COOKIE." + (let (ignored) + (catch 'found + (dolist (c w3m-cookies) + (when (and (string= (w3m-cookie-domain c) + (w3m-cookie-domain cookie)) + (string= (w3m-cookie-path c) + (w3m-cookie-path cookie)) + (string= (w3m-cookie-name c) + (w3m-cookie-name cookie))) + (if (w3m-cookie-ignore c) + (setq ignored t) + (setq w3m-cookies (delq c w3m-cookies))) + (throw 'found t)))) + (unless ignored + (push cookie w3m-cookies)))) + +(defun w3m-cookie-remove (domain path name) + "Remove COOKIE if stored." + (dolist (c w3m-cookies) + (when (and (string= (w3m-cookie-domain c) + domain) + (string= (w3m-cookie-path c) + path) + (string= (w3m-cookie-name c) + name)) + (setq w3m-cookies (delq c w3m-cookies))))) + +(defun w3m-cookie-retrieve (host path &optional secure) + "Retrieve cookies for DOMAIN and PATH." + (let ((case-fold-search t) + expires cookies) + (dolist (c w3m-cookies) + (if (and (w3m-cookie-expires c) + (w3m-time-newer-p (current-time) + (w3m-time-parse-string + (w3m-cookie-expires c)))) + (push c expires) + (when (and (not (w3m-cookie-ignore c)) + (or + ;; A special case that domain name is ".hostname". + (string= (concat "." host) (w3m-cookie-domain c)) + (string-match (concat + (regexp-quote (w3m-cookie-domain c)) "$") + host)) + (string-match (concat + "^" (regexp-quote (w3m-cookie-path c))) + path)) + (if (w3m-cookie-secure c) + (if secure + (push c cookies)) + (push c cookies))))) + ;; Delete expired cookies. + (dolist (expire expires) + (setq w3m-cookies (delq expire w3m-cookies))) + cookies)) + +;; HTTP URL parser. +(defun w3m-parse-http-url (url) + "Parse an absolute HTTP URL." + (let (secure split) + (w3m-string-match-url-components url) + (when (and (match-beginning 4) + (or (equal (match-string 2 url) "http") + (setq secure (equal (match-string 2 url) "https")))) + (setq split (save-match-data + (split-string (match-string 4 url) ":"))) + (vector secure + (nth 0 split) + (string-to-number (or (nth 1 split) "80")) + (if (eq (length (match-string 5 url)) 0) + "/" + (match-string 5 url)))))) + +(defsubst w3m-http-url-secure (http-url) + "Secure flag of the HTTP-URL." + (aref http-url 0)) + +(defsubst w3m-http-url-host (http-url) + "Host name of the HTTP-URL." + (aref http-url 1)) + +(defsubst w3m-http-url-port (http-url) + "Port number of the HTTP-URL." + (aref http-url 2)) + +(defsubst w3m-http-url-path (http-url) + "Path of the HTTP-URL." + (aref http-url 3)) + +;;; Cookie parser. +(defvar w3m-cookie-parse-args-syntax-table + (copy-syntax-table emacs-lisp-mode-syntax-table) + "A syntax table for parsing sgml attributes.") + +(modify-syntax-entry ?' "\"" w3m-cookie-parse-args-syntax-table) +(modify-syntax-entry ?` "\"" w3m-cookie-parse-args-syntax-table) +(modify-syntax-entry ?{ "(" w3m-cookie-parse-args-syntax-table) +(modify-syntax-entry ?} ")" w3m-cookie-parse-args-syntax-table) + +(defun w3m-cookie-parse-args (str &optional nodowncase) + (let (name value results name-pos val-pos) + (with-current-buffer (get-buffer-create " *w3m-cookie-parse-temp*") + (erase-buffer) + (set-syntax-table w3m-cookie-parse-args-syntax-table) + (insert str) + (goto-char (point-min)) + (while (not (eobp)) + (skip-chars-forward "; \n\t") + (setq name-pos (point)) + (skip-chars-forward "^ \n\t=;") + (unless nodowncase + (downcase-region name-pos (point))) + (setq name (buffer-substring name-pos (point))) + (skip-chars-forward " \t\n") + (if (/= (or (char-after (point)) 0) ?=) ; There is no value + (setq value nil) + (skip-chars-forward " \t\n=") + (setq val-pos (point) + value + (cond + ((or (= (or (char-after val-pos) 0) ?\") + (= (or (char-after val-pos) 0) ?')) + (buffer-substring (1+ val-pos) + (condition-case () + (prog2 + (forward-sexp 1) + (1- (point)) + (skip-chars-forward "\"")) + (error + (skip-chars-forward "^ \t\n") + (point))))) + (t + (buffer-substring val-pos + (progn + (skip-chars-forward "^;") + (skip-chars-backward " \t") + (point))))))) + (push (cons name value) results) + (skip-chars-forward "; \n\t")) + results))) + +(defun w3m-cookie-trusted-host-p (host) + "Returns non-nil when the HOST is specified as trusted by user." + (let ((accept w3m-cookie-accept-domains) + (reject w3m-cookie-reject-domains) + (trusted t) + regexp tlen rlen) + (while accept + (cond + ((string= (car accept) ".") + (setq regexp ".*")) + ((string= (car accept) ".local") + (setq regexp "^[^\\.]+$")) + ((eq (string-to-char (car accept)) ?.) + (setq regexp (concat (regexp-quote (car accept)) "$"))) + (t (setq regexp (concat "^" (regexp-quote (car accept)) "$")))) + (when (string-match regexp host) + (setq tlen (length (car accept)) + accept nil)) + (pop accept)) + (while reject + (cond + ((string= (car reject) ".") + (setq regexp ".*")) + ((string= (car reject) ".local") + (setq regexp "^[^\\.]+$")) + ((eq (string-to-char (car reject)) ?.) + (setq regexp (concat (regexp-quote (car reject)) "$"))) + (t (setq regexp (concat "^" (regexp-quote (car reject)) "$")))) + (when (string-match (concat regexp "$") host) + (setq rlen (length (car reject)) + reject nil)) + (pop reject)) + (if tlen + (if rlen + (if (<= tlen rlen) + (setq trusted nil))) + (if rlen + (setq trusted nil))) + trusted)) + +;;; Version 0 cookie. +(defun w3m-cookie-1-acceptable-p (host domain) + (let ((numdots 0) + (last nil) + (case-fold-search t) + (mindots 3)) + (while (setq last (string-match "\\." domain last)) + (setq numdots (1+ numdots) + last (1+ last))) + (if (string-match w3m-cookie-two-dot-domains-regexp domain) + (setq mindots 2)) + (cond + ((string= host domain) ; Apparently netscape lets you do this + t) + ;; A special case that domain name is ".hostname". + ((string= (concat "." host) domain) + t) + ((>= numdots mindots) ; We have enough dots in domain name + ;; Need to check and make sure the host is actually _in_ the + ;; domain it wants to set a cookie for though. + (string-match (concat (regexp-quote domain) "$") host)) + (t + nil)))) + +(defun w3m-cookie-1-set (url &rest args) + ;; Set-Cookie:, version 0 cookie. + (let ((http-url (w3m-parse-http-url url)) + (case-fold-search t) + secure domain expires path rest) + (when http-url + (setq secure (and (w3m-assoc-ignore-case "secure" args) t) + domain (or (cdr-safe (w3m-assoc-ignore-case "domain" args)) + (w3m-http-url-host http-url)) + expires (cdr-safe (w3m-assoc-ignore-case "expires" args)) + path (or (cdr-safe (w3m-assoc-ignore-case "path" args)) + (file-name-directory + (w3m-http-url-path http-url)))) + (while args + (if (not (member (downcase (car (car args))) + '("secure" "domain" "expires" "path"))) + (setq rest (cons (car args) rest))) + (setq args (cdr args))) + (cond + ((not (w3m-cookie-trusted-host-p (w3m-http-url-host http-url))) + ;; The site was explicity marked as untrusted by the user + nil) + ((or (w3m-cookie-1-acceptable-p (w3m-http-url-host http-url) domain) + (eq w3m-cookie-accept-bad-cookies t) + (and (eq w3m-cookie-accept-bad-cookies 'ask) + (y-or-n-p (format "Accept bad cookie from %s for %s? " + (w3m-http-url-host http-url) domain)))) + ;; Cookie is accepted by the user, and passes our security checks + (dolist (elem rest) + ;; If a CGI script wishes to delete a cookie, it can do so by + ;; returning a cookie with the same name, and an expires time + ;; which is in the past. + (when (and expires + (w3m-time-newer-p (current-time) + (w3m-time-parse-string expires))) + (w3m-cookie-remove domain path (car elem))) + (w3m-cookie-store + (w3m-cookie-create :url url + :domain domain + :name (car elem) + :value (cdr elem) + :path path + :expires expires + :secure secure)))) + (t + (message "%s tried to set a cookie for domain %s - rejected." + (w3m-http-url-host http-url) domain)))))) + +;;; Version 1 cookie. +(defun w3m-cookie-2-acceptable-p (http-url domain) + ;; A user agent rejects (SHALL NOT store its information) if the Version + ;; attribute is missing. Moreover, a user agent rejects (SHALL NOT + ;; store its information) if any of the following is true of the + ;; attributes explicitly present in the Set-Cookie2 response header: + + ;; * The value for the Path attribute is not a prefix of the + ;; request-URI. + + ;; * The value for the Domain attribute contains no embedded dots, + ;; and the value is not .local. + + ;; * The effective host name that derives from the request-host does + ;; not domain-match the Domain attribute. + + ;; * The request-host is a HDN (not IP address) and has the form HD, + ;; where D is the value of the Domain attribute, and H is a string + ;; that contains one or more dots. + + ;; * The Port attribute has a "port-list", and the request-port was + ;; not in the list. + ) + +(defun w3m-cookie-2-set (url &rest args) + ;; Set-Cookie2:, version 1 cookie. + ;; Not implemented yet. + ) + + +;;; Save & Load +(defvar w3m-cookie-init nil) + +(defun w3m-cookie-clear () + "Clear cookie list." + (setq w3m-cookies nil)) + +(defun w3m-cookie-save (&optional domain) + "Save cookies. +When DOMAIN is non-nil, only save cookies whose domains match it." + (interactive) + (let (cookies) + (dolist (cookie w3m-cookies) + (when (and (or (not domain) + (string= (w3m-cookie-domain cookie) domain)) + (w3m-cookie-expires cookie) + (w3m-time-newer-p (w3m-time-parse-string + (w3m-cookie-expires cookie)) + (current-time))) + (push cookie cookies))) + (w3m-save-list w3m-cookie-file cookies))) + +(defun w3m-cookie-save-current-site-cookies () + "Save cookies for the current site." + (interactive) + (when (and w3m-current-url + (not (w3m-url-local-p w3m-current-url))) + (w3m-string-match-url-components w3m-current-url) + (w3m-cookie-save (match-string 4 w3m-current-url)))) + +(defun w3m-cookie-load () + "Load cookies." + (when (null w3m-cookies) + (setq w3m-cookies + (w3m-load-list w3m-cookie-file)))) + +(defun w3m-cookie-setup () + "Setup cookies. Returns immediataly if already initialized." + (interactive) + (unless w3m-cookie-init + (w3m-cookie-load) + (setq w3m-cookie-init t))) + +;;;###autoload +(defun w3m-cookie-shutdown () + "Save cookies, and reset cookies' data." + (interactive) + (when w3m-cookie-save-cookies + (w3m-cookie-save)) + (setq w3m-cookie-init nil) + (w3m-cookie-clear) + (if (get-buffer " *w3m-cookie-parse-temp*") + (kill-buffer (get-buffer " *w3m-cookie-parse-temp*")))) + +;;;###autoload +(defun w3m-cookie-set (url beg end) + "Register cookies which correspond to URL. +BEG and END should be an HTTP response header region on current buffer." + (w3m-cookie-setup) + (when (and url beg end) + (save-excursion + (let ((case-fold-search t) + (version 0) + data) + (goto-char beg) + (while (re-search-forward + "^\\(?:Set-Cookie\\(2\\)?:\\) *\\(.*\\(?:\n[ \t].*\\)*\\)\n" + end t) + (setq data (match-string 2)) + (if (match-beginning 1) + (setq version 1)) + (apply + (case version + (0 'w3m-cookie-1-set) + (1 'w3m-cookie-2-set)) + url (w3m-cookie-parse-args data 'nodowncase))))))) + +;;;###autoload +(defun w3m-cookie-get (url) + "Get a cookie field string which corresponds to the URL." + (w3m-cookie-setup) + (let* ((http-url (w3m-parse-http-url url)) + (cookies (and http-url + (w3m-cookie-retrieve (w3m-http-url-host http-url) + (w3m-http-url-path http-url) + (w3m-http-url-secure http-url))))) + ;; When sending cookies to a server, all cookies with a more specific path + ;; mapping should be sent before cookies with less specific path mappings. + (setq cookies (sort cookies + (lambda (x y) + (< (length (w3m-cookie-path x)) + (length (w3m-cookie-path y)))))) + (when cookies + (mapconcat (lambda (cookie) + (concat (w3m-cookie-name cookie) + "=" (w3m-cookie-value cookie))) + cookies + "; ")))) + +;;;###autoload +(defun w3m-cookie (&optional no-cache) + "Display cookies and enable you to manage them." + (interactive "P") + (w3m-goto-url "about://cookie/" no-cache)) + +;;;###autoload +(defun w3m-about-cookie (url &optional no-decode no-cache post-data &rest args) + "Make the html contents to display and to enable you to manage cookies." + (unless w3m-use-cookies (error "You must enable emacs-w3m to use cookies.")) + (w3m-cookie-setup) + (let ((pos 0)) + (when post-data + (dolist (pair (split-string post-data "&")) + (setq pair (split-string pair "=")) + (setf (w3m-cookie-ignore + (nth (string-to-number (car pair)) w3m-cookies)) + (eq (string-to-number (cadr pair)) 0)))) + (insert + (concat + "\ +<html><head><title>Cookies</title></head> +<body><center><b>Cookies</b></center> +<p><form method=\"post\" action=\"about://cookie/\"> +<ol>")) + (dolist (cookie w3m-cookies) + (insert + (concat + "<li><h1><a href=\"" + (w3m-cookie-url cookie) + "\">" + (w3m-cookie-url cookie) + "</a></h1>" + "<table cellpadding=0>" + "<tr><td width=\"80\"><b>Cookie:</b></td><td>" + (w3m-cookie-name cookie) "=" (w3m-cookie-value cookie) + "</td></tr>" + (when (w3m-cookie-expires cookie) + (concat + "<tr><td width=\"80\"><b>Expires:</b></td><td>" + (w3m-cookie-expires cookie) + "</td></tr>")) + "<tr><td width=\"80\"><b>Version:</b></td><td>" + (number-to-string (w3m-cookie-version cookie)) + "</td></tr>" + (when (w3m-cookie-domain cookie) + (concat + "<tr><td width=\"80\"><b>Domain:</b></td><td>" + (w3m-cookie-domain cookie) + "</td></tr>")) + (when (w3m-cookie-path cookie) + (concat + "<tr><td width=\"80\"><b>Path:</b></td><td>" + (w3m-cookie-path cookie) + "</td></tr>")) + "<tr><td width=\"80\"><b>Secure:</b></td><td>" + (if (w3m-cookie-secure cookie) "Yes" "No") + "</td></tr><tr><td>" + "<tr><td width=\"80\"><b>Use:</b></td><td>" + (format "<input type=radio name=\"%d\" value=1%s>Yes" + pos (if (w3m-cookie-ignore cookie) "" " checked")) + " " + (format "<input type=radio name=\"%d\" value=0%s>No" + pos (if (w3m-cookie-ignore cookie) " checked" "")) + "</td></tr><tr><td><input type=submit value=\"OK\"></table><p>")) + (setq pos (1+ pos))) + (insert "</ol></form></body></html>") + "text/html")) + +(provide 'w3m-cookie) + +;;; w3m-cookie.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-dtree.el b/share/emacs/site-lisp/w3m/w3m-dtree.el new file mode 100644 index 00000000000..5bfe5355e68 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-dtree.el @@ -0,0 +1,239 @@ +;;; w3m-dtree.el --- The add-on program to display local directory tree. + +;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Author: Hideyuki SHIRAI <shirai@meadowy.org>, +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia, directory, tree + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; w3m-dtree.el is the add-on program of emacs-w3m to display local +;; directory tree. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + + +;;; Code: +(require 'w3m) + +(defcustom w3m-dtree-default-allfiles nil + "*If non-nil, set 'allfiles' to default." + :group 'w3m + :type 'boolean) + +(defcustom w3m-dtree-directory-depth 8 + "*Interger of a depth of the viewing directory." + :group 'w3m + :type '(choice + (const :tag "No limit" nil) + (integer :format "%t: %v\n" :size 0 :tag "depth" 10))) + +(defcustom w3m-dtree-indent-strings ["|-" "+-" "| " " "] + "*Vector of strings to be used for indentation with w3m-dtree. + +If use default value or choice 'ASCII', display like this, +/home/shirai/work/emacs-w3m/ + |-CVS/ + |-icons/ + | +-CVS/ + +-shimbun/ + +-CVS/ + +If you care for another style, set manually and try it :-). +" + :group 'w3m + :type '(radio + (const :format "ASCII: " ["|-" "+-" "| " " "]) + (vector + :convert-widget w3m-widget-type-convert-widget + (let ((defaults (if (equal w3m-language "Japanese") + (vconcat + (mapcar + (lambda (s) + (decode-coding-string s 'iso-2022-7bit)) + '("\e$B('\e(B" "\e$B(&\e(B" + "\e$B(\"\e(B" "\e$B!!\e(B"))) + ["|-" "+-" "| " " "]))) + `(:format "Others:\n%v" :indent 4 + (string :format "%{|-%} %v\n" + :sample-face widget-field-face :size 0 + :value ,(aref defaults 0)) + (string :format "%{+-%} %v\n" + :sample-face widget-field-face :size 0 + :value ,(aref defaults 1)) + (string :format "%{| %} %v\n" + :sample-face widget-field-face :size 0 + :value ,(aref defaults 2)) + (string :format "%{ %} %v" + :sample-face widget-field-face :size 0 + :value ,(aref defaults 3))))))) + +(defcustom w3m-dtree-stop-strings ["|=" "+="] + "*Vector of strings to be used for indentation when a depth of directory +over the 'w3m-dtree-directory-depth'." + :group 'w3m + :type '(radio + (const :format "ASCII: " ["|=" "+="]) + (const :format "ASCII Bold: " ["<b>|-</b>" "<b>+-</b>"]) + (vector + :convert-widget w3m-widget-type-convert-widget + (let ((defaults (if (equal w3m-language "Japanese") + (vconcat + (mapcar + (lambda (s) + (decode-coding-string s 'iso-2022-7bit)) + '("\e$B(<\e(B" "\e$B(1\e(B"))) + ["|=" "+="]))) + `(:format "Others:\n%v" :indent 4 + (string :format "|= %{|=%} %v\n" + :sample-face bold :size 0 + :value ,(aref defaults 0)) + (string :format "+= %{+=%} %v\n" + :sample-face bold :size 0 + :value ,(aref defaults 1))))))) + +(defun w3m-dtree-expand-file-name (path) + (if (string-match "^\\(.\\):\\(.*\\)" path) + (if w3m-use-cygdrive + (concat "/cygdrive/" + (match-string 1 path) (match-string 2 path)) + (concat "/" (match-string 1 path) "|" (match-string 2 path))) + path)) + +(defun w3m-dtree-directory-name (path) + (when (and w3m-treat-drive-letter + (string-match + "^/\\(?:\\([A-Za-z]\\)[|:]?\\|cygdrive/\\([A-Za-z]\\)\\)/" + path)) + (setq path (concat + (or (match-string 1 path) + (match-string 2 path)) + ":/" + (substring path (match-end 0))))) + path) + +(defmacro w3m-dtree-has-child (path) + `(let ((w32-get-true-file-link-count t)) ;; true link count for Meadow + (and (nth 1 (file-attributes ,path)) + (/= (nth 1 (file-attributes ,path)) 2)))) + +(defun w3m-dtree-create-sub (path allfiles dirprefix fileprefix indent depth) + (let* ((files (directory-files path t)) + (limit (and (integerp w3m-dtree-directory-depth) + (>= depth w3m-dtree-directory-depth))) + (indent-sub1 (if limit + (aref w3m-dtree-stop-strings 0) + (aref w3m-dtree-indent-strings 0))) + (indent-sub2 (aref w3m-dtree-indent-strings 2)) + file fullpath tmp) + (setq files (delete (concat (file-name-as-directory path) ".") + (delete (concat (file-name-as-directory path) "..") + files))) + (unless allfiles + (setq tmp files) + (while (setq file (car tmp)) + (unless (file-directory-p file) + (setq files (delete file files))) + (setq tmp (cdr tmp)))) + (while (setq fullpath (car files)) + (when (= (length files) 1) + (if limit + (setq indent-sub1 (aref w3m-dtree-stop-strings 1)) + (setq indent-sub1 (aref w3m-dtree-indent-strings 1))) + (setq indent-sub2 (aref w3m-dtree-indent-strings 3))) + (setq file (file-name-nondirectory fullpath)) + (cond + ((or (not allfiles) (file-directory-p fullpath)) + (insert (format "%s%s%s<A HREF=\"%s%s\">%s</A>\n" + indent indent-sub1 + (if allfiles "<B>[d]</B>" "") + dirprefix + (w3m-dtree-expand-file-name (file-name-as-directory fullpath)) + (concat file "/"))) + (when (and (null limit) + (or allfiles (w3m-dtree-has-child fullpath))) + (w3m-dtree-create-sub fullpath allfiles dirprefix fileprefix + (concat indent indent-sub2) (1+ depth)))) + ((and allfiles (file-exists-p fullpath)) + (insert (format "%s%s%s<A HREF=\"%s%s\">%s</A>\n" + indent indent-sub1 + (if allfiles "(f)" "") + fileprefix (w3m-dtree-expand-file-name fullpath) + file)))) + (setq files (cdr files))))) + +(defun w3m-dtree-create (path allfiles dirprefix fileprefix) + (let ((charset (or (car (rassq w3m-file-name-coding-system + w3m-charset-coding-system-alist)) + w3m-file-name-coding-system))) + (insert "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">\n" + "<html>\n<head>\n" + "<meta http-equiv=\"CONTENT-TYPE\" " + "content=\"text/html; charset=" + (symbol-name charset) + "\">\n" + "<title>" + path + "</title>\n</head>\n<body>\n<pre>\n") + (insert (format "<A HREF=\"%s%s\">%s</A>%s\n" + dirprefix (w3m-dtree-expand-file-name path) path + (if allfiles " (allfiles)" ""))) + (if (file-directory-p path) + (w3m-dtree-create-sub path allfiles dirprefix fileprefix " " 0) + (insert (format "\n<h3>Warning: Directory not found.</h3>\n"))) + (insert "</pre>\n</body>\n</html>\n"))) + +;;;###autoload +(defun w3m-about-dtree (url &optional nodecode allfiles &rest args) + (let ((prelen (length "about://dtree")) + (dirprefix "about://dtree") + (fileprefix "file://") + path) + (if (string-match "\\?allfiles=\\(?:\\(true\\)\\|false\\)$" url) + (progn + (setq path (substring url prelen (match-beginning 0))) + (if (match-beginning 1) (setq allfiles t))) + (if w3m-dtree-default-allfiles + (setq allfiles (not allfiles))) + (setq path (substring url prelen))) + ;; counter drive letter + (setq path (file-name-as-directory (w3m-dtree-directory-name path))) + (setq default-directory path) + (w3m-message "Dtree (%s)..." path) + (w3m-dtree-create path allfiles dirprefix fileprefix) + (w3m-message "Dtree...done") + "text/html")) + +;;;###autoload +(defun w3m-dtree (allfiles path) + "Display directory tree on local file system. +If called with 'prefix argument', display all directorys and files." + (interactive "P\nDDtree directory: ") + (if w3m-dtree-default-allfiles + (setq allfiles (not allfiles))) + (w3m-goto-url (format "about://dtree%s%s" + (w3m-dtree-expand-file-name + (file-name-as-directory + (expand-file-name path))) + (if allfiles "?allfiles=true" "")))) + +(provide 'w3m-dtree) +;;; w3m-dtree.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-ems.el b/share/emacs/site-lisp/w3m/w3m-ems.el new file mode 100644 index 00000000000..40af163676e --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-ems.el @@ -0,0 +1,1410 @@ +;;; w3m-ems.el --- GNU Emacs stuff for emacs-w3m + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: Yuuichi Teranishi <teranisi@gohome.org>, +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; Katsumi Yamaoka <yamaoka@jpl.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; This file contains GNU Emacs stuff that emacs-w3m uses. For more +;; detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ +;; +;; We can use w3m-static- switches to make the byte code differ between +;; Emacs 2[12] and 23, if anything, it is impossible to share the byte +;; code with those versions of Emacsen. + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m-util) +(require 'w3m-proc) +(require 'w3m-image) +(require 'w3m-favicon) +(require 'w3m-ccl) +(require 'wid-edit) + +;; Functions and variables which should be defined in the other module +;; at run-time. +(eval-when-compile + (defvar w3m-add-tab-number) + (defvar w3m-coding-system) + (defvar w3m-current-process) + (defvar w3m-current-title) + (defvar w3m-current-url) + (defvar w3m-default-coding-system) + (defvar w3m-display-inline-images) + (defvar w3m-favicon-image) + (defvar w3m-form-input-textarea-coding-system) + (defvar w3m-form-use-fancy-faces) + (defvar w3m-icon-directory) + (defvar w3m-image-default-background) + (defvar w3m-mode-map) + (defvar w3m-modeline-process-status-on) + (defvar w3m-new-session-in-background) + (defvar w3m-process-queue) + (defvar w3m-show-graphic-icons-in-header-line) + (defvar w3m-show-graphic-icons-in-mode-line) + (defvar w3m-toolbar) + (defvar w3m-toolbar-buttons) + (defvar w3m-use-favicon) + (defvar w3m-use-header-line) + (defvar w3m-use-header-line-title) + (defvar w3m-use-tab) + ;; `w3m-tab-move-right' calls the inline function `w3m-buffer-set-number' + ;; which uses it. + (defvar w3m-use-title-buffer-name) + (defvar w3m-work-buffer-list) + (defvar w3m-work-buffer-name) + (autoload 'w3m-copy-buffer "w3m") + (autoload 'w3m-delete-buffer "w3m") + (autoload 'w3m-image-type "w3m") + (autoload 'w3m-retrieve "w3m") + (autoload 'w3m-select-buffer-update "w3m")) + +(eval-and-compile + (unless (fboundp 'frame-current-scroll-bars) + (defalias 'frame-current-scroll-bars 'ignore)) + (unless (fboundp 'window-fringes) + (defalias 'window-fringes 'ignore)) + (unless (fboundp 'unencodable-char-position) + (defalias 'unencodable-char-position 'ignore))) + +;;; Coding system and charset. + +(defsubst w3m-find-coding-system (obj) + "Return OBJ if it is a coding-system." + (if (coding-system-p obj) obj)) + +(defun w3m-detect-coding-region (start end &optional priority-list) + "Detect coding system of the text in the region between START and END. +Return the first possible coding system. + +PRIORITY-LIST is a list of coding systems ordered by priority." + (let (category categories) + (dolist (codesys priority-list) + (setq category (coding-system-category codesys)) + (unless (or (null category) (assq category categories)) + (push (cons category codesys) categories))) + (car (detect-coding-with-priority start end (nreverse categories))))) + +(defun w3m-mule-unicode-p () + "Check the existence as charsets of mule-unicode." + (and (charsetp 'mule-unicode-0100-24ff) + (charsetp 'mule-unicode-2500-33ff) + (charsetp 'mule-unicode-e000-ffff))) + +(defalias 'w3m-make-ccl-coding-system + (if (fboundp 'define-coding-system) + (eval-when-compile + (funcall (if (and (fboundp 'define-coding-system) + (featurep 'bytecomp)) + 'byte-compile + 'identity) + '(lambda (coding-system mnemonic docstring decoder encoder) "\ +Define a new CODING-SYSTEM by CCL programs DECODER and ENCODER. +CODING-SYSTEM, DECODER and ENCODER must be symbols. +This function is an interface to `define-coding-system'." + (define-coding-system coding-system docstring + :mnemonic mnemonic :coding-type 'ccl + :ccl-decoder decoder :ccl-encoder encoder)))) + (eval-when-compile + (funcall (if (featurep 'bytecomp) + (lambda (form) + (let ((byte-compile-warnings + (if (eq (get 'make-coding-system 'byte-compile) + 'byte-compile-obsolete) + (delq 'obsolete + (copy-sequence + (cond ((consp byte-compile-warnings) + byte-compile-warnings) + (byte-compile-warnings + byte-compile-warning-types) + (t nil)))) + byte-compile-warnings))) + (byte-compile form))) + 'identity) + '(lambda (coding-system mnemonic docstring decoder encoder) "\ +Define a new CODING-SYSTEM by CCL programs DECODER and ENCODER. +CODING-SYSTEM, DECODER and ENCODER must be symbols. +This function is an interface to `make-coding-system'." + (make-coding-system coding-system 4 mnemonic docstring + (cons decoder encoder))))))) + +;; For Emacsen of which the `mule-version' is 5.x, redefine the ccl +;; programs that been defined in w3m-ccl.el. +(w3m-static-when (string-match "\\`5\\." mule-version) + (let ((source + ;; CCL program to convert multibyte char to ucs with emacs-unicode. + `((if (r1 == ,(charset-id 'latin-iso8859-1)) + ((r1 = (r0 + 128))) + (if (r1 == ,(charset-id 'mule-unicode-0100-24ff)) + ((r1 = ((((r0 & #x3f80) >> 7) - 32) * 96)) + (r0 &= #x7f) + (r1 += (r0 + 224))) ; 224 == -32 + #x0100 + (if (r1 == ,(charset-id 'mule-unicode-2500-33ff)) + ((r1 = ((((r0 & #x3f80) >> 7) - 32) * 96)) + (r0 &= #x7f) + (r1 += (r0 + 9440))) ; 9440 == -32 + #x2500 + (if (r1 == ,(charset-id 'mule-unicode-e000-ffff)) + ((r1 = ((((r0 & #x3f80) >> 7) - 32) * 96)) + (r0 &= #x7f) + (r1 += (r0 + 57312))) ; 57312 == -32 + #xe000 + ,(if (fboundp 'ccl-compile-lookup-character) + '((lookup-character utf-subst-table-for-encode r1 r0) + (if (r7 == 0) ; lookup failed + (r1 = #xfffd))) + '((r1 = #xfffd))))))) + (if (r1 == #xfffd) + (write-repeat ?~) ; unknown character. + (r0 = r1))))) + (if (get 'utf-translation-table-for-encode 'translation-table-id) + ;; Emacs 21.3 and later. + (progn + (eval + `(define-ccl-program w3m-euc-japan-encoder + '(4 + (loop + ,@w3m-ccl-write-euc-japan-character + (translate-character utf-translation-table-for-encode r1 r0) + ,@source + ,@w3m-ccl-generate-ncr)))) + (eval + `(define-ccl-program w3m-iso-latin-1-encoder + '(4 + (loop + ,@w3m-ccl-write-iso-latin-1-character + (translate-character utf-translation-table-for-encode r1 r0) + ,@source + ,@w3m-ccl-generate-ncr))))) + ;; Emacs 21.2 and earlier. + (eval + `(define-ccl-program w3m-euc-japan-encoder + '(4 + (loop + ,@w3m-ccl-write-euc-japan-character + ,@source + ,@w3m-ccl-generate-ncr)))) + (eval + `(define-ccl-program w3m-iso-latin-1-encoder + '(4 + (loop + ,@w3m-ccl-write-iso-latin-1-character + ,@source + ,@w3m-ccl-generate-ncr))))))) + +;; This might be redefined by w3m-ucs.el. +(defun w3m-ucs-to-char (codepoint) + (or (decode-char 'ucs codepoint) ?~)) + +(defun w3m-add-local-hook (hook function &optional append) + "Add to the buffer-local value of HOOK the function FUNCTION." + (add-hook hook function append t)) + +(defun w3m-remove-local-hook (hook function) + "Remove to the buffer-local value of HOOK the function FUNCTION." + (remove-hook hook function t)) + +;; Function which returns non-nil when the current display device can +;; show images inline. +(defalias 'w3m-display-graphic-p 'display-images-p) + +(defun w3m-display-inline-images-p () + "Returns non-nil when images can be displayed under the present +circumstances." + (and w3m-display-inline-images (display-images-p))) + +(defun w3m-create-image (url &optional no-cache referer size handler) + "Retrieve data from URL and create an image object. +If optional argument NO-CACHE is non-nil, cache is not used. +If second optional argument REFERER is non-nil, it is used as Referer: field. +If third optional argument SIZE is non-nil, its car element is used as width +and its cdr element is used as height." + (if (not handler) + (w3m-process-with-wait-handler + (w3m-create-image url no-cache referer size handler)) + (lexical-let ((set-size size) + (url url) + image size) + (w3m-process-do-with-temp-buffer + (type (progn + (set-buffer-multibyte nil) + (w3m-retrieve url nil no-cache nil referer handler))) + (goto-char (point-min)) + (when (w3m-image-type-available-p + (setq type + (or (and (let (case-fold-search) + (looking-at + "\\(GIF8\\)\\|\\(\377\330\\)\\|\211PNG\r\n")) + (cond ((match-beginning 1) 'gif) + ((match-beginning 2) 'jpeg) + (t 'png))) + (w3m-image-type type)))) + (setq image (create-image (buffer-string) type t + :ascent 'center + :background w3m-image-default-background)) + (if (and w3m-resize-images set-size) + (progn + (set-buffer-multibyte t) + (setq size (image-size image 'pixels)) + (if (and (null (car set-size)) (cdr set-size)) + (setcar set-size + (/ (* (car size) (cdr set-size)) (cdr size)))) + (if (and (null (cdr set-size)) (car set-size)) + (setcdr set-size + (/ (* (cdr size) (car set-size)) (car size)))) + (if (or (not (eq (car size) + (car set-size))) ; width is different + (not (eq (cdr size) + (cdr set-size)))) ; height is different + (lexical-let ((image image)) + (w3m-process-do + (resized (w3m-resize-image + (plist-get (cdr image) :data) + (car set-size)(cdr set-size) + handler)) + (if resized (plist-put (cdr image) :data resized)) + image)) + image)) + image)))))) + +(defun w3m-create-resized-image (url rate &optional referer size handler) + "Resize an cached image object. +URL is the image file's url. +RATE is resize percentage. +If REFERER is non-nil, it is used as Referer: field. +If SIZE is non-nil, its car element is used as width +and its cdr element is used as height." + (if (not handler) + (w3m-process-with-wait-handler + (w3m-create-image url nil referer size handler)) + (lexical-let ((url url) + (rate rate) + image) + (w3m-process-do-with-temp-buffer + (type (progn + (set-buffer-multibyte nil) + (w3m-retrieve url nil nil nil referer handler))) + (when (w3m-image-type-available-p (setq type (w3m-image-type type))) + (setq image (create-image (buffer-string) type t :ascent 'center)) + (progn + (set-buffer-multibyte t) + (w3m-process-do + (resized (w3m-resize-image-by-rate + (plist-get (cdr image) :data) + rate + handler)) + (if resized (plist-put (cdr image) :data resized)) + image))))))) + +(defun w3m-insert-image (beg end image &rest args) + "Display image on the current buffer. +Buffer string between BEG and END are replaced with IMAGE." + (let ((faces (get-text-property beg 'face)) + (idx 0) + orig len face) + (add-text-properties beg end (list 'display image + 'intangible image + 'invisible nil)) + ;; Hide underlines behind inline images. + ;; Gerd Moellmann <gerd@gnu.org>, the maintainer of Emacs 21, wrote in + ;; the article <86heyi7vks.fsf@gerd.segv.de> in the list emacs-pretest- + ;; bug@gnu.org on 18 May 2001 that to show an underline of a text even + ;; if it has an image as a text property is the feature of Emacs 21. + ;; However, that behavior is not welcome to the w3m buffers, so we do + ;; to fix it with the following stuffs. + (when faces + (unless (listp faces) + (setq faces (list faces))) + (setq orig (copy-sequence faces) + len (length orig)) + (while (< idx len) + (when (face-underline-p (setq face (nth idx orig))) + (setq faces (delq face faces))) + (setq idx (1+ idx))) + (when (< (length faces) len) + (put-text-property beg end 'face faces) + (put-text-property beg end 'w3m-faces-with-underline orig))))) + +(defun w3m-remove-image (beg end) + "Remove an image which is inserted between BEG and END." + (remove-text-properties beg end '(display nil intangible nil)) + (let ((underline (get-text-property beg 'w3m-faces-with-underline))) + (when underline + (add-text-properties + beg end (list 'face underline 'w3m-faces-with-underline nil))))) + +(defun w3m-image-type-available-p (image-type) + "Return non-nil if an image with IMAGE-TYPE can be displayed inline." + (and (display-images-p) + (image-type-available-p image-type))) + +;;; Form buttons +(defface w3m-form-button + '((((type x w32 mac ns) (class color)) + :background "lightgrey" :foreground "black" + :box (:line-width 2 :style released-button)) + (((class color) (background light)) (:foreground "cyan" :underline t)) + (((class color) (background dark)) (:foreground "red" :underline t)) + (t (:underline t))) + "*Face to fontify buttons in forms." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-form-button-face 'face-alias 'w3m-form-button) + +(defface w3m-form-button-mouse + '((((type x w32 mac ns) (class color)) + :background "DarkSeaGreen1" :foreground "black" + :box (:line-width 2 :style released-button)) + (((class color) (background light)) (:foreground "cyan" :underline t)) + (((class color) (background dark)) (:foreground "red" :underline t)) + (t (:underline t))) + "*Face to fontify focused buttons in forms." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-form-button-mouse-face 'face-alias 'w3m-form-button-mouse) + +(defface w3m-form-button-pressed + '((((type x w32 mac ns) (class color)) + :background "lightgrey" :foreground "black" + :box (:line-width 2 :style pressed-button)) + (((class color) (background light)) (:foreground "cyan" :underline t)) + (((class color) (background dark)) (:foreground "red" :underline t)) + (t (:underline t))) + "*Face to fontify pressed buttons in forms." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-form-button-pressed-face 'face-alias 'w3m-form-button-pressed) + +(defvar w3m-form-button-keymap + (let ((map (copy-keymap widget-keymap))) + (substitute-key-definition 'widget-forward nil map) + (substitute-key-definition 'widget-backward nil map) + map)) + +(define-widget 'w3m-form-button 'push-button + "Widget for w3m form button." + :keymap w3m-form-button-keymap + :action (function (lambda (widget &optional e) + (eval (widget-get widget :w3m-form-action))))) + +(defun w3m-form-make-button (start end properties) + "Make button on the region from START to END." + (if w3m-form-use-fancy-faces + (progn + (unless (memq (face-attribute 'w3m-form-button :box) + '(nil unspecified)) + (and (eq ?\[ (char-after start)) + (eq ?\] (char-before end)) + (save-excursion + (goto-char start) + (delete-char 1) + (insert " ") + (goto-char end) + (delete-char -1) + (insert " ") + (setq start (1+ start) + end (1- end))))) + (let ((w (widget-convert-button + 'w3m-form-button start end + :w3m-form-action (plist-get properties 'w3m-action)))) + (overlay-put (widget-get w :button-overlay) 'evaporate t)) + (add-text-properties start end properties)) + (w3m-add-text-properties start end (append '(face w3m-form) properties)))) + +(defun w3m-setup-widget-faces () + (make-local-variable 'widget-button-face) + (make-local-variable 'widget-mouse-face) + (make-local-variable 'widget-button-pressed-face) + (setq widget-button-face 'w3m-form-button) + (setq widget-mouse-face 'w3m-form-button-mouse) + (setq widget-button-pressed-face 'w3m-form-button-pressed)) + +;;; Menu bar +(defun w3m-menu-on-forefront (arg &optional curbuf) + "Place emacs-w3m menus on the forfront of the menu bar if ARG is non-nil. +If CURBUF is given, this function works only in the current buffer, +otherwise works in all the emacs-w3m buffers." + (if curbuf + (if arg + (let ((items (mapcar 'car (cdr (lookup-key global-map [menu-bar]))))) + (when items + (set (make-local-variable 'menu-bar-final-items) items))) + (kill-local-variable 'menu-bar-final-items)) + (save-current-buffer + (dolist (buffer (w3m-list-buffers t)) + (set-buffer buffer) + (w3m-menu-on-forefront arg t))))) + +;;; Toolbar +(defcustom w3m-use-toolbar + (and (featurep 'tool-bar) + ;; Emacs 22 and greater return t for `(featurep 'tool-bar)' + ;; even if being launched with the -nw option. + (display-images-p) + (or (featurep 'gtk) + (image-type-available-p 'xpm))) + "Non-nil activates toolbar of w3m." + :group 'w3m + :type 'boolean) + +(defcustom w3m-toolbar-icon-preferred-image-types + (if (featurep 'gtk) + '(png) + '(xpm)) + "List of image types that you prefer to use for the tool bar icons. +By default, `png' is most preferred for Emacs built with GTK and `xpm' +is for others." + :group 'w3m + :type '(repeat (symbol :tag "Image type")) + :set (lambda (symbol value) + (prog1 + (custom-set-default symbol value) + (when (and (not noninteractive) (boundp 'w3m-toolbar-buttons)) + (w3m-update-toolbars))))) + +(defcustom w3m-toolbar-use-single-image-per-icon nil + "Non-nil means use single image (named possibly *-up) per icon. +If it is nil, subsidiaries, e.g., *-down and *-disabled, if any, are +used together." + :group 'w3m + :type 'boolean + :set (lambda (symbol value) + (prog1 + (custom-set-default symbol value) + (when (and (not noninteractive) (boundp 'w3m-toolbar-buttons)) + (w3m-update-toolbars))))) + +(defcustom w3m-toolbar-configurations + `((tool-bar-button-margin . global) + ,@(unless (featurep 'gtk) + '((tool-bar-button-relief . global)))) + "Alist of the variables and the values controls the tool bar appearance. +The value `global' means to use the global value of the variable. + +If you're annoyed with changing of the frame height of Emacs built for +GTK because of the difference of the sizes between the emacs-w3m tool +bar icons and the ones that Emacs natively uses, try customizing this +variable or both the value of this variable and the global value of +`tool-bar-button-margin'. For examples: + +;; The case where the emacs-w3m icons are smaller than the others. +\(setq w3m-toolbar-configurations '((tool-bar-button-margin . 5))) + +;; The case where the emacs-w3m icons are bigger than the others. +\(setq w3m-toolbar-configurations '((tool-bar-button-margin . 0)) + tool-bar-button-margin 7)" + :group 'w3m + :type '(repeat (cons :format "%v" + (symbol :tag "Variable") + (radio :format "%v" + (const :format "%v " global) + (sexp :tag "Local Value")))) + :set (lambda (symbol value) + (prog1 + (custom-set-default symbol value) + (when (and (not noninteractive) (featurep 'w3m)) + (w3m-toolbar-set-configurations))))) + +(defun w3m-toolbar-define-keys (keymap defs) + ;; Invalidate the default bindings. + (let ((keys (cdr (key-binding [tool-bar] t))) + item) + (while (setq item (pop keys)) + (when (setq item (car-safe item)) + (define-key keymap (vector 'tool-bar item) 'undefined)))) + (let ((n (length defs)) + def) + (while (>= n 0) + (setq n (1- n) + def (nth n defs)) + (define-key keymap (vector 'tool-bar (aref def 1)) + (list 'menu-item (aref def 3) (aref def 1) + :enable (aref def 2) + :image (symbol-value (aref def 0))))))) + +(defun w3m-find-image (name &optional directory) + "Find image file for NAME and return cons of file name and type. +This function searches only in DIRECTORY, that defaults to the value of +`w3m-icon-directory', for an image file of which the base name is NAME. +Files of types that Emacs does not support are ignored." + (unless directory + (setq directory w3m-icon-directory)) + (when (and directory + (file-directory-p directory) + (display-images-p)) + (let* ((case-fold-search nil) + (files (directory-files directory t + (concat "\\`" (regexp-quote name) "\\."))) + (types (append w3m-toolbar-icon-preferred-image-types image-types)) + file type rest) + (while files + (when (string-match "\\.\\([^.]+\\)\\'" (setq file (pop files))) + (setq type (intern (downcase (match-string 1 file)))) + (setq type (or (cdr (assq type '((tif . tiff) + (jpg . jpeg) + (ps . postscript) + (pgm . pbm) + (ppm . pbm)))) + type)) + (push (cons file (memq type types)) rest))) + (setq rest (car (sort rest (lambda (a b) (> (length a) (length b)))))) + (when (cdr rest) + (cons (car rest) (cadr rest)))))) + +(defun w3m-toolbar-make-buttons (buttons &optional force) + (let ((xpm-props '(:color-symbols (("backgroundToolBarColor" . "None")))) + button icon down disabled up) + (while buttons + (setq button (pop buttons) + icon (intern (concat "w3m-toolbar-" button "-icon"))) + (when (or force (not (boundp icon))) + (setq down (w3m-find-image (concat button "-down")) + disabled (w3m-find-image (concat button "-disabled"))) + (if (setq up (or (w3m-find-image (concat button "-up")) + (prog1 + (or down disabled (w3m-find-image button)) + (setq down nil + disabled nil)))) + (progn + (setq up (apply 'create-image (car up) (cdr up) nil + :ascent 'center + (when (eq (cdr up) 'xpm) + xpm-props))) + (if (or w3m-toolbar-use-single-image-per-icon + (not (or down disabled))) + (set icon up) + (when down + (setq down (apply 'create-image (car down) (cdr down) nil + :ascent 'center + (when (eq (cdr up) 'xpm) + xpm-props)))) + (when disabled + (setq disabled (apply 'create-image + (car disabled) (cdr disabled) nil + :ascent 'center + (when (eq (cdr disabled) 'xpm) + xpm-props)))) + (set icon (vector down up disabled disabled)))) + (error "Icon file %s-up.* not found" button)))))) + +(defun w3m-toolbar-set-configurations (&optional curbuf) + "Set values of variables according to `w3m-toolbar-configurations'. +If CURBUF is given, this function works only in the current buffer, +otherwise works in all the emacs-w3m buffers." + (if curbuf + (dolist (config w3m-toolbar-configurations) + (if (eq (cdr config) 'global) + (kill-local-variable (car config)) + (set (make-local-variable (car config)) (cdr config)))) + (let ((cur (selected-frame)) + buffer buffers) + (walk-windows + (lambda (window) + (setq buffer (window-buffer window)) + (unless (memq buffer buffers) + (set-buffer buffer) + (when (eq major-mode 'w3m-mode) + (push buffer buffers) + (select-frame (window-frame window)) + ;;(set-buffer buffer) + (w3m-toolbar-set-configurations t)))) + 'ignore 'visible) + (select-frame-set-input-focus cur) + (save-current-buffer + (dolist (buffer (w3m-list-buffers t)) + (unless (memq buffer buffers) + (set-buffer buffer) + (w3m-toolbar-set-configurations t)))) + (select-frame-set-input-focus cur)))) + +(defun w3m-setup-toolbar () + (when (and w3m-use-toolbar + (w3m-find-image "antenna-up")) + (w3m-toolbar-make-buttons w3m-toolbar-buttons) + (w3m-toolbar-set-configurations t) + (w3m-toolbar-define-keys w3m-mode-map w3m-toolbar))) + +(defalias 'w3m-update-toolbar 'ignore) + +(defun w3m-update-toolbars () + (when (and w3m-use-toolbar + (w3m-find-image "antenna-up")) + (w3m-toolbar-make-buttons w3m-toolbar-buttons t) + (w3m-toolbar-set-configurations) + (w3m-toolbar-define-keys w3m-mode-map w3m-toolbar))) + +;;; Header line & Tabs +(defcustom w3m-tab-width 16 + "w3m tab width." + :group 'w3m + :set (lambda (symbol value) + (custom-set-default symbol + (if (and (numberp value) (> value 0)) + value + 16))) + :type '(integer :size 0)) + +(defface w3m-tab-unselected + '((((type x w32 mac ns) (class color)) + :background "Gray70" :foreground "Gray20" + :box (:line-width -1 :style released-button)) + (((class color)) + (:background "blue" :foreground "black"))) + "*Face to fontify unselected tabs." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-tab-unselected-face 'face-alias 'w3m-tab-unselected) + +(defface w3m-tab-unselected-retrieving + '((((type x w32 mac ns) (class color)) + :background "Gray70" :foreground "OrangeRed" + :box (:line-width -1 :style released-button)) + (((class color)) + (:background "blue" :foreground "OrangeRed"))) + "*Face to fontify unselected tabs which are retrieving their pages." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-tab-unselected-retrieving-face + 'face-alias 'w3m-tab-unselected-retrieving) + +(defface w3m-tab-unselected-unseen + '((((type x w32 mac ns) (class color)) + :background "Gray70" :foreground "Gray20" + :box (:line-width -1 :style released-button)) + (((class color)) + (:background "blue" :foreground "gray60"))) + "*Face to fontify unselected and unseen tabs." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-tab-unselected-unseen-face 'face-alias 'w3m-tab-unselected-unseen) + +(defface w3m-tab-selected + '((((type x w32 mac ns) (class color)) + :background "Gray90" :foreground "black" + :box (:line-width -1 :style released-button)) + (((class color)) + (:background "cyan" :foreground "black")) + (t (:underline t))) + "*Face to fontify selected tab." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-tab-selected-face 'face-alias 'w3m-tab-selected) + +(defface w3m-tab-selected-retrieving + '((((type x w32 mac ns) (class color)) + :background "Gray90" :foreground "red" + :box (:line-width -1 :style released-button)) + (((class color)) + (:background "cyan" :foreground "red")) + (t (:underline t))) + "*Face to fontify selected tab which is retrieving its page." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-tab-selected-retrieving-face + 'face-alias 'w3m-tab-selected-retrieving) + +(defface w3m-tab-background + '((((type x w32 mac ns) (class color)) + :background "LightSteelBlue" :foreground "black") + (((class color)) + (:background "white" :foreground "black"))) + "*Face to fontify background of tab line." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-tab-background-face 'face-alias 'w3m-tab-background) + +(defface w3m-tab-selected-background + '((((type x w32 mac ns) (class color)) + :background "LightSteelBlue" :foreground "black") + (((class color)) + (:background "white" :foreground "black"))) + "*Face to fontify selected background tab." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-tab-selected-background-face + 'face-alias 'w3m-tab-selected-background) + +(defface w3m-tab-mouse + '((((type x w32 mac ns) (class color)) + :background "Gray75" :foreground "white" + :box (:line-width -1 :style released-button))) + "*Face used to highlight tabs under the mouse." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-tab-mouse-face 'face-alias 'w3m-tab-mouse) + +(defvar w3m-modeline-spinner-map nil + "Keymap used on the spinner in the mode-line.") + +(defvar w3m-spinner-map-help-echo "mouse-2 kills the current process" + "String used for the :help-echo property on the spinner.") + +(defun w3m-setup-header-line () + (setq header-line-format + (cond (w3m-use-tab + '(:eval (w3m-tab-line))) + (w3m-use-header-line + (list + (if w3m-use-header-line-title + (list + (propertize + "Title: " + 'face (list 'w3m-header-line-location-title)) + `(:eval + (propertize + (replace-regexp-in-string "%" "%%" (w3m-current-title)) + 'face (list 'w3m-header-line-location-content) + 'mouse-face '(highlight :foreground + ,(face-foreground 'default)) + 'local-map (let ((map (make-sparse-keymap))) + (define-key map [header-line mouse-2] + 'w3m-goto-url) + map) + 'help-echo "mouse-2 prompts to input URL")) + ", ") + "") + (propertize + "Location: " + 'face (list 'w3m-header-line-location-title)) + `(:eval + (propertize + (if (stringp w3m-current-url) + (replace-regexp-in-string "%" "%%" w3m-current-url) + "") + 'face (list 'w3m-header-line-location-content) + 'mouse-face '(highlight :foreground + ,(face-foreground 'default)) + 'local-map (let ((map (make-sparse-keymap))) + (define-key map [header-line mouse-2] + 'w3m-goto-url) + map) + 'help-echo "mouse-2 prompts to input URL"))))))) + +(eval-when-compile + ;; Shut up the byte-compiler for old Emacsen. + (unless (fboundp 'force-window-update) + (defalias 'force-window-update 'ignore))) + +(eval-and-compile + (defalias 'w3m-force-window-update + (if (and (fboundp 'force-window-update) + (not (eq (symbol-function 'force-window-update) 'ignore))) + (lambda (&optional window) "\ +Force redisplay of WINDOW which defaults to the selected window." + (force-window-update (or window (selected-window)))) + (lambda (&optional ignore) "\ +Wobble the selected window to force redisplay of the header-line." + (save-window-excursion + (split-window-vertically)))))) + +(defun w3m-tab-drag-mouse-function (event buffer) + (let ((window (posn-window (event-end event))) + mpos) + (when (framep window) ; dropped at outside of the frame. + (setq window nil + mpos (mouse-position)) + (and (framep (car mpos)) + (car (cdr mpos)) + (cdr (cdr mpos)) + (setq window (window-at (car (cdr mpos)) + (cdr (cdr mpos)) + (car mpos)))) + (unless window + (when (one-window-p 'nomini) + (split-window)) + (setq window (next-window)))) + (unless (eq (window-buffer window) buffer) + (select-window window) + (switch-to-buffer buffer) + (w3m-force-window-update window)))) + +(defun w3m-tab-click-mouse-function (event buffer) + (let ((window (posn-window (event-start event)))) + (select-window window) + (switch-to-buffer buffer) + (w3m-force-window-update window))) + +(defun w3m-tab-double-click-mouse1-function (event buffer) + (let ((window (posn-window (event-start event)))) + (when (eq major-mode 'w3m-mode) + (if w3m-new-session-in-background + (save-window-excursion + (w3m-copy-buffer)) + (w3m-copy-buffer))) + (w3m-force-window-update window))) + +(defun w3m-tab-double-click-mouse2-function (event buffer) + (let ((window (posn-window (event-start event)))) + (when (eq major-mode 'w3m-mode) + (w3m-delete-buffer)) + (w3m-force-window-update window))) + +(defvar w3m-tab-line-format nil + "Internal variable used to keep contents to be shown in the header-line. +This is a buffer-local variable.") +(make-variable-buffer-local 'w3m-tab-line-format) + +(defvar w3m-tab-timer nil + "Internal variable used to say time has not gone by after the tab-line +was updated last time. It is used to control the `w3m-tab-line' +function running too frequently, set by the function itself and +cleared by a timer.") +(make-variable-buffer-local 'w3m-tab-timer) + +(defcustom w3m-tab-track-mouse t + "Say whether to make the mouse track the selected tab. +It controls the behavior of the commands `w3m-tab-previous-buffer', +`w3m-tab-next-buffer', `w3m-tab-move-right', and `w3m-tab-move-left' +invoked by the mouse. + +You may want to set this to nil if you use a proportional font for the +tab faces. See also `w3m-tab-mouse-position-adjuster'." + :group 'w3m + :type 'boolean) + +(defcustom w3m-tab-mouse-position-adjuster '(0.5 . -4) + "Values used to adjust the mouse position on tabs. +It is used when the command `w3m-tab-previous-buffer', +`w3m-tab-next-buffer', `w3m-tab-move-right', or `w3m-tab-move-left' is +invoked by the mouse. The value consists of the cons of a floating +point number M and an integer N that are applied to calculating of the +mouse position, which is given in pixel units, as follows: + + (TAB_WIDTH + M) * ORDER + N + +Where TAB_WIDTH is the pixel width of a tab and ORDER is the order +number in tabs. The result is rounded towards zero. + +Note that the calculation will always fail if you use a proportional +font for the tab faces. See also `w3m-tab-track-mouse'." + :group 'w3m + :type '(cons (number :tag "M") (integer :tag "N"))) + +(defun w3m-tab-mouse-track-selected-tab (event order + &optional buffers decelerate) + "Make the mouse track the selected tab. +EVENT is a command event. ORDER is the order number in tabs. +The optional BUFFERS is a list of emacs-w3m buffers, DECELERATE if it +is non-nil means not to respond to too fast operation of mouse wheel." + (when (and w3m-use-tab window-system w3m-tab-track-mouse + (consp event) (symbolp (car event))) + (let ((e (get (car event) 'event-symbol-elements)) + (len (* (car w3m-tab-mouse-position-adjuster) order)) + (fcw (frame-char-width)) + posn tab start end disp next) + (when (and (consp e) (symbolp (car e)) + (or (memq (car e) '(mouse-4 mouse-5 wheel-up wheel-down)) + (string-match "\\`mouse-" (symbol-name (car e))))) + ;; Ignore values gotten by the mouse pointing to other frames. + ;; It might happen if the frame in question gets out of focus + ;; by a certain desktop tool such as unclutter. + (let ((frame (selected-frame))) + (while (not (cadr (setq posn (mouse-pixel-position)))) + (select-frame-set-input-focus frame))) + ;; Update the header line. + (setq w3m-tab-timer nil) + (sit-for 0) + (setq tab w3m-tab-line-format) + (with-temp-buffer + (insert tab) + (setq start (point-min) + end (point)) + (while (and (> order 0) + (setq start (text-property-any start end + 'tab-separator t)) + (setq start (text-property-not-all start end + 'tab-separator t))) + (setq order (1- order))) + (setq end (1- start) + start (point-min) + next start + disp (get-text-property start 'display)) + (while (and (< next end) + (setq next (next-single-property-change + start 'display nil end))) + (setq len (+ (cond + ((eq (car disp) 'image) + (or (car w3m-favicon-size) (frame-char-height))) + ((eq (car disp) 'space) + (* (or (plist-get (cdr disp) :width) 1) fcw)) + (t + (* (string-width (buffer-substring start next)) + fcw))) + len) + start next + disp (get-text-property start 'display)))) + (set-mouse-pixel-position + (car posn) + (truncate (+ len (cdr w3m-tab-mouse-position-adjuster))) + (cddr posn)) + (when decelerate + (sleep-for 0.1)) + (discard-input))))) + +(defun w3m-tab-next-buffer (&optional n event) + "Turn N pages of emacs-w3m buffers ahead." + (interactive (list (prefix-numeric-value current-prefix-arg) + last-command-event)) + (unless n (setq n 1)) + (when (and (/= n 0) (eq major-mode 'w3m-mode)) + (let ((buffers (w3m-list-buffers))) + (switch-to-buffer + (nth (mod (+ n (w3m-buffer-number (current-buffer)) -1) + (length buffers)) + buffers)) + (run-hooks 'w3m-select-buffer-hook) + (w3m-select-buffer-update) + (w3m-tab-mouse-track-selected-tab + event (w3m-buffer-number (current-buffer)) buffers)))) + +(defun w3m-tab-previous-buffer (&optional n event) + "Turn N pages of emacs-w3m buffers behind." + (interactive (list (prefix-numeric-value current-prefix-arg) + last-command-event)) + (w3m-tab-next-buffer (- n) event)) + +(defun w3m-tab-move-right (&optional n event) + "Move this tab N times to the right (to the left if N is negative)." + (interactive (list (prefix-numeric-value current-prefix-arg) + last-command-event)) + (unless n (setq n 1)) + (when (and (/= n 0) (eq major-mode 'w3m-mode)) + (let* ((buffers (if (> n 0) + (w3m-list-buffers) + (setq n (- n)) + (nreverse (w3m-list-buffers)))) + (dest (or (nth n (memq (current-buffer) buffers)) + (car (last buffers)))) + (next (w3m-buffer-number dest)) + (cur (w3m-buffer-number (current-buffer))) + e posn start) + (rename-buffer "*w3m*<0>") + (w3m-buffer-set-number dest cur) + (w3m-buffer-set-number (current-buffer) next) + (w3m-select-buffer-update) + (w3m-tab-mouse-track-selected-tab event next buffers t)))) + +(defun w3m-tab-move-left (&optional n event) + "Move this tab N times to the left (to the right if N is negative)." + (interactive (list (prefix-numeric-value current-prefix-arg) + last-command-event)) + (w3m-tab-move-right (- n) event)) + +(defvar w3m-tab-map nil) +(make-variable-buffer-local 'w3m-tab-map) + +(defvar w3m-tab-spinner-map nil) +(make-variable-buffer-local 'w3m-tab-spinner-map) + +(defun w3m-tab-make-keymap () + (unless w3m-tab-map + (setq w3m-tab-map (make-sparse-keymap)) + (let* ((cur (current-buffer)) + (f1 (lambda (fn) `(lambda (e) (interactive "e") (,fn e ,cur)))) + (f2 (lambda (fn) `(lambda (e) + (interactive "e") + (select-window (posn-window (event-start e))) + (switch-to-buffer ,cur) + (setq this-command ',fn) + (,fn 1 e)))) + (drag-action (funcall f1 'w3m-tab-drag-mouse-function)) + (single-action (funcall f1 'w3m-tab-click-mouse-function)) + (double-action1 (funcall f1 'w3m-tab-double-click-mouse1-function)) + (double-action2 (funcall f1 'w3m-tab-double-click-mouse2-function)) + (menu-action (funcall f1 'w3m-tab-button-menu)) + (menu-action2 (funcall f1 'w3m-tab-button-menu2)) + (next-buffer-action (funcall f2 'w3m-tab-next-buffer)) + (previous-buffer-action (funcall f2 'w3m-tab-previous-buffer)) + (move-left-action (funcall f2 'w3m-tab-move-left)) + (move-right-action (funcall f2 'w3m-tab-move-right))) + (define-key w3m-tab-map [header-line down-mouse-1] 'ignore) + (define-key w3m-tab-map [header-line down-mouse-2] 'ignore) + (define-key w3m-tab-map [header-line mouse-1] single-action) + (define-key w3m-tab-map [header-line mouse-2] single-action) + (define-key w3m-tab-map [header-line drag-mouse-1] drag-action) + (define-key w3m-tab-map [header-line drag-mouse-2] drag-action) + (define-key w3m-tab-map [header-line double-mouse-1] double-action1) + (define-key w3m-tab-map [header-line double-mouse-2] double-action2) + (define-key w3m-tab-map [header-line mouse-3] menu-action) + (define-key w3m-tab-map [header-line wheel-up] previous-buffer-action) + (define-key w3m-tab-map [header-line wheel-down] next-buffer-action) + (define-key w3m-tab-map [header-line mouse-4] previous-buffer-action) + (define-key w3m-tab-map [header-line mouse-5] next-buffer-action) + (define-key w3m-tab-map [header-line C-wheel-up] move-left-action) + (define-key w3m-tab-map [header-line C-wheel-down] move-right-action) + (define-key w3m-tab-map [header-line C-mouse-4] move-left-action) + (define-key w3m-tab-map [header-line C-mouse-5] move-right-action) + (define-key w3m-mode-map [header-line double-mouse-1] + 'w3m-goto-new-session-url) + (define-key w3m-mode-map [header-line mouse-3] menu-action2) + ;; The following bindings in `w3m-mode-map', not `w3m-tab-map', + ;; are required for some platforms, in which mouse wheel events + ;; sometimes pass by `w3m-tab-map' for the unresolved reason and + ;; see `w3m-mode-map', or else the `undefined' errors will arise. + (define-key w3m-mode-map [header-line mouse-4] 'w3m-tab-previous-buffer) + (define-key w3m-mode-map [header-line mouse-5] 'w3m-tab-next-buffer) + (define-key w3m-mode-map [header-line wheel-up] 'w3m-tab-previous-buffer) + (define-key w3m-mode-map [header-line wheel-down] 'w3m-tab-next-buffer) + (define-key w3m-mode-map [header-line C-wheel-up] 'w3m-tab-move-left) + (define-key w3m-mode-map [header-line C-wheel-down] 'w3m-tab-move-right) + (define-key w3m-mode-map [header-line C-mouse-4] 'w3m-tab-move-left) + (define-key w3m-mode-map [header-line C-mouse-5] 'w3m-tab-move-right)) + (unless w3m-tab-spinner-map + (setq w3m-tab-spinner-map (make-sparse-keymap)) + (define-key w3m-tab-spinner-map [header-line mouse-2] + `(lambda (e) + (interactive "e") + (save-current-buffer + ;; Why the `(w3m-process-stop BUFFER)' doesn't work? + (set-buffer ,(current-buffer)) + (call-interactively 'w3m-process-stop))))))) + +(defvar w3m-tab-half-space + (propertize " " 'display '(space :width 0.5)) + "The space of half width.") + +(defvar w3m-tab-separator-map nil) + +(unless w3m-tab-separator-map + (let ((map (make-sparse-keymap))) + (setq w3m-tab-separator-map map) + (define-key map [header-line wheel-up] 'w3m-tab-previous-buffer) + (define-key map [header-line wheel-down] 'w3m-tab-next-buffer) + (define-key map [header-line mouse-4] 'w3m-tab-previous-buffer) + (define-key map [header-line mouse-5] 'w3m-tab-next-buffer) + (define-key map [header-line C-wheel-up] 'w3m-tab-move-left) + (define-key map [header-line C-wheel-down] 'w3m-tab-move-right) + (define-key map [header-line C-mouse-4] 'w3m-tab-move-left) + (define-key map [header-line C-mouse-5] 'w3m-tab-move-right))) + +(defvar w3m-tab-separator + (propertize " " + 'face (list 'w3m-tab-background) + 'mouse-face 'w3m-tab-selected-background + 'display '(space :width 0.5) + 'tab-separator t + 'local-map w3m-tab-separator-map) + "String used to separate tabs.") + +(defun w3m-tab-line () + (or (and w3m-tab-timer w3m-tab-line-format) + (let* ((current (current-buffer)) + (buffers (w3m-list-buffers)) + (breadth 1) + (number 0) + (fringes (window-fringes)) + (width (+ (window-width) + (/ (float (+ (or (car fringes) 0) + (or (nth 1 fringes) 0))) + (frame-char-width)) + ;; Assume that the vertical scroll-bar has + ;; the width of two space characters. + (if (car (frame-current-scroll-bars)) 2 0))) + (nbuf (length buffers)) + (graphic (and window-system + w3m-show-graphic-icons-in-header-line)) + (margin (if window-system + (+ (if graphic 3.0 0.5) + ;; Right and left shadows. + (/ 2.0 (frame-char-width))) + 1)) + (spinner (when w3m-process-queue + (w3m-make-spinner-image))) + buffer title data datum process unseen favicon keymap face icon + line) + (setq w3m-tab-timer t) + (run-at-time 0.1 nil + (lambda (buffer) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (setq w3m-tab-timer nil) + (when (and (eq (selected-window) + (get-buffer-window buffer)) + w3m-process-queue) + (inline (w3m-force-window-update)))))) + current) + (save-current-buffer + (while buffers + (set-buffer (setq buffer (pop buffers))) + (setq number (1+ number)) + (setq title (if w3m-add-tab-number + (format "%d.%s" number (w3m-current-title)) + (w3m-current-title))) + (setq breadth + (max breadth + ;; There may be a wide character in the beginning of + ;; the title. + (if (> (length title) 0) + (char-width (aref title 0)) + 0))) + (push (list (eq current buffer) + w3m-current-process + (w3m-unseen-buffer-p buffer) + title + (when w3m-use-favicon w3m-favicon-image) + w3m-tab-map) + data))) + (setq width (if (> (* nbuf (+ margin w3m-tab-width)) width) + (max (truncate (- (/ width nbuf) margin)) breadth) + w3m-tab-width)) + (while data + (setq datum (pop data) + current (car datum) + process (nth 1 datum) + unseen (nth 2 datum) + title (nth 3 datum) + favicon (nth 4 datum) + keymap (nth 5 datum) + face (list + (if process + (if current + 'w3m-tab-selected-retrieving + 'w3m-tab-unselected-retrieving) + (if current + 'w3m-tab-selected + (if unseen + 'w3m-tab-unselected-unseen + 'w3m-tab-unselected)))) + icon (when graphic + (cond + (process + (when spinner + (propertize + " " + 'display spinner + 'face face + 'local-map w3m-tab-spinner-map + 'help-echo w3m-spinner-map-help-echo))) + (favicon + (propertize + " " + 'display favicon + 'face face + 'local-map keymap + 'help-echo title)))) + breadth (cond (icon width) + (graphic (+ 2 width)) + (t width))) + (push + (list + icon + (propertize + (concat + (when graphic w3m-tab-half-space) + (replace-regexp-in-string + "%" "%%" + (if (and (> (string-width title) breadth) + (> breadth 6)) + (truncate-string-to-width + (concat (truncate-string-to-width title (- breadth 3)) + "...") + breadth nil ?.) + (truncate-string-to-width title breadth nil ?\ )))) + 'face face + 'mouse-face 'w3m-tab-mouse + 'local-map keymap + 'help-echo title) + w3m-tab-separator) + line)) + (setq w3m-tab-line-format + (concat (apply 'concat (apply 'nconc line)) + (propertize (make-string (window-width) ?\ ) + 'face (list 'w3m-tab-background) + 'mouse-face 'w3m-tab-selected-background + 'local-map w3m-tab-separator-map)))))) + +(add-hook 'w3m-mode-setup-functions 'w3m-tab-make-keymap) +(add-hook 'w3m-mode-setup-functions 'w3m-setup-header-line) +(add-hook 'w3m-mode-setup-functions 'w3m-setup-widget-faces) +(add-hook 'w3m-select-buffer-hook 'w3m-force-window-update) + +;; Graphic icons. +(defcustom w3m-space-before-modeline-icon "" + "String of space character(s) to be put in front of the mode-line icon. +It may be better to use one or more spaces if you are using oblique or +italic font in the modeline." + :group 'w3m + :type 'string) + +(defvar w3m-spinner-image-file nil + "Image file used to show a spinner in the header-line.") + +(defvar w3m-spinner-image-frames 3 + "Number of frames which the spinner image contains.") + +(defvar w3m-spinner-image-index 0 + "Counter used to rotate spinner images. This is a buffer-local variable.") +(make-variable-buffer-local 'w3m-spinner-image-index) + +;; Images to be displayed in the modeline. +(defvar w3m-modeline-process-status-on-icon nil) +(defvar w3m-modeline-image-status-on-icon nil) +(defvar w3m-modeline-status-off-icon nil) +(defvar w3m-modeline-ssl-image-status-on-icon nil) +(defvar w3m-modeline-ssl-status-off-icon nil) + +(defun w3m-initialize-graphic-icons (&optional force) + "Make icon images which will be displayed in the mode-line." + (interactive "P") + (when (or (image-type-available-p 'xpm) + (image-type-available-p 'png)) + ;; Prefer xpm icons rather than png icons since Emacs doesn't display + ;; background colors of icon images other than xpm images transparently + ;; in the mode line. + (let* ((w3m-toolbar-icon-preferred-image-types + (if (image-type-available-p 'xpm) + '(xpm) + '(png))) + (defs `((w3m-modeline-status-off-icon + ,(w3m-find-image "state-00") + w3m-modeline-status-off) + (w3m-modeline-image-status-on-icon + ,(w3m-find-image "state-01") + w3m-modeline-image-status-on) + (w3m-modeline-ssl-status-off-icon + ,(w3m-find-image "state-10") + w3m-modeline-ssl-status-off) + (w3m-modeline-ssl-image-status-on-icon + ,(w3m-find-image "state-11") + w3m-modeline-ssl-image-status-on))) + def icon file type status keymap) + (while defs + (setq def (car defs) + defs (cdr defs) + icon (car def) + file (car (nth 1 def)) + type (cdr (nth 1 def)) + status (nth 2 def)) + (if (and w3m-show-graphic-icons-in-mode-line file) + (progn + (when (or force (not (symbol-value icon))) + (unless keymap + (setq keymap + (make-mode-line-mouse-map 'mouse-2 + 'w3m-reload-this-page))) + (set icon (propertize + " " + 'display (create-image file type nil + :ascent 'center) + 'local-map keymap + 'mouse-face 'mode-line-highlight + 'help-echo "mouse-2 reloads this page")) + (put icon 'risky-local-variable t) + (put status 'risky-local-variable t)) + (when (stringp (symbol-value status)) + ;; Save the original status strings as properties. + (put status 'string (symbol-value status))) + (set status (list "" 'w3m-space-before-modeline-icon icon))) + ;; Don't use graphic icons. + (when (get status 'string) + (set status (get status 'string))))))) + (let (file) + ;; Spinner + (when (and (or force (not w3m-spinner-image-file)) + (image-type-available-p 'gif) + w3m-icon-directory + (file-directory-p w3m-icon-directory) + (file-exists-p + (setq file (expand-file-name "spinner.gif" + w3m-icon-directory)))) + (setq w3m-spinner-image-file file) + (define-key (setq w3m-modeline-spinner-map (make-sparse-keymap)) + [mode-line mouse-2] + 'w3m-process-stop) + (put 'w3m-modeline-process-status-on 'risky-local-variable t) + (put 'w3m-modeline-process-status-on-icon 'risky-local-variable t)) + (if (and window-system + w3m-show-graphic-icons-in-mode-line + w3m-spinner-image-file) + (progn + (when (stringp w3m-modeline-process-status-on) + ;; Save the original status strings as properties. + (put 'w3m-modeline-process-status-on 'string + w3m-modeline-process-status-on)) + (setq w3m-modeline-process-status-on + '("" + w3m-space-before-modeline-icon + w3m-modeline-process-status-on-icon))) + (when (get 'w3m-modeline-process-status-on 'string) + (setq w3m-modeline-process-status-on + (get 'w3m-modeline-process-status-on 'string)))))) + +(defun w3m-make-spinner-image () + "Make an image used to show a spinner. +It should be called periodically in order to spin the spinner." + (when w3m-spinner-image-file + (unless (< (incf w3m-spinner-image-index) w3m-spinner-image-frames) + (setq w3m-spinner-image-index 0)) + (let ((image (create-image w3m-spinner-image-file 'gif nil + :ascent 'center :mask 'heuristic + :index w3m-spinner-image-index))) + (setq w3m-modeline-process-status-on-icon + (propertize " " + 'display image + 'local-map w3m-modeline-spinner-map + 'help-echo w3m-spinner-map-help-echo)) + image))) + +(defun w3m-decode-coding-string-with-priority (str coding) + "Decode the string STR which is encoded in CODING. +If CODING is a list, look for the coding system using it as a priority +list." + (setq str (string-make-unibyte str)) + (when (listp coding) + (setq coding + (with-temp-buffer + (set-buffer-multibyte nil) + (insert str) + (w3m-detect-coding-region (point-min) (point-max) coding)))) + (decode-coding-string str + (or coding + w3m-default-coding-system + w3m-coding-system + 'iso-2022-7bit))) + +(defun w3m-form-coding-system-accept-region-p (&optional from to coding-system) + "Check whether `coding-system' can encode specified region." + (let ((from (or from (point-min))) + (to (or to (point-max))) + (coding-system (or coding-system + w3m-form-input-textarea-coding-system))) + (if (fboundp 'unencodable-char-position) + (let ((pos (unencodable-char-position from to coding-system))) + (or (not pos) + (y-or-n-p (format "\"%c\" would not be accepted. Continue? " + (char-after pos))))) + (let ((select-safe-coding-system-accept-default-p nil)) + (or (eq (select-safe-coding-system from to coding-system) + coding-system) + (y-or-n-p + "This text may cause coding-system problem. Continue? ")))))) + +(provide 'w3m-ems) + +;;; w3m-ems.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-favicon.el b/share/emacs/site-lisp/w3m/w3m-favicon.el new file mode 100644 index 00000000000..8784703182c --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-favicon.el @@ -0,0 +1,367 @@ +;;; w3m-favicon.el --- utilities for handling favicon in emacs-w3m + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: Yuuichi Teranishi <teranisi@gohome.org>, +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; Katsumi Yamaoka <yamaoka@jpl.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;;; Code: + +(eval-when-compile + (require 'cl)) + +;;(require 'w3m-util) +;;(require 'w3m-proc) +(require 'w3m-image) + +(eval-when-compile + (defvar w3m-current-buffer) + (defvar w3m-current-url) + (defvar w3m-favicon-image) + (defvar w3m-icon-data) + (defvar w3m-modeline-favicon) + (defvar w3m-profile-directory) + (defvar w3m-use-favicon) + (defvar w3m-work-buffer-name) + (defvar w3m-work-buffer-list) + (autoload 'w3m-expand-url "w3m") + (autoload 'w3m-load-list "w3m") + (autoload 'w3m-message "w3m") + (autoload 'w3m-retrieve "w3m") + (autoload 'w3m-save-list "w3m") + (autoload 'w3m-url-readable-string "w3m")) + +(defcustom w3m-favicon-size nil + "Size of favicon. The value should be `(WIDTH . HEIGHT)' or nil. +Where WIDTH and HEIGHT are positive integers; both or any of them can +be omitted." + :group 'w3m + :type '(radio (const :tag "Not specified" nil) + (cons :format "%v" + (integer :format "Width: %v " :size 0 :value 16) + (integer :format "Height: %v " :size 0 :value 16)))) + +(defconst w3m-favicon-name "favicon.ico" + "The favicon name.") + +(add-hook 'w3m-display-functions 'w3m-favicon-setup) + +(defcustom w3m-favicon-use-cache-file nil + "*If non-nil, use favicon cache file." + :group 'w3m + :type 'boolean) + +(defcustom w3m-favicon-cache-file nil + "Filename of saving favicon cache. +It defaults to the file named \".favicon\" under the directory specified +by the `w3m-profile-directory' variable." + :group 'w3m + :type '(radio (const :format "Not specified\n") + (file :format "%t: %v\n" :size 0))) + +(defcustom w3m-favicon-cache-expire-wait (* 30 24 60 60) + "*The cache will be expired after specified seconds passed since retrieval. +If this variable is nil, never expired." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-favicon-type + (let ((types '(png gif pbm xpm bmp)) + type) + (catch 'det + (while types + (setq type (car types) + types (cdr types)) + (if (if (featurep 'xemacs) + (featurep type) + (image-type-available-p type)) + (throw 'det type))))) + "*Image type of display favicon." + :group 'w3m + :type (cons 'radio + (let ((types (if (or + (featurep 'xemacs) + (not (fboundp 'image-types))) + (delq nil + (mapcar (lambda (type) + (if (featurep type) type)) + '(gif jpeg png tiff xpm))) + (delq 'postscript (copy-sequence image-types))))) + (nconc (mapcar (lambda (x) + `(const :format "%v " ,x)) + (butlast types)) + `((const ,(car (last types)))))))) + +(defcustom w3m-space-before-favicon " " + "String of space char(s) to be put in front of favicon in the mode-line. +It may be better to use two or more spaces if you are using oblique or +italic font in the modeline." + :group 'w3m + :type 'string) + +(defcustom w3m-favicon-convert-args nil + "List of additional arguments passed to ImageMagick's convert program. +Args that are always passed to convert in addition to this value are: + +\(\"-geometry\" \"WIDTHxHEIGHT\" \"fromTYPE:temp-file\" \"toTYPE:-\") + +Args might also contain (\"-transparent\" \"COLOR\") in the beginning. +Note that this value is effective only with Emacs 22 and greater." + :group 'w3m + :type `(repeat (group :inline t + :match-inline + (lambda (widget vals) + (if (and (eq (aref (car vals) 0) ?-) + (cdr vals) + (not (eq (aref (nth 1 vals) 0) ?-))) + (cons (list (car vals) (nth 1 vals)) + (nthcdr 2 vals)) + (cons (list (car vals)) (cdr vals)))) + (string :format "Arg: %v " :value "-" :size 0) + (checklist :inline t + (string :format "Value: %v\n" :size 0))))) + +(defcustom w3m-favicon-default-background nil + "Color name used as transparent color of favicon image. +Nil means to use the background color of the Emacs frame. The null +string \"\" is special, that will be replaced with the background color +of the header line or the mode line on which the favicon is displayed. +Note that this value is effective only with Emacs 22 and greater." + :group 'w3m + :type '(radio (string :format "Color: %v\n" :size 0 + :match (lambda (widget value) + (and (stringp value) (> (length value) 0)))) + (const :tag "Use the background color of the Emacs frame" nil) + (const :tag "Null string" ""))) + +(defvar w3m-favicon-type-alist '((pbm . ppm)) + "A list of a difference type of image between Emacs and ImageMagick. + 0. Type of Emacs + 1. Type of ImageMagick") + +(defvar w3m-favicon-cache-data nil + "A list of favicon cache (internal variable). +Each information is a list whose elements are: + + 0. URL + 1. (RAW_DATA . TYPE) + 2. DATE when the RAW_DATA was retrieved + 3. IMAGE + +Where IMAGE highly depends on the Emacs version and is not saved in +the cache file.") + +(w3m-static-if (featurep 'xemacs) + (set 'w3m-modeline-favicon + '("" w3m-space-before-favicon w3m-favicon-image)) + (put 'w3m-modeline-favicon 'risky-local-variable t)) +(make-variable-buffer-local 'w3m-modeline-favicon) +(make-variable-buffer-local 'w3m-favicon-image) + +(defmacro w3m-favicon-cache-p (url) + "Say whether the favicon data for URL has been chached." + `(assoc ,url w3m-favicon-cache-data)) + +(defmacro w3m-favicon-cache-favicon (url) + "Pull out the favicon image corresponding to URL from the cache." + `(nth 3 (assoc ,url w3m-favicon-cache-data))) + +(defmacro w3m-favicon-cache-retrieved (url) + "Return the time when the favicon data for URL was retrieved." + `(nth 2 (assoc ,url w3m-favicon-cache-data))) + +(defmacro w3m-favicon-set-image (image) + "Set IMAGE to `w3m-favicon-image' and `w3m-modeline-favicon'." + (if (featurep 'xemacs) + `(set 'w3m-favicon-image ,image) + `(when (setq w3m-favicon-image ,image) + (set 'w3m-modeline-favicon + (list "" + 'w3m-space-before-favicon + (propertize " " 'display w3m-favicon-image) + (propertize " " 'display '(space :width 0.5))))))) + +(defun w3m-favicon-setup (url) + "Set up the favicon data in the current buffer. The buffer-local +variable `w3m-favicon-image' will be set to non-nil value when the +favicon is ready." + (w3m-favicon-set-image nil) + (when (and w3m-use-favicon + w3m-current-url + (w3m-static-if (featurep 'xemacs) + (and (device-on-window-system-p) + (featurep w3m-favicon-type)) + (and (display-images-p) + (image-type-available-p w3m-favicon-type)))) + (let (icon) + (cond + ((and (string-match "\\`about://\\([^/]+\\)/" url) + (setq icon (intern-soft (concat "w3m-about-" (match-string 1 url) + "-favicon")))) + (with-current-buffer w3m-current-buffer + (w3m-favicon-set-image + (w3m-favicon-convert + (base64-decode-string (symbol-value icon)) 'ico)))) + ((or (string-match "\\`https?://" url) + (and (string-match "\\`about://\\(?:header\\|source\\)/https?://" + url) + (setq url (substring url 15)))) + (if w3m-icon-data + (w3m-favicon-retrieve (car w3m-icon-data) (cdr w3m-icon-data) + w3m-current-buffer) + (w3m-favicon-retrieve (w3m-expand-url (concat "/" w3m-favicon-name) + url) + 'ico w3m-current-buffer))))))) + +(defun w3m-favicon-convert (data type) + "Convert the favicon DATA in TYPE to the favicon image and return it." + (when (or (not (eq type 'ico)) + ;; Since most of favicons are the `ico' types, we make sure + ;; of the magic-numbers only as for them. + (string-equal "\x00\x00\x01\x00" (substring data 0 4))) + (let ((height (or (cdr w3m-favicon-size) + (w3m-static-if (featurep 'xemacs) + (face-height 'default) + (frame-char-height)))) + (new (w3m-static-unless (featurep 'xemacs) + (>= emacs-major-version 22))) + bg args img) + ;; Examine the transparent color of the image. + (when (and w3m-imagick-identify-program + (equal w3m-favicon-default-background "")) + (with-temp-buffer + (set-buffer-multibyte nil) + (insert data) + (let ((coding-system-for-read 'raw-text) + (coding-system-for-write 'binary)) + (condition-case nil + (call-process-region (point-min) (point-max) + w3m-imagick-identify-program + t t nil "-verbose" (format "%s:-" type)) + (error))) + (goto-char (point-min)) + (setq case-fold-search t) + (while (and (not bg) + (re-search-forward "^ *Transparent +color: *\ +\\([^\n ]+\\(?: +[^\n ]+\\)*\\)" nil t)) + (when (string-match "\\`none\\'" (setq bg (match-string 1))) + (setq bg nil))))) + (setq args (list "-geometry" + (format "%dx%d" + (or (car w3m-favicon-size) height) height))) + (w3m-static-unless (featurep 'xemacs) + (when new + ;; "-transparent" should precede the other arguments. + (setq args (nconc (when bg (list "-transparent" bg)) + args + w3m-favicon-convert-args)))) + (setq img (apply + #'w3m-imagick-convert-data + data (symbol-name type) + (symbol-name (or (cdr (assq w3m-favicon-type + w3m-favicon-type-alist)) + w3m-favicon-type)) + args)) + (when img + (w3m-static-if (featurep 'xemacs) + (make-glyph + (make-image-instance (vector w3m-favicon-type :data img))) + (if new + (create-image img w3m-favicon-type t + :ascent 'center + :background w3m-favicon-default-background) + (create-image img w3m-favicon-type t :ascent 'center))))))) + +(defun w3m-favicon-retrieve (url type target) + "Retrieve favicon from URL and convert it to image as TYPE in TARGET. +TYPE is a symbol like `ico' and TARGET is a buffer where the image is +stored in the `w3m-favicon-image' buffer-local variable." + (if (and (w3m-favicon-cache-p url) + (or (null w3m-favicon-cache-expire-wait) + (< (- (w3m-float-time) + (w3m-float-time (w3m-favicon-cache-retrieved url))) + w3m-favicon-cache-expire-wait))) + (with-current-buffer target + (w3m-favicon-set-image (w3m-favicon-cache-favicon url))) + (lexical-let ((url url) + (type type) + (target target) + (silent w3m-message-silent)) + (w3m-process-with-null-handler + (w3m-process-do-with-temp-buffer + (ok (w3m-retrieve url 'raw nil nil nil handler)) + (let ((w3m-message-silent silent) + idata image) + (if (and ok + ;; Some broken servers provides empty contents. + (>= (buffer-size) 4)) + (setq idata (buffer-string) + image (w3m-favicon-convert idata type)) + (w3m-message "Reading %s...done (no favicon)" + (w3m-url-readable-string url))) + (with-current-buffer target + (w3m-favicon-set-image image) + (push (list url idata (current-time) w3m-favicon-image) + w3m-favicon-cache-data))))))) + ;; Emacs frame needs to be redisplayed to make favicon come out. + (w3m-force-window-update-later target 1)) + +(defun w3m-favicon-save-cache-file () + "Save the cached favicon data into the local file." + (when w3m-favicon-use-cache-file + (w3m-save-list (or w3m-favicon-cache-file + (expand-file-name ".favicon" w3m-profile-directory)) + (delq nil (mapcar (lambda (elem) + (when (= (length elem) 4) + (butlast elem))) + w3m-favicon-cache-data)) + 'binary))) + +(defun w3m-favicon-load-cache-file () + "Load the cached favicon data from the local file." + (when (and w3m-favicon-use-cache-file + (null w3m-favicon-cache-data)) + (let ((cache (w3m-load-list + (or w3m-favicon-cache-file + (expand-file-name ".favicon" w3m-profile-directory)) + 'binary)) + elem data image) + (while cache + (setq elem (car cache) + cache (cdr cache) + data (cadr elem)) + (when (stringp data) + (setcar (cdr elem) (setq data (cons data 'ico)))) + (when (setq image (condition-case nil + (w3m-favicon-convert (car data) (cdr data)) + (error nil))) + (push (nconc elem (list image)) w3m-favicon-cache-data)))))) + +(add-hook 'w3m-arrived-setup-functions 'w3m-favicon-load-cache-file) +(add-hook 'w3m-arrived-shutdown-functions 'w3m-favicon-save-cache-file) + +(provide 'w3m-favicon) + +;;; w3m-favicon.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-fb.el b/share/emacs/site-lisp/w3m/w3m-fb.el new file mode 100644 index 00000000000..810bb212914 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-fb.el @@ -0,0 +1,208 @@ +;;; w3m-fb.el --- frame-local buffers support for Emacs-w3m + +;;; Copyright (C) 2005, 2006 Matthew P. Hodges + +;; Author: Matthew P. Hodges <MPHodges@member.fsf.org> +;; Version: $Id: w3m-fb.el,v 1.4 2006/09/20 09:26:42 yamaoka Exp $ + +;; w3m-fb.el 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. + +;; w3m-fb.el 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. + +;;; Commentary: +;; +;; With this mode switched on, W3M buffers are associated with the +;; frame on which they were created. Only tabs for the current +;; frame's W3M buffers are shown (with non-nil w3m-use-tab); other +;; affected commands are w3m-next-buffer w3m-previous-buffer, +;; w3m-select-buffer and w3m-quit. +;; +;; Switch the mode on programmatically with: +;; +;; (w3m-fb-mode 1) +;; +;; or toggle interactively with M-x w3m-fb-mode RET. + +;;; Code: + +(defconst w3m-fb-version "1.0.0" + "Version number of this package.") + +(eval-when-compile + (autoload 'w3m-delete-buffer "w3m" nil t) + (autoload 'w3m-list-buffers "w3m-util") + (autoload 'w3m-next-buffer "w3m" nil t) + (defvar w3m-pop-up-frames)) + +(eval-and-compile + (defalias 'w3m-fb-frame-parameter + (cond + ((fboundp 'frame-parameter) + 'frame-parameter) + ((fboundp 'frame-property) + 'frame-property) + (t + (error "No frame parameter/property function"))))) + +(defvar w3m-fb-delete-frame-functions + (cond + ((boundp 'delete-frame-functions) + 'delete-frame-functions) + ((boundp 'delete-frame-hook) + 'delete-frame-hook) + (t + (error "No delete-frame hook/functions variable found"))) + "Symbol associated with `delete-frame' hooks.") + +(defvar w3m-fb-list-buffers-frame nil + "Frame to list buffers for in `w3m-list-buffers'. +Bind this if the buffers associated with a frame other than the +selected frame are required.") + +;; Customizable variables + +(defgroup w3m-fb nil + "Frame local buffers for Emacs-w3m." + :group 'w3m) + +(defcustom w3m-fb-delete-frame-kill-buffers t + "If non-nil, kill W3M buffers after deleting frames." + :group 'w3m-fb + :type 'boolean + :set (lambda (sym val) + (set sym val) + (when (boundp 'w3m-fb-mode) + (if w3m-fb-mode + (add-hook w3m-fb-delete-frame-functions + 'w3m-fb-delete-frame-buffers) + (remove-hook w3m-fb-delete-frame-functions + 'w3m-fb-delete-frame-buffers))))) + +;; Internal variables + +(defvar w3m-fb-buffer-list nil + "List of w3m buffers associated with the selected frame.") + +(defvar w3m-fb-inhibit-buffer-selection nil + "Non-nil to inhibit selecting a suitable w3m buffer.") + +;; Internal functions + +(defun w3m-fb-delete-frame-buffers (&optional frame) + "Delete W3M buffers associated with frame FRAME." + (let* ((w3m-fb-list-buffers-frame frame) + (buffers (w3m-list-buffers)) + ;; Now bind w3m-fb-mode to nil so that w3m-delete-buffer + ;; doesn't call w3m-quit when there are w3m buffers belonging + ;; to other frames. + (w3m-fb-mode nil) + (w3m-fb-inhibit-buffer-selection t)) + (save-window-excursion + (dolist (b buffers) + (with-current-buffer b + (w3m-delete-buffer)))))) + +;; Could use set-frame-parameter here, but it isn't portable +(defun w3m-fb-set-frame-parameter (frame parameter value) + "Set for frame FRAME parameter PARAMETER to VALUE." + (modify-frame-parameters frame (list (cons parameter value)))) + +(defun w3m-fb-add () + "Add current buffer to `w3m-fb-buffer-list'." + (let ((val (w3m-fb-frame-parameter nil 'w3m-fb-buffer-list))) + (w3m-fb-set-frame-parameter + nil 'w3m-fb-buffer-list (nconc val (list (current-buffer)))))) + +(defun w3m-fb-remove () + "Remove current buffer from `w3m-fb-buffer-list'. +Applies to all frames." + (when (eq major-mode 'w3m-mode) + (let (val) + (dolist (f (frame-list)) + (setq val (w3m-fb-frame-parameter f 'w3m-fb-buffer-list)) + (w3m-fb-set-frame-parameter + f 'w3m-fb-buffer-list (delq (current-buffer) val)))))) + +(defun w3m-fb-associate () + "Associate all `w3m-mode' buffers with a frame." + (let (buffers done rest) + ;; Buffers displayed in windows + (dolist (f (frame-list)) + (setq buffers nil) + (dolist (w (window-list f nil (frame-selected-window f))) + (when (with-current-buffer (window-buffer w) + (eq major-mode 'w3m-mode)) + (setq buffers (nconc buffers (list (window-buffer w)))) + (setq done (nconc done (list (window-buffer w)))))) + (w3m-fb-set-frame-parameter + f 'w3m-fb-buffer-list buffers)) + ;; Buffers not displayed in windows; add to selected frame + (let ((w3m-fb-mode nil)) + (setq rest (w3m-list-buffers))) + (dolist (b done) + (setq rest (delq b rest))) + (when rest + (w3m-fb-set-frame-parameter + nil 'w3m-fb-buffer-list + (nconc (w3m-fb-frame-parameter nil 'w3m-fb-buffer-list) rest))))) + +(defun w3m-fb-dissociate () + "Disassociate `w3m-mode' buffers from frames." + (dolist (f (frame-list)) + (w3m-fb-set-frame-parameter f 'w3m-fb-buffer-list nil))) + +(defun w3m-fb-select-buffer () + "Select an appropriate W3M buffer to display." + ;; If there are w3m buffers belonging to this frame, ensure one is + ;; selected; if not make sure that we're not displaying a w3m + ;; buffer + (cond + ;; Select w3m buffer belonging to frame, if one is available + ((w3m-list-buffers) + (unless (memq (current-buffer) (w3m-list-buffers)) + (w3m-next-buffer -1))) + (t + ;; If no w3m buffers belong to frame, don't display any w3m buffer + (while (eq major-mode 'w3m-mode) +;; (assert (eq (current-buffer) +;; (window-buffer (selected-window)))) + (bury-buffer))))) + +;; Minor mode setup + +;;;###autoload +(define-minor-mode w3m-fb-mode + "Toggle W3M Frame Buffer mode. +This allows frame-local lists of buffers (tabs)." + :init-value nil + :group 'w3m-fb + :global t + (if (and w3m-fb-mode + (if w3m-pop-up-frames + (prog1 + (setq w3m-fb-mode nil) + (message "\ +W3M Frame Buffer mode not activated (non-nil w3m-pop-up-frames)") + (sit-for 2)) + t)) + (progn + (add-hook 'w3m-mode-hook 'w3m-fb-add) + (add-hook 'kill-buffer-hook 'w3m-fb-remove) + (when w3m-fb-delete-frame-kill-buffers + (add-hook w3m-fb-delete-frame-functions + 'w3m-fb-delete-frame-buffers)) + (w3m-fb-associate)) + (remove-hook 'w3m-mode-hook 'w3m-fb-add) + (remove-hook 'kill-buffer-hook 'w3m-fb-remove) + (remove-hook w3m-fb-delete-frame-functions 'w3m-fb-delete-frame-buffers) + (w3m-fb-dissociate))) + +(provide 'w3m-fb) + +;;; w3m-fb.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-filter.el b/share/emacs/site-lisp/w3m/w3m-filter.el new file mode 100644 index 00000000000..8feb1439e21 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-filter.el @@ -0,0 +1,367 @@ +;;; w3m-filter.el --- filtering utility of advertisements on WEB sites -*- coding: euc-japan -*- + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; w3m-filter.el is the add-on utility to filter advertisements on WEB +;; sites. + + +;;; Code: + +(provide 'w3m-filter) + +(eval-when-compile + (require 'cl)) + +(require 'w3m) + +(defcustom w3m-filter-rules + `(("\\`http://www\\.geocities\\.co\\.jp/" + w3m-filter-delete-regions + "<DIV ALIGN=CENTER>\n<!--*/GeoGuide/*-->" "<!--*/GeoGuide/*-->\n</DIV>") + ("\\`http://[a-z]+\\.hp\\.infoseek\\.co\\.jp/" + w3m-filter-delete-regions + "<!-- start AD -->" "<!-- end AD -->") + ("\\`http://linux\\.ascii24\\.com/linux/" + w3m-filter-delete-regions + "<!-- DAC CHANNEL AD START -->" "<!-- DAC CHANNEL AD END -->") + ("\\`http://\\(www\\|images\\|news\\|maps\\|groups\\)\\.google\\." + w3m-filter-google) + ("\\`https?://\\(?:www\\.\\)?amazon\\.\ +\\(?:com\\|co\\.\\(?:jp\\|uk\\)\\|fr\\|de\\)/" + w3m-filter-amazon) + ("\\`https?://mixi\\.jp" w3m-filter-mixi) + ("\\`http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8" w3m-filter-alc) + ("\\`http://www\\.asahi\\.com/" w3m-filter-asahi-shimbun) + ("\\`http://imepita\\.jp/[0-9]+/[0-9]+" w3m-filter-imepita) + ("\\`http://allatanys\\.jp/" w3m-filter-allatanys) + ("\\`http://.*\\.wikipedia\\.org/" w3m-filter-wikipedia) + ("" w3m-filter-iframe)) + "Rules to filter advertisements on WEB sites." + :group 'w3m + :type '(repeat + (cons :format "%v" :indent 4 + (regexp :format "Regexp: %v\n" :size 0) + (choice + :tag "Filtering Rule" + (list :tag "Delete regions surrounded with these patterns" + (function-item :format "" w3m-filter-delete-region) + (regexp :tag "Start") + (regexp :tag "End")) + (list :tag "Filter with a user defined function" + function + (repeat :tag "Arguments" sexp)))))) + +(defcustom w3m-filter-google-use-utf8 + (or (featurep 'un-define) (fboundp 'utf-translate-cjk-mode) + (and (not (equal "Japanese" w3m-language)) + (w3m-find-coding-system 'utf-8))) + "*Use the converting rule to UTF-8 on the site of Google." + :group 'w3m + :type 'boolean) + +(defcustom w3m-filter-google-use-ruled-line t + "*Use the ruled line on the site of Google." + :group 'w3m + :type 'boolean) + +(defcustom w3m-filter-google-separator "<hr>" + "Field separator for Google's search results ." + :group 'w3m + :type 'string) + +(defcustom w3m-filter-amazon-regxp + (concat + "\\`\\(https?://\\(?:www\\.\\)?amazon\\." + "\\(?:com\\|co\\.\\(?:jp\\|uk\\)\\|fr\\|de\\)" + ;; "Joyo.com" + "\\)/" + "\\(?:" + "\\(?:exec/obidos\\|o\\)/ASIN" + "\\|" + "gp/product" + "\\|" + "\\(?:[^/]+/\\)?dp" + "\\)" + "/\\([0-9]+\\)") + "*Regexp to extract ASIN number for Amazon." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-filter-amazon-short-url-bottom nil + "*Amazon short URLs insert bottom position." + :group 'w3m + :type 'boolean) + +;;;###autoload +(defun w3m-filter (url) + "Apply filtering rule of URL against a content in this buffer." + (save-match-data + (dolist (elem w3m-filter-rules) + (when (string-match (car elem) url) + (apply (cadr elem) url (cddr elem)))))) + +(defun w3m-filter-delete-regions (url start end) + "Delete regions surrounded with a START pattern and an END pattern." + (goto-char (point-min)) + (let (p (i 0)) + (while (and (search-forward start nil t) + (setq p (match-beginning 0)) + (search-forward end nil t)) + (delete-region p (match-end 0)) + (incf i)) + (> i 0))) + +(defun w3m-filter-replace-regexp (url regexp to-string) + "Replace all occurrences of REGEXP with TO-STRING." + (goto-char (point-min)) + (while (re-search-forward regexp nil t) + (replace-match to-string nil nil))) + +;; Filter functions: +(defun w3m-filter-asahi-shimbun (url) + "Convert entity reference of UCS." + (when w3m-use-mule-ucs + (goto-char (point-min)) + (let ((case-fold-search t) + end ucs) + (while (re-search-forward "alt=\"\\([^\"]+\\)" nil t) + (goto-char (match-beginning 1)) + (setq end (set-marker (make-marker) (match-end 1))) + (while (re-search-forward "&#\\([0-9]+\\);" (max end (point)) t) + (setq ucs (string-to-number (match-string 1))) + (delete-region (match-beginning 0) (match-end 0)) + (insert-char (w3m-ucs-to-char ucs) 1)))))) + +(defun w3m-filter-google (url) + "Insert separator within items." + (goto-char (point-min)) + (let ((endm (make-marker)) + (case-fold-search t) + pos beg end) + (when (and w3m-filter-google-use-utf8 + (re-search-forward "\ +<a class=. href=\"http://\\(www\\|images\\|news\\|maps\\|groups\\)\\.google\\." + nil t) + (setq pos (match-beginning 0)) + (search-backward "<table" nil t) + (setq beg (match-beginning 0)) + (search-forward "</table" nil t) + (set-marker endm (match-end 0)) + (< pos (marker-position endm))) + (goto-char beg) + (while (re-search-forward "[?&][io]e=\\([^&]+\\)&" endm t) + (replace-match "UTF-8" nil nil nil 1)) + (setq end (marker-position endm))) + (when (string-match "\\`http://www\\.google\\.[^/]+/search\\?" url) + (goto-char (point-max)) + (when (and w3m-filter-google-use-ruled-line + (search-backward "<div class=" end t) + (search-forward "</div>" nil t)) + (insert w3m-filter-google-separator)) + (if w3m-filter-google-use-ruled-line + (while (search-backward "<div class=" end t) + (insert w3m-filter-google-separator)) + (while (search-backward "<div class=" end t) + (insert "<p>")))))) + +(defun w3m-filter-amazon (url) + "Insert Amazon short URIs." + (when (string-match w3m-filter-amazon-regxp url) + (let* ((base (match-string 1 url)) + (asin (match-string 2 url)) + (shorturls `(,(concat base "/dp/" asin "/") + ,(concat base "/o/ASIN/" asin "/") + ,(concat base "/gp/product/" asin "/"))) + (case-fold-search t) + shorturl) + (goto-char (point-min)) + (setq url (file-name-as-directory url)) + (when (or (and (not w3m-filter-amazon-short-url-bottom) + (search-forward "<body" nil t) + (search-forward ">" nil t)) + (and w3m-filter-amazon-short-url-bottom + (search-forward "</body>" nil t) + (goto-char (match-beginning 0)))) + (insert "\n") + (while (setq shorturl (car shorturls)) + (setq shorturls (cdr shorturls)) + (unless (string= url shorturl) + (insert (format "Amazon Short URL: <a href=\"%s\">%s</a><br>\n" + shorturl shorturl)))) + (insert "\n"))))) + +(defun w3m-filter-mixi (url) + "Direct jump to the external diary." + (goto-char (point-min)) + (let (newurl) + (while (re-search-forward "<a href=\"?view_diary\\.pl\\?url=\\([^>]+\\)>" + nil t) + (setq newurl (match-string 1)) + (when newurl + (delete-region (match-beginning 0) (match-end 0)) + (when (string-match "&owner_id=[0-9]+\"?\\'" newurl) + (setq newurl (substring newurl 0 (match-beginning 0)))) + (insert (format "<a href=\"%s\">" + (w3m-url-readable-string newurl))))))) + +(defun w3m-filter-alc (url) + (let ((baseurl "http://eow.alc.co.jp/%s/UTF-8/") + curl cword beg tmp1) + (when (string-match "\\`http://eow\\.alc\\.co\\.jp/\\([^/]+\\)/UTF-8/" url) + (setq curl (match-string 0 url)) + (setq cword (match-string 1 url)) + (setq cword (car (split-string (w3m-url-decode-string cword 'utf-8) + " "))) + (goto-char (point-min)) + (while (search-forward "¥Ç¡¼¥¿¤ÎžºÜ¤Ï¶Ø¤¸¤é¤ì¤Æ¤¤¤Þ¤¹" nil t) + (delete-region (line-beginning-position) (line-end-position)) + (insert "<br>")) + (goto-char (point-min)) + (when (search-forward "<body" nil t) + (forward-line 1) + (insert "<h1>±Ñ¼Ï¯ on the WEB<h1>\n") + (setq beg (point)) + (when (search-forward "<!-- ¢§¸¡º÷ʸ»úÎó -->" nil t) + (forward-line 1) + (delete-region beg (point))) + (when (search-forward "<!-- ¢§¥ï¡¼¥É¥ê¥ó¥¯ ÍúÎò -->" nil t) + (forward-line 1) + (setq beg (point)) + (when (search-forward "</body>" nil t) + (delete-region beg (match-beginning 0)))) + (insert "<br>¡ö¥Ç¡¼¥¿¤ÎžºÜ¤Ï¶Ø¤¸¤é¤ì¤Æ¤¤¤Þ¤¹¡£") + ;; next/previous page + (goto-char (point-min)) + (while (re-search-forward + "<a href='javascript:goPage(\"\\([0-9]+\\)\")'>" + nil t) + (setq tmp1 (match-string 1)) + (delete-region (match-beginning 0) (match-end 0)) + (insert (format "<a href=\"%s?pg=%s\">" curl tmp1))) + ;; wordlink + (goto-char (point-min)) + (while (re-search-forward + "<span class=\"wordlink\">\\([^<]+\\)</span>" + nil t) + (setq tmp1 (match-string 1)) + (delete-region (match-beginning 0) (match-end 0)) + (insert (format "<a href=\"%s\">%s</a>" (format baseurl tmp1) tmp1))) + ;; goGradable/goFairWord + (goto-char (point-min)) + (while (re-search-forward + "<a href='javascript:\\(goGradable\\|goFairWord\\)(\"\\([^\"]+\\)\")'>" + nil t) + (setq tmp1 (match-string 2)) + (delete-region (match-beginning 0) (match-end 0)) + (insert (format "<a href=\"%s\">" (format baseurl tmp1)))) + ;; remove spacer + (goto-char (point-min)) + (while (search-forward "img/spacer.gif" nil t) + (delete-region (line-beginning-position) (line-end-position))) + (goto-char (point-min)) + ;; remove ¥ï¡¼¥É¥ê¥ó¥¯ + (when (search-forward "alt=\"¥ï¡¼¥É¥ê¥ó¥¯\"" nil t) + (delete-region (line-beginning-position) (line-end-position))) + ;; Á´Ê¸¤òɽ¼¨¤¹¤ë¤Ï̵Íý + (goto-char (point-min)) + (while (re-search-forward + (concat "<br */> *¢Í<strong>" + "<a href='javascript:goFullText(\"[^\"]+\", \"[^\"]+\")'>" + "Á´Ê¸¤òɽ¼¨¤¹¤ë</a>") + nil t) + (delete-region (match-beginning 0) (match-end 0))) + ;; Java Document write... ;_; + ;; (while (re-search-forward + ;; "<a href='javascript:goFullText(\"\\([^\"]+\\)\", \"\\([^\"]+\\)\")'>" + ;; nil t) + ;; (setq tmp1 (match-string 1)) + ;; (setq tmp2 (match-string 2)) + ;; (delete-region (match-beginning 0) (match-end 0)) + ;; ;; &dk=JE, &dk=EJ + ;; (insert (format "<a href=\"%s?ref=ex&exp=%s&dn=%s&dk=%s\">" + ;; curl tmp1 tmp2 + ;; (if (string-match "\\Cj" cword) "JE" "EJ")))) + )))) + +(defun w3m-filter-imepita (url) + "JavaScript emulation." + (goto-char (point-min)) + (let (tmp) + (when (re-search-forward + (concat "<script><!--\ndocument.write('\\([^\n]*\\)');\r\n//--></script>\n" + "<noscript>.*</noscript>") + nil t) + (setq tmp (match-string 1)) + (delete-region (match-beginning 0) (match-end 0)) + (insert tmp)))) + +(defun w3m-filter-iframe (url) + (goto-char (point-min)) + (while (re-search-forward "<iframe [^>]*src=\"\\([^\"]*\\)\"[^>]*>" nil t) + (insert (concat "[iframe:<a href=\"" (match-string 1) "\">" (match-string 1) "</a>]")))) + +(defun w3m-filter-allatanys (url) + "JavaScript emulation." + (goto-char (point-min)) + (let (aturl atexpurl) + (if (re-search-forward + (concat "<body[ \t\r\f\n]+onload=\"window\\.top\\.location\\.replace('" + w3m-html-string-regexp + "');\">") + nil t) + (progn + (setq aturl (match-string 1)) + (setq atexpurl (w3m-expand-url aturl url)) + (delete-region (match-beginning 0) (match-end 0)) + (insert "<body>\n" + "<hr>" + "Body has a <b>url=window.top.location.replace()</b><br><br>\n" + (format "Goto: <a href=%s>%s</a>\n" aturl atexpurl) + "<hr>") + (goto-char (point-min)) + (insert (format "<meta HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=%s\">\n" + aturl))) + (while (re-search-forward (concat "<a[ \t\r\l\n]+href=\"javascript:[^(]+('" + "\\([^']+\\)')\">") + nil t) + (setq aturl (match-string 1)) + (delete-region (match-beginning 0) (match-end 0)) + (insert (format "<a href=\"%s\">" aturl)))))) + +(defun w3m-filter-wikipedia (url) + "Make anchor reference to work." + (goto-char (point-min)) + (let (matched-text refid) + (while (re-search-forward + "<\\(?:sup\\|cite\\) id=\"\\([^\"]*\\)\"" nil t) + (setq matched-text (match-string 0) + refid (match-string 1)) + (delete-region (match-beginning 0) (match-end 0)) + (insert (format "<a name=\"%s\"></a>%s" refid matched-text))))) + +;;; w3m-filter.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-form.el b/share/emacs/site-lisp/w3m/w3m-form.el new file mode 100644 index 00000000000..d75857d568e --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-form.el @@ -0,0 +1,1896 @@ +;;; w3m-form.el --- Stuffs to handle <form> tag + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; Yuuichi Teranishi <teranisi@gohome.org>, +;; Hideyuki SHIRAI <shirai@meadowy.org>, +;; Shun-ichi GOTO <gotoh@taiyo.co.jp>, +;; Akihiro Arisawa <ari@mbf.sphere.ne.jp> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; This file contains the stuffs to handle <form> tag on emacs-w3m. +;; For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m-util) +(require 'w3m) + +(eval-when-compile + (defvar w3m-current-forms)) + +(defcustom w3m-form-use-fancy-faces t + "*Use fancy faces to fontify <form> tags." + :group 'w3m + :type 'boolean) + +(defcustom w3m-form-treat-textarea-size t + "*Non-nil means to process textarea size (treat textarea rows)." + :group 'w3m + :type 'boolean) + +(defcustom w3m-form-use-textarea-backup t + "*Non-nil means save and restore text that you wrote last in the textarea. +Files to save text are stored in the directory specified by the +`w3m-form-textarea-directory' variable." + :group 'w3m + :type 'boolean) + +(defcustom w3m-form-textarea-file-expire-date 3 + "*Date to expire of the file for textarea's backup." + :group 'w3m + :type '(choice (integer :tag "Expire date") + (const :tag "Remove when emacs-w3m exit" t) + (const :tag "No expire" nil))) + +(defcustom w3m-form-textarea-file-coding-system + (cond ((or (featurep 'un-define) + (fboundp 'utf-translate-cjk-mode)) + 'utf-8) + ((equal "Japanese" w3m-language) + 'iso-2022-7bit-ss2) + ((w3m-find-coding-system 'utf-8) + 'utf-8) + (t + 'iso-2022-7bit-ss2)) + "Coding system for textarea's backup file." + :group 'w3m + :type '(coding-system :size 0)) + +(defcustom w3m-form-textarea-directory + (expand-file-name ".textarea" w3m-profile-directory) + "*Name of the directory to save the file of textarea input." + :group 'w3m + :type '(directory :size 0)) + +(defcustom w3m-form-textarea-edit-mode 'text-mode + "*Major mode to edit textarea." + :group 'w3m + :type '(choice + (function :tag "Major mode") + (repeat :tag "Rules to select major modes for the current page" + (cons (choice (regexp :tag "Regexp matches the current page") + (function :tag "Predicate checks the current page") + (sexp :tag "Expression checks the current page")) + (function :tag "Major mode"))))) + +(defface w3m-form + '((((class color) (background light)) (:foreground "cyan" :underline t)) + (((class color) (background dark)) (:foreground "red" :underline t)) + (t (:underline t))) + "*Face to fontify forms." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-form-face 'face-alias 'w3m-form) + +;;; Local variables +(defvar w3m-form-input-textarea-buffer nil) +(defvar w3m-form-input-textarea-form nil) +(defvar w3m-form-input-textarea-hseq nil) +(defvar w3m-form-input-textarea-point nil) +(defvar w3m-form-input-textarea-wincfg nil) +(defvar w3m-form-input-textarea-file nil) +(defvar w3m-form-input-textarea-coding-system nil) +(defvar w3m-form-use-textarea-backup-p nil) +(make-variable-buffer-local 'w3m-form-input-textarea-buffer) +(make-variable-buffer-local 'w3m-form-input-textarea-form) +(make-variable-buffer-local 'w3m-form-input-textarea-hseq) +(make-variable-buffer-local 'w3m-form-input-textarea-point) +(make-variable-buffer-local 'w3m-form-input-textarea-wincfg) +(make-variable-buffer-local 'w3m-form-input-textarea-file) +(make-variable-buffer-local 'w3m-form-input-textarea-coding-system) +(make-variable-buffer-local 'w3m-form-use-textarea-backup-p) + +(defvar w3m-form-textarea-files nil) +(make-variable-buffer-local 'w3m-form-textarea-files) + +(defvar w3m-form-textarea-post-files nil) +(make-variable-buffer-local 'w3m-form-textarea-post-files) + +(defvar w3m-form-input-textarea-mode nil + "Non-nil if w3m textarea minor mode is enabled.") +(make-variable-buffer-local 'w3m-form-input-textarea-mode) + +(defvar w3m-form-input-select-buffer nil) +(defvar w3m-form-input-select-form nil) +(defvar w3m-form-input-select-name nil) +(defvar w3m-form-input-select-id nil) +(defvar w3m-form-input-select-point nil) +(defvar w3m-form-input-select-candidates nil) +(defvar w3m-form-input-select-wincfg nil) +(defvar w3m-form-input-select-urlid nil) +(make-variable-buffer-local 'w3m-form-input-select-buffer) +(make-variable-buffer-local 'w3m-form-input-select-form) +(make-variable-buffer-local 'w3m-form-input-select-name) +(make-variable-buffer-local 'w3m-form-input-select-id) +(make-variable-buffer-local 'w3m-form-input-select-point) +(make-variable-buffer-local 'w3m-form-input-select-candidates) +(make-variable-buffer-local 'w3m-form-input-select-wincfg) +(make-variable-buffer-local 'w3m-form-input-select-urlid) + +(defvar w3m-form-input-map-buffer nil) +(defvar w3m-form-input-map-wincfg nil) +(defvar w3m-form-input-map-point nil) +(defvar w3m-form-input-map-urlname nil) +(make-variable-buffer-local 'w3m-form-input-map-buffer) +(make-variable-buffer-local 'w3m-form-input-map-wincfg) +(make-variable-buffer-local 'w3m-form-input-map-point) +(make-variable-buffer-local 'w3m-form-input-map-urlname) + +(defvar w3m-form-new-session nil + "Specify non-nil value to create a new session after sending form. +It is useful to bind this variable with `let', but do not set it globally.") + +(defvar w3m-form-download nil + "Specify non-nil value to download contents after sending form. +It is useful to bind this variable with `let', but do not set it globally.") + +;;; w3m-form structure: + +(defun w3m-form-normalize-action (action url) + "Normalize the ACTION using URL as a current URL." + ;; "!CURRENT_URL!" is magic string of w3m. + (if (and action (not (string= action "!CURRENT_URL!"))) + (w3m-expand-url action url) + (when url + (w3m-string-match-url-components url) + (substring url 0 (or (match-beginning 6) + (match-beginning 8)))))) + +(defun w3m-form-new (method action &optional baseurl charlst enctype) + "Return new form object." + (vector 'w3m-form-object + (if (stringp method) + (intern method) + method) + action + charlst + (or enctype 'application/x-www-form-urlencoded) + nil)) + +(defun w3m-form-p (obj) + "Return t if OBJ is a form object." + (and (vectorp obj) + (symbolp (aref 0 obj)) + (eq (aref 0 obj) 'w3m-form-object))) + +(defun w3m-form-set-method (form method) + (aset form 1 (if (stringp method) + (intern method) + method))) +(defsetf w3m-form-method w3m-form-set-method) + +(defmacro w3m-form-method (form) + `(aref ,form 1)) +(defmacro w3m-form-action (form) + `(aref ,form 2)) +(defmacro w3m-form-charlst (form) + `(aref ,form 3)) +(defmacro w3m-form-enctype (form) + `(aref ,form 4)) +(defmacro w3m-form-plist (form) + `(aref ,form 5)) +(defun w3m-form-put-property (form name property value) + (aset form 5 + (plist-put (w3m-form-plist form) + (setq name (if (stringp name) (intern name) name)) + (plist-put (plist-get (w3m-form-plist form) name) + property value))) + value) +(defmacro w3m-form-get-property (form name property) + `(plist-get (plist-get (w3m-form-plist ,form) + (if (stringp ,name) + (intern ,name) + ,name)) + ,property)) +(defmacro w3m-form-put (form id name value) + `(w3m-form-put-property ,form ,id :value (cons ,name ,value))) +(defmacro w3m-form-get (form id) + `(cdr (w3m-form-get-property ,form ,id :value))) +(defun w3m-form-get-by-name (form name) + (let ((plist (w3m-form-plist form)) + pair value) + (while plist + (setq pair (plist-get (cadr plist) :value)) + (when (and pair + (string= (car pair) name)) + (setq value (cdr pair) + plist nil)) + (setq plist (cddr plist))) + value)) +(defun w3m-form-put-by-name (form id name value) + (let ((plist (w3m-form-plist form)) + pair found) + (while plist + (setq pair (plist-get (cadr plist) :value)) + (when (and pair + (string= (car pair) name)) + (setcar plist id) + (setcdr pair value) + (setq found t + plist nil)) + (setq plist (cddr plist))) + (unless found + (w3m-form-put form id name value)))) + +(defun w3m-form-goto-next-field () + "Move to next form field and return the point. +If no field in forward, return nil without moving." + (let* ((id (get-text-property (point) 'w3m-form-field-id)) + (beg (if id + (next-single-property-change (point) 'w3m-form-field-id) + (point))) + (next (next-single-property-change beg 'w3m-form-field-id))) + (if next + (goto-char next) + nil))) + +(defun w3m-form-get-coding-system (coding) + (or (catch 'det + (while coding + (if (w3m-charset-to-coding-system (car coding)) + (throw 'det (w3m-charset-to-coding-system (car coding))) + (setq coding (cdr coding))))) + w3m-current-coding-system + (w3m-charset-to-coding-system + (w3m-content-charset w3m-current-url)) + w3m-default-coding-system)) + +(defun w3m-form-make-form-data (form) + (let ((plist (w3m-form-plist form)) + (coding (w3m-form-charlst form)) + buf bufs) + (setq coding (w3m-form-get-coding-system coding)) + (while plist + (let* ((number (car plist)) + (pair (plist-get (cadr plist) :value)) + (name (car pair)) + (value (cdr pair))) + (cond + ((and (consp value) + (eq (car value) 'file)) + (setq bufs (cons (cons number (cons name value)) bufs))) + ((and (consp value) + (consp (cdr value)) + (consp (cadr value))) ; select. + (setq bufs (cons (cons number (cons name (car value))) bufs))) + ((consp value) ; checkbox + (setq bufs (append (mapcar (lambda (x) (cons number (cons name x))) value) + bufs))) + (value + (setq bufs (cons (cons number (cons name value)) bufs)))) + (setq plist (cddr plist)))) + (when bufs + (setq bufs (sort bufs (lambda (x y) (< (car x) (car y))))) + (if (eq (w3m-form-enctype form) 'multipart/form-data) + (let ((boundary (apply 'format "--_%d_%d_%d" (current-time))) + file type) + ;; (setq buf (nreverse buf)) + (cons + (concat "multipart/form-data; boundary=" boundary) + (with-temp-buffer + (set-buffer-multibyte nil) + (while (setq buf (cdr (car bufs))) + (if (and (consp (cdr buf)) + (eq (car (cdr buf)) 'file)) + (progn + (setq file (expand-file-name (cdr (cdr buf)))) + (if (string= (setq type (w3m-local-content-type file)) + "unknown") + (setq type "application/octet-stream")) + (insert "--" boundary "\r\n" + "Content-Disposition: form-data; name=\"" + (car buf) + "\"; filename=\"" file "\"\r\n" + "Content-Type: " type "\r\n" + "Content-Transfer-Encoding: binary\r\n\r\n") + (when (file-exists-p file) + (insert-file-contents-literally file) + (goto-char (point-max))) + (insert "\r\n")) + (insert "--" boundary "\r\n" + "Content-Disposition: form-data; name=\"" + (car buf) + "\"\r\n\r\n" + (encode-coding-string (cdr buf) coding) + "\r\n")) + (setq bufs (cdr bufs))) + (insert "--" boundary "--\r\n") + (buffer-string)))) + (mapconcat (lambda (elem) + (setq elem (cdr elem)) + (format "%s=%s" + (w3m-url-encode-string (car elem) coding t) + (w3m-url-encode-string (if (stringp (cdr elem)) + (cdr elem) + "") + coding + t))) + bufs "&"))))) + +(defun w3m-form-resume (forms) + "Resume content of all forms in the current buffer using FORMS." + (when forms + (if (eq (car forms) t) + (setq forms (cdr forms))) + (save-excursion + (goto-char (point-min)) + (let (textareas) + (while (w3m-form-goto-next-field) + (let ((fid (get-text-property (point) 'w3m-form-field-id))) + (when (and fid + (string-match "\ +fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\([^/]*\\)/id=\\(.*\\)$" + fid)) + (let ((form (nth (string-to-number (match-string 1 fid)) + forms)) + (cform (nth (string-to-number (match-string 1 fid)) + w3m-current-forms)) + (type (match-string 2 fid)) + (name (match-string 3 fid)) + (id (string-to-number (match-string 4 fid)))) + (when form + (cond + ((or (string= type "submit") + (string= type "image")) + ;; Remove status to support forms containing multiple + ;; submit buttons. + (w3m-form-put cform id name nil)) + ((or (string= type "reset") + (string= type "hidden") + ;; Do nothing. + )) + ((string= type "password") + (w3m-form-replace (w3m-form-get form id) + 'invisible) + (unless (eq form cform) + (w3m-form-put cform id name (w3m-form-get form id)))) + ((string= type "radio") + (let ((value (w3m-form-get-by-name form name))) + (when value + (w3m-form-replace + (if (string= value (nth 4 (w3m-action (point)))) + "*" " "))) + (unless (eq form cform) + (w3m-form-put-by-name cform id name value)))) + ((string= type "checkbox") + (let ((value (w3m-form-get form id))) + (when value + (w3m-form-replace + (if (member (nth 4 (w3m-action (point))) value) + "*" " "))) + (unless (eq form cform) + (w3m-form-put cform id name value)))) + ((string= type "select") + (let ((selects (w3m-form-get form id))) + (when (and (consp selects) (car selects)) + (w3m-form-replace (cdr (assoc (car selects) + (cdr selects))))) + (unless (eq form cform) + (w3m-form-put cform id name selects)))) + ((string= type "textarea") + (let ((hseq (nth 2 (w3m-action (point)))) + (value (w3m-form-get form id))) + (when (> hseq 0) + (setq textareas (cons (cons hseq value) textareas))) + (unless (eq form cform) + (w3m-form-put cform id name value)))) + ((string= type "file") + (let ((value (w3m-form-get form id))) + (when (and value + (consp value)) + (w3m-form-replace (cdr value))) + (unless (eq form cform) + (w3m-form-put cform id name value)))) + (t + (let ((value (w3m-form-get form id))) + (when (stringp value) + (w3m-form-replace value)) + (unless (eq form cform) + (w3m-form-put cform id name value)))))))))) + (unless w3m-form-treat-textarea-size + (dolist (textarea textareas) + (when (cdr textarea) + (w3m-form-textarea-replace (car textarea) (cdr textarea))))))))) + +;;;###autoload +(defun w3m-fontify-forms () + "Process half-dumped data and fontify forms in this buffer." + ;; If `w3m-current-forms' is resumed from history, reuse it. + (w3m-form-parse-and-fontify + (when (eq t (car w3m-current-forms)) + (setq w3m-current-forms (cdr w3m-current-forms))))) + +(eval-and-compile + (unless (fboundp 'w3m-form-make-button) + (defun w3m-form-make-button (start end properties) + "Make button on the region from START to END with PROPERTIES." + (w3m-add-text-properties start end + (append '(face w3m-form) properties))))) + +;;; w3mmee +;; +(eval-and-compile + (defalias 'w3m-char-to-int (if (fboundp 'char-to-int) + 'char-to-int + 'identity)) + (defalias 'w3m-string-to-char-list (if (fboundp 'string-to-list) + 'string-to-list + (lambda (str) + (mapcar 'identity str)))) + (defalias 'w3m-int-to-char (if (fboundp 'int-to-char) + 'int-to-char + 'identity))) + +(defmacro w3m-form-mee-attr-unquote (x) + "Unquote form attribute of w3mmee." + '(let (attr) + (when (eq (car x) ?T) + (setq x (cdr x)) + (while (and x (not (eq (w3m-char-to-int (car x)) 0))) + (setq attr (concat attr (char-to-string (car x)))) + (setq x (cdr x)))) + attr)) + +(defun w3m-form-mee-new (x) + "Decode form information of w3mmee." + (setq x (w3m-string-to-char-list + (w3m-url-decode-string x w3m-current-coding-system))) + (let (method enctype action charset target name) + (setq method (case (/ (w3m-char-to-int (car x)) 16) + (0 "get") + (1 "post") + (2 "internal") + (3 "head")) + enctype (case (% (w3m-char-to-int (car x)) 16) + (0 'application/x-www-form-urlencoded) + (1 'multipart/form-data))) + (setq x (cdr x)) + (setq action (w3m-form-normalize-action (w3m-form-mee-attr-unquote x) + w3m-current-url)) + (setq x (cdr x)) + (if (member "lang=many" w3m-compile-options) + (setq charset (w3m-form-mee-attr-unquote x)) + (setq charset (case (car x) + (?e "euc-jp") + (?s "shift-jis") + (?n "iso-2022-7bit")))) + (setq x (cdr x)) + (setq target (w3m-form-mee-attr-unquote x)) ; not used. + (setq x (cdr x)) + (setq name (w3m-form-mee-attr-unquote x)) ; not used. + (w3m-form-new method action nil (and charset (list charset)) enctype))) + +(defun w3m-form-mee-select-value (value) + "Decode select form information of w3mmee." + (let ((clist (w3m-string-to-char-list + (w3m-url-decode-string value w3m-current-coding-system))) + label val s selected candidates) + (while clist + (setq s (eq (car clist) (w3m-int-to-char 1)) + label nil + val nil) + (setq clist (cdr clist)) + (while (not (eq (car clist) (w3m-int-to-char 0))) + (setq label (concat label (char-to-string (car clist)))) + (setq clist (cdr clist))) + (if label + (setq label (decode-coding-string label w3m-output-coding-system))) + (setq clist (cdr clist)) + (while (not (eq (car clist) (w3m-int-to-char 0))) + (setq val (concat val (char-to-string (car clist)))) + (setq clist (cdr clist))) + (if val + (setq val (decode-coding-string val w3m-output-coding-system))) + (if s (setq selected val)) + (push (cons val label) candidates) + (setq clist (cdr clist))) + (cons selected (nreverse candidates)))) + +(defun w3m-fontify-textareas () + "Process and fontify textareas in this buffer." + (when w3m-form-treat-textarea-size + (save-excursion + (goto-char (point-min)) + (let (form fid start end type name rows start-column end-column + hseq abs-hseq buffer-read-only text id filename readonly) + (while (w3m-form-goto-next-field) + (setq fid (get-text-property (point) 'w3m-form-field-id)) + (setq filename (get-text-property (point) 'w3m-form-file-name)) + (when + (and + fid + (string-match + "fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\([^/]*\\)/id=\\(.*\\)$" + fid)) + (setq form (nth (string-to-number (match-string 1 fid)) + w3m-current-forms) + type (match-string 2 fid) + name (match-string 3 fid) + id (string-to-number (match-string 4 fid))) + (when (string= type "textarea") + (setq rows (get-text-property (point) 'w3m-textarea-rows) + hseq (get-text-property (point) 'w3m-form-hseq) + readonly (get-text-property (point) 'w3m-form-readonly) + abs-hseq (w3m-anchor-sequence)) + (setq start-column (- (current-column) 1)) + (goto-char (next-single-property-change (point) + 'w3m-form-hseq)) + (setq end-column (current-column)) + (save-excursion + (dotimes (i (- rows 1)) + (forward-line -1) + (save-excursion + (move-to-column start-column) + (delete-char 1) + (insert "[") + (setq start (point)) + (move-to-column end-column) + (delete-char 1) + (setq end (point)) + (insert "]")) + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start end + `(w3m-form-field-id + ,(format "fid=%s/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-input-textarea ,form ,hseq) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get ,form ,id) + w3m-form-new-session + w3m-form-download) + w3m-form-hseq ,hseq + w3m-anchor-sequence ,abs-hseq + w3m-form-id ,id + w3m-form-name ,name + w3m-form-file-name ,filename + w3m-form-readonly ,readonly))) + (when (setq text (w3m-form-get form id)) + (w3m-form-textarea-replace hseq text)))))))))) + +(defun w3m-form-parse-and-fontify (&optional reuse-forms) + "Parse forms of the half-dumped data in this buffer and fontify them. +Result form structure is saved to the local variable `w3m-current-forms'. +If optional REUSE-FORMS is non-nil, reuse it as `w3m-current-form'." + (let ((case-fold-search t) + (id 0) + tag start end internal-start textareas selects forms maps mapval + form filename) + (setq w3m-form-textarea-files nil) + (setq w3m-form-use-textarea-backup-p nil) + (goto-char (point-min)) + (while (if (eq w3m-type 'w3mmee) + (w3m-search-tag "_f" "map" "img_alt" "input_alt" + "/input_alt") + (w3m-search-tag "form_int" "map" "img_alt" "input_alt" + "/input_alt")) + (setq tag (downcase (match-string 1))) + (goto-char (match-end 1)) + (setq start (match-end 0)) + (cond + ((string= tag (if (eq w3m-type 'w3mmee) "_f" "form_int")) + (if (eq w3m-type 'w3mmee) + (w3m-parse-attributes (_x) + (setq forms (nconc forms (list (w3m-form-mee-new _x))))) + (w3m-parse-attributes (action (method :case-ignore) + (fid :integer) + (accept-charset :case-ignore) + (enctype :case-ignore) + (charset :case-ignore)) + (when action + (setq action (w3m-url-transfer-encode-string + (w3m-decode-anchor-string action) + (if charset + (w3m-charset-to-coding-system charset) + w3m-current-coding-system)))) + (if (setq form (cdr (assq fid forms))) + (progn + (setf (w3m-form-method form) (or method "get")) + (setf (w3m-form-action form) + (w3m-form-normalize-action action w3m-current-url)) + (setf (w3m-form-charlst form) + (if accept-charset + (setq accept-charset + (split-string accept-charset ",")))) + (setf (w3m-form-enctype form) + (if enctype + (intern enctype) + 'application/x-www-form-urlencoded))) + (setq form (w3m-form-new + (or method "get") + (w3m-form-normalize-action action w3m-current-url) + nil + (if accept-charset + (setq accept-charset + (split-string accept-charset ","))) + (if enctype + (intern enctype) + 'application/x-www-form-urlencoded))) + (setq forms (cons (cons fid form) forms)))))) + ((string= tag "map") + (let (candidates) + (w3m-parse-attributes (name) + (while (and (w3m-search-tag "area" "/map") + (not (char-equal + (char-after (match-beginning 1)) + ?/))) + (goto-char (match-end 1)) + (w3m-parse-attributes (href alt) + (when href + (setq candidates (cons (cons href (or alt href)) + candidates))))) + (unless maps (setq maps (w3m-form-new "map" "."))) + (when candidates + (w3m-form-put maps + (incf id) + name + (nreverse candidates)))))) + ((string= tag "img_alt") + (w3m-parse-attributes (usemap) + (w3m-search-tag "/img_alt") + (when (or usemap mapval) + (unless maps (setq maps (w3m-form-new "map" "."))) + (unless usemap (setq usemap mapval)) + (when mapval (setq mapval nil)) + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start (match-beginning 0) + `(w3m-action (w3m-form-input-map ,maps ,usemap)))))) + ((string= tag "/input_alt") + (replace-match "")) + ((string= tag "input_alt") + (w3m-parse-attributes ((fid :integer) + (type :case-ignore) + (width :integer) + (maxlength :integer) + (hseq :integer) + (selectnumber :integer) ; select + (textareanumber :integer) ; textarea + (size :integer) ; textarea + (rows :integer) ; textarea + (top_mergin :integer) ; textarea + (checked :bool) ; checkbox, radio + (readonly :bool) + no_effect ; map + name value) + (incf id) + (when value + (setq value (w3m-decode-entities-string value))) + (save-excursion + (search-forward "</input_alt>") + (setq end (match-beginning 0))) + (let ((abs-hseq (or (and (null hseq) 0) (abs hseq)))) + (setq w3m-max-anchor-sequence + (max abs-hseq w3m-max-anchor-sequence)) + (if (eq w3m-type 'w3mmee) + (setq form (nth fid forms)) + (setq form (cdr (assq fid forms)))) + (unless form + (setq forms (cons (cons fid (setq form + (w3m-form-new nil nil))) + forms))) + (cond + ((and (string= type "hidden") + (string= name "link")) + (setq mapval value)) + ((or (string= type "submit") + (string= type "image")) + (unless (string= no_effect "true") + (w3m-form-make-button + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-submit ,form ,id ,name ,value + w3m-form-new-session + w3m-form-download) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get ,form ,id) + w3m-form-new-session + w3m-form-download) + w3m-anchor-sequence ,abs-hseq)))) + ((string= type "reset") + (w3m-form-make-button + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-reset ,form) + w3m-anchor-sequence ,abs-hseq))) + ((string= type "textarea") + (if (eq w3m-type 'w3mmee) + (w3m-form-put form id + name + (decode-coding-string + (w3m-url-decode-string value + w3m-current-coding-system) + w3m-output-coding-system)) + (setq textareas (cons (list textareanumber form id name readonly) + textareas))) + (when w3m-current-url + (setq filename (expand-file-name + (w3m-form-input-textarea-filename + w3m-current-url + (format "fid=%d/type=%s/name=%s/id=%d" + fid type name id)) + w3m-form-textarea-directory)) + (setq w3m-form-textarea-files + (cons filename w3m-form-textarea-files))) + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-input-textarea ,form ,hseq) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get ,form ,id) + w3m-form-new-session + w3m-form-download) + w3m-textarea-rows ,rows + w3m-form-hseq ,hseq + w3m-anchor-sequence ,abs-hseq + w3m-form-id ,id + w3m-form-name ,name + w3m-form-file-name ,filename + w3m-form-readonly ,readonly))) + ((string= type "select") + (when (if (eq w3m-type 'w3mmee) + (when value + (w3m-form-put form id name + (w3m-form-mee-select-value value)) + t) + (setq selects (cons (list selectnumber form id name) + selects))) + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-input-select ,form ,id ,name) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get ,form ,id) + w3m-form-new-session + w3m-form-download) + w3m-anchor-sequence ,abs-hseq)))) + ((string= type "password") + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-input-password ,form ,id ,name) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get ,form ,id) + w3m-form-new-session + w3m-form-download) + w3m-anchor-sequence ,abs-hseq + w3m-form-readonly ,readonly))) + ((string= type "checkbox") + (let ((cvalue (w3m-form-get form id))) + (w3m-form-put form id name + (if checked + (cons value cvalue) + cvalue))) + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-input-checkbox ,form ,id ,name ,value) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get ,form ,id) + w3m-form-new-session + w3m-form-download) + w3m-anchor-sequence ,abs-hseq))) + ((string= type "radio") + ;; Radio button input, one name has one value + (if checked + (w3m-form-put-by-name form id name value)) + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-input-radio ,form ,id ,name ,value) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get-by-name ,form ,name) + w3m-form-new-session + w3m-form-download) + w3m-anchor-sequence ,abs-hseq))) + ((string= type "file") + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-input-file ,form ,id ,name ,value) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get ,form ,id) + w3m-form-new-session + w3m-form-download) + w3m-anchor-sequence ,abs-hseq))) + (t + (w3m-form-put form + id + name + (or value (w3m-form-get form id))) + (w3m-add-face-property start end 'w3m-form) + (add-text-properties + start end + `(w3m-form-field-id + ,(format "fid=%d/type=%s/name=%s/id=%d" fid type name id) + w3m-action (w3m-form-input ,form ,id ,name ,type + ,width ,maxlength ,value) + w3m-submit (w3m-form-submit ,form ,id ,name + (w3m-form-get ,form ,id) + w3m-form-new-session + w3m-form-download) + w3m-anchor-sequence ,abs-hseq + w3m-form-readonly ,readonly))))))))) + ;; Process <internal> tag. + (when (search-forward "<internal>" nil t) + (setq internal-start (match-beginning 0)) + (while (and (null reuse-forms) + (re-search-forward "<\\([a-z]+\\)_int" nil t)) + (incf id) + (cond + ((string= (match-string 1) "select") + (w3m-parse-attributes ((selectnumber :integer)) + (let ((selectinfo (cdr (assq selectnumber selects))) + current candidates) + (when selectinfo + ;; Parse FORM SELECT fields until </SELECT> (or </FORM>) + (while (and (w3m-search-tag "option_int" "/select_int") + (not (char-equal (char-after (match-beginning 1)) + ?/))) + ;; <option_int> is found + (goto-char (match-end 1)) + (w3m-parse-attributes ((value :decode-entity) + (label :decode-entity) + (selected :bool)) + (push (cons value label) candidates) + (if selected (setq current value)) + (skip-chars-forward ">\n"))) + (setq candidates (nreverse candidates)) + (w3m-form-put (nth 0 selectinfo) + (nth 1 selectinfo) + (nth 2 selectinfo) + (cons (or current ; current value + (caar candidates)) + candidates)))))) + ((string= (match-string 1) "textarea") + (w3m-parse-attributes ((textareanumber :integer)) + (forward-char 1) ; skip newline character. + (let ((textareainfo (cdr (assq textareanumber textareas))) + (buffer (current-buffer)) + end text) + (when textareainfo + (setq start (point)) + (skip-chars-forward "^<") + (setq text (buffer-substring-no-properties start (point))) + (w3m-form-put + (nth 0 textareainfo) (nth 1 textareainfo) (nth 2 textareainfo) + (with-temp-buffer + (insert text) + (w3m-decode-entities) + (goto-char (point-min)) + (while (search-forward "\r\n" nil t) (replace-match "\n")) + (buffer-string))))))))) + (when (search-forward "</internal>" nil t) + (delete-region internal-start (match-end 0)))) + (setq w3m-current-forms (if (eq w3m-type 'w3mmee) + forms + (mapcar 'cdr + (sort forms (lambda (x y) + (< (car x)(car y))))))) + (w3m-form-resume (or reuse-forms w3m-current-forms)))) + +(defun w3m-form-replace (string &optional invisible) + (let* ((start (text-property-any (point-min) (point-max) + 'w3m-action (w3m-action (point)))) + (width (string-width + (buffer-substring + start + (next-single-property-change start 'w3m-action)))) + (prop (text-properties-at start)) + (p (point)) + (buffer-read-only)) + (goto-char start) + (insert (setq string + (if invisible + (make-string (length string) ?.) + (mapconcat 'identity + (split-string + (w3m-truncate-string (or string "") + width) "\n") + ""))) + (make-string (max (- width (string-width string)) 0) ?\ )) + (delete-region (point) + (next-single-property-change (point) 'w3m-action)) + (add-text-properties start (point) prop) + (set-buffer-modified-p nil) + (prog1 (point) + (goto-char p)))) + +(defun w3m-form-input (form id name type width maxlength value) + (let ((fvalue (w3m-form-get form id))) + (if (get-text-property (point) 'w3m-form-readonly) + (message "READONLY %s: %s" (upcase type) fvalue) + (save-excursion + (let ((input (save-excursion + (read-from-minibuffer (concat (upcase type) ": ") fvalue))) + (coding (w3m-form-get-coding-system (w3m-form-charlst form)))) + (when (with-temp-buffer + (insert input) + (w3m-form-coding-system-accept-region-p nil nil coding)) + (w3m-form-put form id name input) + (w3m-form-replace input))))))) + +(defun w3m-form-input-password (form id name) + (if (get-text-property (point) 'w3m-form-readonly) + (message "This input box is read-only.") + (let* ((fvalue (w3m-form-get form id)) + (input (save-excursion + (read-passwd (concat "PASSWORD" + (if fvalue + " (default is no change)") + ": ") + nil + fvalue)))) + (w3m-form-put form id name input) + (w3m-form-replace input 'invisible)))) + +(defun w3m-form-input-checkbox (form id name value) + (let ((fvalue (w3m-form-get form id))) + (if (member value fvalue) ; already checked + (progn + (w3m-form-put form id name (delete value fvalue)) + (w3m-form-replace " ")) + (w3m-form-put form id name (cons value fvalue)) + (w3m-form-replace "*")))) + +(defun w3m-form-field-parse (fid) + (when (and fid + (string-match + "fid=\\([^/]+\\)/type=\\([^/]+\\)/name=\\([^/]*\\)/id=\\(.*\\)$" + fid)) + (list (match-string 1 fid) + (match-string 2 fid) + (match-string 3 fid) + (match-string 4 fid)))) + +(defun w3m-form-input-radio (form id name value) + (save-excursion + (let ((fid (w3m-form-field-parse + (get-text-property (point) 'w3m-form-field-id))) + cur-fid) + (when fid + ;; Uncheck all RADIO input having same NAME + (goto-char 1) + (while (w3m-form-goto-next-field) + (setq cur-fid (w3m-form-field-parse + (get-text-property (point) + 'w3m-form-field-id))) + (when (and (string= (nth 0 fid) (nth 0 cur-fid)) + (string= (nth 1 fid) (nth 1 cur-fid)) + (string= (nth 2 fid) (nth 2 cur-fid))) + (w3m-form-put-by-name + form (string-to-number (nth 3 fid)) (nth 2 fid) nil) + (w3m-form-replace " ")))))) ; erase check + ;; Then set this field as checked. + (w3m-form-put-by-name form id name value) + (w3m-form-replace "*")) + +(defun w3m-form-input-file (form id name value) + (let ((input (save-excursion + (read-file-name "File name: " + (or (cdr (w3m-form-get form id)) + "~/"))))) + (w3m-form-put form id name (cons 'file input)) + (w3m-form-replace input))) + +;;; TEXTAREA + +(defcustom w3m-form-input-textarea-buffer-lines 10 + "*Buffer lines for form textarea buffer." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-form-input-textarea-mode-hook nil + "*A hook called after w3m-form-input-textarea-mode." + :group 'w3m + :type 'hook) + +(defcustom w3m-form-input-textarea-set-hook nil + "*A Hook called before w3m-form-input-textarea-set." + :group 'w3m + :type 'hook) + +(defun w3m-form-text-chop (text) + "Return a list of substrings of TEXT which are separated by newline +character." + (when text + (let ((start 0) parts) + (while (string-match "\n" text start) + (setq parts (cons (substring text start (match-beginning 0)) parts) + start (match-end 0))) + (nreverse (cons (substring text start) parts))))) + +(defun w3m-form-search-textarea (hseq direction) + (let ((point (point)) + (next-single-property-change-function + (if (eq direction 'forward) + 'next-single-property-change + 'previous-single-property-change)) + found) + (if (get-text-property point 'w3m-form-hseq) + (setq point (funcall next-single-property-change-function point + 'w3m-form-hseq))) + (when point + (while (and (not found) + (setq point (funcall next-single-property-change-function + point 'w3m-form-hseq))) + (when (eq (get-text-property point 'w3m-form-hseq) hseq) + (setq found t))) + (if point (goto-char point))))) + +(defun w3m-form-textarea-replace (hseq string) + (let ((chopped (w3m-form-text-chop string)) + (p (point))) + (goto-char (point-min)) + (while (w3m-form-search-textarea hseq 'forward) + (w3m-form-replace (or (car chopped) "")) + (setq chopped (cdr chopped))) + (goto-char p))) + +(defun w3m-form-textarea-info () + "Return a list of (ID NAME LINE READONLY) for current text area." + (let ((s (get-text-property (point) 'w3m-form-hseq)) + (lines 1)) + (save-excursion + (while (w3m-form-search-textarea s 'backward) + (incf lines)) + (list (get-text-property (point) 'w3m-form-id) + (get-text-property (point) 'w3m-form-name) + lines + (get-text-property (point) 'w3m-form-readonly))))) + +(defvar w3m-form-input-textarea-map nil) +(unless w3m-form-input-textarea-map + (setq w3m-form-input-textarea-map (make-sparse-keymap)) + (define-key w3m-form-input-textarea-map "\C-c\C-c" + 'w3m-form-input-textarea-set) + (define-key w3m-form-input-textarea-map "\C-c\C-q" + 'w3m-form-input-textarea-exit) + (define-key w3m-form-input-textarea-map "\C-c\C-k" + 'w3m-form-input-textarea-exit) + (define-key w3m-form-input-textarea-map "\C-x\C-s" + 'w3m-form-input-textarea-save)) + +(defun w3m-form-input-textarea-filename (url id) + (condition-case nil + (concat (md5 (concat url id) nil nil w3m-current-coding-system) ".txt") + (error + (let ((file "") + ;; Interdit chars of Windows + (replace (regexp-opt '("\\" "/" ":" "*" "?" "\"" "<" ">" "|"))) + (max-file-path 254)) + (while (string-match replace url) + (setq file (concat file (substring url 0 (match-beginning 0)) "_")) + (setq url (substring url (match-end 0)))) + (setq file (concat file url "-")) + (while (string-match replace id) + (setq file (concat file (substring id 0 (match-beginning 0)) "_")) + (setq id (substring id (match-end 0)))) + (if (< (- max-file-path 4) (length file)) + (setq file (substring file 0 (- max-file-path 4 (length id))))) + (setq file (concat file id ".txt")) + (convert-standard-filename file))))) + +(defun w3m-form-input-textarea-save (&optional buffer file no-check) + "Save textarea buffer." + (interactive) + (setq buffer (or buffer (current-buffer))) + (setq file (or file w3m-form-input-textarea-file)) + (with-current-buffer buffer + (if (/= (buffer-size) 0) + (when (and + (or w3m-form-use-textarea-backup-p + (and (eq this-command 'w3m-form-input-textarea-save) + (y-or-n-p "Really save this buffer? "))) + (or no-check + (w3m-form-coding-system-accept-region-p))) + (let ((buffer-file-coding-system + w3m-form-textarea-file-coding-system) + (coding-system-for-write + w3m-form-textarea-file-coding-system)) + (write-region (point-min) (point-max) file nil 'nomsg))) + (when w3m-form-use-textarea-backup-p + (when (file-exists-p file) + (delete-file file)) + (when (file-exists-p (make-backup-file-name file)) + (delete-file (make-backup-file-name file))) + (set-buffer-modified-p nil))))) + +(defun w3m-form-input-textarea-set () + "Save and exit from w3m form textarea mode." + (interactive) + (run-hooks 'w3m-form-input-textarea-set-hook) + (let ((input (buffer-string)) + (buffer (current-buffer)) + (hseq w3m-form-input-textarea-hseq) + (form w3m-form-input-textarea-form) + (point w3m-form-input-textarea-point) + (w3mbuffer w3m-form-input-textarea-buffer) + (wincfg w3m-form-input-textarea-wincfg) + (file w3m-form-input-textarea-file) + info) + (when (w3m-form-coding-system-accept-region-p) + (w3m-form-input-textarea-save buffer file t) + (or (one-window-p) (delete-window)) + (kill-buffer buffer) + (if (not (buffer-live-p w3mbuffer)) + (and (eq this-command 'w3m-form-input-textarea-set) + (message "No current w3m buffer")) + (pop-to-buffer w3mbuffer) + (set-window-configuration wincfg) + (when (and form point) + (goto-char point) + (setq info (w3m-form-textarea-info)) + (w3m-form-put form (nth 0 info) (nth 1 info) input) + (w3m-form-textarea-replace hseq input)))))) + +(defun w3m-form-input-textarea-exit () + "Exit from w3m form textarea mode." + (interactive) + (let ((buffer (current-buffer)) + (point w3m-form-input-textarea-point) + (w3mbuffer w3m-form-input-textarea-buffer) + (wincfg w3m-form-input-textarea-wincfg) + (file w3m-form-input-textarea-file)) + (w3m-form-input-textarea-save buffer file) + (or (one-window-p) (delete-window)) + (kill-buffer buffer) + (if (not (buffer-live-p w3mbuffer)) + (and (eq this-command 'w3m-form-input-textarea-exit) + (message "No current w3m buffer")) + (pop-to-buffer w3mbuffer) + (set-window-configuration wincfg) + (when point (goto-char point))))) + +(unless (assq 'w3m-form-input-textarea-mode minor-mode-alist) + (push (list 'w3m-form-input-textarea-mode " w3m form textarea") + minor-mode-alist)) +(unless (assq 'w3m-form-input-textarea-mode minor-mode-map-alist) + (push (cons 'w3m-form-input-textarea-mode w3m-form-input-textarea-map) + minor-mode-map-alist)) + +(defun w3m-form-input-textarea-mode (&optional arg) + "\\<w3m-form-input-textarea-map> +Minor mode to edit form textareas of w3m. + +\\[w3m-form-input-textarea-set]\ + Set the value and exit from this textarea. +\\[w3m-form-input-textarea-exit]\ + Exit from this textarea without setting the value. +\\[w3m-form-input-textarea-save]\ + Save editing data in this textarea. +" + (interactive "P") + (when (setq w3m-form-input-textarea-mode + (if arg + (> (prefix-numeric-value arg) 0) + (not w3m-form-input-textarea-mode))) + (run-hooks 'w3m-form-input-textarea-mode-hook))) + +(defun w3m-form-input-textarea-mode-setup (caller-buffer) + (funcall (if (functionp w3m-form-textarea-edit-mode) + w3m-form-textarea-edit-mode + (or (when (buffer-live-p caller-buffer) + (with-current-buffer caller-buffer + (save-match-data + (catch 'found-mode + (dolist (elem w3m-form-textarea-edit-mode) + (when (if (stringp (car elem)) + (string-match (car elem) + w3m-current-url) + (if (functionp (car elem)) + (funcall (car elem)) + (eval (car elem)))) + (throw 'found-mode (cdr elem)))))))) + 'text-mode))) + (w3m-form-input-textarea-mode 1) + (message "%s" + (substitute-command-keys "Type \ +`\\<w3m-form-input-textarea-map>\\[w3m-form-input-textarea-set]' to exit \ +textarea, or type \ +`\\<w3m-form-input-textarea-map>\\[w3m-form-input-textarea-exit]' to quit \ +textarea"))) + +(eval-and-compile + (defalias 'w3m-same-window-p + (if (featurep 'xemacs) + (lambda (buffer-name) + "Return non-nil if a buffer named BUFFER-NAME would be shown in the \"same\" window. +This function returns non-nil if `display-buffer' or +`pop-to-buffer' would show a buffer named BUFFER-NAME in the +selected rather than \(as usual\) some other window. See +`same-window-buffer-names' and `same-window-regexps'." + (cond + ((not (stringp buffer-name))) + ;; The elements of `same-window-buffer-names' can be buffer + ;; names or cons cells whose cars are buffer names. + ((and (boundp 'same-window-buffer-names) + (member buffer-name same-window-buffer-names))) + ((and (boundp 'same-window-buffer-names) + (assoc buffer-name same-window-buffer-names))) + ((and (boundp 'same-window-regexps) + (save-match-data + (catch 'found + (dolist (regexp same-window-regexps) + ;; The elements of `same-window-regexps' can be regexps + ;; or cons cells whose cars are regexps. + (when (or (and (stringp regexp) + (string-match regexp buffer-name)) + (and (consp regexp) (stringp (car regexp)) + (string-match (car regexp) buffer-name))) + (throw 'found t))))))))) + 'same-window-p))) + +(defun w3m-form-input-textarea (form hseq) + (let* ((info (w3m-form-textarea-info)) + (value (w3m-form-get form (car info))) + (cur-win (selected-window)) + (wincfg (current-window-configuration)) + (w3mbuffer (current-buffer)) + (point (point)) + (size (- (window-height cur-win) + (1+ (max window-min-height + w3m-form-input-textarea-buffer-lines)))) + (file (get-text-property (point) 'w3m-form-file-name)) + (coding (w3m-form-get-coding-system (w3m-form-charlst form))) + (readonly (nth 3 info)) + (backup-p (and (not readonly) + (w3m-form-use-textarea-backup-p))) + buffer) + (setq w3m-form-use-textarea-backup-p backup-p) + (when backup-p + (add-hook 'kill-emacs-hook 'w3m-form-textarea-file-cleanup) + (let ((dir (file-chase-links + (expand-file-name w3m-form-textarea-directory)))) + (unless (and (file-exists-p dir) (file-directory-p dir)) + (make-directory dir)))) + (setq buffer + (catch 'detect-buffer + (save-current-buffer + (dolist (buffer (buffer-list)) + (set-buffer buffer) + (when (and w3m-form-input-textarea-mode + (eq w3m-form-input-textarea-buffer w3mbuffer) + (string= w3m-form-input-textarea-file file)) + (throw 'detect-buffer (cons t buffer))))) + (generate-new-buffer "*w3m form textarea*"))) + (unless (consp buffer) + (when (and backup-p (file-exists-p file) (file-readable-p file)) + (with-temp-buffer + (let ((buffer-file-coding-system w3m-form-textarea-file-coding-system) + (coding-system-for-read w3m-form-textarea-file-coding-system)) + (insert-file-contents file)) + (let ((before (buffer-string))) + (when (unless (w3m-form-textarea-same-check value before) + (save-window-excursion + (set-window-buffer (selected-window) (current-buffer)) + (goto-char (abs (w3m-compare-strings + before 0 (length before) + value 0 (length value)))) + (condition-case nil + (y-or-n-p + "The saved text for this form exists. Use it? ") + (quit + (kill-buffer buffer) + (error "Abort textarea editing"))))) + (setq value before))))) + (with-current-buffer buffer + (insert value) + (set-buffer-modified-p nil) + (when readonly (setq buffer-read-only t)) + (goto-char (point-min)) + (forward-line (1- (nth 2 info))) + (w3m-form-input-textarea-mode-setup w3mbuffer) + (setq w3m-form-input-textarea-form form + w3m-form-input-textarea-hseq hseq + w3m-form-input-textarea-buffer w3mbuffer + w3m-form-input-textarea-point point + w3m-form-input-textarea-wincfg wincfg + w3m-form-input-textarea-file file + w3m-form-input-textarea-coding-system coding + w3m-form-use-textarea-backup-p backup-p))) + (if (and (consp buffer) + (get-buffer-window (cdr buffer))) + ;; same frame only + (select-window (get-buffer-window (cdr buffer))) + ;; Use the whole current window for the textarea when a user added + ;; the buffer name "*w3m form textarea*" to `same-window-buffer-names' + ;; (that is available only in Emacs). + ;; cf. http://article.gmane.org/gmane.emacs.w3m/7797 + (unless (w3m-same-window-p (buffer-name (if (consp buffer) + (cdr buffer) + buffer))) + (condition-case nil + (split-window cur-win (if (> size 0) size window-min-height)) + (error + (delete-other-windows) + (split-window cur-win (- (window-height cur-win) + w3m-form-input-textarea-buffer-lines)))) + (select-window (next-window))) + (let ((pop-up-windows nil)) + (switch-to-buffer (if (consp buffer) (cdr buffer) buffer)))))) + +(defun w3m-form-use-textarea-backup-p () + (and w3m-form-use-textarea-backup + (let ((cbuf (current-buffer)) + (curl w3m-current-url)) + (catch 'loop + (save-current-buffer + (dolist (buf (w3m-list-buffers)) + (when (eq buf cbuf) + (throw 'loop t)) + (set-buffer buf) + (when (string= w3m-current-url curl) + (throw 'loop nil))) + t))))) + +(defun w3m-form-textarea-same-check (str1 str2) + "Compare STR1 and STR2 without tailed whitespace." + (when (string-match "[ \t\n\r]+$" str1) + (setq str1 (substring str1 0 (match-beginning 0)))) + (when (string-match "[ \t\n\r]+$" str2) + (setq str2 (substring str2 0 (match-beginning 0)))) + (string= str1 str2)) + +(defun w3m-form-textarea-file-cleanup () + "Remove all textarea files." + (remove-hook 'kill-emacs-hook 'w3m-form-textarea-file-cleanup) + (let ((dir (file-chase-links + (expand-file-name w3m-form-textarea-directory))) + (checktime t) + files file time) + (when (and w3m-form-textarea-file-expire-date + (file-directory-p dir)) + (when (integerp w3m-form-textarea-file-expire-date) + (setq checktime (decode-time (current-time))) + (setq checktime (encode-time (nth 0 checktime) ;; seconds + (nth 1 checktime) ;; minutes + (nth 2 checktime) ;; hour + (- (nth 3 checktime) ;; day + w3m-form-textarea-file-expire-date) + (nth 4 checktime) ;; month + (nth 5 checktime) ;; year + (nth 6 checktime) ;; dow + (nth 7 checktime) ;; dst + (nth 8 checktime)))) ;; zone + (setq files (directory-files dir 'full "[^.]" 'nosort)) + (while (setq file (car files)) + (setq files (cdr files)) + (when (file-writable-p file) + (if (eq checktime t) + (delete-file file) + (setq time (nth 5 (file-attributes file))) + (when (w3m-time-newer-p checktime time) + (delete-file file)))))))) + +(defun w3m-form-textarea-files-remove () + "Remove used files of textarea." + (let (file) + (while (setq file (car w3m-form-textarea-post-files)) + (setq w3m-form-textarea-post-files (cdr w3m-form-textarea-post-files)) + (when (and (member file w3m-form-textarea-files) + (file-exists-p file) + (file-writable-p file)) + (delete-file file) + (setq file (make-backup-file-name file)) + (when (and (file-exists-p file) + (file-writable-p file)) + (delete-file file)))))) + +(defun w3m-form-set-number (w3mbuf newname) + "Change parent w3m buffer in form buffers" + (save-current-buffer + (let ((newbuff (get-buffer newname))) + (when newbuff + (dolist (buffer (buffer-list)) + (set-buffer buffer) + (cond + ((and w3m-form-input-textarea-mode + (eq w3m-form-input-textarea-buffer w3mbuf)) + (setq w3m-form-input-textarea-buffer newbuff)) + ((and (eq major-mode 'w3m-form-input-select-mode) + (eq w3m-form-input-select-buffer w3mbuf)) + (setq w3m-form-input-select-buffer newbuff)) + ((and (eq major-mode 'w3m-form-input-map-mode) + (eq w3m-form-input-map-buffer w3mbuf)) + (setq w3m-form-input-map-buffer newbuff)))))))) + +(defun w3m-form-kill-buffer (w3mbuf) + "Kill form buffers" + (save-current-buffer + (dolist (buffer (buffer-list)) + (set-buffer buffer) + (cond + ((and w3m-form-input-textarea-mode + (eq w3m-form-input-textarea-buffer w3mbuf)) + (w3m-form-input-textarea-exit)) + ((and (eq major-mode 'w3m-form-input-select-mode) + (eq w3m-form-input-select-buffer w3mbuf)) + (w3m-form-input-select-exit)) + ((and (eq major-mode 'w3m-form-input-map-mode) + (eq w3m-form-input-map-buffer w3mbuf)) + (w3m-form-input-map-exit)))))) + +;;; SELECT + +(defcustom w3m-form-input-select-buffer-lines 10 + "*Buffer lines for form select buffer." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-form-input-select-mode-hook nil + "*A hook called after w3m-form-input-select-mode." + :group 'w3m + :type 'hook) + +(defcustom w3m-form-input-select-set-hook nil + "*A Hook called before w3m-form-input-select-set." + :group 'w3m + :type 'hook) + +(defcustom w3m-form-mouse-face 'highlight + "*Mouse face to highlight selected value." + :group 'w3m + :type 'face) + +(defvar w3m-form-input-select-keymap nil) +(unless w3m-form-input-select-keymap + (setq w3m-form-input-select-keymap (make-sparse-keymap)) + (define-key w3m-form-input-select-keymap "\C-c\C-c" + 'w3m-form-input-select-set) + (define-key w3m-form-input-select-keymap "\r" + 'w3m-form-input-select-set) + (define-key w3m-form-input-select-keymap "\C-m" + 'w3m-form-input-select-set) + (define-key w3m-form-input-select-keymap "\C-c\C-q" + 'w3m-form-input-select-exit) + (define-key w3m-form-input-select-keymap "\C-c\C-k" + 'w3m-form-input-select-exit) + (define-key w3m-form-input-select-keymap "q" + 'w3m-form-input-select-exit) + (define-key w3m-form-input-select-keymap "\C-g" + 'w3m-form-input-select-exit) + (define-key w3m-form-input-select-keymap "h" 'backward-char) + (define-key w3m-form-input-select-keymap "j" 'next-line) + (define-key w3m-form-input-select-keymap "k" 'previous-line) + (define-key w3m-form-input-select-keymap "l" 'forward-char) + (if (featurep 'xemacs) + (define-key w3m-form-input-select-keymap [(button2)] + 'w3m-form-input-select-set-mouse) + (define-key w3m-form-input-select-keymap [mouse-2] + 'w3m-form-input-select-set-mouse))) + +(defun w3m-form-input-select-set-mouse (event) + "Save and exit from w3m form select mode with mouse." + (interactive "e") + (mouse-set-point event) + (w3m-form-input-select-set)) + +(defun w3m-form-input-select-set () + "Save and exit from w3m form select mode." + (interactive) + (run-hooks 'w3m-form-input-select-set-hook) + (let* ((cur (get-text-property (point) + 'w3m-form-select-value)) + (buffer (current-buffer)) + (name w3m-form-input-select-name) + (id w3m-form-input-select-id) + (form w3m-form-input-select-form) + (point w3m-form-input-select-point) + (w3mbuffer w3m-form-input-select-buffer) + (wincfg w3m-form-input-select-wincfg) + input) + (setcar w3m-form-input-select-candidates cur) + (setq input w3m-form-input-select-candidates) + (or (one-window-p) (delete-window)) + (kill-buffer buffer) + (when (buffer-live-p w3mbuffer) + (pop-to-buffer w3mbuffer) + (set-window-configuration wincfg) + (when (and form point) + (goto-char point) + (w3m-form-put form id name input) + (w3m-form-replace (cdr (assoc cur (cdr input)))))))) + +(defun w3m-form-input-select-exit () + "Exit from w3m form select mode." + (interactive) + (let* ((buffer (current-buffer)) + (point w3m-form-input-select-point) + (w3mbuffer w3m-form-input-select-buffer) + (wincfg w3m-form-input-select-wincfg)) + (or (one-window-p) (delete-window)) + (kill-buffer buffer) + (when (buffer-live-p w3mbuffer) + (pop-to-buffer w3mbuffer) + (set-window-configuration wincfg) + (when point (goto-char point))))) + +(defun w3m-form-input-select-mode () + "\\<w3m-form-input-select-keymap> + Major mode for w3m form select. + +\\[w3m-form-input-select-set]\ + Save and exit from w3m form select mode. +\\[w3m-form-input-select-exit]\ + Exit from w3m form select mode. +\\[w3m-form-input-select-set-mouse]\ + Save and exit from w3m form select mode with mouse. +" + (setq mode-name "w3m form select" + major-mode 'w3m-form-input-select-mode) + (setq buffer-read-only t) + (use-local-map w3m-form-input-select-keymap) + (w3m-run-mode-hooks 'w3m-form-input-select-mode-hook)) + +(defun w3m-form-input-select (form id name) + (let* ((value (w3m-form-get form id)) + (cur-win (selected-window)) + (wincfg (current-window-configuration)) + (urlid (format "%s:%s:%d" w3m-current-url name id)) + (w3mbuffer (current-buffer)) + (point (point)) + (size (min + (- (window-height cur-win) + window-min-height 1) + (- (window-height cur-win) + (max window-min-height + (1+ w3m-form-input-select-buffer-lines))))) + buffer cur pos) + (setq buffer + (catch 'detect-buffer + (save-current-buffer + (dolist (buffer (buffer-list)) + (set-buffer buffer) + (when (and w3m-form-input-select-buffer + (eq w3m-form-input-select-buffer w3mbuffer) + (string= w3m-form-input-select-urlid urlid)) + (throw 'detect-buffer (cons t buffer))))) + (generate-new-buffer "*w3m form select*"))) + (unless (consp buffer) + (with-current-buffer buffer + (setq w3m-form-input-select-form form) + (setq w3m-form-input-select-name name) + (setq w3m-form-input-select-id id) + (setq w3m-form-input-select-buffer w3mbuffer) + (setq w3m-form-input-select-point point) + (setq w3m-form-input-select-candidates value) + (setq w3m-form-input-select-wincfg wincfg) + (setq w3m-form-input-select-urlid urlid) + (when value + (setq cur (car value)) + (setq value (cdr value)) + (dolist (candidate value) + (setq pos (point)) + (insert (if (zerop (length (cdr candidate))) + " " ; "" -> " " + (cdr candidate))) + (add-text-properties pos (point) + (list 'w3m-form-select-value (car candidate) + 'mouse-face w3m-form-mouse-face)) + (insert "\n"))) + (goto-char (point-min)) + (while (and (not (eobp)) + (not (equal cur + (get-text-property (point) + 'w3m-form-select-value)))) + (goto-char (next-single-property-change (point) + 'w3m-form-select-value))) + (set-buffer-modified-p nil) + (beginning-of-line) + (w3m-form-input-select-mode))) + (if (and (consp buffer) + (get-buffer-window (cdr buffer))) + ;; same frame only + (select-window (get-buffer-window (cdr buffer))) + (condition-case nil + (split-window cur-win (if (> size 0) size window-min-height)) + (error + (delete-other-windows) + (split-window cur-win (- (window-height cur-win) + w3m-form-input-select-buffer-lines)))) + (select-window (next-window)) + (let ((pop-up-windows nil)) + (switch-to-buffer (if (consp buffer) (cdr buffer) buffer)))))) + +;;; MAP + +(defcustom w3m-form-input-map-buffer-lines 10 + "*Buffer lines for form select map buffer." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-form-input-map-mode-hook nil + "*A hook called after w3m-form-input-map-mode." + :group 'w3m + :type 'hook) + +(defcustom w3m-form-input-map-set-hook nil + "*A Hook called before w3m-form-input-map-set." + :group 'w3m + :type 'hook) + +(defvar w3m-form-input-map-keymap nil) +(unless w3m-form-input-map-keymap + (setq w3m-form-input-map-keymap (make-sparse-keymap)) + (define-key w3m-form-input-map-keymap "\C-c\C-c" + 'w3m-form-input-map-set) + (define-key w3m-form-input-map-keymap "\r" + 'w3m-form-input-map-set) + (define-key w3m-form-input-map-keymap "\C-m" + 'w3m-form-input-map-set) + (define-key w3m-form-input-map-keymap "\C-c\C-q" + 'w3m-form-input-map-exit) + (define-key w3m-form-input-map-keymap "\C-c\C-k" + 'w3m-form-input-map-exit) + (define-key w3m-form-input-map-keymap "q" + 'w3m-form-input-map-exit) + (define-key w3m-form-input-map-keymap "\C-g" + 'w3m-form-input-map-exit) + (define-key w3m-form-input-map-keymap "h" 'backward-char) + (define-key w3m-form-input-map-keymap "j" 'next-line) + (define-key w3m-form-input-map-keymap "k" 'previous-line) + (define-key w3m-form-input-map-keymap "l" 'forward-char) + (if (featurep 'xemacs) + (define-key w3m-form-input-map-keymap [(button2)] + 'w3m-form-input-map-set-mouse) + (define-key w3m-form-input-map-keymap [mouse-2] + 'w3m-form-input-map-set-mouse))) + +(defun w3m-form-input-map-set-mouse (event) + "Save and exit from w3m form select map mode with mouse." + (interactive "e") + (mouse-set-point event) + (w3m-form-input-map-set)) + +(defun w3m-form-input-map-set () + "Save and exit from w3m form select map mode." + (interactive) + (run-hooks 'w3m-form-input-map-set-hook) + (let* ((map (get-text-property (point) 'w3m-form-map-value)) + (buffer (current-buffer)) + (w3mbuffer w3m-form-input-map-buffer) + (wincfg w3m-form-input-map-wincfg) + (point w3m-form-input-map-point)) + (or (one-window-p) (delete-window)) + (kill-buffer buffer) + (when (buffer-live-p w3mbuffer) + (pop-to-buffer w3mbuffer) + (set-window-configuration wincfg) + (when point (goto-char point)) + (w3m-goto-url (w3m-expand-url map))))) + +(defun w3m-form-input-map-exit () + "Exit from w3m form select map mode." + (interactive) + (let* ((buffer (current-buffer)) + (w3mbuffer w3m-form-input-map-buffer) + (wincfg w3m-form-input-map-wincfg) + (point w3m-form-input-map-point)) + (or (one-window-p) (delete-window)) + (kill-buffer buffer) + (when (buffer-live-p w3mbuffer) + (pop-to-buffer w3mbuffer) + (set-window-configuration wincfg) + (when point (goto-char point))))) + +(defun w3m-form-input-map-mode () + "\\<w3m-form-input-map-keymap> + Major mode for w3m map select. + +\\[w3m-form-input-map-set]\ + Save and exit from w3m form select map mode. +\\[w3m-form-input-map-exit]\ + Exit from w3m form select map mode. +\\[w3m-form-input-map-set-mouse]\ + Save and exit from w3m form select map mode with mouse. +" + (setq mode-name "w3m map select" + major-mode 'w3m-form-input-map-mode) + (setq buffer-read-only t) + (use-local-map w3m-form-input-map-keymap) + (w3m-run-mode-hooks 'w3m-form-input-map-mode-hook)) + +(defun w3m-form-input-map (form name) + (let* ((value (w3m-form-get-by-name form name)) + (urlname (format "%s:%s" w3m-current-url name)) + (cur-win (selected-window)) + (wincfg (current-window-configuration)) + (w3mbuffer (current-buffer)) + (point (point)) + (size (min + (- (window-height cur-win) + window-min-height 1) + (- (window-height cur-win) + (max window-min-height + (1+ w3m-form-input-map-buffer-lines))))) + buffer pos) + (setq buffer + (catch 'detect-buffer + (save-current-buffer + (dolist (buffer (buffer-list)) + (set-buffer buffer) + (when (and w3m-form-input-map-buffer + (eq w3m-form-input-map-buffer w3mbuffer) + (string= w3m-form-input-map-urlname urlname)) + (throw 'detect-buffer (cons t buffer))))) + (generate-new-buffer "*w3m map select*"))) + (unless (consp buffer) + (with-current-buffer buffer + (setq w3m-form-input-map-buffer w3mbuffer) + (setq w3m-form-input-map-wincfg wincfg) + (setq w3m-form-input-map-point point) + (setq w3m-form-input-map-urlname urlname) + (when value + (dolist (candidate value) + (setq pos (point)) + (insert (if (zerop (length (cdr candidate))) + (car candidate) + (cdr candidate))) + (add-text-properties pos (point) + (list 'w3m-form-map-value (car candidate) + 'mouse-face w3m-form-mouse-face)) + (insert "\n"))) + (goto-char (point-min)) + (set-buffer-modified-p nil) + (beginning-of-line) + (w3m-form-input-map-mode))) + (if (and (consp buffer) + (get-buffer-window (cdr buffer))) + ;; same frame only + (select-window (get-buffer-window (cdr buffer))) + (condition-case nil + (split-window cur-win (if (> size 0) size window-min-height)) + (error + (delete-other-windows) + (split-window cur-win (- (window-height cur-win) + w3m-form-input-map-buffer-lines)))) + (select-window (next-window)) + (let ((pop-up-windows nil)) + (switch-to-buffer (if (consp buffer) (cdr buffer) buffer)))))) + +;;; +(defun w3m-form-submit-get-textarea-files (form) + (when w3m-form-use-textarea-backup-p + (let ((plist (w3m-form-plist form)) + pos id file files) + (while plist + (setq id (car plist)) + (setq plist (cddr plist)) + (setq pos (text-property-any (point-min) (point-max) 'w3m-form-id id)) + (when (and pos + (setq file (get-text-property pos 'w3m-form-file-name))) + (setq files (cons file files)))) + files))) + +(defun w3m-form-submit (form &optional id name value new-session download) + (if (w3m-anchor (point)) + ;; cf SA17565 + (w3m-goto-url (w3m-anchor (point))) + (when (and id name + (> (length name) 0)) + (w3m-form-put form id name value)) + (let* ((orig-url w3m-current-url) + (url (or (w3m-form-action form) + (if (string-match "\\?" w3m-current-url) + (substring w3m-current-url 0 (match-beginning 0)) + w3m-current-url)))) + (setq w3m-form-textarea-post-files + (w3m-form-submit-get-textarea-files form)) + (cond ((and (not (string= url orig-url)) + (string-match "^https://" orig-url) + (string-match "^http://" url) + (not (y-or-n-p (format "Send POST data to '%s'?" url)))) + (ding)) + ((or (eq 'post (w3m-form-method form)) + ;; While some sites, e.g., emacswiki.org, specify the + ;; `get' method for the enctype `multipart/form-data', + ;; we use the `post' method according to the proposal + ;; of RFC2070. + (eq 'multipart/form-data (w3m-form-enctype form))) + (if download + (funcall 'w3m-download + url nil nil nil + (w3m-form-make-form-data form)) + (funcall (if new-session + 'w3m-goto-url-new-session + 'w3m-goto-url) + url 'reload nil + (w3m-form-make-form-data form) + w3m-current-url))) + ((eq 'get (w3m-form-method form)) + (funcall (if download + 'w3m-download + (if new-session + 'w3m-goto-url-new-session + 'w3m-goto-url)) + (concat (w3m-url-strip-query url) + "?" (w3m-form-make-form-data form)))) + (t + (w3m-message "This form's method has not been supported: %s" + (let (print-level print-length) + (prin1-to-string (w3m-form-method form))))))))) + +(defun w3m-form-real-reset (form sexp) + (and (eq 'w3m-form-input (car sexp)) + (eq form (nth 1 sexp)) + (w3m-form-put form (nth 2 sexp) (nth 3 sexp) (nth 7 sexp)) + (w3m-form-replace (nth 7 sexp)))) + +(defun w3m-form-reset (form) + (save-excursion + (let (pos prop) + (when (setq prop (w3m-action (goto-char (point-min)))) + (goto-char (or (w3m-form-real-reset form prop) + (next-single-property-change pos 'w3m-action)))) + (while (setq pos (next-single-property-change (point) 'w3m-action)) + (goto-char pos) + (goto-char (or (w3m-form-real-reset form (w3m-action pos)) + (next-single-property-change pos 'w3m-action))))))) + + +(provide 'w3m-form) + +;;; w3m-form.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-hist.el b/share/emacs/site-lisp/w3m/w3m-hist.el new file mode 100644 index 00000000000..84c3ab5cd89 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-hist.el @@ -0,0 +1,732 @@ +;;; w3m-hist.el --- the history management system for emacs-w3m + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2008, 2009, 2010 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Author: Katsumi Yamaoka <yamaoka@jpl.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; Emacs-w3m keeps history in the buffer-local variables `w3m-history' +;; and `w3m-history-flat'. Each variable contains a list of all the +;; links you have visited. The behavior tracing history backward or +;; forward is controlled by the `w3m-history-reuse-history-elements' +;; variable. See the documentations for those variables for details. + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(defcustom w3m-history-reuse-history-elements nil + "Non-nil means reuse the history element when re-visiting the page. +Otherwise, a new history element will be created even if there are +elements for the same url in the history. + +Emacs-w3m used to operate as the case in which it is non-nil, however +it sometimes brought about users' dissatisfaction. For example, if a +user visited the pages A -> B -> C -> B in order, performing BACK on +the second B would let a user visit A. The reason why a user was +taken to A rather than C is that the `w3m-history' variable only had +the list `(A B C)' as a history and B was the current position at that +time. + +The default value for this variable is nil which allows the +`w3m-history' variable to have the list `(A B C B)'. Where contents +of two B's are the identical Lisp objects. So, too much wasting the +Lisp resources will be avoided. + +See the documentation for the variables `w3m-history' and +`w3m-history-flat' for more information." + :group 'w3m + :type '(boolean :format "%{%t%}: %[%v%]" :on "On" :off "Off")) + +(defcustom w3m-history-minimize-in-new-session nil + "Non-nil means minimize copied history so that there's only current page. +This variable is effective when creating of the new session by copying +\(i.e., `w3m-copy-buffer')." + :group 'w3m + :type '(boolean :format "%{%t%}: %[%v%]" :on "On" :off "Off")) + +(defvar w3m-history nil + "A tree-structured complex list of all the links which you have visited. +This is a buffer-local variable. For example, it will grow as follows: + +\[Branch-1.0.0.0]: +--> U1.0.0.0.0 --> U1.0.0.0.1 + | + [Branch-1.0]: +--> U1.0.0 --> U1.0.1 --> U1.0.2 + | + [Trunk]: U0 --> U1 --> U2 --> U3 --> U4 --> U5 --> U6 + | + [Branch-2.0]: +--> U2.0.0 --> U2.0.1 + | + [Branch-2.1]: +--> U2.1.0 --> U2.1.1 --> U2.1.2 + | +\[Branch-2.1.1.0]: +--> U2.1.1.0.0 + +In this case, the U1.0.0.0.0 history element represents the first link +of the first branch which is sprouted from the U1.0.0 history element. + +The trunk or each branch is a simple list which will contain some +history elements. History elements in the trunk or each branch will +be arranged in increasing order (the newest history element will be +the last element of the list). Each history element represents a link +which consists of the following records: + + (URL PROPERTIES BRANCH BRANCH ...) + +Where URL is a string of an address of a link. PROPERTIES is a plist +which is able to contain any kind of data to supplement the URL as +follows: + + (KEYWORD VALUE KEYWORD VALUE ...) + +A note for programmers: PROPERTIES should always be a non-nil value in +order to make it easy to share the value in every history element in +every emacs-w3m buffer. + +The remaining BRANCHes are branches of the history element. Branches +will also be arranged in increasing order (the newest one will be the +rightmost element). Each BRANCH will also be a tree-structured +complex list. Therefore, the history structure will grow up +infinitely. + +In order to save the Lisp resources, URL strings and PROPERTIES in the +`w3m-history' variables are shared in every emacs-w3m buffer (it means +each element in two `w3m-history' variables can be compared by `eq' +rather than `equal'). If there is necessity to make buffer-local +properties, in other words, to make properties of which values differ +in every emacs-w3m buffer, use the `w3m-history-flat' variable instead. + +There are special rules on the emacs-w3m history management system. +As you perhaps foresaw, the operation BACK on U2.0.0 brings you to U2, +and one more BACK brings you to U1. Well, where do you think we +should go next when the operation FORWARD is performed on U1? The +rule is to go to the newest link you have ever visited. So, that +operation should take you to U1.0.0. + +Another rule is that the new U4 link should sprout from U1.0.1 if +`w3m-history-reuse-history-elements' is nil when you visit the U4 link +directly from U1.0.1. In contrast, you should be taken to the +existing U4 link instead of sprouting the new branch from U1.0.1 if +`w3m-history-reuse-history-elements' is non-nil. + +In addition, the first element of `w3m-history' is special. It is a +list containing pointers which point to three history elements as +shown below: + + (PREV CURRENT NEXT) + +PREV points to the previous history element, CURRENT points to the +current one and NEXT points to the next one. Each of them is a list +which contains an odd number of integers. For example, `(0)' does +point to U0 and `(2 1 0)' does point to U2.1.0. Finally, the value of +the `w3m-history' variable will be constructed as follows: + +\(((1) (2) (2 1 0)) + (\"http://www.U0.org/\" (:title \"U0\" :foo \"bar\")) + (\"http://www.U1.org/\" (:title \"U1\" :foo \"bar\") + ((\"http://www.U100.org/\" (:title \"U100\" :foo \"bar\") + ((\"http://www.U10000.org/\" (:title \"U10000\" :foo \"bar\")) + (\"http://www.U10001.org/\" (:title \"U10001\" :foo \"bar\")))) + (\"http://www.U101.org/\" (:title \"U101\" :foo \"bar\")) + (\"http://www.U102.org/\" (:title \"U102\" :foo \"bar\")))) + (\"http://www.U2.org/\" (:title \"U2\" :foo \"bar\") + ((\"http://www.U200.org/\" (:title \"U200\" :foo \"bar\")) + (\"http://www.U201.org/\" (:title \"U201\" :foo \"bar\"))) + ((\"http://www.U210.org/\" (:title \"U210\" :foo \"bar\")) + (\"http://www.U211.org/\" (:title \"U211\" :foo \"bar\") + ((\"http://www.U21100.org/\" (:title \"U21100\" :foo \"bar\")))) + (\"http://www.U212.org/\" (:title \"U212\" :foo \"bar\")))) + (\"http://www.U3.org/\" (:title \"U3\" :foo \"bar\")) + (\"http://www.U4.org/\" (:title \"U4\" :foo \"bar\")) + (\"http://www.U5.org/\" (:title \"U5\" :foo \"bar\")) + (\"http://www.U6.org/\" (:title \"U6\" :foo \"bar\")))") + +(defvar w3m-history-flat nil + "A flattened alist of all the links which you have visited. +All history elements except for buffer-local properties are the same +as ones of `w3m-history'. Each element will contain the following +records: + + (URL PROPERTIES POSITION [KEYWORD VALUE [KEYWORD VALUE ...]]) + +Where URL is a string of an address of a link, PROPERTIES is a plist +which is able to contain any kind of data to supplement the URL. Each +PROPERTIES is the Lisp object identical with that corresponding +element of `w3m-history'. POSITION is a list of integers to designate +the current position in the history. + +The remaining [KEYWORD VALUE [KEYWORD VALUE ...]] is a plist similar +to PROPERTIES, but it is buffer-local. You can manipulate +buffer-local properties using the functions `w3m-history-plist-get', +`w3m-history-plist-put', `w3m-history-add-properties' and +`w3m-history-remove-properties'. See the documentation for the +`w3m-history' variable for more information.") + +(make-variable-buffer-local 'w3m-history) +(make-variable-buffer-local 'w3m-history-flat) + +;; Inline functions. +(defsubst w3m-history-assoc (url) + "Extract a history element associated with URL from `w3m-history-flat'." + (assoc url w3m-history-flat)) + +;; Functions for internal use. +(defun w3m-history-set-current (position) + "Modify `w3m-history' so that POSITION might be the current position. +What is called the current position is the `cadar' of `w3m-history'. +The previous position and the next position will be computed +automatically." + (setcar w3m-history (w3m-history-regenerate-pointers position))) + +(defun w3m-history-element (position &optional flat) + "Return a history element located in the POSITION of the history. +If FLAT is nil, the value will be extracted from `w3m-history' and +represented with the `(URL PROPERTIES BRANCH BRANCH ...)' form. +Otherwise, the value will be extracted from `w3m-history-flat' and +represented with the `(URL PROPERTIES POSITION [KEYWORD VALUE ...])' +form. FYI, to know the current position, the `(cadar w3m-history)' +form for example can be used." + (when position + (if flat + (let ((flat w3m-history-flat) + element) + (while flat + (if (equal (caddr (setq element (pop flat))) position) + (setq flat nil) + (setq element nil))) + element) + (let ((element (nth (pop position) (cdr w3m-history)))) + (while position + (setq element (nth (pop position) (cddr element)) + element (nth (pop position) element))) + element)))) + +(defun w3m-history-previous-position (position) + "Return a history position of the previous location of POSITION. +POSITION is a list of integers of the same form as being used in one +of the elements of the `car' of `w3m-history' (which see)." + (let (class number previous) + (when position + (setq class (1- (length position)) + number (nth class position)) + (if (zerop number) + ;; This POSITION is the beginning of the branch. + (unless (zerop class) + ;; There's a parent. + (setq previous (copy-sequence position)) + (setcdr (nthcdr (- class 2) previous) nil)) + ;; This POSITION is not the beginning of the branch. + (setq previous (copy-sequence position)) + (setcar (nthcdr class previous) (1- number)))) + previous)) + +(defun w3m-history-next-position (position) + "Return a history position of the next location of POSITION. +POSITION is a list of integers of the same form as being used in one +of the elements of the `car' of `w3m-history' (which see)." + (let (next branch element number) + (when position + (setq next position + branch (cdr w3m-history) + element (nth (pop next) branch)) + (while next + (setq branch (nth (pop next) (cddr element)) + element (nth (pop next) branch))) + (cond ((nth 2 element) + ;; There're branches sprouted from the POSITION. + (setq next (copy-sequence position)) + (setcdr (nthcdr (1- (length next)) next) + (list (- (length element) 3) 0))) + ((> (length branch) + (setq number (1+ (nth (1- (length position)) position)))) + ;; This POSITION is not the end of the branch. + (setq next (copy-sequence position)) + (setcar (nthcdr (1- (length next)) next) number)))) + next)) + +(defun w3m-history-set-plist (plist property value) + "Similar to `plist-put' but PLIST is actually modified even in XEmacs. +If VALUE is nil, the pair of PROPERTY and VALUE is removed from PLIST. +Exceptionally, if PLIST is made empty because of removing, it will be +instead set to `(nil nil)'. Return PLIST itself." + (let ((pair (memq property plist))) + (if pair + (if value + (setcar (cdr pair) value) + (if (eq (car plist) property) + (progn + (setcar plist (nth 2 plist)) + (setcar (cdr plist) (nth 3 plist)) + (setcdr (cdr plist) (nthcdr 4 plist))) + (setcdr (nthcdr (- (length plist) (length pair) 1) plist) + (nthcdr 2 pair)))) + (when value + (setcdr (nthcdr (1- (length plist)) plist) (list property value))))) + plist) + +(defun w3m-history-modify-properties (old new &optional replace) + "Merge NEW plist into OLD plist and return a modified plist. +If REPLACE is non-nil, OLD will be replaced with NEW. OLD plist is +modified and also the new value is shared in all the history +elements containing OLD plist. Properties whose values are nil are +removed from OLD plist, but if OLD plist is made empty because of +removing, it will be instead set to `(nil nil)'." + (prog1 + old + (if replace + (progn + (setcar old (car new)) + (setcdr old (or (cdr new) (list nil)))) + (while new + (w3m-history-set-plist old (car new) (cadr new)) + (setq new (cddr new)))) + (setq new (copy-sequence old)) + (while new + (w3m-history-set-plist old (car new) (cadr new)) + (setq new (cddr new))))) + +(defun w3m-history-seek-element (url &optional newprops replace) + "Return a copy of history element corresponding to URL. +Searching is performed in all emacs-w3m buffers and the first match +found is returned. If REPLACE is nil, NEPROPS will be merged into +properties of an element. Otherwise, properties of an element will be +replaced with NEWPROPS." + (let* ((current (current-buffer)) + (buffers (cons current (delq current (buffer-list)))) + element) + (while buffers + (set-buffer (pop buffers)) + (when (and (eq major-mode 'w3m-mode) + (setq element (w3m-history-assoc url))) + (setq buffers nil))) + (set-buffer current) + (prog1 + (copy-sequence element) + (when element + (w3m-history-modify-properties (cadr element) newprops replace))))) + +;; Generic functions. +(defun w3m-history-previous-link-available-p () + "Return non-nil if the previous history element is available." + (caar w3m-history)) + +(defun w3m-history-next-link-available-p () + "Return non-nil if the next history element is available." + (caddar w3m-history)) + +(defun w3m-history-backward (&optional count) + "Move backward COUNT times in the history structure. +Return a cons of a new history element and new position pointers of +the history. The position pointers of `w3m-history' will not change. +If COUNT is omitted, it defaults to the number one. If COUNT is +negative, moving forward is performed. Return nil if there is no +previous element." + (when w3m-history + (let ((oposition (copy-sequence (car w3m-history))) + position last) + (cond ((or (unless count + (setq count 1)) + (> count 0)) + (while (and (> count 0) + (setq position (caar w3m-history))) + (w3m-history-set-current (setq last position)) + (decf count))) + ((< count 0) + (while (and (< count 0) + (setq position (caddar w3m-history))) + (w3m-history-set-current (setq last position)) + (incf count))) + (t ;; Don't move. + (setq last (cadar w3m-history)))) + (prog1 + (when last + (cons (w3m-history-element (cadar w3m-history)) + (car w3m-history))) + (setcar w3m-history oposition))))) + +(defun w3m-history-forward (&optional count) + "Move forward COUNT times in the history structure. +Return a cons of a new history element and new position pointers of +the history. The position pointers of `w3m-history' will not change. +If COUNT is omitted, it defaults to the number one. If COUNT is +negative, moving backward is performed. If there is no room to move +in the history, move as far as possible." + (w3m-history-backward (- (or count 1)))) + +(defun w3m-history-regenerate-pointers (position) + "Regenerate the position pointers due to only the current POSITION. +The history position pointers are made with the `(PREV CURRENT NEXT)' +form which is mentioned in the documentation for `w3m-history'." + (list (w3m-history-previous-position position) + position + (w3m-history-next-position position))) + +(defun w3m-history-flat () + "Set the value of `w3m-history-flat' due to the value of `w3m-history'. +See also the documentations for those variables." + (setq w3m-history-flat nil) + (when w3m-history + (let ((history (cdr w3m-history)) + (position (list 0)) + element branches flag children) + (while (setq element (pop history)) + (if (stringp (car element)) + (progn + (push (list (car element) (cadr element) (reverse position)) + w3m-history-flat) + (if (setq element (cddr element)) + (progn + (setq history (append element history) + position (append (list 0 0) position)) + (push (length element) branches)) + (setcar position (1+ (car position))) + (setq flag t) + (while (and flag + children + (zerop (setcar children (1- (car children))))) + (setq children (cdr children)) + (if (zerop (setcar branches (1- (car branches)))) + (progn + (setq branches (cdr branches) + position (cddr position)) + (setcar position (1+ (car position)))) + (setcar position 0) + (setcar (cdr position) (1+ (cadr position))) + (setq flag nil))))) + (setq history (append element history)) + (push (length element) children)))) + (setq w3m-history-flat (nreverse w3m-history-flat)))) + +(defun w3m-history-tree (&optional newpos) + "Set the value of `w3m-history' due to the value of `w3m-history-flat'. +See also the documentations for those variables. NEWPOS specifies the +current position of the history. It defaults to the beginning +position of the history." + (if w3m-history-flat + (let ((flat w3m-history-flat) + element positions rest position) + (setq w3m-history (list (list nil nil))) + (while (setq element (pop flat)) + (setq positions (caddr element) + rest w3m-history) + (while positions + (setq position (pop positions)) + (unless (> (length rest) position) + (setcdr (nthcdr (1- (length rest)) rest) + (make-list (- position (length rest) -1) + (list nil nil)))) + (setq rest (nth position rest)) + (when positions + (setq position (pop positions)) + (unless (> (- (length rest) 2) position) + (setcdr (nthcdr (1- (length rest)) rest) + (make-list (- position (length rest) -3) + (list (list nil nil))))) + (setq rest (nth (+ position 2) rest)))) + (setcar rest (car element)) + (setcar (cdr rest) (cadr element))) + (push 'dummy w3m-history) + (w3m-history-set-current (or newpos (list 0))) + w3m-history) + (setq w3m-history nil))) + +(defun w3m-history-push (url &optional newprops replace) + "Push URL into the history structure. +A history which corresponds to URL becomes the current one. NEWPROPS +is a plist which supplements URL. Return a new history position +pointers. How this function behaves to the history structure (i.e., +`w3m-history' and `w3m-history-flat') is controlled by the value of +`w3m-history-reuse-history-elements'. + +The case where `w3m-history-reuse-history-elements' is nil: + A new history element is always created. If there is another + element corresponding to the same URL, its properties are inherited + into the new history element. + +The case where `w3m-history-reuse-history-elements' is non-nil: + If there is an element corresponding to URL in the history, it + becomes the current history element. Otherwise, this function + behaves like the case where `w3m-history-reuse-history-elements' is + nil. + +If REPLACE is nil, NEWPROPS is merged into properties of the current +history element. Otherwise, properties of the current history element +are replaced with NEWPROPS." + (let ((element (w3m-history-seek-element url newprops replace)) + position class number branch) + (if element + (setcdr (cdr element) nil) + (setq element (list url (w3m-history-modify-properties newprops nil)))) + (cond + ((null w3m-history) + ;; The dawn of the history. + (setq position (list nil (list 0) nil) + w3m-history (list position element) + w3m-history-flat (list (append element (list (list 0))))) + position) + + ((and w3m-history-reuse-history-elements + (setq position (caddr (w3m-history-assoc url)))) + ;; Reuse the existing history element assigned to the current one. + ;; The position pointers will be fixed with correct values after + ;; visiting a page when moving back, moving forward or jumping from + ;; the about://history/ page. + (w3m-history-set-current position)) + + (t + ;; Sprout a new history element. + (setq position (copy-sequence (cadar w3m-history)) + class (1- (length position)) + number 0 + branch (nthcdr (car position) (cdr w3m-history))) + (while (> class number) + (setq number (1+ number) + branch (nth (nth number position) (cddar branch)) + number (1+ number) + branch (nthcdr (nth number position) branch))) + (if (cdr branch) + ;; We should sprout a new branch. + (progn + (setq number (1- (length (car branch)))) + (setcdr (nthcdr class position) (list (1- number) 0)) + (setcdr (nthcdr number (car branch)) (list (list element)))) + ;; The current position is the last of the branch. + (setcar (nthcdr class position) + (1+ (car (nthcdr class position)))) + (setcdr branch (list element))) + (setq w3m-history-flat (nconc w3m-history-flat + (list (append element (list position))))) + (setcar w3m-history (list (cadar w3m-history) position nil)))))) + +(defun w3m-history-copy (buffer) + "Copy the history structure from BUFFER to the current buffer. +This function keeps corresponding elements identical Lisp objects +between buffers while copying the frameworks of `w3m-history' and +`w3m-history-flat'. Exceptionally, buffer-local properties contained +in `w3m-history-flat' will not be copied. If +`w3m-history-minimize-in-new-session' is non-nil, the copied history +structure will be shrunk so that it may contain only the current +history element." + (let ((current (current-buffer)) + position flat element rest) + (set-buffer buffer) + (when w3m-history + (setq position (copy-sequence (cadar w3m-history)) + flat w3m-history-flat)) + (set-buffer current) + (when position + (if w3m-history-minimize-in-new-session + (progn + (setq w3m-history-flat flat + element (copy-sequence (w3m-history-element position t))) + (setcdr (cdr element) nil) + (setq w3m-history (list (list nil (list 0) nil) element) + w3m-history-flat (list (append element (list (list 0)))))) + ;; Remove buffer-local properties from the new `w3m-history-flat'. + (while flat + (setq element (copy-sequence (car flat)) + flat (cdr flat)) + (setcdr (cddr element) nil) + (push element rest)) + (setq w3m-history-flat (nreverse rest)) + (w3m-history-tree position))))) + +(defun w3m-history-plist-get (keyword &optional not-buffer-local) + "Extract a value from the properties of the current history element. +KEYWORD is usually a symbol. This function returns the value +corresponding to KEYWORD, but it returns nil if the properties don't +contain KEYWORD. If NOT-BUFFER-LOCAL is nil, this function searches a +value in buffer-local properties, otherwise looks over the global +properties instead." + (let ((element (w3m-history-element (cadar w3m-history) t))) + (plist-get (if not-buffer-local + (cadr element) + (cdddr element)) + keyword))) + +(defun w3m-history-add-properties (newprops &optional not-buffer-local) + "Add NEWPROPS to the properties of the current history element. +NEWPROPS should be a plist, which is merged into the properties. +Return new properties. If NOT-BUFFER-LOCAL is nil, NEWPROPS will be +added to the buffer-local properties. Otherwise, NEWPROPS will be +added to the global properties instead." + (if not-buffer-local + (cadr (w3m-history-seek-element + (car (w3m-history-element (cadar w3m-history))) + newprops)) + (let ((element (w3m-history-element (cadar w3m-history) t)) + properties) + (if element + (progn + (setq properties (cdddr element) + properties + (if properties + (w3m-history-modify-properties properties newprops) + ;; Use `w3m-history-modify-properties' to remove + ;; keyword-value pairs whose value is nil. + (w3m-history-modify-properties newprops nil))) + (unless (car properties) ;; check whether it is `(nil nil)'. + (setq properties nil)) + (setcdr (cddr element) properties)) + (message "\ +Warning: the history database in this session seems corrupted.") + (sit-for 1) + nil)))) + +(defun w3m-history-plist-put (keyword value &optional not-buffer-local) + "Put KEYWORD and VALUE into the current history element. +Return new properties. If NOT-BUFFER-LOCAL is nil, KEYWORD and VALUE +will be put into the buffer-local properties. Otherwise, KEYWORD and +VALUE will be put into the global properties instead." + (w3m-history-add-properties (list keyword value) not-buffer-local)) + +(defun w3m-history-remove-properties (properties &optional not-buffer-local) + "Remove PROPERTIES from the current history element. +PROPERTIES should be one or more keyword-value pairs (i.e., plist) but +values are ignored (treated as nil). Return new properties. If +NOT-BUFFER-LOCAL is nil, the buffer-local properties will be modified. +Otherwise, the global properties will be modified instead." + (let (rest) + (while properties + (setq rest (cons nil (cons (car properties) rest)) + properties (cddr properties))) + (w3m-history-add-properties (nreverse rest) not-buffer-local))) + +(defun w3m-history-store-position () + "Store the current cursor position into the current history element. +Data consist of the position where the window starts and the cursor +position. Naturally, those should be treated as buffer-local." + (interactive) + (when (cadar w3m-history) + (w3m-history-add-properties + (list :window-start (window-start) + :position (cons (count-lines (point-min) (point-at-bol)) + (current-column)) + :window-hscroll (window-hscroll))) + (when (interactive-p) + (message "The current cursor position saved")))) + +(defun w3m-history-restore-position () + "Restore the saved cursor position in the page. +Even if the page has been shrunk (by reloading, for example), somehow +it works although it may not be perfect." + (interactive) + (when (cadar w3m-history) + (let ((start (w3m-history-plist-get :window-start)) + position window) + (cond ((and start + (setq position (w3m-history-plist-get :position))) + (when (<= start (point-max)) + (setq window (get-buffer-window (current-buffer) 'all-frames)) + (when window + (set-window-start window start) + (set-window-hscroll + window (or (w3m-history-plist-get :window-hscroll) 0))) + (goto-char (point-min)) + (forward-line (car position)) + (move-to-column (cdr position)) + (let ((deactivate-mark nil)) + (run-hooks 'w3m-after-cursor-move-hook)))) + ((interactive-p) + (message "No cursor position saved")))))) + +(defun w3m-history-minimize () + "Minimize the history so that there may be the current page only." + (interactive) + (let ((position (cadar w3m-history)) + element) + (when position + (setq element (w3m-history-element position t)) + (setcar (cddr element) (list 0)) + (setq w3m-history-flat (list element) + w3m-history (list (list nil (list 0) nil) + (list (car element) (cadr element))))))) + +(defun w3m-history-slimmed-history-flat () + "Return slimmed history." + (let ((position (cadar w3m-history)) + flat-map new-flat) + (dolist (l w3m-history-flat) + (setq flat-map (cons (cons (nth 2 l) l) + flat-map))) + (setq new-flat (cons (cdr (assoc position flat-map)) nil)) + (let ((pos (w3m-history-previous-position position))) + (while pos + (setq new-flat (cons (cdr (assoc pos flat-map)) + new-flat)) + (setq pos (w3m-history-previous-position pos)))) + (let ((pos (w3m-history-next-position position))) + (while pos + (setq new-flat (cons (cdr (assoc pos flat-map)) + new-flat)) + (setq pos (w3m-history-next-position pos)))) + new-flat)) + +(defun w3m-history-slim () + "Slim the history. +This makes the history slim so that it may have only the pages that +are accessible by PREV and NEXT operations." + (interactive) + (let ((position (cadar w3m-history))) + (setq w3m-history-flat (w3m-history-slimmed-history-flat)) + (w3m-history-tree position))) + +(eval-when-compile + (defvar w3m-arrived-db) + (autoload 'w3m-goto-url "w3m")) + +(defun w3m-history-add-arrived-db () + "Add the arrived database to the history structure unreasonably. +This function is useless normally, so you may not want to use it. +\(The reason it is here is because it is useful once in a while when +debugging w3m-hist.el.)" + (interactive) + (unless (eq 'w3m-mode major-mode) + (error "`%s' must be invoked from an emacs-w3m buffer" this-command)) + (when (and w3m-arrived-db + (prog1 + (yes-or-no-p + "Are you sure you really want to destroy the history? ") + (message ""))) + (setq w3m-history nil + w3m-history-flat nil) + (let ((w3m-history-reuse-history-elements t) + url-title title) + (mapatoms (lambda (symbol) + (when symbol + (if (setq title (get symbol 'title)) + (push (list (symbol-name symbol) + (list :title title)) + url-title) + (push (list (symbol-name symbol)) url-title)))) + w3m-arrived-db) + (apply 'w3m-history-push (nth (random (length url-title)) url-title)) + (while url-title + (w3m-history-push (car (nth (random (length w3m-history-flat)) + w3m-history-flat))) + (apply 'w3m-history-push (pop url-title)))) + (w3m-goto-url "about://history/" t))) + +(provide 'w3m-hist) + +;;; w3m-hist.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-image.el b/share/emacs/site-lisp/w3m/w3m-image.el new file mode 100644 index 00000000000..23a6392bc16 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-image.el @@ -0,0 +1,266 @@ +;;; w3m-image.el --- Image conversion routines. + +;; Copyright (C) 2001, 2002, 2003, 2005, 2007, 2008 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: Yuuichi Teranishi <teranisi@gohome.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; This file contains the stuffs to convert images for emacs-w3m. +;; For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ +;; +;; Routines in this file require ImageMagick's convert. +;; For more detail about ImageMagick, see: +;; +;; http://www.imagemagick.org/ + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m-util) +(require 'w3m-proc) + +(eval-when-compile + (if (not (fboundp 'defcustom)) + (require 'pcustom))) + +;; Functions and variables which should be defined in the other module +;; at run-time. +(eval-when-compile + (defvar w3m-async-exec) + (defvar w3m-current-url) + (defvar w3m-profile-directory) + (defvar w3m-work-buffer-name) + (defvar w3m-work-buffer-list)) + +(defcustom w3m-imagick-convert-program (if noninteractive + nil + (w3m-which-command "convert")) + "*Program name of ImageMagick's `convert'." + :group 'w3m + :set (lambda (symbol value) + (custom-set-default symbol (if (and (not noninteractive) + value) + (if (file-name-absolute-p value) + (if (file-executable-p value) + value) + (w3m-which-command value))))) + :type 'file) + +(defcustom w3m-imagick-identify-program (if noninteractive + nil + (w3m-which-command "identify")) + "*Program name of ImageMagick's `identify'." + :group 'w3m + :set (lambda (symbol value) + (custom-set-default symbol (if (and (not noninteractive) + value) + (if (file-name-absolute-p value) + (if (file-executable-p value) + value) + (w3m-which-command value))))) + :type 'file) + +;;; Image handling functions. +(defcustom w3m-resize-images (and w3m-imagick-convert-program t) + "*If non-nil, resize images to the specified width and height." + :group 'w3m + :set (lambda (symbol value) + (custom-set-default symbol (and w3m-imagick-convert-program value))) + :type 'boolean) + +(put 'w3m-imagick-convert-program 'available-p 'unknown) + +(defun w3m-imagick-convert-program-available-p () + "Return non-nil if ImageMagick's `convert' program is available. +If not, `w3m-imagick-convert-program' and `w3m-resize-images' are made +nil forcibly." + (cond ((eq (get 'w3m-imagick-convert-program 'available-p) 'yes) + t) + ((eq (get 'w3m-imagick-convert-program 'available-p) 'no) + nil) + ((and (stringp w3m-imagick-convert-program) + (file-executable-p w3m-imagick-convert-program)) + (put 'w3m-imagick-convert-program 'available-p 'yes) + ;; Check whether convert supports png32. + (put 'w3m-imagick-convert-program 'png32 + (unless (or (featurep 'xemacs) + (< emacs-major-version 22)) + (with-temp-buffer + (set-buffer-multibyte nil) + (insert "P1 1 1 1") + (condition-case nil + (call-process-region (point-min) (point-max) + w3m-imagick-convert-program + t t nil "pbm:-" "png32:-") + (error)) + (goto-char (point-min)) + (looking-at "\211PNG\r\n")))) + t) + (t + (when w3m-imagick-convert-program + (message "ImageMagick's `convert' program is not available") + (sit-for 1)) + (setq w3m-imagick-convert-program nil + w3m-resize-images nil) + (put 'w3m-imagick-convert-program 'available-p 'no) + nil))) + +;;; Synchronous image conversion. +(defun w3m-imagick-convert-buffer (from-type to-type &rest args) + (when (w3m-imagick-convert-program-available-p) + (let* ((in-file (make-temp-name + (expand-file-name "w3mel" w3m-profile-directory))) + (buffer-file-coding-system 'binary) + (coding-system-for-read 'binary) + (coding-system-for-write 'binary) + (default-process-coding-system (cons 'binary 'binary)) + return) + (write-region (point-min) (point-max) in-file nil 'nomsg) + (erase-buffer) + (setq return + (apply 'call-process + w3m-imagick-convert-program + nil t nil + (append args (list + (concat + (if from-type + (concat from-type ":")) + in-file) + (if to-type + (if (and (string-equal to-type "png") + (get 'w3m-imagick-convert-program + 'png32)) + "png32:-" + (concat to-type ":-")) + "-"))))) + (when (file-exists-p in-file) (delete-file in-file)) + (if (and (numberp return) + (zerop return)) + t + (message "Image conversion failed (code `%s')" + (if (stringp return) + (string-as-multibyte return) + return)) + nil)))) + +(defun w3m-imagick-convert-data (data from-type to-type &rest args) + (with-temp-buffer + (set-buffer-multibyte nil) + (insert data) + (and (apply 'w3m-imagick-convert-buffer from-type to-type args) + (not (zerop (buffer-size))) + (buffer-string)))) + +;;; Asynchronous image conversion. +(defun w3m-imagick-start-convert-data (handler + data from-type to-type &rest args) + (w3m-process-do-with-temp-buffer + (success (when (w3m-imagick-convert-program-available-p) + (set-buffer-multibyte nil) + (insert data) + (apply 'w3m-imagick-start-convert-buffer + handler from-type to-type args))) + (if (and success + (not (zerop (buffer-size)))) + (buffer-string)))) + +(defun w3m-imagick-start-convert-buffer (handler from-type to-type &rest args) + (lexical-let ((in-file (make-temp-name + (expand-file-name "w3mel" w3m-profile-directory))) + (out-buffer (current-buffer))) + (setq w3m-current-url "non-existent") + (let ((coding-system-for-write 'binary) + (buffer-file-coding-system 'binary) + jka-compr-compression-info-list + format-alist) + (write-region (point-min) (point-max) in-file nil 'nomsg)) + (w3m-process-do + (success (with-current-buffer out-buffer + (erase-buffer) + (w3m-process-start + handler + w3m-imagick-convert-program + (append args + (list + (concat + (if from-type + (concat from-type ":")) + in-file) + (if to-type + (if (and (string-equal to-type "png") + (get 'w3m-imagick-convert-program + 'png32)) + "png32:-" + (concat to-type ":-")) + "-")))))) + (when (file-exists-p in-file) + (delete-file in-file)) + success))) + +(defun w3m-resize-image (data width height handler) + "Resize image DATA to WIDTH and HEIGHT asynchronously. +HANDLER is called after conversion with resized data as an argument." + (w3m-process-do + (result (w3m-imagick-start-convert-data + handler + data nil nil "-geometry" + (concat (number-to-string width) + "x" + (number-to-string height) + "!"))) + result)) + +(defun w3m-resize-image-by-rate (data rate handler) + "Resize image DATA at RATE asynchronously. +HANDLER is called after conversion with resized data as an argument. +Note that this function requires that the `convert' program allows the +`-resize' option." + (w3m-process-do + (result (w3m-imagick-start-convert-data + handler + data nil nil "-resize" + (concat (number-to-string rate) "%"))) + result)) + +(defun w3m-favicon-usable-p () + "Check whether ImageMagick's `convert' supports a Windoze ico format in +a large number of bits per pixel." + (let ((xpm (condition-case nil + (w3m-imagick-convert-data + (string 0 0 1 0 1 0 2 1 0 0 1 0 24 0 52 0 + 0 0 22 0 0 0 40 0 0 0 2 0 0 0 2 0 + 0 0 1 0 24 0 0 0 0 0 0 0 0 0 0 0 + 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + 0 255 255 255 0 0 0 0 0 0) + "ico" "xpm") + (error nil)))) + (and xpm (string-match "\"2 1 2 1\"" xpm) t))) + +(provide 'w3m-image) + +;;; w3m-image.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-lnum.el b/share/emacs/site-lisp/w3m/w3m-lnum.el new file mode 100644 index 00000000000..622a1e6bf84 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-lnum.el @@ -0,0 +1,144 @@ +;;; w3m-lnum.el --- Operations using link numbers + +;; Copyright (C) 2004, 2005, 2006, 2007, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This file provides a minor mode to enable operations using link +;; numbers. + +;;; Usage: + +;; Install this file to an appropriate directory, and add these +;; expressions to your ~/.emacs-w3m. + +;; (autoload 'w3m-link-numbering-mode "w3m-lnum" nil t) +;; (add-hook 'w3m-mode-hook 'w3m-link-numbering-mode) + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m) + +(defface w3m-link-numbering + '((((class color) (background light)) (:foreground "gray60")) + (((class color) (background dark)) (:foreground "gray50"))) + "Face used to highlight link numbers." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-link-numbering-face 'face-alias 'w3m-link-numbering) + +(defcustom w3m-link-numbering-mode-hook nil + "*Hook run after `w3m-link-numbering-mode' initialization." + :group 'w3m + :type 'hook) + +(defvar w3m-link-numbering-mode-map + (let ((keymap (make-sparse-keymap))) + (substitute-key-definition 'w3m-view-this-url + 'w3m-move-numbered-anchor + keymap w3m-mode-map) + keymap) + "Keymap used when `w3m-link-numbering-mode' is active.") + +(defvar w3m-link-numbering-mode nil + "Non-nil if w3m operations using link numbers are enabled.") +(make-variable-buffer-local 'w3m-link-numbering-mode) +(unless (assq 'w3m-link-numbering-mode minor-mode-map-alist) + (push (cons 'w3m-link-numbering-mode w3m-link-numbering-mode-map) + minor-mode-map-alist)) + +;;;###autoload +(defun w3m-link-numbering-mode (&optional arg) + "Minor mode to enable operations using link numbers." + (interactive "P") + (add-hook 'w3m-display-functions 'w3m-link-numbering) + (if (setq w3m-link-numbering-mode + (if arg + (> (prefix-numeric-value arg) 0) + (not w3m-link-numbering-mode))) + (progn + (w3m-link-numbering) + (run-hooks 'w3m-link-numbering-mode-hook)) + (dolist (overlay (overlays-in (point-min) (point-max))) + (when (overlay-get overlay 'w3m-link-numbering-overlay) + (delete-overlay overlay))))) + +(defun w3m-link-numbering (&rest args) + "Make overlays that display link numbers." + (when w3m-link-numbering-mode + (save-excursion + (goto-char (point-min)) + (let ((i 0) + overlay num) + (catch 'already-numbered + (while (w3m-goto-next-anchor) + (when (w3m-anchor) + (when (get-char-property (point) 'w3m-link-numbering-overlay) + (throw 'already-numbered nil)) + (setq overlay (make-overlay (point) (1+ (point))) + num (format "[%d]" (incf i))) + (w3m-static-if (featurep 'xemacs) + (progn + (overlay-put overlay 'before-string num) + (set-glyph-face (extent-begin-glyph overlay) + 'w3m-link-numbering)) + (w3m-add-face-property 0 (length num) 'w3m-link-numbering num) + (overlay-put overlay 'before-string num) + (overlay-put overlay 'evaporate t)) + (overlay-put overlay 'w3m-link-numbering-overlay i)))))))) + +(defun w3m-move-numbered-anchor (&optional arg) + "Move the point to the specified anchor. +When no prefix argument is specified, call `w3m-view-this-url' instead +of moving cursor." + (interactive "P") + (if (and arg + (> (setq arg (prefix-numeric-value arg)) 0)) + (catch 'found + (dolist (overlay (overlays-in (point-min) (point-max))) + (when (eq arg (overlay-get overlay 'w3m-link-numbering-overlay)) + (goto-char (overlay-start overlay)) + (push (w3m-anchor-sequence) w3m-goto-anchor-hist) + (w3m-horizontal-on-screen) + (throw 'found (w3m-print-this-url)))) + (error "Cannot found your specified link: %d" arg)) + (w3m-view-this-url))) + +(defun w3m-go-to-linknum () + "Turn on link numbers and ask for one to go to." + (interactive) + (let ((active w3m-link-numbering-mode)) + (unless active + (w3m-link-numbering-mode 1)) + (unwind-protect + (w3m-move-numbered-anchor (w3m-read-number "Anchor number: ")) + (unless active + (w3m-link-numbering-mode 0))))) + +(provide 'w3m-lnum) + +;;; w3m-lnum.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-load.el b/share/emacs/site-lisp/w3m/w3m-load.el new file mode 100644 index 00000000000..dbb37739858 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-load.el @@ -0,0 +1,447 @@ +;;; w3m-load.el --- automatically extracted autoload +;; +;; This file should be generated by make in emacs-w3m source directory. +;; +;;; Code: + +(provide 'w3m-load) + +;;;### (autoloads (w3m-buffer w3m-region w3m-find-file w3m-browse-url +;;;;;; w3m w3m-gohome w3m-goto-url-new-session w3m-goto-url w3m-download +;;;;;; w3m-retrieve) "w3m" "w3m.el" (19330 25100)) +;;; Generated autoloads from w3m.el + +(autoload 'w3m-retrieve "w3m" "\ +Retrieve web contents pointed to by URL. +It will put the retrieved contents into the current buffer. + +If HANDLER is nil, this function will retrieve web contents, return +the content type of the retrieved data, and then come to an end. This +behavior is what is called a synchronous operation. You have to +specify HANDLER in order to make this function show its real ability, +which is called an asynchronous operation. + +If HANDLER is a function, this function will come to an end in no time. +In this case, contents will be retrieved by the asynchronous process +after a while. And after finishing retrieving contents successfully, +HANDLER will be called on the buffer where this function starts. The +content type of the retrieved data will be passed to HANDLER as a +string argument. + +NO-UNCOMPRESS specifies whether this function should not uncompress contents. +NO-CACHE specifies whether this function should not use cached contents. +POST-DATA and REFERER will be sent to the web server with a request. + +\(fn URL &optional NO-UNCOMPRESS NO-CACHE POST-DATA REFERER HANDLER)" nil nil) + +(autoload 'w3m-download "w3m" "\ +Download contents of URL to a file named FILENAME. +NO-CHACHE (which the prefix argument gives when called interactively) +specifies not using the cached data. + +\(fn URL &optional FILENAME NO-CACHE HANDLER POST-DATA)" t nil) + +(autoload 'w3m-goto-url "w3m" "\ +Visit World Wide Web pages. This is the primitive function of `w3m'. +If the second argument RELOAD is non-nil, reload a content of URL. +Except that if it is 'redisplay, re-display the page without reloading. +The third argument CHARSET specifies a charset to be used for decoding +a content. +The fourth argument POST-DATA should be a string or a cons cell. If +it is a string, it makes this function request a body as if the +content-type is \"x-www-form-urlencoded\". If it is a cons cell, the +car of a cell is used as the content-type and the cdr of a cell is +used as the body. +If the fifth argument REFERER is specified, it is used for a Referer: +field for this request. +The remaining HANDLER, ELEMENT[1], and NO-POPUP are for the +internal operations of emacs-w3m. +You can also use \"quicksearch\" url schemes such as \"gg:emacs\" which +would search for the term \"emacs\" with the Google search engine. See +the `w3m-search' function and the variable `w3m-uri-replace-alist'. + +\[1] A note for the developers: ELEMENT is a history element which has +already been registered in the `w3m-history-flat' variable. It is +corresponding to URL to be retrieved at this time, not for the url of +the current page. + +\(fn URL &optional RELOAD CHARSET POST-DATA REFERER HANDLER ELEMENT NO-POPUP)" t nil) + +(autoload 'w3m-goto-url-new-session "w3m" "\ +Visit World Wide Web pages in a new session. +If you invoke this command in the emacs-w3m buffer, the new session +will be created by copying the current session. Otherwise, the new +session will start afresh. + +\(fn URL &optional RELOAD CHARSET POST-DATA REFERER)" t nil) + +(autoload 'w3m-gohome "w3m" "\ +Go to the Home page. + +\(fn)" t nil) + +(autoload 'w3m "w3m" "\ +Visit World Wide Web pages using the external w3m command. + +When you invoke this command interactively for the first time, it will +visit a page which is pointed to by a string like url around the +cursor position or the home page specified by the `w3m-home-page' +variable, but you will be prompted for a URL if `w3m-quick-start' is +nil (default t) or `w3m-home-page' is nil. + +The variables `w3m-pop-up-windows' and `w3m-pop-up-frames' control +whether this command should pop to a window or a frame up for the +session. + +When emacs-w3m sessions have already been opened, this command will +pop to the existing window or frame up, but if `w3m-quick-start' is +nil, (default t), you will be prompted for a URL (which defaults to +`popup' meaning to pop to an existing emacs-w3m buffer up). + +In addition, if the prefix argument is given or you enter the empty +string for the prompt, it will visit the home page specified by the +`w3m-home-page' variable or the \"about:\" page. + +You can also run this command in the batch mode as follows: + + emacs -f w3m http://emacs-w3m.namazu.org/ & + +In that case, or if this command is called non-interactively, the +variables `w3m-pop-up-windows' and `w3m-pop-up-frames' will be ignored +\(treated as nil) and it will run emacs-w3m at the current (or the +initial) window. + +If the optional NEW-SESSION is non-nil, this function makes a new +emacs-w3m buffer. Besides that, it also makes a new emacs-w3m buffer +if `w3m-make-new-session' is non-nil and a user specifies a url string. + +The optional INTERACTIVE-P is for the internal use; it is mainly used +to check whether Emacs 22 or later calls this function as an +interactive command in the batch mode. + +\(fn &optional URL NEW-SESSION INTERACTIVE-P)" t nil) + +(autoload 'w3m-browse-url "w3m" "\ +Ask emacs-w3m to browse URL. +NEW-SESSION specifies whether to create a new emacs-w3m session. URL +defaults to the string looking like a url around the cursor position. +Pop to a window or a frame up according to `w3m-pop-up-windows' and +`w3m-pop-up-frames'. + +\(fn URL &optional NEW-SESSION)" t nil) + +(autoload 'w3m-find-file "w3m" "\ +Function used to open FILE whose name is expressed in ordinary format. +The file name will be converted into the file: scheme. + +\(fn FILE)" t nil) + +(autoload 'w3m-region "w3m" "\ +Render the region of the current buffer between START and END. +URL specifies the address where the contents come from. It can be +omitted or nil when the address is not identified. CHARSET is used +for decoding the contents. If it is nil, this function attempts to +parse the meta tag to extract the charset. + +\(fn START END &optional URL CHARSET)" t nil) + +(autoload 'w3m-buffer "w3m" "\ +Render the current buffer. +See `w3m-region' for the optional arguments. + +\(fn &optional URL CHARSET)" t nil) + +;;;*** + +;;;### (autoloads (w3m-antenna w3m-about-antenna) "w3m-antenna" "w3m-antenna.el" +;;;;;; (19188 5056)) +;;; Generated autoloads from w3m-antenna.el + +(autoload 'w3m-about-antenna "w3m-antenna" "\ +Not documented + +\(fn URL &optional NO-DECODE NO-CACHE POST-DATA REFERER HANDLER)" nil nil) + +(autoload 'w3m-antenna "w3m-antenna" "\ +Report changes of WEB sites, which is specified in `w3m-antenna-sites'. + +\(fn &optional NO-CACHE)" t nil) + +;;;*** + +;;;### (autoloads (w3m-setup-bookmark-menu w3m-about-bookmark w3m-bookmark-view-new-session +;;;;;; w3m-bookmark-view w3m-bookmark-add-current-url-group w3m-bookmark-add-all-urls +;;;;;; w3m-bookmark-add-current-url w3m-bookmark-add-this-url) "w3m-bookmark" +;;;;;; "w3m-bookmark.el" (19276 22621)) +;;; Generated autoloads from w3m-bookmark.el + +(autoload 'w3m-bookmark-add-this-url "w3m-bookmark" "\ +Add link under cursor to bookmark. + +\(fn)" t nil) + +(autoload 'w3m-bookmark-add-current-url "w3m-bookmark" "\ +Add a url of the current page to the bookmark. +With prefix, ask for a new url instead of the present one. + +\(fn &optional ARG)" t nil) + +(autoload 'w3m-bookmark-add-all-urls "w3m-bookmark" "\ +Add urls of all pages being visited to the bookmark. + +\(fn)" t nil) + +(autoload 'w3m-bookmark-add-current-url-group "w3m-bookmark" "\ +Add link of the group of current urls to the bookmark. + +\(fn)" t nil) + +(autoload 'w3m-bookmark-view "w3m-bookmark" "\ +Display the bookmark. + +\(fn &optional RELOAD)" t nil) + +(autoload 'w3m-bookmark-view-new-session "w3m-bookmark" "\ +Display the bookmark on a new session. + +\(fn &optional RELOAD)" t nil) + +(autoload 'w3m-about-bookmark "w3m-bookmark" "\ +Not documented + +\(fn &rest ARGS)" nil nil) + +(autoload 'w3m-setup-bookmark-menu "w3m-bookmark" "\ +Setup w3m bookmark items in menubar. + +\(fn)" nil nil) + +;;;*** + +;;;### (autoloads (w3m-about-cookie w3m-cookie w3m-cookie-get w3m-cookie-set +;;;;;; w3m-cookie-shutdown) "w3m-cookie" "w3m-cookie.el" (19277 +;;;;;; 43559)) +;;; Generated autoloads from w3m-cookie.el + +(autoload 'w3m-cookie-shutdown "w3m-cookie" "\ +Save cookies, and reset cookies' data. + +\(fn)" t nil) + +(autoload 'w3m-cookie-set "w3m-cookie" "\ +Register cookies which correspond to URL. +BEG and END should be an HTTP response header region on current buffer. + +\(fn URL BEG END)" nil nil) + +(autoload 'w3m-cookie-get "w3m-cookie" "\ +Get a cookie field string which corresponds to the URL. + +\(fn URL)" nil nil) + +(autoload 'w3m-cookie "w3m-cookie" "\ +Display cookies and enable you to manage them. + +\(fn &optional NO-CACHE)" t nil) + +(autoload 'w3m-about-cookie "w3m-cookie" "\ +Make the html contents to display and to enable you to manage cookies. + +\(fn URL &optional NO-DECODE NO-CACHE POST-DATA &rest ARGS)" nil nil) + +;;;*** + +;;;### (autoloads (w3m-dtree w3m-about-dtree) "w3m-dtree" "w3m-dtree.el" +;;;;;; (18965 10114)) +;;; Generated autoloads from w3m-dtree.el + +(autoload 'w3m-about-dtree "w3m-dtree" "\ +Not documented + +\(fn URL &optional NODECODE ALLFILES &rest ARGS)" nil nil) + +(autoload 'w3m-dtree "w3m-dtree" "\ +Display directory tree on local file system. +If called with 'prefix argument', display all directorys and files. + +\(fn ALLFILES PATH)" t nil) + +;;;*** + +;;;### (autoloads (w3m-fb-mode) "w3m-fb" "w3m-fb.el" (17681 2386)) +;;; Generated autoloads from w3m-fb.el + +(defvar w3m-fb-mode nil "\ +Non-nil if W3m-Fb mode is enabled. +See the command `w3m-fb-mode' for a description of this minor mode. +Setting this variable directly does not take effect; +either customize it (see the info node `Easy Customization') +or call the function `w3m-fb-mode'.") + +(custom-autoload 'w3m-fb-mode "w3m-fb" nil) + +(autoload 'w3m-fb-mode "w3m-fb" "\ +Toggle W3M Frame Buffer mode. +This allows frame-local lists of buffers (tabs). + +\(fn &optional ARG)" t nil) + +;;;*** + +;;;### (autoloads (w3m-filter) "w3m-filter" "w3m-filter.el" (18560 +;;;;;; 26042)) +;;; Generated autoloads from w3m-filter.el + +(autoload 'w3m-filter "w3m-filter" "\ +Apply filtering rule of URL against a content in this buffer. + +\(fn URL)" nil nil) + +;;;*** + +;;;### (autoloads (w3m-fontify-forms) "w3m-form" "w3m-form.el" (19276 +;;;;;; 22621)) +;;; Generated autoloads from w3m-form.el + +(autoload 'w3m-fontify-forms "w3m-form" "\ +Process half-dumped data and fontify forms in this buffer. + +\(fn)" nil nil) + +;;;*** + +;;;### (autoloads (w3m-link-numbering-mode) "w3m-lnum" "w3m-lnum.el" +;;;;;; (18851 53425)) +;;; Generated autoloads from w3m-lnum.el + +(autoload 'w3m-link-numbering-mode "w3m-lnum" "\ +Minor mode to enable operations using link numbers. + +\(fn &optional ARG)" t nil) + +;;;*** + +;;;### (autoloads (w3m-namazu w3m-about-namazu) "w3m-namazu" "w3m-namazu.el" +;;;;;; (18965 10114)) +;;; Generated autoloads from w3m-namazu.el + +(autoload 'w3m-about-namazu "w3m-namazu" "\ +Not documented + +\(fn URL &optional NO-DECODE NO-CACHE &rest ARGS)" nil nil) + +(autoload 'w3m-namazu "w3m-namazu" "\ +Search indexed files with Namazu. + +\(fn INDEX QUERY &optional RELOAD)" t nil) + +;;;*** + +;;;### (autoloads (w3m-perldoc w3m-about-perldoc) "w3m-perldoc" "w3m-perldoc.el" +;;;;;; (18199 13480)) +;;; Generated autoloads from w3m-perldoc.el + +(autoload 'w3m-about-perldoc "w3m-perldoc" "\ +Not documented + +\(fn URL &optional NO-DECODE NO-CACHE &rest ARGS)" nil nil) + +(autoload 'w3m-perldoc "w3m-perldoc" "\ +View Perl documents. + +\(fn DOCNAME)" t nil) + +;;;*** + +;;;### (autoloads (w3m-search-uri-replace w3m-search-new-session +;;;;;; w3m-search) "w3m-search" "w3m-search.el" (19102 18473)) +;;; Generated autoloads from w3m-search.el + +(autoload 'w3m-search "w3m-search" "\ +Search QUERY using SEARCH-ENGINE. +When called interactively with a prefix argument, you can choose one of +the search engines defined in `w3m-search-engine-alist'. Otherwise use +`w3m-search-default-engine'. +If Transient Mark mode, use the region as an initial string of query +and deactivate the mark. + +\(fn SEARCH-ENGINE QUERY)" t nil) + +(autoload 'w3m-search-new-session "w3m-search" "\ +Like `w3m-search', but do the search in a new session. + +\(fn SEARCH-ENGINE QUERY)" t nil) + +(autoload 'w3m-search-uri-replace "w3m-search" "\ +Generate query string for ENGINE from URI matched by last search. + +\(fn URI ENGINE)" nil nil) + +;;;*** + +;;;### (autoloads (w3m-session-last-crashed-session w3m-session-last-autosave-session +;;;;;; w3m-setup-session-menu w3m-session-select w3m-session-save) +;;;;;; "w3m-session" "w3m-session.el" (19277 43559)) +;;; Generated autoloads from w3m-session.el + +(autoload 'w3m-session-save "w3m-session" "\ +Save list of displayed session. + +\(fn)" t nil) + +(autoload 'w3m-session-select "w3m-session" "\ +Select session from session list. + +\(fn)" t nil) + +(autoload 'w3m-setup-session-menu "w3m-session" "\ +Setup w3m session items in menubar. + +\(fn)" nil nil) + +(autoload 'w3m-session-last-autosave-session "w3m-session" "\ +Not documented + +\(fn)" nil nil) + +(autoload 'w3m-session-last-crashed-session "w3m-session" "\ +Not documented + +\(fn)" nil nil) + +;;;*** + +;;;### (autoloads (w3m-replace-symbol) "w3m-symbol" "w3m-symbol.el" +;;;;;; (18791 12168)) +;;; Generated autoloads from w3m-symbol.el + +(autoload 'w3m-replace-symbol "w3m-symbol" "\ +Not documented + +\(fn)" nil nil) + +;;;*** + +;;;### (autoloads (w3m-about-weather w3m-weather) "w3m-weather" "w3m-weather.el" +;;;;;; (18199 13480)) +;;; Generated autoloads from w3m-weather.el + +(autoload 'w3m-weather "w3m-weather" "\ +Display weather report. + +\(fn AREA)" t nil) + +(autoload 'w3m-about-weather "w3m-weather" "\ +Not documented + +\(fn URL NO-DECODE NO-CACHE POST-DATA REFERER HANDLER)" nil nil) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; w3m-load.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-mail.el b/share/emacs/site-lisp/w3m/w3m-mail.el new file mode 100644 index 00000000000..05e5a438803 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-mail.el @@ -0,0 +1,396 @@ +;;; w3m-mail.el --- an interface to mail-user-agent for sending web pages + +;; Copyright (C) 2006, 2009 TSUCHIYA Masatoshi + +;; Author: Katsumi Yamaoka <yamaoka@jpl.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This module provides the `w3m-mail' command which enables you to +;; send web pages as mails respecting those content types (typically +;; text/html). Currently this program works if and only if you set +;; the `mail-user-agent' variable to one of the following agents: +;; `gnus-user-agent' +;; `message-user-agent' +;; `mew-user-agent' +;; `vm-user-agent' +;; `wl-user-agent' +;; To send the page you are looking at, type `M-x w3m-mail' or click +;; the menu button, fill message headers properly, and type `C-c C-c'. + +;;; Code: + +(require 'w3m) + +(defcustom w3m-mail-subject '("Emailing:" url) + "A list of strings and symbols used to generate the subject header. +Valid symbols include `url' which is replaced with the url of the page +and `title' which is replaced with the page title. You can also use +just a string for this variable." + :group 'w3m + :type '(radio (editable-list :format "\n%v%i\n" + (radio-button-choice + (const :format "%v " url) + (const :format "%v " title) + string)) + string + (const :format "no subject" nil))) + +(defvar w3m-mail-user-agent-compose-function-alist + (let ((alist '((gnus-user-agent . w3m-mail-compose-with-mml) + (message-user-agent . w3m-mail-compose-with-mml) + (mew-user-agent . w3m-mail-compose-with-mew) + (vm-user-agent . w3m-mail-compose-with-vm) + (wl-user-agent . w3m-mail-compose-with-semi))) + composer) + (delq nil (mapcar (lambda (agent) + (if (setq composer (cdr (assq agent alist))) + (cons agent composer))) + w3m-mail-user-agents))) + "Alist of mail user agents and functions to compose a mail. +The function will be called with the arguments `source', `url', +`charset', `content-type', `to', `subject', and `other-headers'; where +`source' is a string containing the page source, `url' is the url of +the page, `charset' is a charset that the page uses, `content-type' is +the one such as \"text/html\", and the rest are the same as those of +`compose-mail'.") + +(eval-when-compile + (autoload 'message-add-action "message") + (autoload 'mml-insert-empty-tag "mml") + (autoload 'vm-mime-attach-buffer "vm-mime") + (condition-case nil + (require 'mime-edit) + (error + (dolist (symbol '(encode-mime-charset-region + detect-mime-charset-region + std11-wrap-as-quoted-string + mime-find-file-type + mime-edit-insert-tag + mime-edit-define-encoding + mime-encode-region)) + (defalias symbol 'ignore))))) + +(eval-and-compile + (autoload 'mm-find-mime-charset-region "mm-util") + (autoload 'w3m-mail-compose-with-mew "mew-w3m" + "Compose a mail using Mew." t)) + +(defun w3m-mail-make-subject () + "Return a string used for the Subject header." + (cond ((consp w3m-mail-subject) + (w3m-replace-in-string + (w3m-replace-in-string + (mapconcat (lambda (elem) + (cond ((eq elem 'url) w3m-current-url) + ((eq elem 'title) w3m-current-title) + ((stringp elem) elem) + (t (format "%s" elem)))) + w3m-mail-subject + " ") + "[\t\n ]+" " ") + "\\(?:\\` \\| \\'\\)" "")) + ((stringp w3m-mail-subject) w3m-mail-subject) + (t "(no subject)"))) + +(defun w3m-mail-compute-base-url () + "Compute a base url of the page if it is not provided." + (let ((url (substring w3m-current-url 15))) + (unless (string-match "\\`about:" url) + (save-excursion + (goto-char (point-min)) + (let ((case-fold-search t) + start end) + (unless (and (setq start (search-forward "<head>" nil t)) + (setq end (search-forward "</head>" nil t)) + (progn + (goto-char start) + (re-search-forward "<base[\t\n\r ]+" end t)) + (w3m-parse-attributes (href) (> (length href) 0))) + (substring (w3m-expand-url "x" url) 0 -1))))))) + +(defun w3m-mail-embed-base-url (source base-url) + "Embed BASE-URL in SOURCE." + (with-temp-buffer + (w3m-static-unless (featurep 'xemacs) + (set-buffer-multibyte t)) + (setq case-fold-search t) + (insert source) + (goto-char (point-min)) + (while (search-forward "\r\n" nil t) + (replace-match "\n")) + (goto-char (point-min)) + (let ((nohead t) + (points (list (point-min) (point-min))) + (margin 0)) + (when (re-search-forward "\\(<html>\\)[\t\n ]*" nil t) + (setq points (list (match-end 1) (match-end 0)) + margin (current-column))) + (when (re-search-forward "\\(<head>\\)[\t\n ]*" nil t) + (setq nohead nil + points (list (match-end 1) (match-end 0)) + margin (current-column))) + (setq margin (make-string margin ? )) + (goto-char (car points)) + (apply 'delete-region points) + (if nohead + (insert "\n" margin "<head><base href=\"" base-url "\"></head>\n" + margin) + (insert "\n" margin "<base href=\"" base-url "\">\n" margin))) + (buffer-string))) + +(defun w3m-mail-goto-body-and-clear-body () + "Go to the beginning of the body and clear the body." + (goto-char (point-min)) + (if (re-search-forward (concat "^\\(?:" + (regexp-quote mail-header-separator) + "\\)?\n") + nil 'move) + (delete-region (point) (point-max)) + (insert (if (bolp) "\n" "\n\n")))) + +(defun w3m-mail-position-point (bob) + "Go to empty or bogus header, otherwise the beginning of the body BOB." + (goto-char (point-min)) + (when (re-search-forward "^\\(Subject: \\)(no subject)\\|\ +^\\([0-9A-Za-z-]+: ?\\)[\t ]*\n\\(?:[\t ]+\n\\)*[^\t ]" + bob 'move) + (goto-char (or (match-end 1) (match-end 2))))) + +(defun w3m-mail-compose-with-mml (source url charset content-type + to subject other-headers) + "Compose a mail using MML." + (let ((buffer (generate-new-buffer " *w3m-mail*"))) + (with-current-buffer buffer + (w3m-static-unless (featurep 'xemacs) + (set-buffer-multibyte (not (string-match "\\`image/" content-type)))) + (insert source)) + (if (eq mail-user-agent 'gnus-user-agent) + (progn + (require 'gnus) + (let (gnus-newsgroup-name) + (compose-mail to subject other-headers))) + (compose-mail to subject other-headers)) + (message-add-action `(kill-buffer ,buffer) 'exit 'kill 'postpone 'send) + (w3m-mail-goto-body-and-clear-body) + (w3m-mail-position-point + (prog1 + (point) + (mml-insert-empty-tag + 'part + 'type content-type + 'buffer (buffer-name buffer) + ;; Use the base64 encoding if the body contains non-ASCII text + ;; or very long lines which might be broken by MTAs. + 'encoding "base64" + 'charset (when charset (symbol-name charset)) + 'disposition "inline" + 'description url))))) + +;; This function is implemented in mew-w3m.el. +;; (defun w3m-mail-compose-with-mew (source url charset content-type +;; to subject other-headers) +;; "Compose a mail using Mew.") + +(defun w3m-mail-compose-with-vm (source url charset content-type + to subject other-headers) + "Compose a mail using VM." + (let* ((coding (and charset (w3m-charset-to-coding-system charset))) + (multibytep (and (not coding) + (or charset + (and (not (string-match "\\`image/" + content-type)) + (w3m-static-if (featurep 'xemacs) + (string-match "[^\000-\177]" source) + (multibyte-string-p source)))))) + (buffer (generate-new-buffer " *w3m-mail*"))) + (with-current-buffer buffer + (w3m-static-unless (featurep 'xemacs) + (set-buffer-multibyte (and (not coding) multibytep))) + (cond (coding + (insert (encode-coding-string source coding))) + (multibytep + (insert source) + (when (and (setq charset (car (mm-find-mime-charset-region + (point-min) (point-max)))) + (setq coding (w3m-charset-to-coding-system charset))) + (w3m-static-if (featurep 'xemacs) + (encode-coding-region (point-min) (point-max) coding) + (insert (prog1 + (encode-coding-string (buffer-string) coding) + (erase-buffer) + (set-buffer-multibyte nil)))))) + (t + (insert source)))) + (require 'vm-startup) + (compose-mail to subject other-headers) + (add-to-list 'mail-send-actions `(kill-buffer ,buffer)) + (w3m-add-local-hook 'kill-buffer-hook `(lambda nil (kill-buffer ,buffer))) + (w3m-mail-goto-body-and-clear-body) + (w3m-mail-position-point + (prog1 + (point) + (vm-mime-attach-buffer buffer content-type + (when charset (symbol-name charset)) + url))))) + +(defun w3m-mail-compose-with-semi (source url charset content-type + to subject other-headers) + "Compose a mail using SEMI." + (require 'mime-edit) + (let* ((content-type (and content-type + (split-string (downcase content-type) "/"))) + (basename (file-name-nondirectory (w3m-url-strip-query url))) + (filename (cond + ((and (string-match "^[\t ]*$" basename) + (equal content-type '("text" "html"))) + "index.html") + ((string-match "^[\t ]*$" basename) + "dummy") + (t + basename))) + (type (or (nth 0 content-type) "text")) + (subtype (or (nth 1 content-type) "html")) + parameters + (encoding "base64") + (disposition-type "inline") + disposition-params + (guess (mime-find-file-type filename)) + (textp (string= type "text"))) + (when (and guess + (string= (nth 0 guess) type) + (string= (nth 1 guess) subtype)) + (setq parameters (nth 2 guess) + encoding (or (nth 3 guess) encoding) + disposition-type (or (nth 4 guess) disposition-type) + disposition-params (nth 5 guess))) + (compose-mail to subject other-headers) + (w3m-mail-goto-body-and-clear-body) + (let ((parameters-to-string + (lambda (parameters) + (when parameters + (mapconcat + (lambda (parameter) + (concat "; " (car parameter) + "=" (if (eq (cdr parameter) 'file) + (std11-wrap-as-quoted-string filename) + (cdr parameter)))) + parameters + "")))) + (body (point)) + (edit-buffer (current-buffer)) + work-buffer) + (with-temp-buffer + (if textp + (progn + (insert source) + (unless charset + (setq charset (detect-mime-charset-region (point-min) + (point-max)))) + (when charset + (setq parameters (cons (cons "charset" (symbol-name charset)) + parameters)) + (encode-mime-charset-region (point-min) (point-max) charset))) + (set-buffer-multibyte nil) + (insert source)) + (mime-encode-region (point-min) (point-max) encoding) + (setq work-buffer (current-buffer)) + (set-buffer edit-buffer) + (mime-edit-insert-tag + type subtype + (concat (funcall parameters-to-string parameters) + "\nContent-Disposition: " disposition-type + (funcall parameters-to-string disposition-params) + "\nContent-Description: " url)) + (mime-edit-define-encoding encoding) + (save-restriction + (narrow-to-region (point) (point)) + (insert-buffer-substring work-buffer) + (unless (bolp) + (insert "\n")) + (when (or (string= disposition-type "attachment") + (not (member encoding '("7bit" "8bit" "binary")))) + (add-text-properties + (point-min) (point-max) '(invisible t mime-edit-invisible t))))) + (w3m-mail-position-point body)))) + +(defun w3m-mail (&optional headers) + "Send a web page as a mail. +By default the subject is generated according to `w3m-mail-subject'. +The optional HEADERS is a list in which each element is a cons of the +symbol of a header name and a string. Here is an example to use this +function: + +\(w3m-mail '((To . \"foo@bar\") (Subject . \"The emacs-w3m home page\")))" + (interactive (unless (eq major-mode 'w3m-mode) + (error "`%s' must be invoked from an emacs-w3m buffer" + this-command))) + (let ((composer (cdr (assq mail-user-agent + w3m-mail-user-agent-compose-function-alist))) + ;; Don't move the history position. + (w3m-history-reuse-history-elements t) + source base url charset content-type to subject) + (cond + ((not composer) + (error "`%s' is not supported (yet) by `w3m-mail'" mail-user-agent)) + ((not w3m-current-url) + (error "The source for this page is not available")) + ((string-match "\\`about://source/" w3m-current-url) + (setq source (buffer-string) + base (w3m-mail-compute-base-url)) + (w3m-view-source) + (setq url w3m-current-url + charset (w3m-coding-system-to-charset w3m-current-coding-system) + content-type (or (w3m-arrived-content-type w3m-current-url) + (w3m-content-type w3m-current-url))) + (w3m-view-source)) + ((string-match "\\`about://header/" w3m-current-url) + (w3m-view-source) + (setq source (buffer-string) + base (w3m-mail-compute-base-url)) + (w3m-view-source) + (setq url w3m-current-url + charset (w3m-coding-system-to-charset w3m-current-coding-system) + content-type (or (w3m-arrived-content-type w3m-current-url) + (w3m-content-type w3m-current-url))) + (w3m-view-header)) + (t + (setq url w3m-current-url + charset (w3m-coding-system-to-charset w3m-current-coding-system) + content-type (or (w3m-arrived-content-type w3m-current-url) + (w3m-content-type w3m-current-url))) + (w3m-view-source) + (setq source (buffer-string) + base (w3m-mail-compute-base-url)) + (w3m-view-source))) + (when (and base (string= "text/html" content-type)) + (setq source (w3m-mail-embed-base-url source base))) + (setq to (or (assq 'To headers) (assq 'to headers)) + subject (or (assq 'Subject headers) (assq 'subject headers))) + (when (or to subject) + (setq headers (delq to (delq subject (copy-sequence headers))) + to (cdr to) + subject (cdr subject))) + (unless subject + (setq subject (let ((w3m-current-url url)) (w3m-mail-make-subject)))) + (funcall composer source url charset content-type to subject headers))) + +;;; w3m-mail.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-namazu.el b/share/emacs/site-lisp/w3m/w3m-namazu.el new file mode 100644 index 00000000000..913212a7942 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-namazu.el @@ -0,0 +1,278 @@ +;;; w3m-namazu.el --- The add-on program to search files with Namazu. + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Author: TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia, namazu + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; w3m-namazu.el is the add-on program of emacs-w3m to search files +;; with Namazu. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + + +;;; History: + +;; Original program was posted by +;; Takayuki Arakawa <takayu@pop02.odn.ne.jp> in [emacs-w3m:01340] at +;; Jul 31, 2001. + +;; Many codes are imported from namazu.el written by +;; Yukihiro Matsumoto <matz@netlab.co.jp> et al. + +;; All stuffs are rewritten by +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> at Aug 2, 2001. + + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m) + +(eval-and-compile + (autoload 'w3m-search-read-query "w3m-search")) + +(defgroup w3m-namazu nil + "w3m-namazu front-end for Emacs." + :group 'w3m + :prefix "w3m-namazu-") + +(defcustom w3m-namazu-command "namazu" + "*Name of the executable file of Namazu." + :group 'w3m-namazu + :type '(string :size 0)) + +(defcustom w3m-namazu-arguments + '("-h" ; print in HTML format. + "-H" ; print further result links. + "-n" w3m-namazu-page-max ; set number of documents shown to NUM. + "-w" whence) ; set first number of documents shown to NUM. + "*Arguments of Namazu." + :group 'w3m-namazu + :type '(repeat + (restricted-sexp :format "Argument: %v\n" + :match-alternatives + (stringp 'w3m-namazu-page-max 'whence) + :size 0))) + +(defcustom w3m-namazu-page-max + (if (boundp 'namazu-search-num) + (symbol-value 'namazu-search-num) + 30) + "*A maximum number of documents which are retrieved by one-time search." + :group 'w3m-namazu + :type '(integer :size 0)) + +(defconst w3m-namazu-default-index-customize-spec + '`(choice + (const :tag "No default index" nil) + ,@(mapcar (lambda (x) (list 'const (car x))) + w3m-namazu-index-alist) + (directory :format "Index directory: %v\n" :size 0))) + +(defcustom w3m-namazu-index-alist + (when (boundp 'namazu-dir-alist) + (mapcar (lambda (pair) + (cons (car pair) + (split-string (cdr pair)))) + (symbol-value 'namazu-dir-alist))) + "*Alist of alias and index directories." + :group 'w3m-namazu + :type '(repeat + (group + :indent 0 :inline t + (cons :format "%v" + (string :format "Alias: %v\n" :size 0) + (repeat + :format "%v%i\n" :indent 8 + (directory :format "Index directory: %v\n" :size 0))))) + :set (lambda (symbol value) + (custom-set-default symbol value) + (put 'w3m-namazu-default-index 'custom-type + (eval w3m-namazu-default-index-customize-spec)))) + +(defcustom w3m-namazu-default-index + (unless (and (boundp 'namazu-always-query-index-directory) + (symbol-value 'namazu-always-query-index-directory)) + (when (boundp 'namazu-default-dir) + (symbol-value 'namazu-default-dir))) + "*Alias or directory of the default index. +If this variable equals nil, it is required to input an index path +whenever `w3m-namazu' is called interactively without prefix +argument." + :group 'w3m-namazu + :type (eval w3m-namazu-default-index-customize-spec)) + +(defcustom w3m-namazu-output-coding-system + (if (boundp 'namazu-cs-write) + (symbol-value 'namazu-cs-write) + (if (memq system-type '(OS/2 emx windows-nt)) + 'shift_jis-dos + 'euc-japan-unix)) + "*Coding system for namazu process." + :group 'w3m-namazu + :type '(coding-system :size 0)) + +(defcustom w3m-namazu-input-coding-system + (if (boundp 'namazu-cs-read) + (symbol-value 'namazu-cs-read) + 'undecided) + "*Coding system for namazu process." + :group 'w3m-namazu + :type '(coding-system :size 0)) + + +(defun w3m-namazu-call-process (index query whence) + (setq index (if (assoc index w3m-namazu-index-alist) + (mapcar 'expand-file-name + (cdr (assoc index w3m-namazu-index-alist))) + (list (expand-file-name index)))) + (let ((file-name-coding-system w3m-file-name-coding-system) + (coding-system-for-read w3m-namazu-input-coding-system) + (coding-system-for-write w3m-namazu-output-coding-system) + (default-process-coding-system + (cons w3m-namazu-input-coding-system + w3m-namazu-output-coding-system))) + (apply 'call-process w3m-namazu-command nil t nil + (let ((w3m-namazu-page-max + (number-to-string w3m-namazu-page-max))) + (nconc (mapcar 'eval w3m-namazu-arguments) + (list query) + index))))) + +;;;###autoload +(defun w3m-about-namazu (url &optional no-decode no-cache &rest args) + (let (index query (whence "0")) + (when (string-match "\\`about://namazu/\\?" url) + (dolist (s (split-string (substring url (match-end 0)) "&")) + (when (string-match "\\`\\(?:index\\|\\(query\\)\\|\\(whence\\)\\)=" s) + (set (cond + ((match-beginning 1) 'query) + ((match-beginning 2) 'whence) + (t 'index)) + (substring s (match-end 0))))) + (when (zerop (w3m-namazu-call-process (w3m-url-decode-string index) + (w3m-url-decode-string query) + whence)) + (let ((case-fold-search t)) + (goto-char (point-min)) + (let ((max (if (re-search-forward + "<!-- HIT -->\\([0-9]+\\)<!-- HIT -->" nil t) + (string-to-number (match-string 1)) + 0)) + (cur (string-to-number whence))) + (goto-char (point-min)) + (when (search-forward "<head>" nil t) + (when (> cur 0) + (insert + (format " +<link rel=\"prev\" href=\"about://namazu/?index=%s&query=%s&whence=%d\">" + index + query + (max (- cur w3m-namazu-page-max) 0)))) + (when (> max (+ cur w3m-namazu-page-max)) + (insert + (format " +<link rel=\"next\" href=\"about://namazu/?index=%s&query=%s&whence=%d\">" + index + query + (+ cur w3m-namazu-page-max)))))) + (goto-char (point-min)) + (while (search-forward "<a href=\"/" nil t) + (forward-char -1) + (insert "file://")) + (goto-char (point-min)) + (while (re-search-forward "<a href=\"\\(\\?\\)&\\(?:amp;\\)?whence=" + nil t) + (goto-char (match-beginning 1)) + (delete-char 1) + (insert (format "about://namazu/?index=%s&query=%s" index query)))) + "text/html")))) + +(defun w3m-namazu-complete-index (index predicate flag) + "Function to complete index name" + (if (eq flag 'lambda) + (and (or (and (assoc index w3m-namazu-index-alist) t) + (file-directory-p index)) + (or (not predicate) + (funcall predicate index))) + (let ((alist + (mapcar + 'list + (nconc + (all-completions index w3m-namazu-index-alist) + (let ((partial (file-name-nondirectory index)) + (dir (file-name-as-directory + (or (file-name-directory index) + default-directory)))) + (delq nil + (mapcar + (lambda (file) + (when (file-directory-p (expand-file-name file dir)) + (concat dir file))) + (file-name-all-completions partial dir)))))))) + (cond + ((not flag) (try-completion index alist predicate)) + ((eq flag t) (all-completions index alist predicate)))))) + +(defvar w3m-namazu-index-history nil) +(defvar w3m-namazu-query-history nil) + +;;;###autoload +(defun w3m-namazu (index query &optional reload) + "Search indexed files with Namazu." + (interactive + (list + (if (if w3m-namazu-default-index + current-prefix-arg + (not (and current-prefix-arg + w3m-namazu-index-history))) + (let* ((default (or (car w3m-namazu-index-history) + w3m-namazu-default-index)) + (s (completing-read + (if default + (format "Namazu index (default %s): " default) + "Namazu index: ") + 'w3m-namazu-complete-index nil t nil + 'w3m-namazu-index-history))) + (if (string= s "") default s)) + (or w3m-namazu-default-index + (car w3m-namazu-index-history))) + (w3m-search-read-query "Namazu query: " "Namazu query (default %s): " + 'w3m-namazu-query-history) + current-prefix-arg)) + (unless (stringp index) + (error "%s" "Index is required")) + (unless (stringp query) + (error "%s" "Query is required")) + (w3m-goto-url (format "about://namazu/?index=%s&query=%s&whence=0" + (w3m-url-encode-string index) + (w3m-url-encode-string query)) + reload)) + +(provide 'w3m-namazu) + +;;; w3m-namazu.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-perldoc.el b/share/emacs/site-lisp/w3m/w3m-perldoc.el new file mode 100644 index 00000000000..b97d0160cc2 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-perldoc.el @@ -0,0 +1,124 @@ +;;; w3m-perldoc.el --- The add-on program to view Perl documents. + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Author: TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, perldoc + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; w3m-perldoc.el is the add-on program of emacs-w3m to view Perl +;; documents. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + +;;; Code: +(require 'w3m) + +(defgroup w3m-perldoc nil + "Perldoc front-end for emacs-w3m." + :group 'w3m + :prefix "w3m-perldoc-") + +(defcustom w3m-perldoc-command "perldoc" + "*Name of the executable file of perldoc." + :group 'w3m-perldoc + :type '(string :size 0)) + +(defcustom w3m-perldoc-pod2html-command "pod2html" + "*Name of the executable file of pod2html." + :group 'w3m-perldoc + :type '(string :size 0)) + +(defcustom w3m-perldoc-pod2html-arguments + '("--noindex") + "*Arguments of pod2html." + :group 'w3m-perldoc + :type '(repeat (string :format "Argument: %v\n" :size 0)) + :get (lambda (symbol) + (delq nil (delete "" (mapcar (lambda (x) (if (stringp x) x)) + (default-value symbol))))) + :set (lambda (symbol value) + (custom-set-default + symbol + (delq nil (delete "" (mapcar (lambda (x) (if (stringp x) x)) + value)))))) + +(defcustom w3m-perldoc-input-coding-system + (if (string= "Japanese" w3m-language) + 'euc-japan + (if (w3m-find-coding-system 'utf-8) + 'utf-8 + 'iso-latin-1)) + "*Coding system used when writing to `w3m-perldoc-command'." + :group 'w3m-perldoc + :type '(coding-system :size 0)) + +(defcustom w3m-perldoc-output-coding-system + 'undecided + "*Coding system used when reading from `w3m-perldoc-command'." + :group 'w3m-perldoc + :type '(coding-system :size 0)) + +;;;###autoload +(defun w3m-about-perldoc (url &optional no-decode no-cache &rest args) + (when (string-match "\\`about://perldoc/" url) + (let ((docname (if (= (length url) (match-end 0)) + "perl" + (w3m-url-decode-string (substring url (match-end 0))))) + (default-directory w3m-profile-directory) + (process-environment (copy-sequence process-environment))) + ;; To specify the place in which pod2html generates its cache files. + (setenv "HOME" (expand-file-name w3m-profile-directory)) + (and (let ((coding-system-for-read w3m-perldoc-output-coding-system)) + (zerop (call-process w3m-perldoc-command + nil t nil "-u" docname))) + (let ((coding-system-for-write w3m-perldoc-input-coding-system) + (coding-system-for-read w3m-perldoc-input-coding-system)) + (zerop (apply (function call-process-region) + (point-min) (point-max) + w3m-perldoc-pod2html-command + t '(t nil) nil + (append w3m-perldoc-pod2html-arguments + '("--htmlroot=about://perldoc"))))) + (let ((case-fold-search t)) + (goto-char (point-min)) + (while (re-search-forward + "<a href=\"about://perldoc/\\([^\"]*\\)\\(\\.html\\)\">" nil t) + (delete-region (match-beginning 2) (match-end 2)) + (save-restriction + (narrow-to-region (match-beginning 1) (match-end 1)) + (while (search-backward "/" nil t) + (delete-char 1) + (insert "::")) + (goto-char (point-max)))) + "text/html"))))) + +;;;###autoload +(defun w3m-perldoc (docname) + "View Perl documents." + (interactive "sDocument: ") + (w3m-goto-url (concat "about://perldoc/" (w3m-url-encode-string docname)))) + +(provide 'w3m-perldoc) + +;;; w3m-perldoc.el ends here. diff --git a/share/emacs/site-lisp/w3m/w3m-proc.el b/share/emacs/site-lisp/w3m/w3m-proc.el new file mode 100644 index 00000000000..fe76a52ed50 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-proc.el @@ -0,0 +1,801 @@ +;;; w3m-proc.el --- Functions and macros to control sub-processes + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; Shun-ichi GOTO <gotoh@taiyo.co.jp>, +;; Satoru Takabayashi <satoru-t@is.aist-nara.ac.jp>, +;; Hideyuki SHIRAI <shirai@meadowy.org>, +;; Keisuke Nishida <kxn30@po.cwru.edu>, +;; Yuuichi Teranishi <teranisi@gohome.org>, +;; Akihiro Arisawa <ari@mbf.sphere.ne.jp>, +;; Katsumi Yamaoka <yamaoka@jpl.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This module is a part of emacs-w3m which provides functions and +;; macros to control sub-processes. Visit +;; <URL:http://emacs-w3m.namazu.org/> for more details of emacs-w3m. + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m-util) + +(eval-when-compile + ;; Variable(s) which are used in the following inline functions. + ;; They should be defined in the other module at run-time. + (defvar w3m-current-url) + (defvar w3m-current-buffer) + (defvar w3m-current-process) + (defvar w3m-profile-directory) + (defvar w3m-terminal-coding-system) + (defvar w3m-command) + (defvar w3m-command-arguments) + (defvar w3m-command-environment) + (defvar w3m-async-exec) + (defvar w3m-process-connection-type) + (defvar w3m-process-modeline-format) + (defvar w3m-work-buffer-list) + (autoload 'w3m-idle-images-show-unqueue "w3m")) + +;; Silence the Emacs' byte-compiler that says ``might not be defined''. +(eval-when-compile + (defun w3m-decode-coding-string-with-priority (str coding) + ())) + +(defvar w3m-process-inhibit-quit t + "`w3m-process-sentinel' binds `inhibit-quit' according to this variable.") +(defvar w3m-process-timeout 300 + "Number of seconds idle time waiting for processes to terminate.") +(defvar w3m-process-kill-surely (featurep 'meadow) + "If non-nil, kill the process surely.") + +(defconst w3m-process-max 5 "The maximum limit of the working processes.") +(defvar w3m-process-queue nil "Queue of processes.") + +(defvar w3m-process-exit-status nil "The last exit status of a process.") +(defvar w3m-process-authinfo-alist nil) +(defvar w3m-process-accept-alist nil) + +(defvar w3m-process-user nil) +(defvar w3m-process-passwd nil) +(defvar w3m-process-realm nil) +(defvar w3m-process-object nil) +(make-variable-buffer-local 'w3m-process-user) +(make-variable-buffer-local 'w3m-process-passwd) +(make-variable-buffer-local 'w3m-process-realm) +(make-variable-buffer-local 'w3m-process-object) + +(defvar w3m-process-modeline-string nil + "Modeline string to show status of retrieving process.") +(make-variable-buffer-local 'w3m-process-modeline-string) + +(defvar w3m-process-proxy-user nil "User name of the proxy server.") +(defvar w3m-process-proxy-passwd nil "Password of the proxy server.") +(defvar w3m-process-ssl-passphrase nil + "Passphrase for the client certificate.") + +(defmacro w3m-process-with-coding-system (&rest body) + "Set coding systems for `w3m-command', and evaluate BODY." + `(let ((coding-system-for-read 'binary) + (coding-system-for-write w3m-terminal-coding-system) + (default-process-coding-system + (cons 'binary w3m-terminal-coding-system)) + (process-connection-type w3m-process-connection-type)) + ,@body)) +(put 'w3m-process-with-coding-system 'lisp-indent-function 0) +(put 'w3m-process-with-coding-system 'edebug-form-spec '(body)) + +(defmacro w3m-process-with-environment (alist &rest body) + "Set the environment variables according to ALIST, and evaluate BODY." + `(let ((process-environment (copy-sequence process-environment)) + (temporary-file-directory + (if (file-directory-p w3m-profile-directory) + (file-name-as-directory w3m-profile-directory) + ,(if (featurep 'xemacs) + ;; Though `temporary-file-directory' exists even in XEmacs, + ;; that's only an imitation provided by APEL. + '(temp-directory) + 'temporary-file-directory))) + (default-directory + (cond ((file-directory-p w3m-profile-directory) + (file-name-as-directory w3m-profile-directory)) + ((file-directory-p (expand-file-name "~/")) + (expand-file-name "~/")) + (t temporary-file-directory)))) + ;; XEmacs obtains tmp-dir from the `temp-directory' function of which + ;; return value can only be modified by the following env vars. + ,@(if (featurep 'xemacs) + '((setenv "TEMP" temporary-file-directory) ;; Windoze + (setenv "TMPDIR" temporary-file-directory))) ;; Un|x + (dolist (pair ,alist) + (setenv (car pair) (cdr pair))) + ,@body)) +(put 'w3m-process-with-environment 'lisp-indent-function 1) +(put 'w3m-process-with-environment 'edebug-form-spec '(form body)) + +(defun w3m-process-p (object) + "Return t if OBJECT is a `w3m-process' object." + (and (consp object) + (vectorp (cdr object)) + (eq 'w3m-process-object (aref (cdr object) 0)))) + +(put 'w3m-process-new 'edebug-form-spec '(form form form &optional form form)) +(defmacro w3m-process-new (command arguments buffer &optional process handlers) + "Return a new `w3m-process' object." + `(cons (cons ,command ,arguments) + (vector 'w3m-process-object + ,buffer + ,process + ,handlers))) + +(defmacro w3m-process-command (object) + `(car (car ,object))) +(defmacro w3m-process-arguments (object) + `(cdr (car ,object))) +(defmacro w3m-process-buffer (object) + `(aref (cdr ,object) 1)) +(defmacro w3m-process-process (object) + `(aref (cdr ,object) 2)) +(defmacro w3m-process-handlers (object) + `(aref (cdr ,object) 3)) + +(put 'w3m-process-handler-new 'edebug-form-spec '(form form form)) +(defmacro w3m-process-handler-new (buffer parent-buffer functions) + `(vector ,buffer ,parent-buffer ,functions nil)) +(defmacro w3m-process-handler-buffer (handler) + `(aref ,handler 0)) +(defmacro w3m-process-handler-parent-buffer (handler) + `(aref ,handler 1)) +(defmacro w3m-process-handler-functions (handler) + `(aref ,handler 2)) +(defmacro w3m-process-handler-result (handler) + `(aref ,handler 3)) + +(defun w3m-process-push (handler command arguments) + "Generate a new `w3m-process' object which is provided by HANDLER, +ARGUMENTS and this buffer, regist it to `w3m-process-queue', and +return it." + (let ((x (assoc (cons command arguments) w3m-process-queue))) + (unless x + (setq x (w3m-process-new command arguments (current-buffer))) + (push x w3m-process-queue)) + (push (w3m-process-handler-new (current-buffer) w3m-current-buffer handler) + (w3m-process-handlers x)) + (with-current-buffer (w3m-process-buffer x) + (setq w3m-process-object x)))) + +(defun w3m-process-kill-process (process) + "Kill process PROCESS safely." + (when (processp process) + (set-process-filter process 'ignore) + (set-process-sentinel process 'ignore) + (when (memq (process-status process) '(run stop)) + (kill-process process) + (when w3m-process-kill-surely + (while (memq (process-status process) '(run stop)) + (sit-for 0.1)))))) + +(defun w3m-process-start-process (object &optional no-sentinel) + "Start a process specified by the OBJECT, return always nil. +When NO-SENTINEL is not equal to nil, all status changes of the +generated asynchronous process is ignored. Otherwise, +`w3m-process-sentinel' is given to the process as the sentinel." + (if (w3m-process-process object) + (when no-sentinel + (set-process-sentinel (w3m-process-process object) 'ignore)) + (with-current-buffer (w3m-process-buffer object) + (w3m-process-with-coding-system + (w3m-process-with-environment w3m-command-environment + (let* ((command (w3m-process-command object)) + (proc (apply 'start-process command + (current-buffer) command + (w3m-process-arguments object))) + (authinfo (when w3m-current-url + (w3m-url-authinfo w3m-current-url))) + (set-process-query-on-exit-flag + (if (fboundp 'set-process-query-on-exit-flag) + 'set-process-query-on-exit-flag + 'process-kill-without-query))) + (setq w3m-process-user (car authinfo) + w3m-process-passwd (cdr authinfo) + w3m-process-realm nil) + (setf (w3m-process-process object) proc) + (set-process-filter proc 'w3m-process-filter) + (set-process-sentinel proc (if no-sentinel + 'ignore + 'w3m-process-sentinel)) + (funcall set-process-query-on-exit-flag proc nil)))))) + nil) ;; The return value of `w3m-process-start-process'. + +(defun w3m-process-kill-stray-processes () + "Kill stray processes." + (dolist (obj w3m-process-queue) + (unless (buffer-name (w3m-process-buffer obj)) + (setq w3m-process-queue (delq obj w3m-process-queue)) + (when (w3m-process-process obj) + (w3m-process-kill-process (w3m-process-process obj)))))) + +(defun w3m-process-start-queued-processes () + "Start a process which is registerd in `w3m-process-queue' if the +number of current working processes is less than `w3m-process-max'." + (w3m-process-kill-stray-processes) + (let ((num 0)) + (catch 'last + (dolist (obj (reverse w3m-process-queue)) + (when (buffer-name (w3m-process-buffer obj)) + (if (> (incf num) w3m-process-max) + (throw 'last nil) + (w3m-process-start-process obj))))))) + +(defun w3m-process-stop (buffer) + "Remove handlers related to the buffer BUFFER, and stop processes +which have no handler." + (interactive (list (current-buffer))) + (w3m-cancel-refresh-timer buffer) + (setq w3m-process-queue + (delq nil + (mapcar + (lambda (obj) + (let ((handlers + ;; List up handlers related to other buffer + ;; than the buffer BUFFER. + (delq nil + (mapcar + (lambda (handler) + (unless (eq buffer + (w3m-process-handler-parent-buffer + handler)) + handler)) + (w3m-process-handlers obj))))) + (if handlers + (w3m-process-new + (w3m-process-command obj) + (w3m-process-arguments obj) + (w3m-process-buffer obj) + (w3m-process-process obj) + (if (memq (w3m-process-buffer obj) + (mapcar (lambda (x) + (w3m-process-handler-buffer x)) + handlers)) + handlers + (cons + ;; Dummy handler to remove buffer. + (w3m-process-handler-new + (w3m-process-buffer obj) + (w3m-process-handler-parent-buffer (car handlers)) + (lambda (x) (w3m-kill-buffer (current-buffer)))) + handlers))) + (when (w3m-process-process obj) + (w3m-process-kill-process (w3m-process-process obj))) + (dolist (handler (w3m-process-handlers obj)) + (w3m-kill-buffer (w3m-process-handler-buffer handler))) + nil))) + w3m-process-queue))) + (when (buffer-name buffer) + (with-current-buffer buffer + (setq w3m-current-process nil))) + (w3m-process-start-queued-processes) + (w3m-force-window-update-later buffer)) + +(defun w3m-process-shutdown () + (let ((list w3m-process-queue)) + (setq w3m-process-queue nil + w3m-process-authinfo-alist nil + w3m-process-accept-alist nil) + (dolist (obj list) + (when (buffer-name (w3m-process-buffer obj)) + (when (w3m-process-process obj) + (w3m-process-kill-process (w3m-process-process obj)))) + (w3m-kill-buffer (w3m-process-buffer obj))))) + +(defmacro w3m-process-with-null-handler (&rest body) + "Generate the null handler, and evaluate BODY. +When BODY is evaluated, the local variable `handler' keeps the null +handler." + (let ((var (gensym "--tempvar--"))) + `(let ((,var (let (handler) ,@body))) + (when (w3m-process-p ,var) + (w3m-process-start-process ,var)) + ,var))) +(put 'w3m-process-with-null-handler 'lisp-indent-function 0) +(put 'w3m-process-with-null-handler 'edebug-form-spec '(body)) + +;; Error symbol: +(put 'w3m-process-timeout 'error-conditions '(error w3m-process-timeout)) +(put 'w3m-process-timeout 'error-message "Time out") + +(defun w3m-process-error-handler (error-data process) + (setq w3m-process-queue (delq process w3m-process-queue)) + (w3m-process-kill-process (w3m-process-process process)) + (signal (car error-data) (cdr error-data))) + +(defvar w3m-process-waited nil + "Non-nil means that `w3m-process-with-wait-handler' is being evaluated.") + +(defun w3m-process-wait-process (process seconds) + "Wait for SECONDS seconds or until PROCESS will exit. +Returns the exit status of the PROCESS when it exit normally, +otherwise returns nil." + (catch 'timeout + (let ((start (current-time))) + (while (or (and (prog2 + (discard-input) + (not (save-current-buffer (sit-for 0.1))) + (discard-input)) + ;; Some input is detected but it may be a key + ;; press event which should be ignored when the + ;; process is not running. + (memq (process-status process) '(open run))) + (memq (process-status process) '(open run stop))) + (and seconds + (< seconds (w3m-time-lapse-seconds start (current-time))) + (throw 'timeout nil))) + (process-exit-status process)))) + +(defmacro w3m-process-with-wait-handler (&rest body) + "Generate the waiting handler, and evaluate BODY. +When BODY is evaluated, the local variable `handler' keeps the handler +which will wait for the end of the evaluation." + (let ((result (gensym "--result--")) + (wait-function (gensym "--wait-function--"))) + `(let ((w3m-process-waited t) + (,result) + (,wait-function (make-symbol "wait-function"))) + (fset ,wait-function 'identity) + (setq ,result (let ((handler (list ,wait-function))) ,@body)) + (while (w3m-process-p ,result) + (condition-case error + (let (w3m-process-inhibit-quit inhibit-quit) + ;; No sentinel function is registered and the process + ;; sentinel function is called from this macro, in + ;; order to avoid the dead-locking which occurs when + ;; this macro is called in the environment that + ;; `w3m-process-sentinel' is evaluated. + (w3m-process-start-process ,result t) + (unless (w3m-process-wait-process (w3m-process-process ,result) + w3m-process-timeout) + (w3m-process-error-handler (cons 'w3m-process-timeout nil) + ,result))) + (quit (w3m-process-error-handler error ,result))) + (w3m-process-sentinel (w3m-process-process ,result) "finished\n" t) + (setq ,result + (catch 'result + (dolist (handler (w3m-process-handlers ,result)) + (when (memq ,wait-function + (w3m-process-handler-functions handler)) + (throw 'result (w3m-process-handler-result handler)))) + (w3m-process-error-handler (cons 'error + "Can't find wait handler") + ,result)))) + ,result))) +(put 'w3m-process-with-wait-handler 'lisp-indent-function 0) +(put 'w3m-process-with-wait-handler 'edebug-form-spec '(body)) + +;;; Explanation of w3m-process-do in Japanese: +;; +;; w3m-process-do $B$O!"HsF14|=hM}$r4JC1$K=q$/$?$a$N%^%/%m$G$"$k!#Nc$($P!"(B +;; +;; (w3m-process-do +;; (var (async-form...)) +;; post-body...) +;; +;; $B$H$$$&$h$&$K=q$/$H!"0J2<$N=g=x$G=hM}$,9T$o$l$k!#(B +;; +;; (1) async-form $B$rI>2A(B +;; --> async-form $BFb$GHsF14|%W%m%;%9$,@8@.$5$l$?>l9g$O!"$=$NHsF1(B +;; $B4|%W%m%;%9=*N;8e$K(B post-body $B$,I>2A$5$l$k$h$&$K!"%O%s%I%i(B +;; $B$KDI2C(B +;; --> $BHsF14|%W%m%;%9$,@8@.$5$l$J$+$C$?>l9g$O!"C1$K<!$N%9%F%C%W(B +;; $B$K?J$`(B(= post-body $B$rI>2A$9$k(B)$B!#(B +;; (2) post-body $B$rI>2A(B +;; +;; $B$J$*!"(Basync-form / post-body $B$,I>2A$5$l$k;~!"$=$NFbIt$GHsF14|%W%m%;(B +;; $B%9$,@8@.$5$l$?>l9g$K!"$=$NJV$jCM$r=hM}$9$k$?$a$N%O%s%I%i$,!"JQ?t(B +;; handler $B$K@_Dj$5$l$F$$$k!#HsF14|$J=hM}$r9T$&4X?t$r8F$S=P$9>l9g$K$O!"(B +;; $B$=$N4X?t$N0z?t$H$7$FI,$:(B handler $B$rEO$5$J$1$l$P$J$i$J$$!#(B +;; +;; $B$^$?!"(Bw3m-process-do $B$O!"8=:_$N%O%s%I%i$NFbMF$rD4$Y$k$?$a!"$=$N%^%/(B +;; $B%m$,8F$S=P$5$l$F$$$k4D6-$NJQ?t(B handler $B$r;2>H$9$k!#Nc$($P!"(B +;; +;; (let (handler) (w3m-process-do ...)) +;; +;; $B$HJQ?t(B handler $B$r(B nil $B$KB+G{$7$F$*$/$H!"!V8=;~E@$N%O%s%I%i$O6u$G$"(B +;; $B$k(B = $BHsF14|%W%m%;%9<B9T8e$KI,MW$J=hM}$OB8:_$7$J$$!W$H$$$&0UL#$K$J$j!"(B +;; w3m-process-do() $B$O!"HsF14|%W%m%;%9$,@8@.$5$l$?>l9g$K$OC1$K(B nil $B$r(B +;; $BJV$7!"$=$l0J30$N>l9g$O(B post-body $B$NCM$rJV$9!#(B +;; +(defmacro w3m-process-do (spec &rest body) + "(w3m-process-do (VAR FORM) BODY...): Eval the body BODY asynchronously. +If an asynchronous process is generated in the evaluation of the form +FORM, this macro returns its object immdiately, and the body BODY will +be evaluated after the end of the process with the variable VAR which +is set to the result of the form FORM. Otherwise, the body BODY is +evaluated at the same time, and this macro returns the result of the +body BODY." + (let ((var (or (car spec) (gensym "--tempvar--"))) + (form (cdr spec)) + (post-function (gensym "--post-function--"))) + `(let ((,post-function (lambda (,var) ,@body))) + (let ((,var (let ((handler (cons ,post-function handler))) + ,@form))) + (if (w3m-process-p ,var) + (if handler + ,var + (w3m-process-start-process ,var)) + (if (w3m-process-p (setq ,var (funcall ,post-function ,var))) + (if handler + ,var + (w3m-process-start-process ,var)) + ,var)))))) +(put 'w3m-process-do 'lisp-indent-function 1) +(put 'w3m-process-do 'edebug-form-spec '((symbolp form) def-body)) + +(defmacro w3m-process-do-with-temp-buffer (spec &rest body) + "(w3m-process-do-with-temp-buffer (VAR FORM) BODY...): +Like `w3m-process-do', but the form FORM and the body BODY are +evaluated in a temporary buffer." + (let ((var (or (car spec) (gensym "--tempvar--"))) + (form (cdr spec)) + (post-body (gensym "--post-body--")) + (post-handler (gensym "--post-handler--")) + (temp-buffer (gensym "--temp-buffer--")) + (current-buffer (gensym "--current-buffer--"))) + `(lexical-let ((,temp-buffer + (w3m-get-buffer-create + (generate-new-buffer-name w3m-work-buffer-name))) + (,current-buffer (current-buffer))) + (labels ((,post-body (,var) + (when (buffer-name ,temp-buffer) + (set-buffer ,temp-buffer)) + ,@body) + (,post-handler (,var) + (w3m-kill-buffer ,temp-buffer) + (when (buffer-name ,current-buffer) + (set-buffer ,current-buffer)) + ,var)) + (let ((,var (let ((handler + (cons ',post-body (cons ',post-handler handler)))) + (with-current-buffer ,temp-buffer ,@form)))) + (if (w3m-process-p ,var) + (if handler + ,var + (w3m-process-start-process ,var)) + (if (w3m-process-p + (setq ,var (save-current-buffer + (let ((handler (cons ',post-handler handler))) + (,post-body ,var))))) + (if handler + ,var + (w3m-process-start-process ,var)) + (,post-handler ,var)))))))) +(put 'w3m-process-do-with-temp-buffer 'lisp-indent-function 1) +(put 'w3m-process-do-with-temp-buffer 'edebug-form-spec + '((symbolp form) def-body)) + + +(defun w3m-process-start (handler command arguments) + "Run COMMAND with ARGUMENTS, and eval HANDLER asynchronously." + (if w3m-async-exec + (w3m-process-do + (exit-status (w3m-process-push handler command arguments)) + (w3m-process-start-after exit-status)) + (w3m-process-start-after + (w3m-process-with-coding-system + (w3m-process-with-environment w3m-command-environment + (apply 'call-process command nil t nil arguments)))))) + +(defun w3m-process-start-after (exit-status) + (when w3m-current-buffer + (with-current-buffer w3m-current-buffer + (setq w3m-process-modeline-string nil))) + (cond + ((numberp exit-status) + (zerop (setq w3m-process-exit-status exit-status))) + ((not exit-status) + (setq w3m-process-exit-status nil)) + (t + (setq w3m-process-exit-status + (string-as-multibyte (format "%s" exit-status))) + nil))) + +(defvar w3m-process-background nil + "Non-nil means that an after handler is being evaluated.") + +(defun w3m-process-sentinel (process event &optional ignore-queue) + ;; Ensure that this function will be never called repeatedly. + (set-process-sentinel process 'ignore) + (let ((inhibit-quit w3m-process-inhibit-quit) + (w3m-process-background t)) + (unwind-protect + (if (buffer-name (process-buffer process)) + (with-current-buffer (process-buffer process) + (w3m-static-unless (featurep 'xemacs) + (accept-process-output process 1)) + (setq w3m-process-queue + (delq w3m-process-object w3m-process-queue)) + (let ((exit-status (process-exit-status process)) + (buffer (current-buffer)) + (realm w3m-process-realm) + (user w3m-process-user) + (passwd w3m-process-passwd) + (obj w3m-process-object)) + (setq w3m-process-object nil) + (dolist (x (w3m-process-handlers obj)) + (when (and + (buffer-name (w3m-process-handler-buffer x)) + (buffer-name (w3m-process-handler-parent-buffer x))) + (set-buffer (w3m-process-handler-buffer x)) + (unless (eq buffer (current-buffer)) + (insert-buffer-substring buffer)))) + (dolist (x (w3m-process-handlers obj)) + (when (and + (buffer-name (w3m-process-handler-buffer x)) + (buffer-name (w3m-process-handler-parent-buffer x))) + (set-buffer (w3m-process-handler-buffer x)) + (let ((w3m-process-exit-status) + (w3m-current-buffer + (w3m-process-handler-parent-buffer x)) + (handler + (w3m-process-handler-functions x)) + (exit-status exit-status)) + (when realm + (w3m-process-set-authinfo w3m-current-url + realm user passwd)) + (while (and handler + (not (w3m-process-p + (setq exit-status + (funcall (pop handler) + exit-status)))))) + (setf (w3m-process-handler-result x) exit-status)))))) + ;; Something wrong has been occured. + (catch 'last + (dolist (obj w3m-process-queue) + (when (eq process (w3m-process-process obj)) + (setq w3m-process-queue (delq obj w3m-process-queue)) + (throw 'last nil))))) + (delete-process process) + (unless ignore-queue + (w3m-process-start-queued-processes))))) + +(defun w3m-process-filter (process string) + (when (buffer-name (process-buffer process)) + (with-current-buffer (process-buffer process) + (let ((buffer-read-only nil) + (case-fold-search nil)) + (goto-char (process-mark process)) + (insert string) + (set-marker (process-mark process) (point)) + (unless (string= "" string) + (goto-char (point-min)) + (cond + ((and (looking-at + "\\(?:Accept [^\n]+\n\\)*\\([^\n]+: accept\\? \\)(y/n)") + (= (match-end 0) (point-max))) + ;; SSL certificate + (message "") + (let ((yn (w3m-process-y-or-n-p w3m-current-url (match-string 1)))) + (ignore-errors + (process-send-string process (if yn "y\n" "n\n")) + (delete-region (point-min) (point-max))))) + ((and (looking-at "\n?Accept unsecure SSL session:.*\n") + (= (match-end 0) (point-max))) + (delete-region (point-min) (point-max))) + ((and (looking-at "\\(\n?Wrong username or password\n\\)?\ +Proxy Username for \\(?:.*\\): Proxy Password: ") + (= (match-end 0) (point-max))) + (when (or (match-beginning 1) + (not (stringp w3m-process-proxy-passwd))) + (setq w3m-process-proxy-passwd + (read-passwd "Proxy Password: "))) + (ignore-errors + (process-send-string process + (concat w3m-process-proxy-passwd "\n")) + (delete-region (point-min) (point-max)))) + ((and (looking-at "\\(\n?Wrong username or password\n\\)?\ +Proxy Username for \\(.*\\): ") + (= (match-end 0) (point-max))) + (when (or (match-beginning 1) + (not (stringp w3m-process-proxy-user))) + (setq w3m-process-proxy-user + (read-from-minibuffer (concat + "Proxy Username for " + (match-string 2) ": ")))) + (ignore-errors + (process-send-string process + (concat w3m-process-proxy-user "\n")))) + ((and (looking-at "\\(\n?Wrong username or password\n\\)?\ +Username for [^\n]*\n?: Password: ") + (= (match-end 0) (point-max))) + (when (or (match-beginning 1) + (not (stringp w3m-process-passwd))) + (setq w3m-process-passwd + (w3m-process-read-passwd w3m-current-url + w3m-process-realm + w3m-process-user + (match-beginning 1)))) + (ignore-errors + (process-send-string process + (concat w3m-process-passwd "\n")) + (delete-region (point-min) (point-max)))) + ((and (looking-at "\\(\n?Wrong username or password\n\\)?\ +Username for \\(.*\\)\n?: ") + (= (match-end 0) (point-max))) + (setq w3m-process-realm (w3m-decode-coding-string-with-priority + (match-string 2) nil)) + (when (or (match-beginning 1) + (not (stringp w3m-process-user))) + (setq w3m-process-user + (w3m-process-read-user w3m-current-url + w3m-process-realm + (match-beginning 1)))) + (ignore-errors + (process-send-string process + (concat w3m-process-user "\n")))) + ((and (looking-at "Enter PEM pass phrase:") + (= (match-end 0) (point-max))) + (unless (stringp w3m-process-ssl-passphrase) + (setq w3m-process-ssl-passphrase + (read-passwd "PEM pass phrase: "))) + (ignore-errors + (process-send-string process + (concat w3m-process-ssl-passphrase "\n")) + (delete-region (point-min) (point-max)))) + ((progn + (or (search-forward "\nW3m-current-url:" nil t) + (goto-char (process-mark process))) + (re-search-backward + "^W3m-\\(?:in-\\)?progress: \\([.0-9]+/[.0-9]+[a-zA-Z]?b\\)$" + nil t)) + (let ((str (w3m-process-modeline-format (match-string 1))) + (buf)) + (save-current-buffer + (dolist (handler (w3m-process-handlers w3m-process-object)) + (when (setq buf (w3m-process-handler-parent-buffer handler)) + (if (buffer-name buf) + (progn + (set-buffer buf) + (setq w3m-process-modeline-string str)) + (w3m-process-kill-stray-processes))))))))))))) + +(defun w3m-process-modeline-format (str) + (ignore-errors + (cond + ((stringp w3m-process-modeline-format) + (format w3m-process-modeline-format + (if (string-match "/0\\([a-zA-Z]?b\\)\\'" str) + (replace-match "\\1" t nil str) + str))) + ((functionp w3m-process-modeline-format) + (funcall w3m-process-modeline-format str))))) + +;; w3m-process-authinfo-alist has an association list as below format. +;; (("root1" ("realm11" ("user11" . "pass11") +;; ("user12" . "pass12")) +;; ("realm12" ("user13" . "pass13"))) +;; ("root2" ("realm21" ("user21" . "pass21")))) +(defun w3m-process-set-authinfo (url realm username password) + (let (x y z (root (w3m-get-server-hostname url))) + (if (setq x (assoc root w3m-process-authinfo-alist)) + (if (setq y (assoc realm x)) + (if (setq z (assoc username y)) + ;; Change a password only. + (setcdr z password) + ;; Add a pair of a username and a password. + (setcdr y (cons (cons username password) (cdr y)))) + ;; Add a 3-tuple of a realm, a username and a password. + (setcdr x (cons (cons realm (list (cons username password))) + (cdr x)))) + ;; Add a 4-tuple of a server root, a realm, a username and a password. + (push (cons root (list (cons realm (list (cons username password))))) + w3m-process-authinfo-alist)))) + +(defun w3m-process-read-user (url &optional realm ignore-history) + "Read a user name for URL and REALM." + (let* ((root (when (stringp url) (w3m-get-server-hostname url))) + (ident (or realm root)) + (alist)) + (if (and (not ignore-history) + (setq alist + (cdr (assoc realm + (cdr (assoc root + w3m-process-authinfo-alist)))))) + (if (= 1 (length alist)) + (caar alist) + (completing-read (if ident + (format "Select username for %s: " ident) + "Select username: ") + (mapcar (lambda (x) (cons (car x) (car x))) alist) + nil t)) + (read-from-minibuffer (if ident + (format "Username for %s: " ident) + "Username: "))))) + +(defun w3m-process-read-passwd (url &optional realm username ignore-history) + "Read a password for URL, REALM, and USERNAME." + (let* ((root (when (stringp url) (w3m-get-server-hostname url))) + (ident (or realm root)) + (pass (cdr (assoc username + (cdr (assoc realm + (cdr (assoc root + w3m-process-authinfo-alist)))))))) + (if (and pass (not ignore-history)) + pass + (read-passwd (format (if ident + (format "Password for %s%%s: " ident) + "Password%s: ") + (if (and (stringp pass) + (> (length pass) 0) + (not (featurep 'xemacs))) + (concat " (default " + (make-string (length pass) ?\*) + ")") + "")) + nil pass)))) + +(defun w3m-process-y-or-n-p (url prompt) + "Ask user a \"y or n\" question. Return t if answer is \"y\". +NOTE: This function is designed to avoid annoying questions. So when +the same questions is reasked, its previous answer is reused without +prompt." + (let ((root (w3m-get-server-hostname url)) + (map (copy-keymap query-replace-map)) + elem answer) + ;; ignore [space] to avoid answering y without intention. + (define-key map " " 'ignore) + (let ((query-replace-map map)) + (if (setq elem (assoc root w3m-process-accept-alist)) + (if (member prompt (cdr elem)) + ;; When the same question has been asked, the previous + ;; answer is reused. + (setq answer t) + ;; When any question for the same server has been asked, + ;; regist the pair of this question and its answer to + ;; `w3m-process-accept-alist'. + (when (setq answer (y-or-n-p prompt)) + (setcdr elem (cons prompt (cdr elem))))) + ;; When no question for the same server has been asked, regist + ;; the 3-tuple of the server, the question and its answer to + ;; `w3m-process-accept-alist'. + (when (setq answer (y-or-n-p prompt)) + (push (cons root (list prompt)) w3m-process-accept-alist))) + answer))) + +;; Silence the byte compiler complaining against `gensym' like: +;; "Warning: the function `gensym' might not be defined at runtime." +(eval-when-compile + (and (boundp 'byte-compile-unresolved-functions) + (fboundp 'gensym) + (symbol-file 'gensym) + (string-match "/cl-macs\\.el[^/]*\\'" (symbol-file 'gensym)) + (condition-case nil + (setq byte-compile-unresolved-functions + (delq (assq 'gensym byte-compile-unresolved-functions) + byte-compile-unresolved-functions)) + (error)))) + +(provide 'w3m-proc) + +;;; w3m-proc.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-rss.el b/share/emacs/site-lisp/w3m/w3m-rss.el new file mode 100644 index 00000000000..7bac9d4b47d --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-rss.el @@ -0,0 +1,169 @@ +;;; w3m-rss.el --- RSS functions + +;; Copyright (C) 2004, 2005 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; w3m-rss.el provides RSS-related functions for emacs-w3m. For more +;; detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + + +;;; Acknowledgment: + +;; I refered functions in `sb-rss.el' to implement this module. +;; Thanks to Koichiro Ohba and NAKAJIMA Mikio. + + +;;; Code: + +(eval-when-compile (require 'cl)) +(autoload 'xml-parse-region "xml") + +(eval-and-compile + (autoload 'timezone-parse-date "timezone") + (autoload 'timezone-parse-time "timezone")) + +(eval-when-compile + ;; Avoid warning for Emacs 19 and XEmacs. + (unless (fboundp 'match-string-no-properties) + (autoload 'match-string-no-properties "poe")) + ;; Avoid warning for Emacs 19. + (unless (fboundp 'split-string) + (autoload 'split-string "poe"))) + +(defun w3m-rss-parse-date-string (date) + "Decode DATE string written in the ISO 8601 format or the RFC822 style. +Return a list of numbers which conforms to the Emacs internal format. +Valid types in the ISO 8601 format include: + + Year: + YYYY (eg 1997) + Year and month: + YYYY-MM (eg 1997-07) + Complete date: + YYYY-MM-DD (eg 1997-07-16) + Complete date plus hours and minutes: + YYYY-MM-DDThh:mmTZD (eg 1997-07-16T19:20+01:00) + Complete date plus hours, minutes and seconds: + YYYY-MM-DDThh:mm:ssTZD (eg 1997-07-16T19:20:30+01:00) + Complete date plus hours, minutes, seconds and a decimal fraction + of a second + YYYY-MM-DDThh:mm:ss.sTZD (eg 1997-07-16T19:20:30.45+01:00) + +where: + YYYY = four-digit year + MM = two-digit month (01=January, etc.) + DD = two-digit day of month (01 through 31) + hh = two digits of hour (00 through 23) (am/pm NOT allowed) + mm = two digits of minute (00 through 59) + ss = two digits of second (00 through 59) + s = one or more digits representing a decimal fraction of a second + TZD = time zone designator (Z or +hh:mm or -hh:mm) + +For more detail about ISO 8601 date format, see +<URL:http://www.w3.org/TR/NOTE-datetime>. + +In addition to the above, it also supports the date format in the +RFC822 style which RSS 2.0 allows. Valid types are the same as ones +which are supported by the `timezone-parse-date' function (which see)." + (cond ((not date) nil) + ((string-match " [0-9]+ " date) + (let* ((vector (timezone-parse-date date)) + (year (string-to-number (aref vector 0))) + time) + (when (>= year 1970) + (setq time (timezone-parse-time (aref vector 3))) + (encode-time + (string-to-number (aref time 2)) + (string-to-number (aref time 1)) + (string-to-number (aref time 0)) + (string-to-number (aref vector 2)) + (string-to-number (aref vector 1)) + year + (aref vector 4))))) + ((string-match "\ +\\([0-9][0-9][0-9][0-9]\\)\\(?:-\\([0-9][0-9]\\)\\)?\\(?:-\\([0-9][0-9]\\)\\)?\ +T?\\(?:\\([0-9][0-9]\\):\\([0-9][0-9]\\)\\(?::\\([.0-9]+\\)\\)?\\)?\ +\\(?:\\([-+]\\)\\([0-9][0-9]\\):?\\([0-9][0-9]\\)\\|Z\\)?" + date) + (labels ((substr (n default) + (if (match-beginning n) + (string-to-number + (match-string-no-properties n date)) + default))) + (encode-time + (substr 6 0) ;; seconds + (substr 5 0) ;; minitue + (substr 4 0) ;; hour + (substr 3 1) ;; day + (substr 2 1) ;; month + (substr 1 0) ;; year + (if (match-beginning 7) + (funcall (intern (match-string-no-properties 7 date)) + 0 + (* 3600 (substr 8 0)) + (* 60 (substr 9 0))) + 0)))))) + +(defun w3m-rss-find-el (tag data) + "Find the all matching elements in the data. Careful with this on +large documents!" + (let (found) + (when (listp data) + (dolist (bit data) + (when (car-safe bit) + (when (equal tag (car bit)) + (setq found (nconc found (list bit)))) + (setq found + (nconc found + (w3m-rss-find-el + tag + (if (and (listp (car-safe (caddr bit))) + (not (stringp (caddr bit)))) + (caddr bit) + (cddr bit)))))))) + found)) + +(defun w3m-rss-get-namespace-prefix (el uri) + "Given EL (containing a parsed element) and URI (containing a string +that gives the URI for which you want to retrieve the namespace +prefix), return the prefix. +See http://feeds.archive.org/validator/docs/howto/declare_namespaces.html +for more RSS namespaces." + (let* ((prefix (car (rassoc uri (cadar el)))) + (nslist (when prefix + (split-string (symbol-name prefix) ":"))) + (ns (cond ((eq (length nslist) 1) ; no prefix given + "") + ((eq (length nslist) 2) ; extract prefix + (cadr nslist))))) + (if (and ns (not (equal ns ""))) + (concat ns ":") + ns))) + +(provide 'w3m-rss) + +;;; w3m-rss.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-search.el b/share/emacs/site-lisp/w3m/w3m-search.el new file mode 100644 index 00000000000..bf4fa21dd6f --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-search.el @@ -0,0 +1,365 @@ +;;; w3m-search.el --- functions convenient to access web search engines + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: Keisuke Nishida <kxn30@po.cwru.edu>, +;; Shun-ichi GOTO <gotoh@taiyo.co.jp>, +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; Romain FRANCOISE <romain@orebokech.com> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This module contains the `w3m-search' command and some utilities +;; to improve your cyberlife. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m) + +(defcustom w3m-search-engine-alist + (let* ((ja (equal "Japanese" w3m-language)) + (utf-8 (or (and (boundp 'mule-version) + (not (string< (symbol-value 'mule-version) "6.0"))) + (featurep 'un-define) + (fboundp 'utf-translate-cjk-mode) + (and (not ja) (w3m-find-coding-system 'utf-8))))) + `(,@(if ja + '(("yahoo" + "http://search.yahoo.co.jp/bin/search?p=%s" + euc-japan) + ("yahoo-en" + "http://search.yahoo.com/bin/search?p=%s")) + '(("yahoo" + "http://search.yahoo.com/bin/search?p=%s") + ("yahoo-ja" + "http://search.yahoo.co.jp/bin/search?p=%s" + euc-japan))) + ("alc" "http://eow.alc.co.jp/%s/UTF-8/" utf-8) + ,@(cond + ((and ja utf-8) + '(("blog" + "http://blogsearch.google.com/blogsearch?q=%s&hl=ja&lr=lang_ja&oe=utf-8&ie=utf-8" + utf-8) + ("blog-en" + "http://blogsearch.google.com/blogsearch?q=%s&hl=en&oe=utf-8&ie=utf-8" + utf-8))) + (ja + '(("blog" + "http://blogsearch.google.com/blogsearch?q=%s&hl=ja&lr=lang_ja&ie=Shift_JIS&oe=Shift_JIS" + shift_jis) + ("blog-en" + "http://blogsearch.google.com/blogsearch?q=%s&hl=en"))) + (utf-8 + '(("blog" + "http://blogsearch.google.com/blogsearch?q=%s&oe=utf-8&ie=utf-8" + utf-8) + ("blog-en" + "http://blogsearch.google.com/blogsearch?q=%s&hl=en&oe=utf-8&ie=utf-8" + utf-8))) + (t + '(("blog" + "http://blogsearch.google.com/blogsearch?q=%s") + ("blog-ja" + "http://blogsearch.google.com/blogsearch?q=%s&lr=lang_ja&ie=Shift_JIS&oe=Shift_JIS" + shift_jis)))) + ,@(cond + ((and ja utf-8) + '(("google" + "http://www.google.com/search?q=%s&hl=ja&lr=lang_ja&ie=utf-8&oe=utf-8" + utf-8) + ("google-en" + "http://www.google.com/search?q=%s&hl=en&ie=utf-8&oe=utf-8" + utf-8))) + (ja + '(("google" + "http://www.google.com/search?q=%s&hl=ja&lr=lang_ja&ie=Shift_JIS&oe=Shift_JIS" + shift_jis) + ("google-en" + "http://www.google.com/search?q=%s&hl=en"))) + (utf-8 + '(("google" + "http://www.google.com/search?q=%s&ie=utf-8&oe=utf-8" + utf-8) + ("google-en" + "http://www.google.com/search?q=%s&hl=en&ie=utf-8&oe=utf-8" + utf-8))) + (t + '(("google" + "http://www.google.com/search?q=%s") + ("google-ja" + "http://www.google.com/search?q=%s&hl=ja&lr=lang_ja&ie=Shift_JIS&oe=Shift_JIS" + shift_jis)))) + ,@(cond + ((and ja utf-8) + '(("google news" + "http://news.google.co.jp/news?hl=ja&ie=utf-8&q=%s&oe=utf-8" + utf-8) + ("google news-en" + "http://news.google.com/news?hl=en&q=%s"))) + (ja + '(("google news" + "http://news.google.co.jp/news?hl=ja&ie=Shift_JIS&q=%s&oe=Shift_JIS" + shift_jis) + ("google news-en" + "http://news.google.com/news?hl=en&q=%s"))) + (utf-8 + '(("google news" + "http://news.google.co.jp/news?hl=ja&ie=utf-8&q=%s&oe=utf-8" + utf-8) + ("google news-en" + "http://news.google.com/news?hl=en&q=%s"))) + (t + '(("google news" + "http://news.google.com/news?q=%s") + ("google news-ja" + "http://news.google.co.jp/news?hl=ja&ie=Shift_JIS&q=%s&oe=Shift_JIS" + shift_jis)))) + ("google groups" + "http://groups.google.com/groups?q=%s") + ,@(if ja + '(("All the Web" + "http://www.alltheweb.com/search?web&_sb_lang=ja&cs=euc-jp\ +&q=%s" + euc-japan) + ("All the Web-en" + "http://www.alltheweb.com/search?web&_sb_lang=en&q=%s")) + '(("All the Web" + "http://www.alltheweb.com/search?web&_sb_lang=en&q=%s") + ("All the Web-ja" + "http://www.alltheweb.com/search?web&_sb_lang=ja&cs=euc-jp&q=%s" + euc-japan))) + ,@(if ja + '(("technorati" + "http://www.technorati.jp/search/search.html?query=%s&language=ja" + utf-8) + ("technorati-en" + "http://www.technorati.com/search/%s" + utf-8)) + '(("technorati" + "http://www.technorati.com/search/%s" + utf-8) + ("technorati-ja" + "http://www.technorati.jp/search/search.html?query=%s&language=ja" + utf-8))) + ("technorati-tag" + "http://www.technorati.com/tag/%s" + utf-8) + ("goo-ja" + "http://search.goo.ne.jp/web.jsp?MT=%s" + euc-japan) + ("excite-ja" + "http://www.excite.co.jp/search.gw?target=combined&look=excite_jp\ +&lang=jp&tsug=-1&csug=-1&search=%s" + shift_jis) + ("altavista" + "http://altavista.com/sites/search/web?q=\"%s\"&kl=ja&search=Search") + ("rpmfind" + "http://rpmfind.net/linux/rpm2html/search.php?query=%s" + nil) + ("debian-pkg" + "http://packages.debian.org/cgi-bin/search_contents.pl\ +?directories=yes&arch=i386&version=unstable&case=insensitive&word=%s") + ("debian-bts" + "http://bugs.debian.org/cgi-bin/pkgreport.cgi?archive=yes&pkg=%s") + ("freebsd-users-jp" + "http://home.jp.FreeBSD.org/cgi-bin/namazu.cgi?key=\"%s\"&whence=0\ +&max=50&format=long&sort=score&dbname=FreeBSD-users-jp" + euc-japan) + ("iij-archie" + "http://www.iij.ad.jp/cgi-bin/archieplexform?query=%s\ +&type=Case+Insensitive+Substring+Match&order=host&server=archie1.iij.ad.jp\ +&hits=95&nice=Nice") + ("waei" + "http://dictionary.goo.ne.jp/search.php?MT=%s&kind=je" + euc-japan) + ("eiwa" + "http://dictionary.goo.ne.jp/search.php?MT=%s&kind=ej") + ("kokugo" + "http://dictionary.goo.ne.jp/search.php?MT=%s&kind=jn" + euc-japan) + ("eiei" + "http://www.dictionary.com/cgi-bin/dict.pl?term=%s&r=67") + ,@(if ja + '(("amazon" + "http://www.amazon.co.jp/gp/search?\ +__mk_ja_JP=%%83J%%83%%5E%%83J%%83i&url=search-alias%%3Daps&field-keywords=%s" + shift_jis) + ("amazon-en" + "http://www.amazon.com/exec/obidos/search-handle-form/\ +250-7496892-7797857" + iso-8859-1 + "url=index=blended&field-keywords=%s")) + '(("amazon" + "http://www.amazon.com/exec/obidos/search-handle-form/\ +250-7496892-7797857" + iso-8859-1 + "url=index=blended&field-keywords=%s") + ("amazon-ja" + "http://www.amazon.co.jp/gp/search?\ +__mk_ja_JP=%%83J%%83%%5E%%83J%%83i&url=search-alias%%3Daps&field-keywords=%s" + shift_jis))) + ("emacswiki" "http://www.emacswiki.org/cgi-bin/wiki?search=%s") + ("en.wikipedia" "http://en.wikipedia.org/wiki/Special:Search?search=%s") + ("de.wikipedia" "http://de.wikipedia.org/wiki/Spezial:Search?search=%s" + utf-8) + ("ja.wikipedia" "http://ja.wikipedia.org/wiki/Special:Search?search=%s" + utf-8) + ("msdn" "http://search.msdn.microsoft.com/search/default.aspx?query=%s") + ("freshmeat" "http://freshmeat.net/search/?q=%s§ion=projects"))) + "*An alist of search engines. +Each element looks like (ENGINE ACTION CODING POST-DATA) +ENGINE is a string, the name of the search engine. +ACTION is a string, the URL that performs a search. +ACTION must contain a \"%s\", which is substituted by a query string. +CODING is optional value which is coding system for query string. +POST-DATA is optional value which is a string for POST method search engine. +If CODING is omitted, it defaults to `w3m-default-coding-system'." + :group 'w3m + :type `(repeat + (group :indent 2 + (string :format "Engine: %v\n" :size 0) + (string :format " Action: %v\n" :size 0) + (coding-system :format "%t: %v\n" :size 0) + (checklist :inline t + :entry-format ,(if (w3m-device-on-window-system-p) + "%b %v" + "%b %v") + (string :format "PostData: %v\n" :size 0))))) + +(defcustom w3m-search-default-engine "google" + "*Name of the default search engine. +See also `w3m-search-engine-alist'." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-search-word-at-point t + "*Non-nil means that the word at point is used as an initial string. +If Transient Mark mode, this option is ignored and the region is used +as an initial string." + :group 'w3m + :type 'boolean) + +(defvar w3m-search-engine-history nil + "History variable used by `w3m-search' for prompting a search engine.") + +(defvar w3m-search-thing-at-point-arg 'word + "Argument for `thing-at-point' used in `w3m-search-read-query'") + +(defun w3m-search-escape-query-string (str &optional coding) + (mapconcat + (lambda (s) + (w3m-url-encode-string s (or coding w3m-default-coding-system))) + (split-string str) + "+")) + +(defun w3m-search-read-query (prompt prompt-with-default &optional history) + "Read a query from the minibuffer, prompting with string PROMPT. +When a default value for the query is discovered, prompt with string +PROMPT-WITH-DEFAULT instead of string PROMPT." + (let ((default + (if (w3m-region-active-p) + (buffer-substring (region-beginning) (region-end)) + (unless (and (eq major-mode 'w3m-mode) + (listp (get-text-property (point-at-bol) 'face)) + (memq 'w3m-header-line-location-title + (get-text-property (point-at-bol) 'face))) + (thing-at-point w3m-search-thing-at-point-arg)))) + initial) + (when default + (set-text-properties 0 (length default) nil default) + (when (or w3m-search-word-at-point (w3m-region-active-p)) + (setq initial default + default nil)) + (when (w3m-region-active-p) + (w3m-deactivate-region))) + (read-string (if default + (format prompt-with-default default) + prompt) + initial history default))) + +(defun w3m-search-read-variables () + "Ask for a search engine and words to query and return them as a list." + (let* ((search-engine + (if current-prefix-arg + (let ((default (or (car w3m-search-engine-history) + w3m-search-default-engine)) + (completion-ignore-case t)) + (completing-read (format "Which engine? (default %s): " + default) + w3m-search-engine-alist nil t nil + 'w3m-search-engine-history default)) + w3m-search-default-engine)) + (query + (w3m-search-read-query + (format "%s search: " search-engine) + (format "%s search (default %%s): " search-engine)))) + (list search-engine query))) + +(defun w3m-search-do-search (w3m-goto-function search-engine query) + "Call W3M-GOTO-FUNCTION with the URL for the search." + (unless (string= query "") + (let ((info (assoc search-engine w3m-search-engine-alist))) + (if info + (let ((query-string (w3m-search-escape-query-string query + (caddr info))) + (post-data (cadddr info))) + (funcall w3m-goto-function + (format (cadr info) query-string) + post-data + nil + (and post-data (format post-data query-string)))) + (error "Unknown search engine: %s" search-engine))))) + +;;;###autoload +(defun w3m-search (search-engine query) + "Search QUERY using SEARCH-ENGINE. +When called interactively with a prefix argument, you can choose one of +the search engines defined in `w3m-search-engine-alist'. Otherwise use +`w3m-search-default-engine'. +If Transient Mark mode, use the region as an initial string of query +and deactivate the mark." + (interactive (w3m-search-read-variables)) + (w3m-search-do-search 'w3m-goto-url search-engine query)) + +;;;###autoload +(defun w3m-search-new-session (search-engine query) + "Like `w3m-search', but do the search in a new session." + (interactive (w3m-search-read-variables)) + (w3m-search-do-search 'w3m-goto-url-new-session search-engine query)) + +;;;###autoload +(defun w3m-search-uri-replace (uri engine) + "Generate query string for ENGINE from URI matched by last search." + (let ((query (substring uri (match-end 0))) + (info (assoc engine w3m-search-engine-alist))) + (when info + (format (cadr info) + (w3m-search-escape-query-string query (caddr info)))))) + +(provide 'w3m-search) + +;;; w3m-search.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-session.el b/share/emacs/site-lisp/w3m/w3m-session.el new file mode 100644 index 00000000000..acc1ae0e241 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-session.el @@ -0,0 +1,909 @@ +;;; w3m-session.el --- Functions to operate session of w3m -*- coding: iso-2022-7bit; -*- + +;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Author: Hideyuki SHIRAI <shirai@meadowy.org> +;; Keywords: w3m, WWW, hypermedia + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; w3m-session.el is the add-on program of emacs-w3m to save and load +;; sessions. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + + +;;; Code: +(eval-when-compile (require 'cl)) +(require 'w3m-util) + +(eval-when-compile + (defvar w3m-async-exec) + (defvar w3m-async-exec-with-many-urls) + (defvar w3m-current-title) + (defvar w3m-current-url) + (defvar w3m-history) + (defvar w3m-history-flat) + (defvar w3m-language) + (defvar w3m-mode-map) + (defvar w3m-profile-directory) + (autoload 'w3m-goto-url-new-session "w3m") + (autoload 'w3m-history-tree "w3m-hist") + (autoload 'w3m-load-list "w3m") + (autoload 'w3m-save-list "w3m")) + +(defcustom w3m-session-file + (expand-file-name ".sessions" w3m-profile-directory) + "*File name to keep sessions." + :group 'w3m + :type '(file :size 0)) + +(defcustom w3m-session-autosave t + "*Non-nil means save automatically when w3m quit." + :group 'w3m + :type 'boolean) + +(defcustom w3m-session-deleted-save t + "*Non-nil means save deleted sessions." + :group 'w3m + :type 'boolean) + +(defcustom w3m-session-crash-recovery t + "*Non-nil means emacs-w3m save session set automatically, and recover it when emacs-w3m crash." + :group 'w3m + :type 'boolean) + +(defcustom w3m-session-time-format + (if (and (equal "Japanese" w3m-language) + (not (featurep 'xemacs))) + "%Y$BG/(B%m$B7n(B%d$BF|(B(%a) %H:%M" + "%Y-%m-%d (%a) %H:%M") + "*Format of saved time." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-session-automatic-title + (if (equal "Japanese" w3m-language) + "$B<+F0J]B8(B" + "Automatic saved sessions") + "*String of title to save session automatically." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-session-deleted-title + (if (equal "Japanese" w3m-language) + "$B:o=|%;%C%7%g%s(B" + "Removed sessions") + "*String of title to save session when buffer delete." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-session-crash-recovery-title + (if (equal "Japanese" w3m-language) + "$B%/%i%C%7%e2sI|(B" + "Crash recovery sessions") + "*String of title to save session to use for crash recovering." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-session-deleted-keep-number 5 + "*Number to keep sessions when buffers delete." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-session-automatic-keep-number 5 + "*Number to keep sessions automatically." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-session-unknown-title "<Unknown Title>" + "*String of title to use when title is not specified." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-session-load-last-sessions nil + "*Whether to load the last sessions when emacs-w3m starts." + :group 'w3m + :type '(radio (const :format "Load the last sessions automatically." t) + (const :format "Ask whether to load the last sessions." ask) + (const :format "Never load the last sessions automatically." nil))) + +(defcustom w3m-session-load-crashed-sessions 'ask + "*Whether to load the crashed sessions when emacs-w3m starts." + :group 'w3m + :type '(radio (const :format "Load the crashed sessions automatically." t) + (const :format "Ask whether to load the crashed sessions." ask) + (const :format "Never load the crashed sessions automatically." nil))) + +(defface w3m-session-select + `((((class color) (background light) (type tty)) + (:foreground "black")) + (((class color) (background dark) (type tty)) + (:foreground "cyan")) + (((class color) (background light)) + (:foreground "dark blue")) + (((class color) (background dark)) + (:foreground "white")) + (t nil)) + "Face of w3m-session." + :group 'w3m) +;; backward-compatibility alias +(put 'w3m-session-select-face 'face-alias 'w3m-session-select) + +(defface w3m-session-selected + `((((class color) (background light) (type tty)) + (:foreground "blue" :bold t :underline t)) + (((class color) (background dark) (type tty)) + (:foreground "cyan" :bold t :underline t)) + (((class color) (background light)) + (:foreground "dark blue" :bold t :underline t)) + (((class color) (background dark)) + (:foreground "white" :bold t :underline t)) + (t (:bold t :underline t))) + "Face of selected w3m-session." + :group 'w3m) +;; backward-compatibility alias +(put 'w3m-session-selected-face 'face-alias 'w3m-session-selected) + +(defun w3m-session-history-to-save () + "Return a copy of `w3m-history-flat' without current page data." + (let ((pos (cadar w3m-history))) + (apply + 'append + (mapcar (lambda (x) + (unless (equal (nth 2 x) pos) + (list x))) + (copy-sequence (w3m-history-slimmed-history-flat)))))) + +;; format of sessin file. +;; '((sessiontitle1 time1 ((url11 pos11 hflat11 urltitle11) +;; (url12 pos12 hflat12 urltitle12) ...) current1) +;; ... + +(defmacro w3m-session-ignore-errors (&rest forms) + "Run FORMS. Remove `w3m-session-file' and quit if any error happens." + `(condition-case err + (progn ,@forms) + (error + (if (and (file-exists-p w3m-session-file) + (yes-or-no-p (format + "\ +Sorry, an error found in \"%s\"; may we remove it? " + ,(if (featurep 'xemacs) + '(abbreviate-file-name w3m-session-file t) + '(abbreviate-file-name w3m-session-file))))) + (progn + (delete-file w3m-session-file) + (run-at-time 0.1 nil #'message + "\"%s\" has been removed; try again" + (abbreviate-file-name w3m-session-file)) + (keyboard-quit)) + (signal (car err) (cdr err)))))) + +;;;###autoload +(defun w3m-session-save () + "Save list of displayed session." + (interactive) + (w3m-session-ignore-errors + (let ((sessions (w3m-load-list w3m-session-file)) + (bufs (w3m-list-buffers)) + (prompt "New session title: ") + (cnum 0) + (i 0) + title titles urls len buf cbuf) + (mapc (lambda (x) + (setq titles (cons (cons (car x) (car x)) titles))) + sessions) + (setq title (or w3m-current-title + (with-current-buffer (car bufs) + w3m-current-title))) + (setq titles (cons (cons title title) titles)) + (catch 'loop + (while t + (setq title (completing-read prompt titles nil nil title)) + (if (or (string= title "") + (and (assoc title sessions) + (not (y-or-n-p (format "\"%s\" is exist. Overwrite? " + title))))) + (setq prompt "Again New session title: ") + (throw 'loop t)))) + (setq cbuf (current-buffer)) + (save-current-buffer + (while (setq buf (car bufs)) + (setq bufs (cdr bufs)) + (set-buffer buf) + (when w3m-current-url + (when (eq cbuf (current-buffer)) + (setq cnum i)) + (setq i (1+ i)) + (setq urls (cons (list w3m-current-url + (copy-sequence (caar w3m-history)) + (w3m-session-history-to-save) + w3m-current-title) + urls))))) + (if (not urls) + (message "%s: no session save...done" title) + (setq len (length urls)) + (setq urls (nreverse urls)) + (when (assoc title sessions) + (setq sessions (delete (assoc title sessions) sessions))) + (setq sessions (cons (list title (current-time) urls cnum) sessions)) + (w3m-save-list w3m-session-file sessions) + (if (= len 1) + (message "%s: 1 session save...done" title) + (message "%s: %d sessions save...done" title len)))))) + +(defun w3m-session-automatic-save () + "Save list of displayed session automatically." + (when w3m-session-autosave + (w3m-session-ignore-errors + (let ((sessions (w3m-load-list w3m-session-file)) + (bufs (w3m-list-buffers)) + (title (concat w3m-session-automatic-title "-1")) + (titleregex (concat "^" + (regexp-quote w3m-session-automatic-title) + "-[0-9]+$")) + (cnum 0) + (i 0) + urls buf cbuf session + tmp tmptitle tmptime tmpurls) + (when bufs + (setq cbuf (current-buffer)) + (save-current-buffer + (while (setq buf (car bufs)) + (setq bufs (cdr bufs)) + (set-buffer buf) + (when w3m-current-url + (when (eq cbuf (current-buffer)) + (setq cnum i)) + (setq i (1+ i)) + (setq urls (cons (list w3m-current-url + (copy-sequence (caar w3m-history)) + (w3m-session-history-to-save) + w3m-current-title) + urls))))) + (when urls + (setq i 2) + (while (setq session (car sessions)) + (setq sessions (cdr sessions)) + (if (string-match titleregex (nth 0 session)) + (when (<= i w3m-session-automatic-keep-number) + (setq tmptitle (format (concat w3m-session-automatic-title + "-%d") i)) + (setq tmptime (nth 1 session)) + (setq tmpurls (nth 2 session)) + (setq tmp (cons (list tmptitle tmptime tmpurls nil) tmp)) + (setq i (1+ i))) + (setq tmp (cons session tmp)))) + (setq sessions (nreverse tmp)) + (setq urls (nreverse urls)) + (setq sessions (cons (list title (current-time) urls cnum) + sessions)) + (w3m-save-list w3m-session-file sessions))))))) + +(defun w3m-session-deleted-save (buffers) + "Save list of deleted session." + (when w3m-session-deleted-save + (w3m-session-ignore-errors + (let ((sessions (w3m-load-list w3m-session-file)) + (title (concat w3m-session-deleted-title "-1")) + (titleregex (concat "^" + (regexp-quote w3m-session-deleted-title) + "-[0-9]+$")) + (bufs (copy-sequence buffers)) + (i 2) + urls buf session + tmp tmptitle tmptime tmpurls) + (when bufs + (setq bufs (sort bufs 'w3m-buffer-name-lessp)) + (save-current-buffer + (while (setq buf (car bufs)) + (setq bufs (cdr bufs)) + (set-buffer buf) + (when w3m-current-url + (setq urls (cons (list w3m-current-url + (copy-sequence (caar w3m-history)) + (w3m-session-history-to-save) + w3m-current-title) + urls))))) + (when urls + (while (setq session (car sessions)) + (setq sessions (cdr sessions)) + (if (string-match titleregex (nth 0 session)) + (when (<= i w3m-session-deleted-keep-number) + (setq tmptitle (format (concat w3m-session-deleted-title + "-%d") i)) + (setq tmptime (nth 1 session)) + (setq tmpurls (nth 2 session)) + (setq tmp (cons (list tmptitle tmptime tmpurls nil) tmp)) + (setq i (1+ i))) + (setq tmp (cons session tmp)))) + (setq sessions (nreverse tmp)) + (setq urls (nreverse urls)) + (setq sessions (cons (list title (current-time) urls nil) sessions)) + (w3m-save-list w3m-session-file sessions))))))) + +(defun w3m-session-crash-recovery-save () + "Save list of displayed session." + (when w3m-session-crash-recovery + (w3m-session-ignore-errors + (let ((sessions (w3m-load-list w3m-session-file)) + (bufs (w3m-list-buffers)) + (title w3m-session-crash-recovery-title) + urls buf tmp) + (when bufs + (save-current-buffer + (while (setq buf (car bufs)) + (setq bufs (cdr bufs)) + (set-buffer buf) + (when w3m-current-url + (setq urls (cons (list w3m-current-url + (copy-sequence (caar w3m-history)) + (w3m-session-history-to-save) + w3m-current-title) + urls))))) + (when urls + (setq urls (nreverse urls)) + (setq tmp (assoc title sessions)) + (when tmp (setq sessions (delete tmp sessions))) + (setq sessions (cons (list title (current-time) urls nil) sessions)) + (w3m-save-list w3m-session-file sessions))))))) + +(defun w3m-session-crash-recovery-remove () + "Remove crash recovery session set." + (when w3m-session-crash-recovery + (w3m-session-ignore-errors + (let* ((sessions (w3m-load-list w3m-session-file)) + (item (assoc w3m-session-crash-recovery-title sessions))) + (when item + (setq sessions (delete item sessions)) + (w3m-save-list w3m-session-file sessions)))))) + +(defvar w3m-session-select-mode-map nil) +(unless w3m-session-select-mode-map + (let ((map (make-keymap))) + (suppress-keymap map) + (define-key map "q" 'w3m-session-select-quit) + (define-key map "Q" 'w3m-session-select-quit) + (define-key map "\C-g" 'w3m-session-select-quit) + (define-key map "\C-m" 'w3m-session-select-select) + (define-key map "\M-s" 'w3m-session-select-open-session-group) + (define-key map "d" 'w3m-session-select-delete) + (define-key map "D" 'w3m-session-select-delete) + (define-key map "s" 'w3m-session-select-save) + (define-key map "S" 'w3m-session-select-save) + (define-key map "r" 'w3m-session-select-rename) + (define-key map "R" 'w3m-session-select-rename) + (define-key map "n" 'w3m-session-select-next) + (define-key map "j" 'w3m-session-select-next) + (define-key map "\C-n" 'w3m-session-select-next) + (define-key map [down] 'w3m-session-select-next) + (define-key map "p" 'w3m-session-select-previous) + (define-key map "k" 'w3m-session-select-previous) + (define-key map "\C-p" 'w3m-session-select-previous) + (define-key map [up] 'w3m-session-select-previous) + (setq w3m-session-select-mode-map map))) + +;;; Local variables +(defvar w3m-session-select-wincfg nil) +(defvar w3m-session-select-sessions nil) +(make-variable-buffer-local 'w3m-session-select-wincfg) +(make-variable-buffer-local 'w3m-session-select-sessions) + +(defun w3m-session-select-mode (&optional sessions) + "Major mode for selecting emacs-w3m session. + +\\<w3m-session-select-mode-map> +\\[w3m-session-select-select] Select the session. +\\[w3m-session-select-open-session-group] Open the session group. +\\[w3m-session-select-delete] Delete the session. +\\[w3m-session-select-rename] Rename the session. +\\[w3m-session-select-save] Save the session. +\\[w3m-session-select-next] Move the point to the next session. +\\[w3m-session-select-previous] Move the point to the previous session. +\\[w3m-session-select-quit] Exit selecting session. +" + (w3m-session-ignore-errors + (let ((sessions (or sessions + (w3m-load-list w3m-session-file)))) + (buffer-disable-undo) + (setq mode-name "w3m session" + truncate-lines t + buffer-read-only nil + major-mode 'w3m-session-select-mode + w3m-session-select-sessions sessions + buffer-read-only t) + (use-local-map w3m-session-select-mode-map) + (w3m-session-select-list-all-sessions)))) + +(defun w3m-session-select-list-all-sessions () + "List up all saved sessions." + (let* ((sessions w3m-session-select-sessions) + (num 0) + (max 0) + (buffer-read-only nil) + title titles time times url urls wid pos) + (if (not sessions) + (progn + (message "No saved session") + (w3m-session-select-quit)) + (mapc (lambda (x) + (setq title (format "%s[%d]" (nth 0 x) (length (nth 2 x)))) + (setq wid (string-width title)) + (when (> wid max) + (setq max wid)) + (setq titles (cons title titles)) + (setq times (cons (format-time-string w3m-session-time-format + (nth 1 x)) + times)) + (setq urls (cons (mapconcat (lambda (url) + (if (stringp url) + url + (car url))) + (nth 2 x) ", ") + urls))) + sessions) + (setq titles (nreverse titles)) + (setq times (nreverse times)) + (setq urls (nreverse urls)) + (setq max (+ max 2)) + (erase-buffer) + (insert "Select session:\n\n") + (while (and (setq title (car titles)) + (setq time (car times)) + (setq url (car urls))) + (setq titles (cdr titles)) + (setq times (cdr times)) + (setq urls (cdr urls)) + (setq pos (point)) + (insert title) + (add-text-properties pos (point) + `(face w3m-session-select + w3m-session-number ,num)) + (setq num (1+ num)) + (insert (make-string (- max (string-width title)) ?\ )) + (insert time " " url "\n")) + (goto-char (point-min)) + (goto-char (next-single-property-change + (point) 'w3m-session-number)) + (put-text-property (point) + (next-single-property-change + (point) 'w3m-session-number) + 'face 'w3m-session-selected) + (set-buffer-modified-p nil) + (setq buffer-read-only t)))) + +(defun w3m-session-select-list-session-group (arg) + (let ((session (nth 2 (nth arg w3m-session-select-sessions))) + (num 0) + (max 0) + (buffer-read-only nil) + title url wid + titles urls pos) + (when session + (mapc (lambda (x) + (setq title (format "%s" (or (nth 3 x) w3m-session-unknown-title))) + (setq wid (string-width title)) + (when (> wid max) + (setq max wid)) + (setq titles (cons title titles)) + (setq urls (cons (nth 0 x) + urls))) + session) + (setq titles (nreverse titles)) + (setq urls (nreverse urls)) + (setq max (+ max 2)) + (erase-buffer) + (insert "Select session:\n\n") + (setq pos (point)) + (insert "Open all sessions") + (add-text-properties pos (point) + `(face w3m-session-selected + w3m-session-number ,arg)) + (insert "\n") + (while (and (setq title (car titles)) + (setq url (car urls))) + (setq titles (cdr titles)) + (setq urls (cdr urls)) + (setq pos (point)) + (insert title) + (add-text-properties pos (point) + `(face w3m-session-select + w3m-session-number ,(cons arg num))) + (setq num (1+ num)) + (insert (make-string (- max (string-width title)) ?\ )) + (insert url "\n")) + (goto-char (point-min)) + (goto-char (next-single-property-change + (point) 'w3m-session-number))) + (set-buffer-modified-p nil) + (setq buffer-read-only t))) + +(defun w3m-session-select-next (&optional arg) + "Move the point to the next session." + (interactive "p") + (unless arg (setq arg 1)) + (let ((positive (< 0 arg)) + (buffer-read-only nil)) + (beginning-of-line) + (put-text-property (point) + (next-single-property-change + (point) 'w3m-session-number) + 'face 'w3m-session-select) + (while (not (zerop arg)) + (forward-line (if positive 1 -1)) + (unless (get-text-property (point) 'w3m-session-number) + (if positive + (goto-char (next-single-property-change + (point-min) 'w3m-session-number)) + (goto-char (previous-single-property-change + (point-max) 'w3m-session-number)))) + (setq arg (if positive + (1- arg) + (1+ arg)))) + (beginning-of-line) + (put-text-property (point) + (next-single-property-change + (point) 'w3m-session-number) + 'face 'w3m-session-selected) + (set-buffer-modified-p nil))) + +(defun w3m-session-select-previous (&optional arg) + "the point to the previous session." + (interactive "p") + (w3m-session-select-next (- arg))) + +(defun w3m-session-select-quit () + "Exit from w3m session select mode." + (interactive) + (let ((buffer (current-buffer)) + (wincfg w3m-session-select-wincfg)) + (or (one-window-p) (delete-window)) + (kill-buffer buffer) + (set-window-configuration wincfg))) + +(defun w3m-session-select-select () + "Select the session." + (interactive) + (beginning-of-line) + (let* ((num (get-text-property + (point) 'w3m-session-number)) + (item (if (consp num) + (nth (cdr num) + (caddr (nth (car num) + w3m-session-select-sessions))) + (nth num w3m-session-select-sessions))) + (session (if (consp num) + (list (or (cadddr item) w3m-session-unknown-title) + nil + (list item) + nil) + item))) + (w3m-session-select-quit) + (w3m-session-goto-session session))) + +(defun w3m-session-select-open-session-group () + "Open the session group." + (interactive) + (beginning-of-line) + (let ((num (get-text-property + (point) 'w3m-session-number)) + wheight) + (if (consp num) + (message "There is no session group.") + (setq wheight + (max (+ (length (caddr (nth num w3m-session-select-sessions))) 6) + window-min-height)) + (condition-case nil + (enlarge-window (- wheight (window-height))) + (error nil)) + (w3m-session-select-list-session-group num)))) + +(defun w3m-session-select-save () + "Save the session." + (interactive) + (when (y-or-n-p "Save this sessions? ") + (w3m-session-select-quit) + (w3m-session-save) + (w3m-session-select))) + +(defun w3m-session-select-rename () + "Rename this session." + (interactive) + (beginning-of-line) + (let ((num (get-text-property + (point) 'w3m-session-number)) + (sessions w3m-session-select-sessions)) + (w3m-session-select-quit) + (w3m-session-rename sessions num) + (w3m-session-select))) + +(defun w3m-session-select-delete () + "Delete the session." + (interactive) + (when (y-or-n-p "Delete this session? ") + (beginning-of-line) + (let ((num (get-text-property + (point) 'w3m-session-number)) + (sessions w3m-session-select-sessions)) + (w3m-session-select-quit) + (w3m-session-delete sessions num) + (w3m-session-select)))) + +;;;###autoload +(defun w3m-session-select () + "Select session from session list." + (interactive) + (w3m-session-ignore-errors + (let* ((sessions (w3m-load-list w3m-session-file)) + (showbuf (w3m-get-buffer-create " *w3m-session select*")) + (wheight (max (+ (length sessions) 5) window-min-height)) + (wincfg (current-window-configuration)) + window last-window) + (setq last-window (previous-window + (w3m-static-if (fboundp 'frame-highest-window) + (frame-highest-window) + (frame-first-window)))) + (while (minibuffer-window-active-p last-window) + (setq last-window (previous-window last-window))) + (while (and + (not (one-window-p)) + (or (< (window-width last-window) + (frame-width)) + (< (window-height last-window) + (+ wheight window-min-height)))) + (setq window last-window) + (setq last-window (previous-window window)) + (delete-window window)) + (select-window (split-window last-window)) + (condition-case nil + (shrink-window (- (window-height) wheight)) + (error nil)) + (switch-to-buffer showbuf) + (setq w3m-session-select-wincfg wincfg) + (w3m-session-select-mode sessions)))) + +(defun w3m-session-goto-session (session) + "Goto URLs." + (let ((title (nth 0 session)) + (urls (nth 2 session)) + (cnum (nth 3 session)) + (i 0) + (w3m-async-exec (and w3m-async-exec-with-many-urls w3m-async-exec)) + url cbuf buf pos history) + (message "Session goto(%s)..." title) + (while (setq url (car urls)) + (setq urls (cdr urls)) + (unless (stringp url) + (setq pos (nth 1 url) + history (nth 2 url) + url (nth 0 url))) + (w3m-goto-url-new-session url) + (setq buf (car (nreverse (w3m-list-buffers)))) + (when (or (and (numberp cnum) (= cnum i)) + (and (not cnum) (= i 0))) + (setq cbuf buf)) + (when (and buf pos history) + (set-buffer buf) + (setq w3m-history-flat history) + (w3m-history-tree pos)) + (setq i (1+ i))) + (when (and cbuf (eq major-mode 'w3m-mode)) + (set-window-buffer (selected-window) cbuf)) + (message "Session goto(%s)...done" title))) + +(defun w3m-session-rename (sessions num) + (if (consp num) + (message "This command can execute in Main session area") + (let ((prompt "New session title: ") + (overwrite nil) + tmp title otitle) + (setq tmp (nth num sessions)) + (setq otitle (car tmp)) + (setq title otitle) + (catch 'loop + (while t + (setq title (read-from-minibuffer prompt otitle)) + (cond + ((string= title "") + nil) + ((string= title otitle) + (when (y-or-n-p + (format "\"%s\" is same as original title. Do not rename? " + title)) + (throw 'loop t))) + ((assoc title sessions) + (when (y-or-n-p (format "\"%s\" is exist. Overwrite? " title)) + (setq overwrite t) + (throw 'loop t)))) + (setq prompt "Again New session title: "))) + (when overwrite + (setq sessions (delete (assoc title sessions) sessions))) + (unless (string= title otitle) + (setq sessions (delete tmp sessions)) + (setcar tmp title) + (setq sessions (cons tmp sessions)) + (w3m-save-list w3m-session-file sessions))))) + +(defun w3m-session-delete (sessions num) + (let (tmp) + (if (consp num) + (let ((item (nth 2 (nth (car num) sessions)))) + (setq tmp (delete (nth (cdr num) item) + item)) + (setf (nth 2 (nth (car num) sessions)) + tmp)) + (setq tmp (nth num sessions)) + (setq sessions (delete tmp sessions))) + (if sessions + (w3m-save-list w3m-session-file sessions) + (let ((file (expand-file-name w3m-session-file))) + (when (and (file-exists-p file) + (file-writable-p file)) + (delete-file file)))))) + +(defvar w3m-session-menu-items + `([,(w3m-make-menu-item "$B?7$7$$%;%C%7%g%s$r:n$k(B..." + "Create New Session...") + w3m-goto-new-session-url t] + [,(w3m-make-menu-item "$B$3$N%;%C%7%g%s$rJ#@=$9$k(B" "Copy This Session") + w3m-copy-buffer w3m-current-url] + "----" ;; separator + [,(w3m-make-menu-item "$BA0$N%;%C%7%g%s$K0\F0$9$k(B" + "Move Previous Session") + w3m-previous-buffer + (> (safe-length (w3m-list-buffers)) 1)] + [,(w3m-make-menu-item "$B<!$N%;%C%7%g%s$K0\F0$9$k(B" "Move Next Session") + w3m-next-buffer + (> (safe-length (w3m-list-buffers)) 1)] + "----" ;; separator + [,(w3m-make-menu-item "$B$3$N%;%C%7%g%s$rJD$8$k(B" "Close This Session") + w3m-delete-buffer + (> (safe-length (w3m-list-buffers)) 1)] + [,(w3m-make-menu-item "$BB>$N%;%C%7%g%s$rJD$8$k(B" "Close Other Sessions") + w3m-delete-other-buffers + (> (safe-length (w3m-list-buffers)) 1)] + [,(w3m-make-menu-item "$B8=:_$N%;%C%7%g%s$rJ]B8$9$k(B" + "Save Displayed Sessions") + w3m-session-save t] + [,(w3m-make-menu-item "$B%;%C%7%g%s$rA*Br$9$k(B" "Select Sessions") + w3m-session-select t]) + "*List of the session menu items.") + +;;;###autoload +(defun w3m-setup-session-menu () + "Setup w3m session items in menubar." + (w3m-static-if (featurep 'xemacs) + (unless (car (find-menu-item current-menubar '("Session"))) + (easy-menu-define w3m-session-menu w3m-mode-map + "" '("Session" ["(empty)" ignore nil])) + (easy-menu-add w3m-session-menu) + (add-hook 'activate-menubar-hook 'w3m-session-menubar-update)) + (unless (lookup-key w3m-mode-map [menu-bar Session]) + (easy-menu-define w3m-session-menu w3m-mode-map "" '("Session")) + (easy-menu-add w3m-session-menu) + (add-hook 'menu-bar-update-hook 'w3m-session-menubar-update)))) + +(defvar w3m-session-menu-items-pre nil) +(defvar w3m-session-menu-items-time nil) + +(defun w3m-session-menubar-update () + "Update w3m session menubar." + (when (and (eq major-mode 'w3m-mode) + (w3m-static-if (featurep 'xemacs) + (frame-property (selected-frame) 'menubar-visible-p) + menu-bar-mode)) + (let ((items w3m-session-menu-items) + (pages (w3m-session-make-menu-items))) + (easy-menu-define w3m-session-menu w3m-mode-map + "The menu kepmap for the emacs-w3m session." + (cons "Session" (if pages + (append items '("----") pages) + items))) + (w3m-static-when (featurep 'xemacs) + (when (setq items (car (find-menu-item current-menubar '("Session")))) + (setcdr items (cdr w3m-session-menu)) + (set-buffer-menubar current-menubar)))))) + +(defun w3m-session-file-modtime () + "Return the modification time of the session file `w3m-session-file'. +The value is a list of two time values `(HIGH LOW)' if the session +file exists, otherwise nil." + (nth 5 (file-attributes w3m-session-file))) + +(defvar w3m-session-make-item-xmas + (and (equal "Japanese" w3m-language) (featurep 'xemacs))) + +(defun w3m-session-make-item (item) + (if w3m-session-make-item-xmas + (concat item "%_ ") + item)) + +(defun w3m-session-make-menu-items () + "Create w3m session menu items." + (if (and w3m-session-menu-items-pre + w3m-session-menu-items-time + (equal w3m-session-menu-items-time + (w3m-session-file-modtime))) + w3m-session-menu-items-pre + (w3m-session-ignore-errors + (let ((sessions (w3m-load-list w3m-session-file))) + (setq w3m-session-menu-items-time (w3m-session-file-modtime)) + (setq w3m-session-menu-items-pre + (and sessions + (mapcar + (lambda (entry) + (cons (w3m-session-make-item (car entry)) + (cons (vector "Open all sessions" + `(w3m-session-goto-session + (quote ,entry))) + (mapcar + (lambda (item) + (let ((title + (w3m-session-make-item + (or (nth 3 item) + w3m-session-unknown-title)))) + (vector + title + `(w3m-session-goto-session + (quote + ,(list title + nil + (list item) + nil)))))) + (nth 2 entry))))) + sessions))))))) + +;;;###autoload +(defun w3m-session-last-autosave-session () + (when w3m-session-load-last-sessions + (w3m-session-ignore-errors + (let ((item + (let ((sessions (w3m-load-list w3m-session-file)) + (n 1) x) + (catch 'loop + (while t + (if (< w3m-session-automatic-keep-number n) + (throw 'loop nil) + (setq x (assoc (format "%s-%d" + w3m-session-automatic-title n) + sessions)) + (when x (throw 'loop x))) + (setq n (1+ n))))))) + (when (and item + (or (and (eq w3m-session-load-last-sessions 'ask) + (y-or-n-p "Load the last sessions? ")) + w3m-session-load-last-sessions)) + item))))) + +;;;###autoload +(defun w3m-session-last-crashed-session () + (when (and w3m-session-crash-recovery w3m-session-load-crashed-sessions) + (w3m-session-ignore-errors + (let ((item (assoc w3m-session-crash-recovery-title + (w3m-load-list w3m-session-file)))) + (when (and item + (or (and (eq w3m-session-load-crashed-sessions 'ask) + (y-or-n-p "Load the crashed sessions? ")) + (eq w3m-session-load-crashed-sessions t))) + item))))) + +(provide 'w3m-session) + +;;; w3m-session.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-symbol.el b/share/emacs/site-lisp/w3m/w3m-symbol.el new file mode 100644 index 00000000000..e89a2811d46 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-symbol.el @@ -0,0 +1,230 @@ +;;; w3m-symbol.el --- Stuffs to replace symbols for emacs-w3m -*- coding: iso-2022-7bit; -*- + +;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2009 +;; ARISAWA Akihiro <ari@mbf.sphere.ne.jp> + +;; Author: ARISAWA Akihiro <ari@mbf.sphere.ne.jp> +;; Keywords: w3m, WWW, hypermedia, i18n + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This file 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., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(eval-when-compile + (defvar w3m-output-coding-system) + (defvar w3m-language) + (defvar w3m-use-symbol) + (autoload 'w3m-mule-unicode-p "w3m")) + +(defgroup w3m-symbol nil + "Symbols for w3m" + :group 'w3m) + +(defvar w3m-symbol-custom-type + '(list + :convert-widget w3m-widget-type-convert-widget + (let* ((w `(sexp :match (lambda (widget value) (stringp value)) + :size 4 :value "" + ,@(if (not (widget-get widget :copy)) + ;; Emacs versions prior to 22. + '(:value-to-internal + (lambda (widget value) + (if (string-match "\\`\".*\"\\'" value) + value + (prin1-to-string value))))))) + (a `(,@w :format "%v ")) + (b `(,@w :format "%v\n")) + (c (list a a a a a a a b)) + (d (list a a a a a b))) + `(:indent 4 :tag "Customize" + ,@c ,@c ,@c ,@c ,@d ,@d ,b ,b)))) + +(defcustom w3m-default-symbol + '("-+" " |" "--" " +" "-|" " |" "-+" "" + "--" " +" "--" "" "-+" "" "" "" + "-+" " |" "--" " +" "-|" " |" "-+" "" + "--" " +" "--" "" "-+" "" "" "" + " *" " +" " o" " #" " @" " -" + " =" " x" " %" " *" " o" " #" + " #" + "<=UpDn ") + "List of symbol string, used by defaultly." + :group 'w3m-symbol + :type w3m-symbol-custom-type) + +(defcustom w3m-Chinese-BIG5-symbol + '("$(0#3(B" "$(0#7(B" "$(0#5(B" "$(0#<(B" "$(0#6(B" "$(0#:(B" "$(0#=(B" "" + "$(0#4(B" "$(0#>(B" "$(0#9(B" "" "$(0#?(B" "" "" "" + "$(0#3(B" "$(0#7(B" "$(0#5(B" "$(0#<(B" "$(0#6(B" "$(0#:(B" "$(0#=(B" "" + "$(0#4(B" "$(0#>(B" "$(0#9(B" "" "$(0#?(B" "" "" "" + "$(0!&(B" "$(0!{(B" "$(0!w(B" "$(0!r(B" "$(0!|(B" "$(0!x(B" + "$(0!v(B" "$(0!s(B" "$(0!t(B" "$(0!s(B" "$(0!r(B" "$(0!{(B" + "$(0!s(B" + "$(0!N"U"V(B") + "List of symbol string, used in Chienese-BIG5 environment." + :group 'w3m-symbol + :type w3m-symbol-custom-type) + +(defcustom w3m-Chinese-CNS-symbol + '("$(G#3(B" "$(G#7(B" "$(G#5(B" "$(G#<(B" "$(G#6(B" "$(G#:(B" "$(G#=(B" "" + "$(G#4(B" "$(G#>(B" "$(G#9(B" "" "$(G#?(B" "" "" "" + "$(G#3(B" "$(G#7(B" "$(G#5(B" "$(G#<(B" "$(G#6(B" "$(G#:(B" "$(G#=(B" "" + "$(G#4(B" "$(G#>(B" "$(G#9(B" "" "$(G#?(B" "" "" "" + "$(G!&(B" "$(G!{(B" "$(G!w(B" "$(G!r(B" "$(G!|(B" "$(G!x(B" + "$(G!v(B" "$(G!s(B" "$(G!t(B" "$(G!s(B" "$(G!r(B" "$(G!{(B" + "$(G!s(B" + "$(G!N"U"V(B") + "List of symbol string, used in Chienese-CNS environment." + :group 'w3m-symbol + :type w3m-symbol-custom-type) + +(defcustom w3m-Chinese-GB-symbol + '("$A)`(B" "$A)@(B" "$A)P(B" "$A)0(B" "$A)H(B" "$A)&(B" "$A)4(B" "" + "$A)X(B" "$A)8(B" "$A)$(B" "" "$A)<(B" "" "" "" + "$A)`(B" "$A)D(B" "$A)S(B" "$A)3(B" "$A)L(B" "$A)'(B" "$A)7(B" "" + "$A)[(B" "$A);(B" "$A)%(B" "" "$A)?(B" "" "" "" + "$A!$(B" "$A!u(B" "$A!n(B" "$A!p(B" "$A!v(B" "$A!o(B" + "$A!r(B" "$A!q(B" "$A!w(B" "$A!q(B" "$A!p(B" "$A!u(B" + "$A!q(B" + "$A!6!|!}(B") + "List of symbol string, used in Chienese-GB environment." + :group 'w3m-symbol + :type w3m-symbol-custom-type) + +(defcustom w3m-Japanese-symbol + '("$B(+(B" "$B('(B" "$B(((B" "$B(#(B" "$B()(B" "$B("(B" "$B($(B" "" + "$B(*(B" "$B(&(B" "$B(!(B" "" "$B(%(B" "" "" "" + "$B(+(B" "$B(7(B" "$B(8(B" "$B(.(B" "$B(9(B" "$B(-(B" "$B(/(B" "" + "$B(:(B" "$B(1(B" "$B(,(B" "" "$B(0(B" "" "" "" + "$B!&(B" "$B""(B" "$B!y(B" "$B!{(B" "$B"#(B" "$B!z(B" + "$B!}(B" "$B!|(B" "$B"$(B" "$B!|(B" "$B!{(B" "$B""(B" + "$B!|(B" + "$B"c","-(B") + "List of symbol string, used in Japanese environment." + :group 'w3m-symbol + :type w3m-symbol-custom-type) + +(defcustom w3m-Korean-symbol + '("$(C&+(B" "$(C&'(B" "$(C&((B" "$(C&#(B" "$(C&)(B" "$(C&"(B" "$(C&$(B" "" + "$(C&*(B" "$(C&&(B" "$(C&!(B" "" "$(C&%(B" "" "" "" + "$(C&+(B" "$(C&7(B" "$(C&8(B" "$(C&.(B" "$(C&9(B" "$(C&-(B" "$(C&/(B" "" + "$(C&:(B" "$(C&1(B" "$(C&,(B" "" "$(C&0(B" "" "" "" + "$(C!$(B" "$(C!`(B" "$(C!Y(B" "$(C![(B" "$(C!a(B" "$(C!Z(B" + "$(C!](B" "$(C!\(B" "$(C!b(B" "$(C!\(B" "$(C![(B" "$(C!`(B" + "$(C!\(B" + "$(C!l!h!i(B") + "List of symbol string, used in Korean environment." + :group 'w3m-symbol + :type w3m-symbol-custom-type) + +(defcustom w3m-mule-unicode-symbol + (when (w3m-mule-unicode-p) + (append + (mapcar (lambda (p) + (if p + (char-to-string + (make-char (or (nth 2 p) 'mule-unicode-2500-33ff) + (car p) (cadr p))) + "")) + '((32 92) (32 60) (32 76) (32 44) (32 68) (32 34) (32 48) nil + (32 84) (32 52) (32 32) nil (32 56) nil nil nil + (32 92) (32 64) (32 79) (32 47) (32 72) (32 35) (32 51) nil + (32 87) (32 55) (32 33) nil (32 59) nil nil nil + (115 34 mule-unicode-0100-24ff) (33 97) (34 102) (34 43) (33 96) (34 101) + (34 46) (34 47) (33 115) (34 47) (34 43) (33 97) + (34 47))) + (list (format "%c %c %c " + (make-char 'mule-unicode-0100-24ff 121 42) + (make-char 'mule-unicode-0100-24ff 118 113) + (make-char 'mule-unicode-0100-24ff 118 115))))) + "List of symbol string, using mule-unicode characters." + :group 'w3m-symbol + :type (if (w3m-mule-unicode-p) + w3m-symbol-custom-type + '(const :format "%{%t%}: %v"))) + +(defcustom w3m-symbol nil + "List of symbol string." + :group 'w3m-symbol + :type `(radio (const :format "Auto detect " nil) + (const :tag "Default" w3m-default-symbol) + (const :format "Chinese BIG5 " w3m-Chinese-BIG5-symbol) + (const :format "Chinese CNS " w3m-Chinese-CNS-symbol) + (const :tag "Chinese GB" w3m-Chinese-GB-symbol) + (const :format "Japanese " w3m-Japanese-symbol) + (const :format "Korean " w3m-Korean-symbol) + ,@(when w3m-mule-unicode-symbol + '((const :tag "Mule-Unicode" w3m-mule-unicode-symbol))) + (variable :format "%t symbol: %v\n" :size 0 + :value w3m-default-symbol) + ,w3m-symbol-custom-type)) + +(defun w3m-use-symbol () + (cond ((functionp w3m-use-symbol) + (funcall w3m-use-symbol)) + (t w3m-use-symbol))) + +(eval-when-compile (defvar current-language-environment)) + +(defun w3m-symbol () + (cond (w3m-symbol + (if (symbolp w3m-symbol) + (symbol-value w3m-symbol) + w3m-symbol)) + ((and (eq w3m-output-coding-system 'utf-8) + w3m-mule-unicode-symbol)) + ((let ((lang (or w3m-language + (and (boundp 'current-language-environment) + current-language-environment + ;; In XEmacs 21.5 it may be the one like + ;; "Japanese (UTF-8)". + (if (string-match "[\t ]+(" + current-language-environment) + (substring current-language-environment + 0 (match-beginning 0)) + current-language-environment))))) + (when (boundp (intern (format "w3m-%s-symbol" lang))) + (symbol-value (intern (format "w3m-%s-symbol" lang)))))) + (t w3m-default-symbol))) + +;;;###autoload +(defun w3m-replace-symbol () + (when (w3m-use-symbol) + (let ((symbol-list (w3m-symbol))) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward "<_SYMBOL TYPE=\\([0-9]+\\)>" nil t) + (let ((symbol (nth (string-to-number (match-string 1)) symbol-list)) + (start (point)) + end symbol-cnt) + (search-forward "</_SYMBOL>" nil t) + (setq end (match-beginning 0) + symbol-cnt (/ (string-width (buffer-substring start end)) + (string-width symbol))) + (goto-char start) + (delete-region start end) + (insert (apply 'concat (make-list symbol-cnt symbol))))))))) + +(provide 'w3m-symbol) + +;;; w3m-symbol.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-tabmenu.el b/share/emacs/site-lisp/w3m/w3m-tabmenu.el new file mode 100644 index 00000000000..21817a70599 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-tabmenu.el @@ -0,0 +1,188 @@ +;;; w3m-tabmenu.el --- Functions for TAB menu browsing + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2009 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: Hideyuki SHIRAI <shirai@meadowy.org>, +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This file contains the functions for TAB browsing. For more detail +;; about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + +;;; Code: + +(eval-when-compile + (require 'cl)) + +(require 'w3m-util) +(require 'w3m) +(require 'easymenu) + +(defun w3m-setup-tab-menu () + "Setup w3m tab menubar." + (when w3m-use-tab-menubar + (w3m-static-if (featurep 'xemacs) + (unless (car (find-menu-item current-menubar '("Tab"))) + (easy-menu-define w3m-tab-menu w3m-mode-map + "" '("Tab" ["dummy" w3m-switch-buffer t])) + (easy-menu-add w3m-tab-menu) + (add-hook 'activate-menubar-hook 'w3m-tab-menubar-update)) + (unless (lookup-key w3m-mode-map [menu-bar Tab]) + (easy-menu-define w3m-tab-menu w3m-mode-map "" '("Tab")) + (easy-menu-add w3m-tab-menu) + (add-hook 'menu-bar-update-hook 'w3m-tab-menubar-update))))) + +(defun w3m-switch-buffer () + "Switch `w3m-mode' buffer in the current window." + (interactive) + (let ((items (w3m-tab-menubar-make-items 'nomenu)) + (minibuffer-setup-hook + (append minibuffer-setup-hook '(beginning-of-line))) + (count 1) + (form "%s [%s]") + (completion-ignore-case t) + comp hist histlen default buf) + (dolist (item items) + (when (nth 2 item) ;; current-buffer + (setq default count)) + (setq comp (cons + (cons + (format form (nth 1 item) (nth 0 item)) (nth 0 item)) + comp)) + (setq hist (cons (format form (nth 1 item) (nth 0 item)) hist)) + (setq count (1+ count))) + (setq comp (nreverse comp)) + (setq histlen (length hist)) + (setq hist (append hist hist hist hist hist)) ;; STARTPOS at 3rd hist + (setq buf + (completing-read + "Switch to w3m buffer: " + comp nil t (car (nth (1- default) comp)) + (cons 'hist (+ (* 3 histlen) (- histlen default -1))) + (car (nth (1- default) comp)))) + (setq buf (cdr (assoc buf comp))) + (when (get-buffer buf) + (switch-to-buffer buf)))) + +(defun w3m-tab-menubar-open-item (buf) + "Open w3m buffer from tab menubar." + (interactive) + (when (get-buffer buf) + (switch-to-buffer buf))) + +(defun w3m-tab-menubar-update () + "Update w3m tab menubar." + (when (and (eq major-mode 'w3m-mode) + (w3m-static-if (featurep 'xemacs) + (frame-property (selected-frame) 'menubar-visible-p) + menu-bar-mode)) + (easy-menu-define w3m-tab-menu w3m-mode-map + "The menu kepmap for the emacs-w3m tab." + (cons "Tab" (w3m-tab-menubar-make-items))) + (w3m-static-when (featurep 'xemacs) + (let ((items (car (find-menu-item current-menubar '("Tab"))))) + (when items + (setcdr items (cdr w3m-tab-menu)) + (set-buffer-menubar current-menubar)))))) + +(defvar w3m-tab-menubar-items-sub-coeff 30) ;; 30? +(defvar w3m-tab-menubar-items-width 50) ;; 50? + +(defun w3m-tab-menubar-make-items-1 (buffers &optional nomenu) + (let ((i 0) + (current (current-buffer)) + (width w3m-tab-menubar-items-width) + title unseen) + (mapcar + (lambda (buffer) + (if nomenu + (list (buffer-name buffer) + (format "%s%s" + (if (w3m-unseen-buffer-p buffer) "(u)" "") + (w3m-buffer-title buffer)) + (eq buffer current)) + (setq title (w3m-buffer-title buffer)) + (setq unseen (w3m-unseen-buffer-p buffer)) + (when (>= (string-width title) width) + (setq title + (concat (w3m-truncate-string title + (- width 3)) + "..."))) + (vector (format "%d:%s%s" + (incf i) + (cond ((eq buffer current) "* ") + (unseen "u ") + (t " ")) + title) + `(w3m-tab-menubar-open-item ,(buffer-name buffer)) + buffer))) + buffers))) + +(defvar w3m-tab-menubar-make-items-precbuf nil) +(defvar w3m-tab-menubar-make-items-prebuflst nil) +(defvar w3m-tab-menubar-make-items-preurl nil) +(defvar w3m-tab-menubar-make-items-preitems nil) + +(defun w3m-tab-menubar-force-update (&rest args) + (setq w3m-tab-menubar-make-items-preitems nil) + (w3m-tab-menubar-update)) + +(add-hook 'w3m-display-functions 'w3m-tab-menubar-force-update) + +(defun w3m-tab-menubar-make-items (&optional nomenu) + "Create w3m tab menu items." + (let (menu buflst total max) + (if nomenu + (w3m-tab-menubar-make-items-1 (w3m-list-buffers) t) + (setq w3m-tab-button-menu-current-buffer (current-buffer)) + (setq buflst (w3m-list-buffers)) + (if (and w3m-tab-menubar-make-items-preitems + (eq w3m-tab-button-menu-current-buffer + w3m-tab-menubar-make-items-precbuf) + (equal w3m-tab-menubar-make-items-prebuflst buflst) + (equal w3m-tab-menubar-make-items-preurl w3m-current-url)) + w3m-tab-menubar-make-items-preitems + (setq w3m-tab-menubar-make-items-precbuf + w3m-tab-button-menu-current-buffer) + (setq w3m-tab-menubar-make-items-prebuflst buflst) + (setq w3m-tab-menubar-make-items-preurl w3m-current-url) + (setq total (length buflst)) + (setq max (- (frame-height (selected-frame)) + w3m-tab-menubar-items-sub-coeff)) + (if (< total max) + (setq menu (w3m-tab-menubar-make-items-1 buflst)) + (setq menu (list `(,(w3m-make-menu-item "¥¿¥Ö¤ÎÁªÂò" + "Select TAB") + ,@(w3m-tab-menubar-make-items-1 buflst))))) + (setq w3m-tab-menubar-make-items-preitems + (append menu + '("-") + '("-") + (w3m-make-menu-commands + w3m-tab-button-menu-commands))))))) + +(provide 'w3m-tabmenu) + +;;; w3m-tabmenu.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-ucs.el b/share/emacs/site-lisp/w3m/w3m-ucs.el new file mode 100644 index 00000000000..a9eab004ab1 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-ucs.el @@ -0,0 +1,109 @@ +;;; w3m-ucs.el --- CCL programs to process Unicode. + +;; Copyright (C) 2001, 2005, 2007 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; ARISAWA Akihiro <ari@mbf.sphere.ne.jp> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This file contains CCL codes to handle UCS characters in emacs-w3m. +;; For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + +;; This module requires `Mule-UCS' package. It can be downloaded from: +;; +;; ftp://ftp.m17n.org/pub/mule/Mule-UCS/ + +;;; Code: + +;; Enable XEmacs 21.5-Mule to compile this module anyway. +(eval-when-compile + (if (featurep 'xemacs) + (let ((mucs-ignore-version-incompatibilities t)) + (defvar font-ccl-encoder-alist nil) + (require 'un-define)))) + +(require 'un-define) +(require 'w3m-ccl) + +(eval-and-compile + (autoload 'w3m-make-ccl-coding-system "w3m")) + +(defun w3m-ucs-to-char (codepoint) + (condition-case nil + (or (ucs-to-char codepoint) ?~) + (error ?~))) + +(eval-and-compile + (defconst w3m-ccl-get-ucs-codepoint-with-mule-ucs + '(;; (1) Convert a set of r1 (charset-id) and r0 (codepoint) to a + ;; character in Emacs internal representation. + (if (r0 > 255) + ((r4 = (r0 & 127)) + (r0 = (((r0 >> 7) * 96) + r4)) + (r0 |= (r1 << 16))) + ((r0 |= (r1 << 16)))) + ;; (2) Convert a character in Emacs to a UCS codepoint. + (call emacs-char-to-ucs-codepoint-conversion) + (if (r0 <= 0) + (write-repeat ?~))) ; unknown character. + "CCL program to convert multibyte char to ucs with Mule-UCS.")) + +(define-ccl-program w3m-euc-japan-mule-ucs-encoder + `(4 + (loop + ,@w3m-ccl-write-euc-japan-character + ,@w3m-ccl-get-ucs-codepoint-with-mule-ucs + ,@w3m-ccl-generate-ncr))) + +(w3m-make-ccl-coding-system + 'w3m-euc-japan-mule-ucs ?E + "ISO 2022 based EUC encoding for Japanese with w3m internal characters. +A character that can not be encoded with `euc-japan' is converted to a +UCS codepoint with Mule-UCS, and the codepoint is represented as a +string which represents the character in Numeric Character +References (NCR). + (generated by `w3m')" + 'w3m-euc-japan-decoder + 'w3m-euc-japan-mule-ucs-encoder) + +(define-ccl-program w3m-iso-latin-1-mule-ucs-encoder + `(4 + (loop + ,@w3m-ccl-write-iso-latin-1-character + ,@w3m-ccl-get-ucs-codepoint-with-mule-ucs + ,@w3m-ccl-generate-ncr))) + +(w3m-make-ccl-coding-system + 'w3m-iso-latin-1-mule-ucs ?1 + "ISO 2022 based 8-bit encoding for Latin-1 with w3m internal characters. +A character that can not be encoded with `iso-latin-1' is converted to +a UCS codepoint with Mule-UCS, and the codepoint is represented as a +string which represents the character in Numeric Character +References (NCR). + (generated by `w3m')" + 'w3m-iso-latin-1-decoder + 'w3m-iso-latin-1-mule-ucs-encoder) + +(provide 'w3m-ucs) +;;; w3m-ucs.el ends here. diff --git a/share/emacs/site-lisp/w3m/w3m-util.el b/share/emacs/site-lisp/w3m/w3m-util.el new file mode 100644 index 00000000000..b0ea30b15be --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-util.el @@ -0,0 +1,1421 @@ +;;; w3m-util.el --- Utility macros and functions for emacs-w3m + +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; Shun-ichi GOTO <gotoh@taiyo.co.jp>, +;; Satoru Takabayashi <satoru-t@is.aist-nara.ac.jp>, +;; Hideyuki SHIRAI <shirai@meadowy.org>, +;; Keisuke Nishida <kxn30@po.cwru.edu>, +;; Yuuichi Teranishi <teranisi@gohome.org>, +;; Akihiro Arisawa <ari@mbf.sphere.ne.jp>, +;; Katsumi Yamaoka <yamaoka@jpl.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;; This module is a part of emacs-w3m which provides utility macros +;; and inline functions. Visit <URL:http://emacs-w3m.namazu.org/> for +;; more details of emacs-w3m. + +;;; Code: + +(eval-when-compile + (require 'cl)) + +;; Variables and functions which are used in the following inline +;; functions. They should be defined in the other module at run-time. +(eval-when-compile + (defvar w3m-current-process) + (defvar w3m-current-refresh) + (defvar w3m-current-title) + (defvar w3m-current-url) + (defvar w3m-fb-list-buffers-frame) + (defvar w3m-fb-mode) + (defvar w3m-mode-hook) + (defvar w3m-pop-up-frames) + (defvar w3m-pop-up-windows) + (defvar w3m-popup-frame-parameters) + (defvar w3m-refresh-timer) + (defvar w3m-select-buffer-name) + (defvar w3m-use-refresh) + (defvar w3m-use-tab) + (defvar w3m-work-buffer-list) + (defvar w3m-use-japanese-menu) + (defvar w3m-mode-map) + (defvar w3m-use-title-buffer-name) + (defvar w3m-buffer-unseen) + (defvar w3m-puny-utf-16be) + (unless (fboundp 'select-frame-set-input-focus) + (defalias 'select-frame-set-input-focus 'ignore))) + +(eval-and-compile + (when (featurep 'xemacs) + (require 'poe) + (require 'poem))) + +;;; Things should be defined in advance: +(eval-when-compile + (autoload 'w3m-fb-frame-parameter "w3m-fb") + (autoload 'w3m-history-restore-position "w3m-hist" nil t)) + +;;; Control structures: + +(defmacro w3m-static-if (cond then &rest else) + "Like `if', except that it evaluates COND at compile-time." + (if (eval cond) then `(progn ,@else))) +(put 'w3m-static-if 'lisp-indent-function 2) + +(put 'w3m-static-when 'lisp-indent-function 1) +(defmacro w3m-static-when (cond &rest body) + "Like `when', but evaluate COND at compile time." + (if (eval cond) + `(progn ,@body))) + +(put 'w3m-static-unless 'lisp-indent-function 1) +(defmacro w3m-static-unless (cond &rest body) + "Like `unless', but evaluate COND at compile time." + (if (eval cond) + nil + `(progn ,@body))) + +(defmacro w3m-static-cond (&rest clauses) + "Like `cond', except that it evaluates CONDITION part of each clause at +compile-time." + (while (and clauses + (not (eval (car (car clauses))))) + (setq clauses (cdr clauses))) + (if clauses + (cons 'progn (cdr (car clauses))))) + +(put 'w3m-condition-case lisp-indent-function 2) +(defmacro w3m-condition-case (var bodyform &rest handlers) + "Like `condition-case', except that signal an error if `debug-on-error' +or `debug-on-quit' is non-nil." + `(if (or debug-on-error debug-on-quit) + ,bodyform + (condition-case ,var + ,bodyform + ,@handlers))) + + +;;; Text props: + +(defmacro w3m-add-text-properties (start end props &optional object) + "Like `add-text-properties' but always add non-sticky properties." + (let ((non-stickies + (if (featurep 'xemacs) + ;; Default to start-closed and end-open in XEmacsen. + '(list 'start-open t) + ;; Default to front-nonsticky and rear-sticky in Emacsen. + '(list 'rear-nonsticky t)))) + `(add-text-properties ,start ,end + (append ,non-stickies ,props) + ,object))) + +(defun w3m-add-face-property (start end name &optional object) + "Add face NAME to the face text property of the text from START to END. +The value of the existing text property should be a list. +If the optional fourth argument OBJECT is a buffer (or nil, which means +the current buffer), START and END are buffer positions (integers or +markers). If OBJECT is a string, START and END are 0-based indices +into it." + (let ((pos start) + next prop) + (while (< pos end) + (setq prop (get-text-property pos 'face object) + next (next-single-property-change pos 'face object end)) + (w3m-add-text-properties pos next (list 'face (cons name prop)) object) + (setq pos next)))) + +(defun w3m-remove-face-property (start end name &optional object) + "Remove face NAME from the face text property of text from START to END. +The value of the existing text property should be a list. +If the optional fourth argument OBJECT is a buffer (or nil, which means +the current buffer), START and END are buffer positions (integers or +markers). If OBJECT is a string, START and END are 0-based indices +into it." + (let ((pos start) + next prop new-prop elem) + (while (< pos end) + (setq prop (get-text-property pos 'face object)) + (setq next (next-single-property-change pos 'face object end)) + (setq new-prop nil) + (while prop + (setq elem (pop prop)) + (unless (eq elem name) + (push elem new-prop))) + (when new-prop + (w3m-add-text-properties pos next + (list 'face new-prop))) + (setq pos next)))) + +(defmacro w3m-get-text-property-around (prop) + "Search for the text property PROP in one character before and behind +the current position. Return the value corresponding to PROP or nil. +If PROP is not found at the current position, point will move to the +position where PROP exists." + `(let ((position (point)) + value) + (or (get-text-property position ,prop) + (and (not (bolp)) + (setq value (get-text-property (1- position) ,prop)) + (goto-char (1- position)) + value) + (and (not (eolp)) + (setq value (get-text-property (1+ position) ,prop)) + (goto-char (1+ position)) + value)))) + +(defmacro w3m-action (&optional position) + "Return the value of the `w3m-action' property at the given POSITION. +NOTE: If POSITION is omitted, it searches for the property in one +character before and behind the current position, and point will move +to the position where the property exists." + (if position + `(get-text-property ,position 'w3m-action) + `(w3m-get-text-property-around 'w3m-action))) + +(defmacro w3m-anchor (&optional position) + "Return the value of the `w3m-href-anchor' property at the given POSITION. +NOTE: If POSITION is omitted, it searches for the property in one +character before and behind the current position, and point will move +to the position where the property exists." + (if position + `(get-text-property ,position 'w3m-href-anchor) + `(w3m-get-text-property-around 'w3m-href-anchor))) + +(defmacro w3m-image (&optional position) + "Return the value of the `w3m-image' property at the given POSITION. +NOTE: If POSITION is omitted, it searches for the property in one +character before and behind the current position, and point will move +to the position where the property exists." + (if position + `(get-text-property ,position 'w3m-image) + `(w3m-get-text-property-around 'w3m-image))) + +(defmacro w3m-image-alt (&optional position) + "Return the value of the `w3m-image-alt' property at the given POSITION. +NOTE: If POSITION is omitted, it searches for the property in one +character before and behind the current position, and point will move +to the position where the property exists." + (if position + `(get-text-property ,position 'w3m-image-alt) + `(w3m-get-text-property-around 'w3m-image-alt))) + +(defmacro w3m-submit (&optional position) + "Return the value of the `w3m-submit' property at the given POSITION. +NOTE: If POSITION is omitted, it searches for the property in one +character before and behind the current position, and point will move +to the position where the property exists." + (if position + `(get-text-property ,position 'w3m-submit) + `(w3m-get-text-property-around 'w3m-submit))) + +(defmacro w3m-anchor-sequence (&optional position) + "Return the value of the `w3m-anchor-sequence' property at POSITION. +If POSITION is omitted, the current position is assumed." + (if position + `(get-text-property ,position 'w3m-anchor-sequence) + '(get-text-property (point) 'w3m-anchor-sequence))) + + +;;; Attributes: + +(eval-and-compile + ;; `eval-and-compile' is necessary since the value of the constant + ;; is referred to at the compile time. + (defconst w3m-html-string-regexp + "\\(\"\\([^\"]+\\)\"\\|'\\([^']+\\)'\\|[^\"'<> \t\r\f\n]*\\)" + "Regexp matching a string of the field-value like <a href=\"VALUE\">.")) + +(put 'w3m-parse-attributes 'lisp-indent-function '1) +(def-edebug-spec w3m-parse-attributes + ((&rest &or (symbolp &optional symbolp) symbolp) body)) +(defmacro w3m-parse-attributes (attributes &rest forms) + "Extract ATTRIBUTES, KEYWORD=\"VALUE\" pairs, in a tag and run FORMS. +ATTRIBUTES is a list of symbols that looks like `(KEYWORD KEYWORD...)'. +A symbol KEYWORD, that will express a value extracted from a tag, can +be used as a Lisp variable within FORMS. The point has to be within +a tag initially, and only attributes that follow the point will be +extracted. + +The value of KEYWORD is a string by default, or is nil if the KEYWORD +is not found in a tag. KEYWORD can be `(KEYWORD TYPE)', where TYPE is +one of `:case-ignore', `:integer', `:bool', and `:decode-entity'. +Those types mean converting the value into a lower-case string, +an integer, a boolean (t or nil), and a decoded string respectively." + `(let (,@(mapcar (lambda (attr) + (if (listp attr) + (car attr) + attr)) + attributes)) + (skip-chars-forward " \t\r\f\n") + (while + (cond + ,@(mapcar + (lambda (attr) + (or (symbolp attr) + (and (listp attr) + (<= (length attr) 2) + (symbolp (car attr))) + (error "Internal error, type mismatch")) + (let ((sexp (quote + (w3m-remove-redundant-spaces + (or (match-string-no-properties 2) + (match-string-no-properties 3) + (match-string-no-properties 1))))) + type) + (when (listp attr) + (setq type (nth 1 attr)) + (cond + ((eq type :case-ignore) + (setq sexp (list 'downcase sexp))) + ((eq type :integer) + (setq sexp (list 'string-to-number sexp))) + ((eq type :bool) + (setq sexp t)) + ((eq type :decode-entity) + (setq sexp (list 'w3m-decode-entities-string sexp))) + ((nth 1 attr) + (error "Internal error, unknown modifier"))) + (setq attr (car attr))) + `((looking-at + ,(if (eq type :bool) + (format "%s\\(?:[ \t\r\f\n]*=[ \t\r\f\n]*%s\\)?" + (symbol-name attr) + w3m-html-string-regexp) + (format "%s[ \t\r\f\n]*=[ \t\r\f\n]*%s" + (symbol-name attr) + w3m-html-string-regexp))) + (setq ,attr ,sexp)))) + attributes) + ((looking-at ,(concat "[A-Za-z]*[ \t\r\f\n]*=[ \t\r\f\n]*" + w3m-html-string-regexp))) + ((looking-at "[^<> \t\r\f\n]+"))) + (goto-char (match-end 0)) + (skip-chars-forward " \t\r\f\n")) + (skip-chars-forward "^>") + (forward-char) + ,@forms)) + + +;;; Working buffers: + +(defun w3m-get-buffer-create (name) + "Return the buffer named NAME, or create such a buffer and return it." + (or (get-buffer name) + (let ((buf (get-buffer-create name))) + (setq w3m-work-buffer-list (cons buf w3m-work-buffer-list)) + (buffer-disable-undo buf) + buf))) + +(defun w3m-kill-buffer (buffer) + "Kill the buffer BUFFER and remove it from `w3m-work-buffer-list'. +The argument may be a buffer or may be the name of a buffer. +An argument of nil means kill the current buffer." + (unless buffer + (setq buffer (current-buffer))) + (when (stringp buffer) + (setq buffer (get-buffer buffer))) + (when (buffer-live-p buffer) + (kill-buffer buffer)) + (setq w3m-work-buffer-list (delq buffer w3m-work-buffer-list)) + nil) + +(defun w3m-kill-all-buffer () + "Kill all working buffer." + (dolist (buf w3m-work-buffer-list) + (when (buffer-live-p buf) + (kill-buffer buf))) + (setq w3m-work-buffer-list nil)) + +(defun w3m-current-title () + "Return the title of the current buffer." + (cond + (w3m-current-process + "<retrieving>") + ((and (stringp w3m-current-title) + (not (string= w3m-current-title "<no-title>"))) + w3m-current-title) + ((stringp w3m-current-url) + (directory-file-name + (if (string-match "^[^/:]+:/+" w3m-current-url) + (substring w3m-current-url (match-end 0)) + w3m-current-url))) + (t "<no-title>"))) + +(defun w3m-buffer-title (buffer) + "Return the title of the buffer BUFFER." + (with-current-buffer buffer + (w3m-current-title))) + +(defun w3m-buffer-number (buffer) + (when (and (bufferp buffer) + (string-match "\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" + (buffer-name buffer))) + (if (match-beginning 1) + (string-to-number (match-string 2 (buffer-name buffer))) + 1))) ;; `1' should not be represented in the buffer name. + +(defun w3m-buffer-set-number (buffer number) + (with-current-buffer buffer + (let ((newname (if w3m-use-title-buffer-name + (if (= number 1) + (format "%s *w3m*" (w3m-current-title)) + (format "%s *w3m*<%d>" (w3m-current-title) number)) + (if (= number 1) + "*w3m*" + (format "*w3m*<%d>" number))))) + (if (eq (w3m-buffer-number buffer) number) + (when w3m-use-title-buffer-name + (unless (get-buffer newname) + (rename-buffer newname))) + (unless (get-buffer newname) + (rename-buffer newname)))))) + +(defun w3m-buffer-name-add-title () + "Add current tile to buffer name." + (when w3m-use-title-buffer-name + (let ((number (w3m-buffer-number (current-buffer))) + newname) + (if (= number 1) + (setq newname (format "%s *w3m*" (w3m-current-title))) + (setq newname (format "%s *w3m*<%d>" (w3m-current-title) number))) + (rename-buffer newname)))) + +(defun w3m-generate-new-buffer (name) + (if w3m-use-title-buffer-name + (let* ((maxbuf (let ((w3m-fb-mode nil)) + (car (nreverse (w3m-list-buffers))))) + (number (w3m-buffer-number maxbuf))) + (when (string-match "\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" name) + (setq name "*w3m*")) + (if (and maxbuf number) + (generate-new-buffer (format "%s<%d>" name (1+ number))) + (generate-new-buffer name))) + (generate-new-buffer name))) + +(defun w3m-buffer-name-lessp (x y) + "Return t if first arg buffer's name is less than second." + (when (bufferp x) + (setq x (buffer-name x))) + (when (bufferp y) + (setq y (buffer-name y))) + (if (and (string-match "\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" x) + (setq x (cons x + (if (match-beginning 1) + (string-to-number (match-string 2 x)) + 1)))) + (if (string-match "\\*w3m\\*\\(<\\([0-9]+\\)>\\)?\\'" y) + (< (cdr x) + (if (match-beginning 1) + (string-to-number (match-string 2 y)) + 1)) + (string< (car x) y)) + (string< x y))) + +(defun w3m-list-buffers (&optional nosort) + "Return a list of buffers in which emacs-w3m sessions are open. +If the optional NOSORT is nil, the list is sorted in the order of +buffer names." + (let ((buffers (buffer-list)) + buffer rest) + (save-current-buffer + (while buffers + (set-buffer (setq buffer (pop buffers))) + (when (eq major-mode 'w3m-mode) + (push buffer rest)))) + (setq buffers (if nosort + (nreverse rest) + (sort rest #'w3m-buffer-name-lessp))) + (when (and (boundp 'w3m-fb-mode) + w3m-fb-mode + (if (or w3m-pop-up-frames + (not (memq 'w3m-fb-add w3m-mode-hook))) + ;; `w3m-fb-mode' might have been set by something + ;; other than the `w3m-fb-mode' function. + (setq w3m-fb-mode nil) + t)) + ;; Don't just return `w3m-fb-buffer-list' for the selected frame + ;; because `buffers' may have been sorted. + (let ((fbs (w3m-fb-frame-parameter w3m-fb-list-buffers-frame + 'w3m-fb-buffer-list))) + (setq rest buffers) + (while rest + (unless (memq (setq buffer (pop rest)) fbs) + (setq buffers (delq buffer buffers)))))) + buffers)) + + +;;; Pop up and delete buffers, windows or frames: + +(defmacro w3m-popup-frame-parameters () + "Return a pop-up frame plist if this file is compiled for XEmacs, +otherwise return an alist." + (if (featurep 'xemacs) + '(let ((params (or w3m-popup-frame-parameters pop-up-frame-plist))) + (if (consp (car-safe params)) + (alist-to-plist params) + params)) + '(let ((params (or w3m-popup-frame-parameters pop-up-frame-alist)) + alist) + (if (consp (car-safe params)) + params + (while params + (push (cons (car params) (cdr params)) alist) + (setq params (cddr params))) + (nreverse alist))))) + +(defun w3m-device-on-window-system-p () + "Return non-nil if the selected frame is on a widnow system" + (w3m-static-if (featurep 'xemacs) + (device-on-window-system-p) + window-system)) + +(defmacro w3m-popup-frame-p () + "Return non-nil if `w3m-pop-up-frames' is non-nil and Emacs really +supports separate frames." + '(and w3m-pop-up-frames (w3m-device-on-window-system-p))) + +(defmacro w3m-use-tab-p () + "Return non-nil if `w3m-use-tab' is non-nil and Emacs really supports +the tabs line." + (cond ((featurep 'xemacs) + '(and w3m-use-tab (device-on-window-system-p))) + (t + 'w3m-use-tab))) + +(defun w3m-lefttab-exist-p (&optional buffer) + (not (eq (or buffer (current-buffer)) (car (w3m-list-buffers))))) + +(defun w3m-righttab-exist-p (&optional buffer) + (let ((bufs (w3m-list-buffers)) + (cbuf (or buffer (current-buffer))) + buf) + (catch 'exist + (while (setq buf (car bufs)) + (setq bufs (cdr bufs)) + (when (eq cbuf buf) + (throw 'exist bufs)))))) + +(defmacro w3m-popup-window-p () + "Return non-nil if `w3m-pop-up-windows' is non-nil and the present +situation allows it." + '(and w3m-pop-up-windows + (not (w3m-use-tab-p)) + (not (get-buffer-window w3m-select-buffer-name)))) + +(defvar w3m-initial-frames nil + "Variable used to keep a list of the frame-IDs when emacs-w3m sessions +are popped-up as new frames. This variable is used for the control +for not deleting frames made for aims other than emacs-w3m sessions.") +(make-variable-buffer-local 'w3m-initial-frames) + +(defun w3m-popup-buffer (buffer) + "Pop up BUFFER as a new window or a new frame +according to `w3m-pop-up-windows' and `w3m-pop-up-frames' (which see)." + (let ((window (get-buffer-window buffer t)) + (oframe (selected-frame)) + (popup-frame-p (w3m-popup-frame-p)) + frame pop-up-frames buffers other) + (if (setq + pop-up-frames + (if window ;; The window showing BUFFER already exists. + ;; Don't pop up a new frame if it is just the current frame. + (not (eq (setq frame (window-frame window)) oframe)) + ;; There is no window for BUFFER, so look for the existing + ;; emacs-w3m window if the tabs line is enabled or the + ;; selection window exists (i.e., we can reuse it). + (if (or (w3m-use-tab-p) + (get-buffer-window w3m-select-buffer-name t)) + (progn + (setq buffers (delq buffer (w3m-list-buffers t))) + (while (and (not window) + buffers) + (setq window + (get-buffer-window (setq other (pop buffers)) t))) + (if window ;; The window showing another buffer exists. + (not (eq (setq frame (window-frame window)) oframe)) + (setq other nil) + ;; There is no window after all, so leave to the value + ;; of `w3m-pop-up-frames' whether to pop up a new frame. + popup-frame-p)) + ;; Ditto. + popup-frame-p))) + (progn + (cond (other + ;; Pop up another emacs-w3m buffer and switch to BUFFER. + (pop-to-buffer other) + ;; Change the value for BUFFER's `w3m-initial-frames'. + (setq w3m-initial-frames + (prog1 + (copy-sequence w3m-initial-frames) + (switch-to-buffer buffer)))) + (frame + ;; Pop up the existing frame which shows BUFFER. + (pop-to-buffer buffer)) + (t + ;; Pop up a new frame. + (let* ((pop-up-frame-alist (w3m-popup-frame-parameters)) + (pop-up-frame-plist pop-up-frame-alist)) + (pop-to-buffer buffer)) + (setq frame (window-frame (get-buffer-window buffer t))))) + ;; Raise, select and focus the frame. + (if (fboundp 'select-frame-set-input-focus) + (select-frame-set-input-focus frame) + (raise-frame frame) + (select-frame frame) + (w3m-static-when (featurep 'xemacs) + (focus-frame frame))) + (w3m-history-restore-position)) + (unless (prog1 + (eq buffer (current-buffer)) + ;; Simply switch to BUFFER in the current frame. + (if (w3m-popup-window-p) + (let ((pop-up-windows t)) + (pop-to-buffer buffer)) + (switch-to-buffer buffer))) + (w3m-history-restore-position))))) + +(eval-when-compile + (when (and (fboundp 'select-frame-set-input-focus) + (eq (symbol-function 'select-frame-set-input-focus) 'ignore)) + (fmakunbound 'select-frame-set-input-focus))) + +(defun w3m-add-w3m-initial-frames (&optional frame) + "Add FRAME into `w3m-initial-frames', the buffer-local variable. +It is done when FRAME is newly created for the emacs-w3m session. +This function is added to the hook which is different with the Emacs +version as follows: + +XEmacs `create-frame-hook' +Emacs 21,22 `after-make-frame-functions' +Emacs 19 `after-make-frame-hook' + +Note that `after-make-frame-hook' doesn't take an argument." + (unless frame + (setq frame (selected-frame))) + ;; Share the opened frame in `w3m-initial-frames' over all emacs-w3m + ;; buffers if `w3m-use-tab' is non-nil. Otherwise, the frame is + ;; appended into `w3m-initial-frames' only in the current buffer. + (with-current-buffer (window-buffer (frame-first-window frame)) + (when (eq major-mode 'w3m-mode) + (unless (memq frame w3m-initial-frames) + (push frame w3m-initial-frames)) + (when w3m-use-tab + (dolist (buffer (delq (current-buffer) (w3m-list-buffers t))) + (set-buffer buffer) + (unless (memq frame w3m-initial-frames) + (push frame w3m-initial-frames))))))) + +(add-hook (if (featurep 'xemacs) + 'create-frame-hook + 'after-make-frame-functions) + 'w3m-add-w3m-initial-frames) + +(defun w3m-delete-w3m-initial-frames (frame) + "Delete FRAME from `w3m-initial-frames', the buffer-local variable. +It is done when the FRAME in which emacs-w3m is running is deleted. +This function is added to `delete-frame-hook' (`delete-frame-functions' +is used instead in Emacs 22) or merged into the `delete-frame' function +using `defadvice'." + (save-current-buffer + (dolist (buffer (w3m-list-buffers t)) + (set-buffer buffer) + (setq w3m-initial-frames (delq frame w3m-initial-frames))))) + +(cond ((boundp 'delete-frame-functions) + (add-hook 'delete-frame-functions 'w3m-delete-w3m-initial-frames)) + (t + (add-hook 'delete-frame-hook 'w3m-delete-w3m-initial-frames))) + +(defun w3m-delete-frames-and-windows (&optional exception) + "Delete all frames and windows related to emacs-w3m buffers. +If EXCEPTION is a buffer, a window or a frame, it and related visible +objects will not be deleted. There are special cases; the following +objects will not be deleted: + +1. The sole frame in the display device. +2. Frames created not for emacs-w3m sessions. +3. Frames showing not only emacs-w3m sessions but also other windows.\ +" + (let ((buffers (delq exception (w3m-list-buffers t))) + buffer windows window frame one-window-p flag) + (save-current-buffer + (while buffers + (setq buffer (pop buffers) + windows (delq exception + (get-buffer-window-list buffer 'no-minibuf t))) + (set-buffer buffer) + (while windows + (setq window (pop windows) + frame (window-frame window)) + (when (and frame + (not (eq frame exception))) + (setq one-window-p + (w3m-static-if (featurep 'xemacs) + (one-window-p t frame) + ;; Emulate XEmacs version's `one-window-p'. + (prog2 + (setq flag nil) + (catch 'exceeded + (walk-windows (lambda (w) + (when (eq (window-frame w) frame) + (if flag + (throw 'exceeded nil) + (setq flag t)))) + 'no-minibuf t) + flag) + (set-buffer buffer)))) + (if (and (memq frame w3m-initial-frames) + (not (eq (next-frame frame) frame))) + (if (or + ;; A frame having the sole window can be deleted. + one-window-p + ;; Also a frame having only windows for emacs-w3m + ;; sessions or the buffer selection can be deleted. + (progn + (setq flag t) + (walk-windows + (lambda (w) + (when flag + (if (eq w exception) + (setq flag nil) + (set-buffer (window-buffer w)) + (setq flag (or (memq major-mode + '(w3m-mode + w3m-select-buffer-mode + w3m-session-select-mode)) + (string-match "\\` ?\\*w3m[ -]" + (buffer-name))))))) + 'no-minibuf) + (set-buffer buffer) + flag)) + (delete-frame frame) + (delete-window window)) + (unless one-window-p + (delete-window window))))))))) + + +;;; Miscellaneous: + +(defconst w3m-url-fallback-base "http:///") +(defconst w3m-url-invalid-regexp "\\`http:///") + +(defun w3m-url-valid (url) + (and url (not (string-match w3m-url-invalid-regexp url)) + url)) + +(defmacro w3m-set-match-data (list) + "Same as the `set-match-data'; convert points into markers under XEmacs." + (if (featurep 'xemacs) + `(let ((list ,list)) + (store-match-data (dolist (pt (prog1 list (setq list nil)) + (nreverse list)) + (push (if (markerp pt) + pt + (set-marker (make-marker) pt)) + list)))) + `(set-match-data ,list))) + +(defun w3m-search-tag-1 (regexp) + "Subroutine used by `w3m-search-tag'." + (let ((start (point)) + begin end) + (if (and (re-search-forward regexp nil t) + (setq begin (match-beginning 0) + end (match-end 0)) + (or (looking-at "/?>") + (and (looking-at "[ \t\f\n]") + (search-forward ">" nil t)))) + (prog1 + (goto-char (match-end 0)) + (w3m-set-match-data + (cond ((= end (match-beginning 0)) + (list begin (match-end 0) + (1+ begin) end)) + ((eq (char-before (match-beginning 0)) ?/) + (if (= end (1- (match-beginning 0))) + (list begin (match-end 0) + (1+ begin) end) + (list begin (match-end 0) + (1+ begin) end + end (- (match-end 0) 2)))) + (t + (list begin (match-end 0) + (1+ begin) end + end (1- (match-end 0))))))) + (set-match-data nil) + (goto-char start) + nil))) + +(defmacro w3m-search-tag (&rest names) + "Search forward for a tag which begins with one of NAMES. +This macro generates the form equivalent to: + +\(re-search-forward \"<\\\\(NAMES\\\\)\\\\([ \\t\\f\\n]+[^>]*\\\\)?/?>\" nil t) + +but it works even if the tag is considerably large. + +Note: this macro allows only strings for NAMES, that is, a form +something like `(if foo \"bar\" \"baz\")' cannot be used." + `(w3m-search-tag-1 ,(concat "<" (regexp-opt names t)))) + +(defun w3m-string-match-url-components-1 (string) + "Subroutine used by `w3m-string-match-url-components'." + + ;; ^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))? + ;; 12 3 4 5 6 7 8 9 + + (let ((md (make-vector 20 nil)) + pt) + (with-temp-buffer + (w3m-static-unless (featurep 'xemacs) + (set-buffer-multibyte (multibyte-string-p string))) + (insert string) + (goto-char (point-min)) + (aset md 0 0) + (aset md 1 (1- (point-max))) + (when (looking-at "[^:/?#]+:") + (aset md 2 0) + (aset md 4 0) + (goto-char (match-end 0)) + (aset md 3 (setq pt (1- (point)))) + (aset md 5 (1- pt))) + (when (looking-at "//") + (aset md 6 (1- (point))) + (forward-char 2) + (aset md 8 (1- (point))) + (skip-chars-forward "^/?#") + (aset md 7 (setq pt (1- (point)))) + (aset md 9 pt)) + (aset md 10 (1- (point))) + (skip-chars-forward "^?#") + (aset md 11 (setq pt (1- (point)))) + (when (eq (char-after) ??) + (aset md 12 pt) + (forward-char 1) + (aset md 14 (1- (point))) + (skip-chars-forward "^#") + (aset md 13 (setq pt (1- (point)))) + (aset md 15 pt)) + (unless (eobp) + (aset md 16 (1- (point))) + (aset md 18 (point)) + (aset md 17 (setq pt (1- (point-max)))) + (aset md 19 pt))) + (set-match-data (append md nil))) + 0) + +(defconst w3m-url-components-regexp + "\\`\\(\\([^:/?#]+\\):\\)?\\(//\\([^/?#]*\\)\\)?\ +\\([^?#]*\\)\\(\\?\\([^#]*\\)\\)?\\(#\\(.*\\)\\)?\\'" + "Regexp used for parsing a URI Reference. +It matches the potential four components and fragment identifier of a +URI reference. See RFC2396, Appendix B for details.") + +(defmacro w3m-string-match-url-components (string) + "Do the same thing as `(string-match w3m-url-components-regexp STRING)'. +But this function should work even if STRING is considerably long." + `(let ((string ,string)) + (condition-case nil + (string-match w3m-url-components-regexp string) + (error ;; Stack overflow in regexp matcher + (w3m-string-match-url-components-1 string))))) + +(defun w3m-time-newer-p (a b) + "Return t, if A is newer than B. Otherwise return nil. +A and B are lists which represent time in Emacs-style. If value is +nil, it is regarded as the oldest time." + (and a + (or (not b) + (or (> (car a) (car b)) + (and (= (car a) (car b)) + (> (nth 1 a) (nth 1 b))))))) + +(defun w3m-time-lapse-seconds (start end) + "Return lapse seconds from START to END. +START and END are lists which represent time in Emacs-style." + (+ (* (- (car end) (car start)) 65536) + (cadr end) + (- (cadr start)))) + +(defalias 'w3m-float-time + (if (fboundp 'float-time) + 'float-time + (lambda (&optional specified-time) + "Return the current time, as a float number of seconds since the epoch. +If an argument is given, it specifies a time to convert to float +instead of the current time. The argument should have the forms: + (HIGH . LOW) or (HIGH LOW USEC) or (HIGH LOW . USEC). + +WARNING: Since the result is floating point, it may not be exact. +Do not use this function if precise time stamps are required." + (let ((time (or specified-time (current-time)))) + (+ (* (car time) 65536.0) + (cadr time) + (cond ((consp (setq time (cddr time))) + (/ (car time) 1000000.0)) + (time + (/ time 1000000.0)) + (t + 0))))))) + +(defun w3m-url-local-p (url) + "If URL points a file on the local system, return non-nil value. +Otherwise return nil." + (string-match "\\`file:" url)) + +(defconst w3m-url-authinfo-regexp + "\\`\\([^:/?#]+:\\)?//\\([^/?#:]+\\)\\(?::\\([^/?#@]+\\)\\)?@" + "Regular expression for parsing the authentication part of a URI reference") + +(defun w3m-url-authinfo (url) + "Return a user name and a password to authenticate URL." + (when (string-match w3m-url-authinfo-regexp url) + (cons (match-string 2 url) + (match-string 3 url)))) + +(defun w3m-url-strip-authinfo (url) + "Remove the authentication part from the URL." + (if (string-match w3m-url-authinfo-regexp url) + (concat (match-string 1 url) + "//" + (substring url (match-end 0))) + url)) + +(defun w3m-url-strip-fragment (url) + "Remove the fragment identifier from the URL." + (if (string-match "\\`\\([^#]*\\)#" url) + (match-string 1 url) + url)) + +(defun w3m-url-strip-query (url) + "Remove the query part and the fragment identifier from the URL." + (if (string-match "\\`\\([^?#]*\\)[?#]" url) + (match-string 1 url) + url)) + +(defun w3m-get-server-hostname (url) + "Extract a server root from URL." + (when (string-match "\\`about://[^/?#]+/" url) + (setq url (substring url (match-end 0)))) + (setq url (w3m-url-strip-authinfo url)) + (if (string-match "\\`[^:/?#]+://\\([^/?#]+\\)" url) + (downcase (match-string 1 url)) + url)) + +(defun w3m-which-command (command) + (when (stringp command) + (if (and (file-name-absolute-p command) + (file-executable-p command)) + command + (setq command (file-name-nondirectory command)) + (catch 'found-command + (let (bin) + (dolist (dir exec-path) + (setq bin (expand-file-name command dir)) + (when (or (and (file-executable-p bin) + (not (file-directory-p bin))) + (and (file-executable-p (setq bin (concat bin ".exe"))) + (not (file-directory-p bin)))) + (throw 'found-command bin)))))))) + +(defun w3m-cancel-refresh-timer (&optional buffer) + "Cancel the timer for REFRESH attribute in META tag." + (when w3m-use-refresh + (with-current-buffer (or buffer (current-buffer)) + (setq w3m-current-refresh nil) + (when w3m-refresh-timer + (w3m-static-if (featurep 'xemacs) + (delete-itimer w3m-refresh-timer) + (cancel-timer w3m-refresh-timer)) + (setq w3m-refresh-timer nil))))) + +(cond ((featurep 'xemacs) + ;; The function of the XEmacs version doesn't work correctly + ;; for wide characters. + (defun w3m-truncate-string (str end-column) + "Truncate string STR to end at column END-COLUMN." + (let ((len (length str)) + (column 0) + (idx 0)) + (condition-case nil + (while (< column end-column) + (setq column (+ column (char-width (aref str idx))) + idx (1+ idx))) + (args-out-of-range (setq idx len))) + (when (> column end-column) + (setq idx (1- idx))) + (substring str 0 idx)))) + (t + (defalias 'w3m-truncate-string 'truncate-string-to-width))) + +(defun w3m-assoc-ignore-case (name alist) + "Return the element of ALIST whose car equals NAME ignoring its case." + (let ((dname (downcase name)) + match) + (while alist + (when (and (consp (car alist)) + (string= dname (downcase (car (car alist))))) + (setq match (car alist) + alist nil)) + (setq alist (cdr alist))) + match)) + +(defun w3m-prin1 (object &optional stream) + "Like `prin1', except that control chars will be represented with ^ as +`cat -v' does." + (if (stringp object) + (let (rest) + (dolist (char (append object nil) rest) + (cond ((eq char ?\C-?) + (push "^?" rest)) + ((or (memq char '(?\t ?\n)) + (>= char ?\ )) + (push (char-to-string char) rest)) + (t + (push (concat "^" (char-to-string (+ 64 char))) rest)))) + (prin1 (apply 'concat (nreverse rest)) stream)) + (prin1 object stream))) + +(defun w3m-modify-plist (plist &rest properties) + "Change values in PLIST corresponding to PROPERTIES. This is similar +to `plist-put', but handles plural symbol and value pairs and remove +pairs from PLIST whose value is nil." + (while properties + (setq plist (plist-put plist (car properties) (cadr properties)) + properties (cddr properties))) + (while plist + (if (cadr plist) + (setq properties (nconc properties (list (car plist) (cadr plist))))) + (setq plist (cddr plist))) + properties) + +(def-edebug-spec w3m-insert-string (form)) +(defmacro w3m-insert-string (string) + "Insert STRING at point without conversions in either case the +multibyteness of the buffer." + (if (and (fboundp 'string-as-multibyte) + (subrp (symbol-function 'string-as-multibyte))) + `(let ((string ,string)) + (insert (if enable-multibyte-characters + (string-as-multibyte string) + (string-as-unibyte string)))) + `(insert ,string))) + +(defun w3m-custom-hook-initialize (symbol value) + "Initialize the hook option pointed by the SYMBOL with the default VALUE." + (if (boundp symbol) + (progn + (setq value (eval value)) + (while value + (add-hook symbol (car value)) + (setq value (cdr value)))) + (custom-initialize-set symbol value))) + +(defun w3m-run-mode-hooks (&rest funcs) + "Run `run-mode-hooks' if it is available, otherwise `run-hooks'." + (if (fboundp 'run-mode-hooks) + (apply 'run-mode-hooks funcs) + (apply 'run-hooks funcs))) + +(defmacro w3m-keep-region-active () + "Keep the region active after evaluating this current command. +In XEmacs, `zmacs-region-stays' is set to nil everywhen a command is +evaluated. This means that the region is always deactivated after +evaluating the current command. This macro sets t to it, and keeps +the region active." + (when (featurep 'xemacs) + '(if (interactive-p) + (setq zmacs-region-stays t)))) + +(defmacro w3m-deactivate-region () + "Deactivate the region." + (if (featurep 'xemacs) + '(zmacs-deactivate-region) + '(deactivate-mark))) + +(defmacro w3m-region-active-p () + "Say whether the region is active." + (if (fboundp 'region-active-p) + (list 'region-active-p) + (list 'and 'transient-mark-mode 'mark-active))) + +(eval-and-compile + (cond + ((fboundp 'replace-regexp-in-string) + (defun w3m-replace-in-string (string regexp newtext &optional literal) + ;;(replace-regexp-in-string regexp newtext string nil literal))) + ;; + ;; Don't call the symbol function `replace-regexp-in-string' directly + ;; in order to silence the byte-compiler when an Emacs which doesn't + ;; provide it is used. The following form generates exactly the same + ;; byte-code. + (funcall (symbol-function 'replace-regexp-in-string) + regexp newtext string nil literal))) + (t + (defalias 'w3m-replace-in-string 'replace-in-string)))) + +(if (fboundp 'compare-strings) + (defalias 'w3m-compare-strings 'compare-strings) + (defun w3m-compare-strings (string1 start1 end1 string2 start2 end2) + "Compare the contents of two strings." + (let* ((str1 (substring string1 start1 end1)) + (str2 (substring string2 start2 end2)) + (len (min (length str1) (length str2))) + (i 0)) + (if (string= str1 str2) + t + (setq i (catch 'ignore + (while (< i len) + (when (not (eq (aref str1 i) (aref str2 i))) + (throw 'ignore i)) + (setq i (1+ i))) + i)) + (1+ i))))) + +(eval-and-compile + ;; This function will be redefined in w3m-ems.el. + (unless (fboundp 'w3m-force-window-update) + (defalias 'w3m-force-window-update 'ignore))) + +(if (boundp 'header-line-format) + (defun w3m-force-window-update-later (buffer &optional seconds) + "Update the header-line appearance in BUFFER after SECONDS. +If SECONDS is omitted, it defaults to 0.5." + (run-at-time (or seconds 0.5) nil + (lambda (buffer) + (when (and (buffer-live-p buffer) + (eq (get-buffer-window buffer t) + (selected-window))) + (w3m-force-window-update))) + buffer)) + (defalias 'w3m-force-window-update-later 'ignore)) + +(if (fboundp 'read-number) + (defalias 'w3m-read-number 'read-number) + (defun w3m-read-number (prompt &optional default) + "Read a numeric value in the minibuffer, prompting with PROMPT. +DEFAULT specifies a default value to return if the user just types RET. +The value of DEFAULT is inserted into PROMPT." + (let ((n nil)) + (when default + (setq prompt + (if (string-match "\\(\\):[ \t]*\\'" prompt) + (replace-match (format " (default %s)" default) t t prompt 1) + (w3m-replace-in-string prompt "[ \t]*\\'" + (format " (default %s) " default) + t)))) + (while + (progn + (let ((str (read-from-minibuffer + prompt nil nil nil nil + (and default (number-to-string default))))) + (condition-case nil + (setq n (cond + ((zerop (length str)) default) + ((stringp str) (read str)))) + (error nil))) + (unless (numberp n) + (message "Please enter a number.") + (sit-for 1) + t))) + n))) + +(defun w3m-make-menu-item (japan english) + "Make menu item." + (cond + ((and w3m-use-japanese-menu (featurep 'xemacs)) + (concat japan "%_ ")) + (w3m-use-japanese-menu + japan) + (t + english))) + +(defvar w3m-make-menu-commands-keys nil) + +(defun w3m-make-menu-commands (menu-commands) + "Make menu items." + (mapcar + (lambda (c) + (if (consp c) + (vector + (cadr c) + (if (nth 3 c) + `(progn + (switch-to-buffer w3m-tab-button-menu-current-buffer) + (funcall (function ,(car c)) ,@(nthcdr 4 c))) + `(save-window-excursion + (switch-to-buffer w3m-tab-button-menu-current-buffer) + (funcall (function ,(car c)) ,@(nthcdr 4 c)))) + :active (nth 2 c) + :keys (or (and (assq (car c) w3m-make-menu-commands-keys) + (cdr (assq (car c) w3m-make-menu-commands-keys))) + (let ((key (where-is-internal (car c) w3m-mode-map))) + (when key + (setq w3m-make-menu-commands-keys + (cons (cons (car c) + (key-description (car key))) + w3m-make-menu-commands-keys)) + (cdr (car w3m-make-menu-commands-keys)))))) + (symbol-name c))) + menu-commands)) + +(eval-when-compile (require 'wid-edit)) +(defun w3m-widget-type-convert-widget (widget) + "Convert the car of `:args' as a widget type in WIDGET." + (apply 'widget-convert (widget-type widget) + (eval (car (widget-get widget :args))))) + +(defun w3m-unseen-buffer-p (buffer) + "Return t if buffer unseen." + (with-current-buffer buffer + w3m-buffer-unseen)) + +(defun w3m-visited-file-modtime () + "Replacement of `visited-file-modtime'. +It returns a list of two integers if the current buffer visits a file, +otherwise returns the number 0. In modern Emacsen, this function will +get to be the alias to `visited-file-modtime'." + (let ((modtime (visited-file-modtime))) + (cond ((consp (cdr-safe modtime)) + (defalias 'w3m-visited-file-modtime 'visited-file-modtime) + modtime) + ((integerp (cdr-safe modtime)) + ;; XEmacs version returns `(0 . 0)' if no file is visited. + (if (and (= (car modtime) 0) (= (cdr modtime) 0)) + 0 + (list (car modtime) (cdr modtime)))) + (t + modtime)))) + +;;; Punycode RFC 3492: + +(defconst w3m-puny-code-regex "xn--\\([-0-9a-zA-z]+\\)") +(defconst w3m-puny-code-nonascii "[^\000-\177]") + +(defconst w3m-puny-base 36) +(defconst w3m-puny-tmin 1) +(defconst w3m-puny-tmax 26) +(defconst w3m-puny-damp 700) +(defconst w3m-puny-skew 38) +(defconst w3m-puny-initial-bias 72) +(defconst w3m-puny-initial-n 128) +(defconst w3m-puny-delimiter ?-) + +(defun w3m-puny-adapt (delta numpoints firsttime) + (let ((k 0)) + (if firsttime + (setq delta (/ delta w3m-puny-damp)) + (setq delta (/ delta 2))) + (setq delta (+ delta (/ delta numpoints))) + (while (> delta (/ (* (- w3m-puny-base w3m-puny-tmin) w3m-puny-tmax) 2)) + (setq delta (/ delta (- w3m-puny-base w3m-puny-tmin))) + (setq k (+ k w3m-puny-base))) + (+ k (/ (* (1+ (- w3m-puny-base w3m-puny-tmin)) delta) (+ delta w3m-puny-skew))))) + +(defun w3m-puny-decode-digit (cp) + (if (< (- cp 48) 10) + (- cp 22) + (if (< (- cp 65) 26) + (- cp 65) + (if (< (- cp 97) 26) + (- cp 97) + w3m-puny-base)))) + +(defun w3m-puny-encode-digit (d) + (if (< d 26) + (+ d 22 75) ;; a-z + (+ d 22))) ;; 0-9 + +(defun w3m-puny-decode1 (input) + (let* ((n w3m-puny-initial-n) + (bias w3m-puny-initial-bias) + (len (length input)) + (in 0) (out 0) + (i 0) (b 0) + digit thr oldi w k output ret) + (dotimes (j len) + (if (= (aref input j) w3m-puny-delimiter) (setq b j))) + (dotimes (j b) + (setq output (cons (aref input j) output)) + (setq out (1+ out))) + (setq output (nreverse output)) + (if (> b 0) (setq in (1+ b)) (setq in 0)) + (while (< in len) + (setq oldi i) + (setq w 1) + (setq k w3m-puny-base) + (catch 'loop + (while t + (if (>= in len) (error "punycode bad input")) + (setq digit (w3m-puny-decode-digit (aref input in))) + (if (>= digit w3m-puny-base) (error "punycode bad input")) + (setq in (1+ in)) + (setq i (+ i (* digit w))) + (if (<= k bias) + (setq thr w3m-puny-tmin) + (if (>= k (+ bias w3m-puny-tmax)) + (setq thr w3m-puny-tmax) + (setq thr (- k bias)))) + (if (< digit thr) (throw 'loop nil)) + (setq w (* w (- w3m-puny-base thr))) + (setq k (+ k w3m-puny-base)))) + (setq out (1+ out)) + (setq bias (w3m-puny-adapt (- i oldi) out (= oldi 0))) + (setq n (+ n (/ i out))) + (setq i (% i out)) + (if (= i 0) + (setq output (cons n (nthcdr i output))) + (setcdr (nthcdr (1- i) output) (cons n (nthcdr i output)))) + (setq i (1+ i))) + (setq ret (make-string (* out 2) ?a)) + (let ((j 0)) + (dolist (op output) + (aset ret j (/ op 256)) + (setq j (1+ j)) + (aset ret j (% op 256)) + (setq j (1+ j)))) + ret)) + +(defun w3m-puny-decode (input) + (condition-case nil + (save-match-data + (decode-coding-string + (w3m-puny-decode1 (substring input 4)) ;; xn-- + w3m-puny-utf-16be)) + (error input))) + +(defun w3m-puny-decode-url (url) + "Decode URL from punycode." + (let ((case-fold-search t) + prot host after) + (when (and w3m-puny-utf-16be + (string-match w3m-puny-code-regex url)) + (when (string-match "\\`[^:/]+://\\([^/]+\\)" url) + (setq prot (substring url 0 (match-beginning 1))) + (setq host (substring url (match-beginning 1) (match-end 1))) + (setq after (substring url (match-end 0))) + (while (string-match w3m-puny-code-regex host) + (setq host + (concat (substring host 0 (match-beginning 0)) + (w3m-puny-decode + (substring host (match-beginning 0) (match-end 0))) + (substring host (match-end 0))))) + (setq url (concat prot host after)))) + url)) + +(defun w3m-puny-encode1 (input) + (let* ((len (length input)) + (h-len (/ len 2)) + (n w3m-puny-initial-n) + (bias w3m-puny-initial-bias) + (delta 0) (out 0) + (output (make-string (* len 4) ?a)) + h b m q k thr uni) + (dotimes (j len) + (setq uni (aref input j)) + (setq j (1+ j)) + (setq uni (+ (* uni 256) (aref input j))) + (when (< uni 128) ;; basic + (aset output out uni) + (setq out (1+ out)))) + (setq h out) + (setq b out) + (when (> b 0) + (aset output out w3m-puny-delimiter) + (setq out (1+ out))) + (while (< h h-len) + (setq m 65536) ;; 17bits + (dotimes (j len) + (setq uni (aref input j)) + (setq j (1+ j)) + (setq uni (+ (* uni 256) (aref input j))) + (if (and (>= uni n) (< uni m)) (setq m uni))) + (setq delta (+ delta (* (- m n) (1+ h)))) + (setq n m) + (dotimes (j len) + (setq uni (aref input j)) + (setq j (1+ j)) + (setq uni (+ (* uni 256) (aref input j))) + (when (< uni n) + (setq delta (1+ delta)) + (if (= delta 0) (error "punycode overflow"))) + (when (= uni n) + (setq q delta) + (setq k w3m-puny-base) + (catch 'loop + (while t + (if (<= k bias) + (setq thr w3m-puny-tmin) + (if (>= k (+ bias w3m-puny-tmax)) + (setq thr w3m-puny-tmax) + (setq thr (- k bias)))) + (if (< q thr) (throw 'loop nil)) + (aset output out (w3m-puny-encode-digit (+ thr (% (- q thr) (- w3m-puny-base thr))))) + (setq out (1+ out)) + (setq q (/ (- q thr) (- w3m-puny-base thr))) + (setq k (+ k w3m-puny-base)))) + (aset output out (w3m-puny-encode-digit q)) + (setq out (1+ out)) + (setq bias (w3m-puny-adapt delta (1+ h) (= h b))) + (setq delta 0) + (setq h (1+ h)))) + (setq delta (1+ delta)) + (setq n (1+ n))) + (substring output 0 out))) + +(defun w3m-puny-encode (input) + (condition-case nil + (concat "xn--" (w3m-puny-encode1 + (encode-coding-string input w3m-puny-utf-16be))) + (error input))) + +(defun w3m-puny-encode-url (url) + "Encode URL to punycode." + (if (and w3m-puny-utf-16be + (not (w3m-url-local-p url)) + (string-match w3m-puny-code-nonascii url)) + (let (beg end idn) + (with-temp-buffer + (insert url) + (goto-char (point-min)) + (if (search-forward "://" nil t) + (setq beg (point)) + (setq beg (point-min))) + (if (search-forward "/" nil t) + (setq end (1- (point))) + (setq end (point-max))) + (save-restriction + (narrow-to-region beg end) + (goto-char (point-min)) + (while (re-search-forward "[^.]?[^.\000-\177][^.]*" nil t) + (setq idn (match-string-no-properties 0)) + (delete-region (match-beginning 0) (match-end 0)) + (insert (w3m-puny-encode idn)))) + (buffer-substring-no-properties (point-min) (point-max)))) + url)) + +(provide 'w3m-util) + +;;; w3m-util.el ends here diff --git a/share/emacs/site-lisp/w3m/w3m-weather.el b/share/emacs/site-lisp/w3m/w3m-weather.el new file mode 100644 index 00000000000..a74884a3b67 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m-weather.el @@ -0,0 +1,510 @@ +;;; w3m-weather.el --- Look weather forecast -*- coding: iso-2022-7bit; -*- + +;; Copyright (C) 2001, 2002, 2003, 2005 +;; TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org> +;; Keywords: w3m, WWW, hypermedia + +;; This file is a part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; w3m-weather.el is the add-on program of emacs-w3m to look weather +;; foracast. For more detail about emacs-w3m, see: +;; +;; http://emacs-w3m.namazu.org/ + + +;;; How to install: + +;; Please put this file to appropriate directory, and if you want +;; byte-compile it. And add following lisp expressions to your +;; ~/.emacs. +;; +;; (autoload 'w3m-weather "w3m-weather" "Display weather report." t) + + +;;; Code: + +(eval-when-compile (require 'cl)) +(require 'w3m) + +(defconst w3m-weather-completion-table + (eval-when-compile + (let* ((format "http://weather.yahoo.co.jp/weather/jp/%s.html") + (alist + '(;; URL$B$N0lIt(B, $B4A;zI=5-(B, $B%m!<%^;zI=5-(B, $BJLL>(B + ;; ($B%m!<%^;zI=5-$G$OD92;$r>JN,$7$J$$$3$H(B) + ("1a/1100" "$BF;KL!&=!C+(B" "douhokusouya" "souya") + ("1a/1200" "$BF;KL!&>e@n(B" "douhokukamikawa" "kamikawa") + ("1a/1300" "$BF;KL!&N1K((B" "douhokurumoi" "rumoi") + ("1c/1710" "$BF;El!&LVAv(B" "doutouabashiri" "abashiri") + ("1c/1720" "$BF;El!&KL8+(B" "doutoukitami" "kitami") + ("1c/1730" "$BF;El!&LfJL(B" "doutoumonbetsu" "monbetsu") + ("1c/1800" "$BF;El!&:,<<(B" "doutounemuro" "nemuro") + ("1c/1900" "$BF;El!&6|O)(B" "doutoukushiro" "kushiro") + ("1c/2000" "$BF;El!&==>!(B" "doutoutokachi" "tokachi") + ("1b/1400" "$BF;1{!&@P<m(B" "dououishikari" "ishikari") + ("1b/1500" "$BF;1{!&6uCN(B" "douousorachi" "sorachi") + ("1b/1600" "$BF;1{!&8e;V(B" "dououshiribeshi" "shiribeshi") + ("1d/2400" "$BF;Fn!&I0;3(B" "dounanhiyama" "hiyama") + ("1d/2100" "$BF;Fn!&C@?6(B" "dounaniburi" "iburi") + ("1d/2200" "$BF;Fn!&F|9b(B" "dounanhidaka" "hidaka") + ("1d/2300" "$BF;Fn!&EOEg(B" "dounanoshima" "oshima") + ("1d/2400" "$BF;Fn!&[X;3(B" "dounanhiyama" "hiyama") + ("2/3110" "$B@D?98)!&DE7Z(B" "aomorikentsugaru" "tsugaru") + ("2/3120" "$B@D?98)!&2<KL(B" "aomorikenshimokita" "shimokita") + ("2/3130" "$B@D?98)!&;0H,>eKL(B" + "aomorikensanpachikamikita" "sanpachikamikita") + ("3/3310" "$B4d<j8)!&FbN&It(B" "iwatekennairikubu") + ("3/3320" "$B4d<j8)!&1h4_KLIt(B" "iwatekenenganhokubu") + ("3/3330" "$B4d<j8)!&1h4_FnIt(B" "iwatekenengannanbu") + ("5/3210" "$B=)ED8)!&1h4_It(B" "akitakenenganbu") + ("5/3220" "$B=)ED8)!&FbN&It(B" "akitakennairikubu") + ("4/3410" "$B5\>k8)!&ElIt(B" "miyagikentoubu") + ("4/3420" "$B5\>k8)!&@>It(B" "miyagikenseibu") + ("6/3510" "$B;37A8)!&B<;3(B" "yamagatakenmurayama" "murayama") + ("6/3520" "$B;37A8)!&CV;r(B" "yamagatakenokitama" "okitama") + ("6/3530" "$B;37A8)!&>1Fb(B" "yamagatakenshonai" "shounai") + ("6/3540" "$B;37A8)!&:G>e(B" "yamagatakenmogami" "mogami") + ("7/3610" "$BJ!Eg8)!&CfDL$j(B" "hukushimakennakadoori" "nakadoori") + ("7/3620" "$BJ!Eg8)!&IMDL$j(B" "hukushimakenhamadoori" "hamadoori") + ("7/3630" "$BJ!Eg8)!&2qDE(B" "hukushimakenaidu" "aidu") + ("8/4010" "$B0q>k8)!&KLIt(B" "ibaragikenhokubu") + ("8/4020" "$B0q>k8)!&FnIt(B" "ibaragikennanbu") + ("9/4110" "$BFJLZ8)!&FnIt(B" "tochigikennanbu") + ("9/4120" "$BFJLZ8)!&KLIt(B" "tochigikenhokubu") + ("10/4210" "$B72GO8)!&FnIt(B" "gunmakennanbu") + ("10/4220" "$B72GO8)!&KLIt(B" "gunmakenhokubu") + ("11/4310" "$B:k6L8)!&FnIt(B" "saitamakennanbu") + ("11/4320" "$B:k6L8)!&KLIt(B" "saitamakenhokubu") + ("11/4330" "$B:k6L8)!&CaIc(B" "saitamakenchichibu") + ("12/4510" "$B@iMU8)!&KL@>It(B" "chibakenhokuseibu") + ("12/4520" "$B@iMU8)!&KLElIt(B" "chibakenhokutoubu") + ("12/4530" "$B@iMU8)!&FnIt(B" "chibakennanbu") + ("13/4410" "$BEl5~ET!&El5~(B" "toukyoutotoukyou" "toukyou") + ("13/4420" "$BEl5~ET!&0KF&=tEgKLIt(B" + "toukyoutoizushotouhokubu" "izushotouhokubu") + ("13/100" "$BEl5~ET!&0KF&=tEgFnIt(B" + "toukyoutoizushotounanbu" "izushotounanbu") + ("13/9600" "$BEl5~ET!&>.3^86=tEg(B" + "toukyoutoogasawarashotou" "ogasawarashotou") + ("14/4610" "$B?@F`@n8)!&ElIt(B" "kanagawakentoubu") + ("14/4620" "$B?@F`@n8)!&@>It(B" "kanagawakenseibu") + ("15/5410" "$B?73c8)!&2<1[(B" "niigatakenkaetsu" "kaetsu") + ("15/5420" "$B?73c8)!&Cf1[(B" "niigatakenchuuetsu" "chuuetsu") + ("15/5430" "$B?73c8)!&>e1[(B" "niigatakenjouetsu" "jouetsu") + ("15/5440" "$B?73c8)!&:4EO(B" "niigatakensado" "sado") + ("16/5510" "$BIY;38)!&ElIt(B" "toyamakentoubu") + ("16/5520" "$BIY;38)!&@>It(B" "toyamakenseibu") + ("17/5610" "$B@P@n8)!&2C2l(B" "ishikawakenkaga" "kaga") + ("17/5620" "$B@P@n8)!&G=EP(B" "ishikawakennoto" "noto") + ("18/5710" "$BJ!0f8)!&NfKL(B" "hukuikenreihoku" "reihoku") + ("18/5720" "$BJ!0f8)!&NfFn(B" "hukuikenreinan" "reinan") + ("19/4910" "$B;3M|8)!&Cf@>It(B" "yamanashikenchuuseibu") + ("19/4920" "$B;3M|8)!&IY;N8^8P(B" "yamanashikenhujigoko" "hujigoko") + ("20/4810" "$BD9Ln8)!&KLIt(B" "naganokenhokubu") + ("20/4820" "$BD9Ln8)!&CfIt(B" "naganokenchuubu") + ("20/4830" "$BD9Ln8)!&FnIt(B" "naganokennanbu") + ("21/5210" "$B4tIl8)!&H~G;(B" "gihukenmino" "mino") + ("21/5220" "$B4tIl8)!&HtBM(B" "gihukenhida" "hida") + ("22/5010" "$B@E2,8)!&CfIt(B" "shizuokakenchuubu") + ("22/5020" "$B@E2,8)!&0KF&(B" "shizuokakenizu" "izu") + ("22/5030" "$B@E2,8)!&ElIt(B" "shizuokakentoubu") + ("22/5040" "$B@E2,8)!&@>It(B" "shizuokakenseibu") + ("23/5110" "$B0&CN8)!&@>It(B" "aichikenseibu") + ("23/5120" "$B0&CN8)!&ElIt(B" "aichikentoubu") + ("24/5310" "$B;0=E8)!&KLCfIt(B" "miekenhokuchuubu") + ("24/5320" "$B;0=E8)!&FnIt(B" "miekennanbu") + ("25/6010" "$B<"2l8)!&FnIt(B" "shigakennanbu") + ("25/6020" "$B<"2l8)!&KLIt(B" "shigakenhokubu") + ("26/400" "$B5~ETI\!&KLIt(B" "kyoutohuhokubu") + ("26/6100" "$B5~ETI\!&FnIt(B" "kyoutohunanbu") + ("27/6200" "$BBg:eI\(B" "oosakahu" "oosaka") + ("28/500" "$BJ<8K8)!&KLIt(B" "hyougokenhokubu") + ("28/6300" "$BJ<8K8)!&FnIt(B" "hyougokennanbu") + ("29/6410" "$BF`NI8)!&KLIt(B" "narakenhokubu") + ("29/6420" "$BF`NI8)!&FnIt(B" "narakennanbu") + ("30/6510" "$BOB2N;38)!&KLIt(B" "wakayamakenhokubu") + ("30/6520" "$BOB2N;38)!&FnIt(B" "wakayamakennanbu") + ("31/6910" "$BD;<h8)!&ElIt(B" "tottorikentoubu") + ("31/6920" "$BD;<h8)!&@>It(B" "tottorikenseibu") + ("32/600" "$BEg:,8)!&1#4t(B" "shimanekenoki" "oki") + ("32/6810" "$BEg:,8)!&ElIt(B" "shimanekentoubu") + ("32/6820" "$BEg:,8)!&@>It(B" "shimanekenseibu") + ("33/6610" "$B2,;38)!&FnIt(B" "okayamakennanbu") + ("33/6620" "$B2,;38)!&KLIt(B" "okayamakenhokubu") + ("34/6710" "$B9-Eg8)!&FnIt(B" "hiroshimakennanbu") + ("34/6720" "$B9-Eg8)!&KLIt(B" "hiroshimakenhokubu") + ("35/8110" "$B;38}8)!&@>It(B" "yamaguchikenseibu") + ("35/8120" "$B;38}8)!&CfIt(B" "yamaguchikenchuubu") + ("35/8140" "$B;38}8)!&KLIt(B" "yamaguchikenhokubu") + ("35/8130" "$B;38}8)!&ElIt(B" "yamaguchikentoubu") + ("36/7110" "$BFAEg8)!&KLIt(B" "tokushimakenhokubu") + ("36/7120" "$BFAEg8)!&FnIt(B" "tokushimakennanbu") + ("37/7200" "$B9a@n8)(B" "kagawaken" "kagawa") + ("38/7320" "$B0&I28)!&ElM=(B" "ehimekentouyo" "touyo") + ("38/7330" "$B0&I28)!&FnM=(B" "ehimekennanyo" "nanyo") + ("38/7310" "$B0&I28)!&CfM=(B" "ehimekenchuuyo" "chuuyo") + ("39/7410" "$B9bCN8)!&CfIt(B" "kouchikenchuubu") + ("39/7420" "$B9bCN8)!&ElIt(B" "kouchikentoubu") + ("39/7430" "$B9bCN8)!&@>It(B" "kouchikenseibu") + ("40/8210" "$BJ!2,8)!&J!2,(B" "hukuokakenhukuoka" "hukuoka") + ("40/8220" "$BJ!2,8)!&KL6e=#(B" "hukuokakenkitakyushu" "kitakyuushu") + ("40/8230" "$BJ!2,8)!&C^K-(B" "hukuokakenchikuhou" "chikuhou") + ("40/8240" "$BJ!2,8)!&C^8e(B" "hukuokakenchikugo" "chikugo") + ("41/8510" "$B:42l8)!&FnIt(B" "sagakennanbu") + ("41/8520" "$B:42l8)!&KLIt(B" "sagakenhokubu") + ("42/700" "$BD9:j8)!&0m4tBPGO(B" + "nagasakikenikitsushima" "iki" "tsushima" "ikitsushima") + ("42/800" "$BD9:j8)!&8^Eg(B" "nagasakikengotou" "gotou") + ("42/8410" "$BD9:j8)!&FnIt(B" "nagasakikennanbu") + ("42/8420" "$BD9:j8)!&KLIt(B" "nagasakikenhokubu") + ("43/8610" "$B7'K\8)!&7'K\(B" "kumamotokenkumamoto" "kumamoto") + ("43/8620" "$B7'K\8)!&0$AI(B" "kumamotokenaso" "aso") + ("43/8630" "$B7'K\8)!&E7Ap02KL(B" + "kumamotokenamakusaashikita" "amakusa" "ashikita" "amakusaashikita") + ("43/8640" "$B7'K\8)!&5eKa(B" "kumamotokenkuma" "kuma") + ("44/8310" "$BBgJ,8)!&CfIt(B" "ooitakenchuubu") + ("44/8320" "$BBgJ,8)!&KLIt(B" "ooitakenhokubu") + ("44/8330" "$BBgJ,8)!&@>It(B" "ooitakenseibu") + ("44/8340" "$BBgJ,8)!&FnIt(B" "ooitakennanbu") + ("45/8710" "$B5\:j8)!&FnItJ?LnIt(B" "miyazakikennanbuheiyabu") + ("45/8720" "$B5\:j8)!&KLItJ?LnIt(B" "miyazakikenhokubuheiyabu") + ("45/8730" "$B5\:j8)!&FnIt;31h$$(B" "miyazakikennanbuyamazoi") + ("45/8740" "$B5\:j8)!&KLIt;31h$$(B" "miyazakikenhokubuyamazoi") + ("46/8810" "$B</;yEg8)!&;'K`(B" "kagoshimakensatsuma" "satsuma") + ("46/8820" "$B</;yEg8)!&Bg6y(B" "kagoshimakenoosumi" "oosumi") + ("46/900" "$B</;yEg8)!&<o;REg!&205WEg(B" + "kagoshimakentanegashimayakushima" "tanegashima" "yakushima" "tanegashimayakushima") + ("46/1000" "$B</;yEg8)!&1bH~(B" "kagoshimakenamami" "amami") + ("47/9110" "$B2-Fl8)!&K\EgCfFnIt(B" + "okinawakenhontouchuunanbu" "hontouchuunanbu") + ("47/9120" "$B2-Fl8)!&K\EgKLIt(B" + "okinawakenhontouhokubu" "hontouhokubu") + ("47/9130" "$B2-Fl8)!&5WJFEg(B" "okinawakenkumejima" "kumejima") + ("47/9200" "$B2-Fl8)!&BgElEg(B" "okinawakendaitoujima" "daitoujima") + ("47/9300" "$B2-Fl8)!&5\8EEg(B" "okinawakenmiyakojima" "miyakojima") + ("47/9400" "$B2-Fl8)!&@P3@Eg(B" + "okinawakenishigakijima" "ishigakijima") + ("47/9500" "$B2-Fl8)!&M?Fa9qEg(B" + "okinawakenyonagunijima" "yonagunijima"))) + (table) + ;; $B%X%\%s<0$H71Na<0$NBP1~I=(B + (hepburn-table + (let (table) + (dolist (x '(("si" "shi") + ("zi" "ji") + ("zu" "du") + ("ti" "chi") + ("tu" "tsu") + ("hu" "fu"))) + (push x table) + (push (reverse x)table)) + (dolist (x '(("sy" . "sh") + ("zy" . "j") + ("ty" . "ch"))) + (dolist (y '("a" "u" "o")) + (push (list (concat (car x) y) (concat (cdr x) y)) table) + (push (list (concat (cdr x) y) (concat (car x) y)) table))) + table)) + ;; $BBP1~I=$K>h$C$F$$$kJ8;zNs$rC5$9@55,I=8=(B + (hepburn-regexp + (format "\\(?:\\`\\|[aiueo]\\)\\(n\\([^aiueoy]\\)\\|%s\\)" + (regexp-opt (mapcar (function car) hepburn-table)))) + ;; $BD92;$NM-L5$K$h$kGI@87A$NI=(B + (prolonged-table + (let (table) + (dolist (x '("k" "ky" + "s" "sy" "sh" + "t" "ty" "ch" + "n" "ny" + "h" "hy" + "m" "my" + "y" + "r" "ry" + "w" + "g" "gy" + "z" "zy" "j" + "d" "dy" + "b" "by" + "p" "py")) + (let ((long-vowels '("ou" "oo" "o-"))) + (dolist (y long-vowels) + (push (cons (concat x y) + (append + (mapcar + (lambda (z) (concat x z)) + (delete y (copy-sequence long-vowels))) + (list (concat x "o")))) + table))) + (push (list (concat x "uu") (concat x "u")) + table)) + table)) + ;; $BGI@87A$NI=$K>h$C$F$$$kJ8;zNs$rC5$9@55,I=8=(B + (prolonged-regexp (format "\\(?:\\`\\|[aiueo]\\)\\(%s\\)" + (regexp-opt (mapcar (function car) + prolonged-table))))) + (labels ((hepburn-candidates + (str) + "$B%X%\%s<0$H71Na<0$N:9$K$h$C$F@8$8$kGI@87A$rF@$k(B" + (if (string-match hepburn-regexp str) + (let ((prefix (substring str 0 (match-beginning 1))) + (candidates (if (match-beginning 2) + '("n" "nn") + (assoc (match-string 1 str) + hepburn-table))) + (suffixes + (hepburn-candidates + (substring str (or (match-beginning 2) + (match-end 0))))) + (buf)) + (dolist (x candidates) + (dolist (y suffixes) + (push (concat prefix x y) buf))) + buf) + (list str))) + (prolonged-candidates + (str) + "$BD92;$NM-L5$K$h$C$F@8$8$kGI@87A$rF@$k(B" + (let (buf) + (if (string-match prolonged-regexp str) + (let ((prefix (substring str 0 (match-beginning 1))) + (candidates (assoc (match-string 1 str) + prolonged-table)) + (suffixes (prolonged-candidates + (substring str (match-end 0))))) + (dolist (x candidates) + (dolist (y suffixes) + (push (concat prefix x y) buf)))) + (setq buf (list str))) + (dolist (x buf) + (when (string-match "\\(\\`\\|[aiue]\\)oo" x) + (let ((prefix (substring x 0 (match-end 1))) + (suffix (substring x (match-end 0)))) + (dolist (y '("o" "oh" "o-")) + (push (concat prefix y suffix) buf))))) + buf)) + (romaji-candidates + (str) + "$BA4$F$NGI@87A$rF@$k(B" + (let (buf) + (dolist (x (hepburn-candidates str)) + (dolist (y (prolonged-candidates x)) + (push y buf))) + buf))) + (dolist (area alist) + (let ((url (format format (car area))) + (kanji (cadr area))) + (push (list kanji (nth 2 area) url) table) + (dolist (romaji (cddr area)) + (dolist (x (romaji-candidates romaji)) + (push (list x kanji) table))))) + (nreverse table)))) + "Completion table of areas and urls.") + +(defcustom w3m-weather-default-area + "$B5~ETI\!&FnIt(B" + "Default region to check weather." + :group 'w3m + :type (cons 'radio + (delq nil + (mapcar (lambda (area) + (when (nth 2 area) + (list 'const (car area)))) + w3m-weather-completion-table)))) + +(defcustom w3m-weather-filter-functions + '(w3m-weather-extract-contents + w3m-weather-adjust-contents + w3m-weather-expand-anchors + w3m-weather-insert-title) + "Filter functions to remove useless tags." + :group 'w3m + :type 'hook) + +(defvar w3m-weather-input-history nil) + +(defun w3m-weather-input-area () + (let* ((str + (completing-read (format "Input area (default %s): " + w3m-weather-default-area) + 'w3m-weather-area-completion nil t nil + 'w3m-weather-input-history)) + (area + (cond + ((string= "" str) w3m-weather-default-area) + ((string-match "[^-a-zA-Z]" str) str) + (t (cadr (assoc str w3m-weather-completion-table)))))) + (setq w3m-weather-input-history + (cons area + (delete area + (delete str w3m-weather-input-history)))) + area)) + +(defun w3m-weather-area-completion (partial predicate flag) + (if (eq flag 'lambda) + (and (assoc partial w3m-weather-completion-table) + (or (not predicate) + (funcall predicate partial)) + t) + (let ((kanji "") + (romaji "") + (romaji-partial partial)) + (when (string-match "\\`\\(?:[^-a-zA-Z]+\\)" partial) + (let ((suffix (substring partial (match-end 0)))) + (setq kanji (substring partial 0 (match-end 0)) + romaji (try-completion + "" + (mapcar + (lambda (x) + (list (cadr (assoc x w3m-weather-completion-table)))) + (all-completions kanji w3m-weather-completion-table))) + romaji-partial (concat romaji suffix)))) + (let ((collection) + (regexp + (and (string-match "$B!&(B\\'" kanji) + (string-match "[aiueo]n\\'" romaji) + (concat "\\`" romaji "n[^aiueoy]")))) + (dolist (x (all-completions romaji-partial w3m-weather-completion-table)) + (unless (and regexp (string-match regexp x)) + (setq x (assoc x w3m-weather-completion-table)) + (unless (assoc (cadr x) collection) + (push (cons (cadr x) (car x)) collection)))) + (cond + ((not flag) + (let ((s (try-completion kanji collection predicate))) + (if (and (stringp s) (string< s partial)) + (when (setq s (try-completion romaji-partial + (mapcar (lambda (x) (list (cdr x))) + collection) + predicate)) + (concat kanji (substring s (if romaji (length romaji) 0)))) + s))) + ((eq flag t) + (all-completions kanji collection predicate))))))) + +;;;###autoload +(defun w3m-weather (area) + "Display weather report." + (interactive + (list (if current-prefix-arg + (w3m-weather-input-area) + w3m-weather-default-area))) + (w3m-goto-url (format "about://weather/%s" area))) + +;;;###autoload +(defun w3m-about-weather (url no-decode no-cache post-data referer handler) + (if (string-match "\\`about://weather/" url) + (lexical-let* ((url url) + (no-cache no-cache) + (area (substring url (match-end 0))) + (furl (nth 2 (assoc area w3m-weather-completion-table)))) + (w3m-process-do + (type (w3m-retrieve furl nil no-cache nil nil handler)) + (when type + (w3m-decode-buffer furl) + (w3m-weather-run-filter-functions w3m-weather-filter-functions + area furl no-cache handler)))) + (w3m-message "Unknown URL: %s" url) + nil)) + +(defun w3m-weather-run-filter-functions (functions area url no-cache handler) + (if functions + (lexical-let ((functions functions) + (area area) + (url url) + (no-cache no-cache)) + (w3m-process-do + (nil (funcall (pop functions) area url no-cache handler)) + (w3m-weather-run-filter-functions functions area url + no-cache handler))) + "text/html")) + +(defun w3m-weather-extract-contents (&rest args) + "Remove both header and footer in the weather forecast pages." + (goto-char (point-min)) + (when (search-forward "<!---MAIN_CONTENTS_table--->" nil t) + (delete-region (point-min) (match-beginning 0))) + (goto-char (point-max)) + (when (search-backward "<!---Local_Link--->" nil t) + (delete-region (match-beginning 0) (point-max)))) + +(defun w3m-weather-adjust-contents (&rest args) + ;; Remove spacers. + (goto-char (point-min)) + (while (search-forward "<tr><td>\ +<img src=\"http://img.yahoo.co.jp/images/clear.gif\" width=1>\ +</td></tr>" nil t) + (delete-region (match-beginning 0) (match-end 0))) + ;; Remove execessive tables. + (goto-char (point-min)) + (while (re-search-forward "<table[^>]*>[ \t\r\f\n]*</table>" nil t) + (delete-region (match-beginning 0) (match-end 0))) + (goto-char (point-min)) + ;; Remove too narrow width parameters. + (while (re-search-forward "<td[^>]*\\(width=1%\\)" nil t) + (delete-region (match-beginning 1) (match-end 1))) + ;; Display border lines. + (goto-char (point-min)) + (while (re-search-forward "\ +<table border=\\(0\\) cellpadding=[1-9][0-9]* cellspacing=[1-9][0-9]*" nil t) + (goto-char (match-beginning 1)) + (delete-char 1) + (insert "1")) + (goto-char (point-min)) + (while (re-search-forward + "<td align=center width=25%>[ \t\r\f\n]*<table border=1" nil t) + (delete-char -1) + (insert "0"))) + +(defun w3m-weather-insert-title (area url &rest args) + "Insert title." + (goto-char (point-min)) + (insert "<head><title>Weather forecast of " + area + "</title></head>\n" + "<body><p align=left><a href=\"" + url + "\">[Yahoo!]</a></p>\n") + (goto-char (point-max)) + (insert "</body>")) + +(defun w3m-weather-expand-anchors (area url &rest args) + ;; FIXME: $BE75$M=Js%Z!<%8$K4^$^$l$F$$$kAjBP%j%s%/$r@dBP%j%s%/$K=q$-49(B + ;; $B$($k$?$a$N4X?t!%$3$l$i$NAjBP%j%s%/$r0BA4$K<h$j07$&$?$a$K$O!$(Bbase + ;; URL $B$rJV$;$k$h$&$K!$(Babout:// $B$N9=B$$r=q$-D>$9I,MW$,$"$k$H9M$($i$l(B + ;; $B$k$,!$$H$j$"$($:8e2s$7!%(B + (goto-char (point-min)) + (while (re-search-forward + (eval-when-compile + (concat "<a[ \t\r\f\n]+href=" w3m-html-string-regexp)) + nil t) + (replace-match (format + "<a href=\"%s\"" + (w3m-expand-url (w3m-remove-redundant-spaces + (or (match-string-no-properties 2) + (match-string-no-properties 3) + (match-string-no-properties 1))) + url))))) + +(provide 'w3m-weather) + +;;; w3m-weather.el ends here. diff --git a/share/emacs/site-lisp/w3m/w3m.el b/share/emacs/site-lisp/w3m/w3m.el new file mode 100644 index 00000000000..5f6cde7e801 --- /dev/null +++ b/share/emacs/site-lisp/w3m/w3m.el @@ -0,0 +1,10648 @@ +;;; w3m.el --- an Emacs interface to w3m -*- coding: iso-2022-7bit; -*- + +;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, +;; 2010 TSUCHIYA Masatoshi <tsuchiya@namazu.org> + +;; Authors: TSUCHIYA Masatoshi <tsuchiya@namazu.org>, +;; Shun-ichi GOTO <gotoh@taiyo.co.jp>, +;; Satoru Takabayashi <satoru-t@is.aist-nara.ac.jp>, +;; Hideyuki SHIRAI <shirai@meadowy.org>, +;; Keisuke Nishida <kxn30@po.cwru.edu>, +;; Yuuichi Teranishi <teranisi@gohome.org>, +;; Akihiro Arisawa <ari@mbf.sphere.ne.jp>, +;; Katsumi Yamaoka <yamaoka@jpl.org>, +;; Tsuyoshi CHO <tsuyoshi_cho@ybb.ne.jp> +;; Keywords: w3m, WWW, hypermedia + +;; This file is the main part of emacs-w3m. + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + + +;;; Commentary: + +;; Emacs-w3m is an Emacs interface to the w3m program. For more +;; detail about w3m, see: +;; +;; http://w3m.sourceforge.net/ + + +;;; How to install: + +;; See the README file in any case. We also recommend you check +;; whether a newer version of w3m is released. +;; +;; The outline of installation is: run the `configure' script and type +;; `make install' in the top directory of the emacs-w3m distribution. + + +;;; Code: + +;; Developers, you must not use the cl functions (e.g., `coerce', +;; `equalp', `merge', etc.) in any emacs-w3m or shimbun modules. To +;; exclude run-time cl is the policy of emacs-w3m. However, XEmacs +;; employs the cl package for all time, or those functions are +;; possibly provided in the other modules like APEL, so you may use +;; them only in w3m-xmas.el. Note that `caaaar', for example, is not +;; a cl function if it is byte compiled; see cl-macs.el. +(eval-when-compile + (require 'cl)) + +(eval-when-compile + (unless (dolist (var nil t)) + ;; Override the `dolist' macro which may be faultily provided by + ;; old egg.el. + (load "cl-macs" nil t))) + +;; The following variables will be referred to by the external modules +;; which bind such variables only when compiling themselves. And also +;; some modules have the `defadvice' forms including them and run +;; `byte-compile' at run-time. +(eval-and-compile + (defvar w3m-current-title nil + "Title of a page visiting in the current buffer.") + (defvar w3m-current-url nil + "A url of a page visiting in the current buffer.")) + +(require 'w3m-util) +(require 'w3m-proc) + +;; Silence the Emacs' byte-compiler that says ``might not be defined''. +(eval-when-compile + (defalias 'w3m-setup-menu 'ignore)) + +(eval-and-compile + (cond + ((featurep 'xemacs) + (require 'w3m-xmas)) + ((>= emacs-major-version 21) + (require 'w3m-ems)) + (t + (error "Emacs-w3m of this version no longer supports Emacs %s" + (mapconcat 'identity + (nbutlast (split-string emacs-version "\\.")) + "."))))) + +(require 'w3m-fb) +(require 'w3m-hist) +(require 'timezone) + +;; Add-on programs: +(eval-and-compile + (autoload 'w3m-bookmark-view "w3m-bookmark" + "Display the bookmark" t) + (autoload 'w3m-bookmark-view-new-session "w3m-bookmark" + "Display the bookmark on a new session" t) + (autoload 'w3m-bookmark-add-this-url "w3m-bookmark" + "Add a link under point to the bookmark." t) + (autoload 'w3m-bookmark-add-current-url "w3m-bookmark" + "Add a url of the current page to the bookmark." t) + (autoload 'w3m-bookmark-add-all-urls "w3m-bookmark" + "Add urls of all pages being visited to the bookmark." t) + (autoload 'w3m-search "w3m-search" + "Search a word using search engines." t) + (autoload 'w3m-search-new-session "w3m-search" + "Search a word using search engines in a new session." t) + (autoload 'w3m-search-uri-replace "w3m-search") + (autoload 'w3m-weather "w3m-weather" + "Display a weather report." t) + (autoload 'w3m-about-weather "w3m-weather") + (autoload 'w3m-antenna "w3m-antenna" + "Report changes of web sites." t) + (autoload 'w3m-antenna-add-current-url "w3m-antenna" + "Add a link address of the current page to the antenna database." t) + (autoload 'w3m-about-antenna "w3m-antenna") + (autoload 'w3m-dtree "w3m-dtree" + "Display a directory tree." t) + (autoload 'w3m-about-dtree "w3m-dtree") + (autoload 'w3m-namazu "w3m-namazu" + "Search files with Namazu." t) + (autoload 'w3m-about-namazu "w3m-namazu") + (autoload 'w3m-perldoc "w3m-perldoc" + "View Perl documents" t) + (autoload 'w3m-about-perldoc "w3m-perldoc") + (autoload 'w3m-fontify-forms "w3m-form") + (autoload 'w3m-fontify-textareas "w3m-form") + (autoload 'w3m-form-textarea-file-cleanup "w3m-form") + (autoload 'w3m-form-textarea-files-remove "w3m-form") + (autoload 'w3m-form-kill-buffer "w3m-form") + (autoload 'w3m-form-set-number "w3m-form") + (autoload 'w3m-filter "w3m-filter") + (autoload 'w3m-setup-tab-menu "w3m-tabmenu") + (autoload 'w3m-setup-bookmark-menu "w3m-bookmark") + (autoload 'w3m-switch-buffer "w3m-tabmenu") + (autoload 'w3m-cookie-set "w3m-cookie") + (autoload 'w3m-cookie-get "w3m-cookie") + (autoload 'w3m-cookie "w3m-cookie") + (autoload 'w3m-about-cookie "w3m-cookie") + (autoload 'w3m-cookie-shutdown "w3m-cookie" nil t) + (autoload 'report-emacs-w3m-bug "w3m-bug" nil t) + (autoload 'w3m-replace-symbol "w3m-symbol" nil t) + (autoload 'w3m-mail "w3m-mail" nil t) + (autoload 'w3m-go-to-linknum "w3m-lnum" nil t) + (autoload 'w3m-session-select "w3m-session" + "Select session from session list." t) + (autoload 'w3m-session-save "w3m-session" + "Save list of displayed session." t) + (autoload 'w3m-setup-session-menu "w3m-session") + (autoload 'w3m-session-automatic-save "w3m-session") + (autoload 'w3m-session-deleted-save "w3m-session") + (autoload 'w3m-session-last-autosave-session "w3m-session") + (autoload 'w3m-session-goto-session "w3m-session") + (autoload 'w3m-session-crash-recovery-save "w3m-session") + (autoload 'w3m-session-last-crashed-session "w3m-session")) + +;; Avoid byte-compile warnings. +(eval-when-compile + (autoload 'doc-view-mode "doc-view" nil t) + (autoload 'doc-view-mode-p "doc-view") + (autoload 'quit-window "window" nil t) + (autoload 'rfc2368-parse-mailto-url "rfc2368") + (autoload 'widget-convert-button "wid-edit") + (autoload 'widget-forward "wid-edit" nil t) + (autoload 'widget-get "wid-edit") + (unless (fboundp 'char-to-int) + (defalias 'char-to-int 'identity)) + (defvar doc-view-mode-map) + (defvar w3m-bookmark-mode) + (defvar w3m-bookmark-menu-items) + (defvar w3m-bookmark-menu-items-pre) + (defvar w3m-tab-menubar-make-items-preitems) + (defvar w3m-session-menu-items-pre) + (defvar w3m-session-menu-items)) + +(defconst emacs-w3m-version + (eval-when-compile + (let ((rev "$Revision: 1.1471 $")) + (and (string-match "\\.\\([0-9]+\\) \\$\\'" rev) + (setq rev (- (string-to-number (match-string 1 rev)) 1136)) + (format "1.4.%d" (+ rev 50))))) + "Version number of this package.") + +(defgroup w3m nil + "Emacs-w3m - the web browser of choice." + :group 'hypermedia) + +(defgroup w3m-face nil + "Faces used for emacs-w3m." + :group 'w3m + :prefix "w3m-") + +(defcustom w3m-command nil + "*Name of the executable file of the w3m command. +You normally don't have to specify the value, since emacs-w3m looks +for the existing commands in order of w3m, w3mmee and w3m-m17n in the +`exec-path' directories in order if it is nil in the beginning. + +If you want to use the other w3m command, specify the value of this +variable explicitly in the .emacs file or customize the value and save +it. In this case, you need to restart Emacs and emacs-w3m. That is, +there is currently no way to apply the changing of the w3m command to +all the emacs-w3m programs safely after loading the w3m.elc module." + :group 'w3m + :type '(radio (const :format "Not specified " nil) + (string :format "Command: %v\n" :size 0))) + +(defcustom w3m-display-ins-del 'auto + "*Value of `display_ins_del' option." + :group 'w3m + :type '(radio (const :format "Delect automatically" auto) + (const :format "Use fontify" fontify) + (const :format "Use tag" tag) + (const :format "No have option" nil))) + +(defvar w3m-type nil + "Type of the w3m command. +The valid values include `w3m', `w3mmee', and `w3m-m17n'.") +(defvar w3m-compile-options nil + "Compile options that the w3m command was built with.") +(defvar w3m-version nil + "Version string of the w3m command.") + +;; Set w3m-command, w3m-type, w3m-version and w3m-compile-options +(if noninteractive ;; Don't call the external command when compiling. + (unless w3m-command + (setq w3m-command "w3m")) + (when (or (null w3m-command) + (null w3m-type) + (null w3m-version) + (null w3m-compile-options)) + (let ((command (or w3m-command + (w3m-which-command "w3m") + (w3m-which-command "w3mmee") + (w3m-which-command "w3m-m17n")))) + (when command + (setq w3m-command command) + (with-temp-buffer + (call-process command nil t nil "-version") + (goto-char (point-min)) + (when (re-search-forward "version \\(w3m/0\\.[3-9]\ +\\(?:\\.[0-9\\]\\)*\\(?:rc[0-9]+\\)?\ +\\(?:-stable\\|\\(?:\\+cvs\\(?:-[0-9]+\\.[0-9]+\\)?\\)\\)?\ +\\(?:-inu\\|\\(-m17n\\|\\(\\+mee\\)\\)\\)?[^,]*\\)" nil t) + (setq w3m-version (match-string 1)) + (setq w3m-type + (cond + ((match-beginning 3) 'w3mmee) + ((match-beginning 2) 'w3m-m17n) + ((match-beginning 1) 'w3m) + (t 'other)))) + (when (re-search-forward "options +" nil t) + (setq w3m-compile-options + (or (split-string (buffer-substring (match-end 0) + (point-at-eol)) + ",") + (list nil))) + (when (member "m17n" w3m-compile-options) + (setq w3m-type 'w3m-m17n)))))))) + +(when (not (stringp w3m-command)) + (error "\ +Install w3m command in `exec-path' or set `w3m-command' variable correctly")) + +(defcustom w3m-user-agent (concat "Emacs-w3m/" emacs-w3m-version + " " w3m-version) + "String used for the User-Agent field. See also `w3m-add-user-agent'." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-add-user-agent t + "Non-nil means add the User-Agent field to the request header. +The value of `w3m-user-agent' is used for the field body." + :group 'w3m + :type 'boolean) + +(defcustom w3m-language + (if (and (boundp 'current-language-environment) + ;; In XEmacs 21.5 it may be the one like "Japanese (UTF-8)". + (string-match "\\`Japanese" + (symbol-value 'current-language-environment))) + "Japanese") + "*Your preferred language used in emacs-w3m sessions." + :group 'w3m + :type '(radio (const :format "%v " "Japanese") + (const :tag "Other" nil)) + :get (lambda (symbol) + (let ((value (format "%s" (default-value symbol))) + (case-fold-search t)) + (prog1 + (setq value (if (string-match "\\`japan" value) "Japanese")) + (custom-set-default symbol value)))) + :set (lambda (symbol value) + (custom-set-default symbol (if (equal value "Japanese") "Japanese")))) + +(defcustom w3m-command-arguments + (if (eq w3m-type 'w3mmee) '("-o" "concurrent=0" "-F") nil) + "*List of the default arguments passed to the w3m command. +See also `w3m-command-arguments-alist'." + :group 'w3m + :type '(repeat (string :format "Argument: %v\n" :size 0))) + +(defcustom w3m-command-arguments-alist nil + "*Alist of regexps matching urls and additional arguments passed to w3m. +A typical usage of this variable is to specify whether to use the proxy +server for the particular hosts. The first match made will be used. +Here is an example of how to set this variable: + +\(setq w3m-command-arguments-alist + '(;; Don't use the proxy server to visit local web pages. + (\"^http://\\\\(?:[^/]*\\\\.\\\\)*your-company\\\\.com\\\\(?:/\\\\|$\\\\)\" + \"-no-proxy\") + ;; Use the proxy server to visit any foreign urls. + (\"\" + \"-o\" \"http_proxy=http://proxy.your-company.com:8080/\"))) + +Where the first element matches the url that the scheme is \"http\" and +the hostname is either \"your-company.com\" or a name ended with +\".your-company.com\", and the proxy server is not used for those hosts. +If you are a novice on the regexps, you can use the +`w3m-no-proxy-domains' variable instead." + :group 'w3m + :type '(repeat (cons :format "%v" :indent 4 + (regexp :format "%t: %v\n" :size 0) + (repeat :tag "Arguments passed to w3m command" + (string :format "Arg: %v\n" :size 0))))) + +(defcustom w3m-no-proxy-domains nil + "*List of domain names with which emacs-w3m will not use a proxy server. +Each element should be exactly a domain name which means the latter +common part of the host names, not a regexp." + :group 'w3m + :type '(repeat (string :format "Domain name: %v\n" :size 0))) + +(defcustom w3m-command-environment + (delq nil + (list + (if (eq w3m-type 'w3mmee) + (cons "W3MLANG" "ja_JP.kterm")) + (if (eq system-type 'windows-nt) + (cons "CYGWIN" "binmode tty")))) + "*Alist of environment variables for subprocesses to inherit." + :group 'w3m + :type '(repeat + (cons :format "%v" :indent 4 + (string :format "Name: %v\n" :size 0) + (string :format " Value: %v\n" :size 0)))) + +(defcustom w3m-fill-column -1 + "*Integer used as the value for `fill-column' in emacs-w3m buffers. +If it is positive, pages will be displayed within the columns of that +number. If it is zero or negative, the number of columns which +subtracted that number from the window width is applied to the maximum +width of pages. Note that XEmacs does not always obey this setting." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-mailto-url-function nil + "*Function used to handle the `mailto' urls. +Function is called with one argument, just a url. If it is nil, a +function specified by the `mail-user-agent' variable will be used for +composing mail messages." + :group 'w3m + :type '(radio (const :tag "Not specified" nil) + (function :format "%t: %v\n" :size 0))) + +(defcustom w3m-mailto-url-popup-function-alist + '((cmail-mail-mode . pop-to-buffer) + (mail-mode . pop-to-buffer) + (message-mode . pop-to-buffer) + (mew-draft-mode . pop-to-buffer) + (mh-letter-mode . pop-to-buffer) + (wl-draft-mode . pop-to-buffer)) + "*Alist of (MAJOR-MODE . FUNCTION) pairs used to pop to a mail buffer up. +If a user clicks on a `mailto' url and a mail buffer is composed by +`mail-user-agent' with the MAJOR-MODE, FUNCTION will be called with a +mail buffer as an argument. Note that the variables +`special-display-buffer-names', `special-display-regexps', +`same-window-buffer-names' and `same-window-regexps' will be bound to +nil while popping to a buffer up." + :group 'w3m + :type '(repeat (cons :format "%v" :indent 11 + (symbol :format "Major-mode: %v\n" :size 0) + (function :format "%t: %v\n" :size 0)))) + +(defcustom w3m-use-mule-ucs + (and (eq w3m-type 'w3m) (featurep 'un-define)) + "*Non-nil means use the multi-script support with Mule-UCS." + :group 'w3m + :type 'boolean + :require 'w3m-ucs) + +(when w3m-use-mule-ucs + (condition-case nil + (require 'w3m-ucs) + (error (setq w3m-use-mule-ucs nil)))) + +(defcustom w3m-use-ange-ftp nil + "*Non-nil means that `ange-ftp' or `efs' is used to access FTP servers." + :group 'w3m + :type 'boolean) + +(defcustom w3m-doc-view-content-types + (condition-case nil + (delq nil (mapcar (lambda (type) + (if (doc-view-mode-p type) + (format "application/%s" type))) + '(dvi postscript pdf))) + (error nil)) + "List of content types for which to use `doc-view-mode' to view contents. +This overrides `w3m-content-type-alist'." + :group 'w3m + :type '(repeat (string :tag "Type" :value "application/"))) + +(defcustom w3m-imitate-widget-button '(eq major-mode 'gnus-article-mode) + "*If non-nil, imitate the widget buttons on link (anchor) buttons. +It is useful for moving about in a Gnus article buffer using TAB key. +It can also be any Lisp form that should return a boolean value." + :group 'w3m + :type '(sexp :size 0)) + +(defcustom w3m-treat-image-size t + "*Non-nil means let w3m mind the ratio of the size of images and text. + +If it is non-nil, the w3m command will make a halfdump which reserves +rectangle spaces in which images will be put, and also `alt' texts +will be truncated or padded with spaces so that their display width +will be the same as the width of images. + +See also `w3m-pixels-per-character' and `w3m-pixels-per-line'. Those +values will be passed to the w3m command in order to compute columns +and lines which images occupy." + :group 'w3m + :type 'boolean) + +(defcustom w3m-pixels-per-line 64 + "*Integer used for the `-ppl' argument of the w3m command. +If nil, the height of the default face is used. It is valid only when +`w3m-treat-image-size' is non-nil. Note that a small value may not +induce a good result. If you want to use emacs-w3m in a character +terminal and make `w3m-treat-image-size' effective, you need to set +this variable properly." + :group 'w3m + :type '(choice (const :tag "Auto Detect" nil) + (integer :tag "Specify Pixels"))) + +(defcustom w3m-pixels-per-character nil + "*Integer used for the `-ppc' argument of the w3m command. +If nil, the width of the default face is used. It is valid only when +`w3m-treat-image-size' is non-nil. If you want to use emacs-w3m in a +character terminal and make `w3m-treat-image-size' effective, you need +to set this variable properly." + :group 'w3m + :type '(radio (const :tag "Auto Detect" nil) + (integer :format "Specify Pixels: %v\n" :size 0))) + +(defcustom w3m-image-default-background nil + "Color name used as transparent color of image. +Nil means to use the background color of the Emacs frame. The +null string \"\" is special, that will be replaced with the +background color of the buffer. Note that this value is effective +only with Emacs 22 and greater." + :group 'w3m + :type '(radio (string :format "Color: %v\n" :size 0 + :match (lambda (widget value) + (and (stringp value) (> (length value) 0)))) + (const :tag "Use the background color of the Emacs frame" nil) + (const :tag "Null string" ""))) + +(defvar w3m-accept-japanese-characters + (and (not noninteractive) + (featurep 'mule) + (or (memq w3m-type '(w3mmee w3m-m17n)) + ;; Examine whether the w3m command specified by `w3m-command' + ;; uses `euc-japan' for the internal character set. + (let ((str + (eval-when-compile + (format + (concat + "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">" + "<html><head><meta http-equiv=\"Content-Type\" " + "content=\"text/html; charset=ISO-2022-JP\">" + "</head><body>%s</body>\n") + (string 27 36 66 52 65 59 122 27 40 66))))) + (with-temp-buffer + (set-buffer-multibyte nil) + (insert str) + (let ((coding-system-for-write 'binary) + (coding-system-for-read 'binary) + (default-process-coding-system (cons 'binary 'binary))) + (call-process-region (point-min) (point-max) w3m-command + t t nil "-T" "text/html" "-halfdump") + (goto-char (point-min)) + (and (re-search-forward (string ?\264 ?\301 ?\273 ?\372) + nil t) + t)))))) + "Non-nil means that the w3m command accepts Japanese characters.") + +(defcustom w3m-coding-system (if (featurep 'mule) + (if (eq w3m-type 'w3mmee) + 'iso-2022-7bit-ss2 + 'iso-2022-7bit) + 'iso-8859-1) + "*Default coding system used to communicate with the w3m command." + :group 'w3m + :type '(coding-system :size 0)) + +(defcustom w3m-terminal-coding-system + (if w3m-accept-japanese-characters + 'euc-japan 'iso-8859-1) + "*Default coding system used when writing to w3m processes. +It is just a default value to set process' coding system initially. +\(This variable name is analogically derived from the behavior of the +w3m command which accepts data from Emacs just like reads from the +terminal.)" + :group 'w3m + :type '(coding-system :size 0)) + +(defcustom w3m-output-coding-system + (cond + ((not (featurep 'mule)) 'iso-8859-1) + ((eq w3m-type 'w3mmee) 'ctext) + ((eq w3m-type 'w3m-m17n) + (if (and (w3m-find-coding-system 'utf-8) + (not (and (equal "Japanese" w3m-language) + (featurep 'w3m-ems) + (= emacs-major-version 21)))) + 'utf-8 + 'iso-2022-7bit-ss2)) + (w3m-accept-japanese-characters 'w3m-euc-japan) + (t 'w3m-iso-latin-1)) + "*Coding system used when reading from w3m processes." + :group 'w3m + :type '(coding-system :size 0)) + +(defcustom w3m-input-coding-system + (if (memq w3m-type '(w3mmee w3m-m17n)) + w3m-output-coding-system + (if w3m-accept-japanese-characters + (if w3m-use-mule-ucs + 'w3m-euc-japan-mule-ucs + (if (featurep 'w3m-ems) + 'w3m-euc-japan + 'euc-japan)) + (if w3m-use-mule-ucs + 'w3m-iso-latin-1-mule-ucs + (if (featurep 'w3m-ems) + 'w3m-iso-latin-1 + 'iso-8859-1)))) + "*Coding system used when writing to w3m processes. +It overrides `coding-system-for-write' if it is not `binary'. +Otherwise, the value of the `w3m-current-coding-system' variable is +used instead." + :group 'w3m + :type '(coding-system :size 0)) + +(defcustom w3m-file-coding-system (if (featurep 'mule) + 'iso-2022-7bit + 'iso-8859-1) + "*Coding system used when writing configuration files. +This value will be referred to by the `w3m-save-list' function." + :group 'w3m + :type '(coding-system :size 0)) + +(defvar w3m-file-coding-system-for-read nil + "*Coding system used when reading configuration files. +It is strongly recommended that you do not set this variable if there +is no particular reason. The value will be referred to by the +`w3m-load-list' function.") + +(defcustom w3m-file-name-coding-system + (if (memq system-type '(windows-nt OS/2 emx)) + 'shift_jis 'euc-japan) + "*Coding system used to convert pathnames when emacs-w3m accesses files." + :group 'w3m + :type '(coding-system :size 0)) + +(defcustom w3m-default-coding-system + (if (equal "Japanese" w3m-language) 'shift_jis 'iso-8859-1) + "*Default coding system used to encode url strings and post-data." + :group 'w3m + :type '(coding-system :size 0)) + +(defcustom w3m-coding-system-priority-list + (if (equal "Japanese" w3m-language) '(shift_jis)) + "*Coding systems in order of priority used for emacs-w3m sessions." + :group 'w3m + :type '(repeat (coding-system :format "%t: %v\n" :size 0))) + +(defcustom w3m-key-binding nil + "*Type of key binding set used in emacs-w3m sessions. +The valid values include `info' which provides Info-like keys, and +nil which provides Lynx-like keys." + :group 'w3m + :type '(choice + (const :tag "Use Info-like key mapping." info) + (const :tag "Use Lynx-like key mapping." nil)) + ;; Since the following form won't be byte-compiled, you developers + ;; should never use CL macros like `caaaar', `when', `unless' ... + :set (lambda (symbol value) + (prog1 + (custom-set-default symbol value) + (if (or noninteractive + ;; Loading w3m.elc is just in progress... + (not (featurep 'w3m))) + nil + (if (and;; Gnus binds `w3m-mode-map' for compiling. + (boundp 'w3m-mode-map) + (boundp 'w3m-info-like-map) + (boundp 'w3m-lynx-like-map)) + ;; It won't be bound at the first time. + (eval + '(setq w3m-mode-map (if (eq value 'info) + w3m-info-like-map + w3m-lynx-like-map) + w3m-minor-mode-map (w3m-make-minor-mode-keymap)))) + (let ((buffers (buffer-list))) + (save-current-buffer + (while buffers + (set-buffer (car buffers)) + (if (eq major-mode 'w3m-mode) + (condition-case nil + (progn + (use-local-map (symbol-value 'w3m-mode-map)) + (w3m-setup-toolbar) + (w3m-setup-menu)) + (error))) + (setq buffers (cdr buffers))))))))) + +(defcustom w3m-use-cygdrive (eq system-type 'windows-nt) + "*If non-nil, use the /cygdrive/ rule when performing `expand-file-name'." + :group 'w3m + :type 'boolean) + +(eval-and-compile + (defconst w3m-treat-drive-letter (memq system-type '(windows-nt OS/2 emx)) + "Say whether the system uses drive letters.")) + +(defcustom w3m-profile-directory + (concat "~/." (file-name-sans-extension + (file-name-nondirectory w3m-command))) + "*Directory where emacs-w3m config files are loaded from or saved to." + :group 'w3m + :type '(directory :size 0)) + +(defcustom w3m-init-file "~/.emacs-w3m" + "*Your emacs-w3m startup file name. +If a file with the `.el' or `.elc' suffixes exists, it will be read +instead. + +Note: This file is used as the startup configuration *NOT* for the w3m +command but for emacs-w3m. In order to modify configurations for the +w3m command, edit the file named \"~/.w3m/config\" normally." + :group 'w3m + :type '(file :size 0)) + +(defcustom w3m-default-save-directory + (concat "~/." (file-name-sans-extension + (file-name-nondirectory w3m-command))) + "*Default directory where downloaded files will be saved to." + :group 'w3m + :type '(directory :size 0)) + +(defcustom w3m-default-directory nil + "*Directory used as the current directory in emacs-w3m buffers. +The valid values include a string specifying an existing directory, +a symbol of which the value specifies an existing directory, +a function which takes a url as an argument and returns a directory, +and nil. If the specified directory does not exist or it is nil, +the value of `w3m-profile-directory' is used. + +Note that there is an exception: if a page visits a local file or +visits a remote file using ftp, the directory in which the file exists +is used as the current directory instead." + :group 'w3m + :type '(radio (directory :format "%{%t%}: %v\n" :size 0 :value "~/") + (symbol :format "%{%t%}: %v\n" + :match (lambda (widget value) value) + :size 0 + :value default-directory) + (function :format "%{%t%}: %v\n" + :size 0) + (const nil))) + +(defcustom w3m-accept-languages + (let ((file (expand-file-name "config" w3m-profile-directory))) + (or (when (file-readable-p file) + (with-temp-buffer + (insert-file-contents file) + (goto-char (point-min)) + (when (re-search-forward "^accept_language[\t ]+\\(.+\\)$" nil t) + (delete "" (split-string (match-string 1) + "[ \t\r\f\n]*,[ \t\r\f\n]*"))))) + (when (string= w3m-language "Japanese") + '("ja" "en")))) + "*List of acceptable languages in descending order of priority. +The default value is set according to the accept_language entry of the +w3m configuration file (normally \"~/.w3m/config\")." + :group 'w3m + :type '(repeat (string :format "Lang: %v\n" :size 0))) + +(defcustom w3m-delete-duplicated-empty-lines t + "*Non-nil means display two or more continuous empty lines into single." + :group 'w3m + :type 'boolean) + +(defvar w3m-display-inline-images nil + "Internal variable controls whether to show images in emacs-w3m buffers. +This variable is buffer-local which defaults to the value of +`w3m-default-display-inline-images'. Don't set it directly; modify +the `w3m-default-display-inline-images' variable or use the\ + `\\<w3m-mode-map>\\[w3m-toggle-inline-images]' command +to change the appearance of images. +See also `w3m-toggle-inline-images-permanently'.") +(make-variable-buffer-local 'w3m-display-inline-images) + +(defcustom w3m-default-display-inline-images nil + "*Non-nil means display images inline in emacs-w3m buffers. +You can toggle the visibility of images by the\ + `\\<w3m-mode-map>\\[w3m-toggle-inline-images]' command. +See also `w3m-toggle-inline-images-permanently'." + :group 'w3m + :type 'boolean) + +(defcustom w3m-toggle-inline-images-permanently t + "*Non-nil means let the visibility of images continue permanently. +The visibility of images is initialized according to +`w3m-default-display-inline-images' at the first time, and except that +it may be toggled by the `\\<w3m-mode-map>\\[w3m-toggle-inline-images]'\ + command, it does not change hereafter, if +it is non-nil. Otherwise, whether images are visible is initialized +according to `w3m-default-display-inline-images' whenever you visit a +new page or reload the current page in an emacs-w3m buffer." + :group 'w3m + :type 'boolean) + +(defcustom w3m-icon-directory + (let (dir) + (or + (catch 'found-dir + (let* ((path (locate-library "w3m")) + (paths (if path + (cons (file-name-directory path) load-path) + load-path))) + (while paths + (setq path (car paths) + paths (cdr paths)) + (if path + (progn + (if (file-directory-p + (setq dir + (expand-file-name "../../etc/images/w3m/" path))) + (throw 'found-dir dir)) + (if (file-directory-p + (setq dir + (expand-file-name "../etc/images/w3m/" path))) + (throw 'found-dir dir)) + (if (file-directory-p + (setq dir + (expand-file-name "../../etc/w3m/icons/" path))) + (throw 'found-dir dir)) + (if (file-directory-p + (setq dir + (expand-file-name "../etc/w3m/icons/" path))) + (throw 'found-dir dir))))))) + (and (fboundp 'locate-data-directory) + (or (locate-data-directory "images/w3m") + (locate-data-directory "w3m"))) + (and (file-directory-p + (setq dir (expand-file-name "images/w3m/" data-directory))) + dir) + (and (file-directory-p + (setq dir (expand-file-name "w3m/icons/" data-directory))) + dir))) + "*Directory where emacs-w3m should find icon files." + :group 'w3m + :type '(radio (const :tag "Not specified") + (directory :format "%t: %v\n" :size 0))) + +(defcustom w3m-broken-proxy-cache nil + "*Set it to t if the proxy server seems not to work properly in caching. +Note that this may be the double-edged sword; setting it to t will +likely be harmful if the proxy server sends bad requests (e.g., not +including the Host header, see RFC2616 section 14.23) to foreign +servers when the w3m command specifies the \"no-cache\" directive. Also +note that it may not be effective if you are using old w3m command." + :group 'w3m + :type 'boolean) + +(defcustom w3m-quick-start t + "*Non-nil means let emacs-w3m start quickly w/o requiring confirmation. +When you invoke the `w3m' command, it attempts to visit the page of a +string like url around the cursor or the value of `w3m-home-page'. +You won't be asked for the confirmation then if this value is non-nil. +Otherwise, you will be prompted for that url with the editing form." + :group 'w3m + :type 'boolean) + +(defcustom w3m-home-page + (or (getenv "HTTP_HOME") + (getenv "WWW_HOME") + "about:") + "*This variable specifies the url string to open when emacs-w3m starts. +Don't say HP, which is the abbreviated name of a certain company. ;-)" + :group 'w3m + :type '(radio + :convert-widget w3m-widget-type-convert-widget + `(,@(if (getenv "HTTP_HOME") + `((const :format "HTTP_HOME: \"%v\"\n" + ,(getenv "HTTP_HOME")))) + ,@(if (getenv "WWW_HOME") + `((const :format "WWW_HOME: \"%v\"\n" + (getenv "WWW_HOME")))) + (const :tag "About emacs-w3m" "about:") + (const :tag "Blank page" "about:blank") + (string :format "URL: %v\n" :size 0)))) + +(defcustom w3m-arrived-file + (expand-file-name ".arrived" w3m-profile-directory) + "*Name of the file to keep the arrived URLs database." + :group 'w3m + :type '(file :size 0)) + +(defcustom w3m-keep-arrived-urls 500 + "*Maximum number of URLs which the arrived URLs database keeps." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-prefer-cache nil + "*Non-nil means that cached contents are used without checking headers." + :group 'w3m + :type 'boolean) + +(defcustom w3m-keep-cache-size 300 + "*Maximum number of pages to be cached in emacs-w3m." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-follow-redirection 9 + "*Maximum number of redirections which emacs-w3m honors and follows. +If nil, redirections are followed by the w3m command. Don't set it to +nil if you allow to use cookies (i.e., you have set `w3m-use-cookies' +to non-nil) since cookies may be shared among many redirected pages." + :group 'w3m + :type '(radio (const :format "Ignore redirections " nil) + (integer :size 0))) + +(defcustom w3m-redirect-with-get t + "*If non-nil, use the GET method after redirection. +It controls how emacs-w3m works when a server responds the code 301 or +302. Here is an extract from RFC2616: + +Note: RFC 1945 and RFC 2068 specify that the client is not allowed +to change the method on the redirected request. However, most +existing user agent implementations treat 302 as if it were a 303 +response, performing a GET on the Location field-value regardless +of the original request method." + :group 'w3m + :type 'boolean) + +(defcustom w3m-resize-image-scale 50 + "*Number of steps in percent used when resizing images." + :group 'w3m + :type '(integer :size 0)) + +(defface w3m-anchor + '((((class color) (background light)) (:foreground "blue")) + (((class color) (background dark)) (:foreground "cyan")) + (t (:underline t))) + "Face used for displaying anchors." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-anchor-face 'face-alias 'w3m-anchor) + +(defface w3m-arrived-anchor + '((((class color) (background light)) (:foreground "navy")) + (((class color) (background dark)) (:foreground "LightSkyBlue")) + (t (:underline t))) + "Face used for displaying anchors which have already arrived." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-arrived-anchor-face 'face-alias 'w3m-arrived-anchor) + +(defface w3m-current-anchor + '((t (:underline t :bold t))) + "Face used to highlight the current anchor." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-current-anchor-face 'face-alias 'w3m-current-anchor) + +(defface w3m-image + '((((class color) (background light)) (:foreground "ForestGreen")) + (((class color) (background dark)) (:foreground "PaleGreen")) + (t (:underline t))) + "Face used for displaying alternate strings of images." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-image-face 'face-alias 'w3m-image) + +(defface w3m-image-anchor + '((((class color) (background light)) (:background "light yellow")) + (((class color) (background dark)) (:background "dark green")) + (t (:underline t))) + "Face used for displaying alternate strings of images which are in anchors." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-image-anchor-face 'face-alias 'w3m-image-anchor) + +(defface w3m-history-current-url + ;; The following strange code compounds the attributes of the + ;; `secondary-selection' face and the `w3m-arrived-anchor' face, + ;; and generates the new attributes for this face. + (let ((base 'secondary-selection) + (fn (if (featurep 'xemacs) + 'face-custom-attributes-get + 'custom-face-attributes-get));; What a perverseness it is. + ;; Both `face-custom-attributes-get' in XEmacs and + ;; `custom-face-attributes-get' in CUSTOM 1.9962 attempt to + ;; require `font' in Emacs/w3 and `cl' arbitrarily. :-/ + (features (cons 'font features)) + base-attributes attributes attribute) + (setq base-attributes (funcall fn base nil) + attributes (funcall fn 'w3m-arrived-anchor nil)) + (while base-attributes + (setq attribute (car base-attributes)) + (unless (memq attribute '(:foreground :underline)) + (setq attributes (plist-put attributes attribute + (cadr base-attributes)))) + (setq base-attributes (cddr base-attributes))) + (list (list t attributes))) + "Face used to highlight the current url in the \"about://history/\" page." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-history-current-url-face 'face-alias 'w3m-history-current-url) + +(defface w3m-bold '((t (:bold t))) + "Face used for displaying bold text." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-bold-face 'face-alias 'w3m-bold) + +(defface w3m-italic '((((type tty)) (:underline t)) + (t (:italic t))) + "Face used for displaying italic text. +By default it will be a underline face on a non-window system." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-italic-face 'face-alias 'w3m-italic) + +(defface w3m-underline '((t (:underline t))) + "Face used for displaying underlined text." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-underline-face 'face-alias 'w3m-underline) + +(defface w3m-strike-through + `((((class color)) + ,(if (featurep 'xemacs) + '(:strikethru t) + '(:strike-through t))) + (t (:underline t))) + "Face used for displaying strike-through text." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-strike-through-face 'face-alias 'w3m-strike-through) + +(defface w3m-insert + '((((class color) (background light)) + (:foreground "purple")) + (((class color) (background dark)) + (:foreground "orchid")) + (t (:underline t))) + "Face used for displaying insert text." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-insert-face 'face-alias 'w3m-insert) + +(defcustom w3m-mode-hook nil + "*Hook run after `w3m-mode' initialization. +This hook is evaluated by the `w3m-mode' function." + :group 'w3m + :type 'hook) + +(defcustom w3m-fontify-before-hook nil + "*Hook run when starting to fontify emacs-w3m buffers. +This hook is evaluated by the `w3m-fontify' function." + :group 'w3m + :type 'hook) + +(defcustom w3m-fontify-after-hook nil + "*Hook run after fontifying emacs-w3m buffers. +This hook is evaluated by the `w3m-fontify' function." + :group 'w3m + :type 'hook) + +(defcustom w3m-display-hook + '(w3m-move-point-for-localcgi + w3m-history-highlight-current-url) + "*Hook run after displaying pages in emacs-w3m buffers. +Each function is called with a url string as the argument. This hook +is evaluated by the `w3m-goto-url' function." + :group 'w3m + :type 'hook + :initialize 'w3m-custom-hook-initialize) + +(defcustom w3m-after-cursor-move-hook + '(w3m-highlight-current-anchor + w3m-print-this-url + w3m-auto-show) + "*Hook run each time after the cursor moves in emacs-w3m buffers. +This hook is called by the `w3m-check-current-position' function by +way of `post-command-hook'." + :group 'w3m + :type 'hook + :initialize 'w3m-custom-hook-initialize) + +(defcustom w3m-delete-buffer-hook + '(w3m-pack-buffer-numbers) + "*Hook run when every emacs-w3m buffer is deleted." + :group 'w3m + :type 'hook + :initialize 'w3m-custom-hook-initialize) + +(defcustom w3m-select-buffer-hook nil + "*Hook run when a different emacs-w3m buffer is selected." + :group 'w3m + :type 'hook) + +(defcustom w3m-async-exec t + "*Non-nil means execute the w3m command asynchronously in Emacs process." + :group 'w3m + :type 'boolean) + +;; As far as we know, Emacs 21 under Mac OS X[1] and XEmacs under +;; Solaris[2] won't run the asynchronous operations correctly when +;; both `w3m-async-exec' and `w3m-process-connection-type' are non-nil; +;; [1]the final kilobyte or so might get lost from raw data downloaded +;; from a web site; [2]XEmacs hangs up. + +(defcustom w3m-process-connection-type + (not (or (and (memq system-type '(darwin macos)) + (let ((ver (shell-command-to-string "uname -r"))) + (and (string-match "^\\([0-9]+\\)\\." ver) + (< (string-to-number (match-string 1 ver)) 7)))) + (and (featurep 'xemacs) + (string-match "solaris" system-configuration)))) + "*Value for `process-connection-type' used when communicating with w3m." + :group 'w3m + :type 'boolean) + +(defcustom w3m-async-exec-with-many-urls + ;; XEmacs 21.5 tends to freeze when retrieving many urls at a time. :-< + (not (and (featurep 'xemacs) (not (featurep 'sxemacs)) + (= emacs-major-version 21) (= emacs-minor-version 5))) + "Non-nil means allow retrieving many urls asynchronously. +The value affects how emacs-w3m will work with group:* urls and the +`w3m-session-select' feature. If it is nil, the asynchronous operation +is inhibited in those cases even if `w3m-async-exec' is non-nil." + :group 'w3m + :type 'boolean) + +(defcustom w3m-default-content-type "text/html" + "*Default value assumed as the content type of local files." + :group 'w3m + :type '(string :size 0)) + +(defvar w3m-image-viewer + (or (w3m-which-command "display") + (w3m-which-command "eeyes") + (w3m-which-command "xloadimage") + (w3m-which-command "xv")) + "*Command used to view image files externally. +Note that this option is installed temporally. It will be abolished +when we implement the mailcap parser to set `w3m-content-type-alist'.") + +;; FIXME: we need to improve so that to set up the value of this +;; variable may be performed by parsing the mailcap file. +(defcustom w3m-content-type-alist + (let* ((fiber-viewer (when (and (eq system-type 'windows-nt) + (w3m-which-command "fiber")) + (list "fiber.exe" "-s" 'file))) + (external-browser + (if (and (eq system-type 'windows-nt) (w3m-which-command "fiber")) + 'w3m-w32-browser-with-fiber + (or (when (condition-case nil (require 'browse-url) (error nil)) + (if (or (not (boundp 'browse-url-browser-function)) + (eq 'w3m-browse-url + (symbol-value 'browse-url-browser-function))) + (cond + ((and (memq system-type '(windows-nt ms-dos cygwin)) + (fboundp 'browse-url-default-windows-browser)) + 'browse-url-default-windows-browser) + ((and (memq system-type '(darwin)) + (fboundp 'browse-url-default-macosx-browser)) + 'browse-url-default-macosx-browser) + ((fboundp 'browse-url-default-browser) + 'browse-url-default-browser) + ((fboundp 'browse-url-netscape) + 'browse-url-netscape)) + (symbol-value 'browse-url-browser-function))) + (when (w3m-which-command "netscape") + (list "netscape" 'url))))) + (image-viewer (or fiber-viewer + (when w3m-image-viewer + (list w3m-image-viewer 'file)))) + (video-viewer (or fiber-viewer + (when (w3m-which-command "mpeg_play") + (list "mpeg_play" 'file)))) + (dvi-viewer (or fiber-viewer + (cond ((w3m-which-command "xdvi") (list "xdvi" 'file)) + ((w3m-which-command "dvitty") + (list "dvitty" 'file))))) + (ps-viewer (or fiber-viewer + (cond + ((w3m-which-command "gv") (list "gv" 'file)) + ((w3m-which-command "gs") (list "gs" 'file))))) + (pdf-viewer (or fiber-viewer + (cond + ((w3m-which-command "xpdf") (list "xpdf" 'file)) + ((w3m-which-command "acroread") + (list "acroread" 'file)))))) + `(("text/plain" "\\.\\(?:txt\\|tex\\|el\\)\\'" nil nil) + ("text/html" "\\.s?html?\\'" ,external-browser nil) + ("text/sgml" "\\.sgml?\\'" nil "text/plain") + ("text/xml" "\\.xml\\'" nil "text/plain") + ("image/jpeg" "\\.jpe?g\\'" ,image-viewer nil) + ("image/png" "\\.png\\'" ,image-viewer nil) + ("image/gif" "\\.gif\\'" ,image-viewer nil) + ("image/tiff" "\\.tif?f\\'" ,image-viewer nil) + ("image/x-xwd" "\\.xwd\\'" ,image-viewer nil) + ("image/x-xbm" "\\.xbm\\'" ,image-viewer nil) + ("image/x-xpm" "\\.xpm\\'" ,image-viewer nil) + ("image/x-bmp" "\\.bmp\\'" ,image-viewer nil) + ("video/mpeg" "\\.mpe?g\\'" ,video-viewer nil) + ("video/quicktime" "\\.mov\\'" ,video-viewer nil) + ("application/dvi" "\\.dvi\\'" ,dvi-viewer nil) + ("application/postscript" "\\.e?ps\\'" ,ps-viewer nil) + ("application/pdf" "\\.pdf\\'" ,pdf-viewer nil) + ("application/x-pdf" "\\.pdf\\'" ,pdf-viewer nil) + ("application/xml" "\\.xml\\'" nil w3m-detect-xml-type) + ("application/rdf+xml" "\\.rdf\\'" nil "text/plain") + ("application/rss+xml" "\\.rss\\'" nil "text/plain") + ("application/xhtml+xml" nil nil "text/html"))) + "*Alist of content types, regexps, commands to view, and filters. +Each element is a list which consists of the following data: + +1. Content type. + +2. Regexp matching a url or a file name. + +3. Method to view contents. The following three types may be used: + a. Lisp function which takes the url to view as an argument. + b. (\"COMMAND\" [ARG...]) -- where \"COMMAND\" is the external command + and ARG's are the arguments passed to the command if any. The + symbols `file' and `url' that appear in ARG's will be replaced + respectively with the name of a temporary file which contains + the contents and the string of the url to view. + c. nil which means to download the url into the local file. + +4. Content type that overrides the one specified by `1. Content type'. + Valid values include: + a. Lisp function that takes three arguments URL, CONTENT-TYPE, and + CHARSET, and returns a content type. + b. String that specifies a content type. + c. nil that means not to override the content type." + :group 'w3m + :type '(repeat + (group + :indent 2 + (string :format "Type: %v\n" :size 0) + (radio :format "%{Regexp%}: %v" :extra-offset 8 + :sample-face underline + (const :tag "Not specified" nil) + (regexp :format "String: %v\n" :size 0)) + (radio :format "%{Viewer%}: %v" :extra-offset 8 + :sample-face underline + (const :tag "Not specified" nil) + (cons :tag "External viewer" :extra-offset 2 + (string :format "Command: %v\n" :size 0) + (repeat :format "Arguments:\n%v%i\n" :extra-offset 2 + (restricted-sexp + :format "%v\n" + :match-alternatives (stringp 'file 'url) + :size 0))) + (function :format "%t: %v\n" :size 0)) + (radio :format "%{Filter%}: %v" :extra-offset 8 + :sample-face underline + (const :tag "Not specified" nil) + (string :format "Equivalent type: %v\n" :size 0) + (function :format "Function: %v\n" :size 0))))) + +;; FIXME: we need to rearrange the complicated and redundant relation of +;; `w3m-encoding-type-alist', `w3m-decoder-alist', and `w3m-encoding-alist'. +(defcustom w3m-encoding-type-alist + '(("\\.gz\\'" . "gzip") + ("\\.bz2?\\'" . "bzip")) + "*Alist of file suffixes and content encoding types." + :group 'w3m + :type '(repeat + (cons :format "%v" :indent 14 + (string :format "Regexp of Suffixes: %v\n" :size 0) + (string :format "Encoding Type: %v\n" :size 0)))) + +(defcustom w3m-decoder-alist + `((gzip "gzip" ("-d")) ;; Don't use "gunzip" and "bunzip2" + (bzip "bzip2" ("-d")) ;; for broken OS and implementations. + (deflate + ,(if (not noninteractive) + (let ((exec-path + (let ((prefix (file-name-directory + (directory-file-name + (file-name-directory + (w3m-which-command w3m-command)))))) + (list (expand-file-name "libexec/w3m" prefix) + (expand-file-name "lib/w3m" prefix))))) + (w3m-which-command "inflate"))) + nil)) + "Alist of encoding types, decoder commands, and arguments." + :group 'w3m + :type '(repeat + (group :indent 4 + (radio :format "Encoding: %v" + (const :format "%v " gzip) + (const :format "%v " bzip) + (const deflate)) + (string :format "Command: %v\n" :size 0) + (repeat :tag "Arguments" :extra-offset 2 + (string :format "%v\n" :size 0))))) + +(defcustom w3m-charset-coding-system-alist + (let ((rest + '((us_ascii . raw-text) + (us-ascii . raw-text) + (gb2312 . cn-gb-2312) + (cn-gb . cn-gb-2312) + (iso-2022-jp-2 . iso-2022-7bit-ss2) + (iso-2022-jp-3 . iso-2022-7bit-ss2) + (tis-620 . tis620) + (windows-874 . tis-620) + (cp874 . tis-620) + (x-ctext . ctext) + (unknown . undecided) + (x-unknown . undecided) + (windows-1250 . cp1250) + (windows-1251 . cp1251) + (windows-1252 . cp1252) + (windows-1253 . cp1253) + (windows-1254 . cp1254) + (windows-1255 . cp1255) + (windows-1256 . cp1256) + (windows-1257 . cp1257) + (windows-1258 . cp1258) + (euc-jp . euc-japan) + (shift-jis . shift_jis) + (shift_jis . shift_jis) + (sjis . shift_jis) + (x-euc-jp . euc-japan) + (x-shift-jis . shift_jis) + (x-shift_jis . shift_jis) + (x-sjis . shift_jis))) + dest) + (while rest + (or (w3m-find-coding-system (car (car rest))) + (setq dest (cons (car rest) dest))) + (setq rest (cdr rest))) + dest) + "Alist of MIME charsets and coding systems. +Both charsets and coding systems must be symbols." + :group 'w3m + :type '(repeat (cons :format "%v" :indent 2 + (symbol :format "%t: %v\n" :size 0) + (coding-system :format "%t: %v\n" :size 0)))) + +(defcustom w3m-correct-charset-alist + '(("windows-874" . "tis-620") + ("cp874" . "tis-620") + ("cp1250" . "windows-1250") + ("cp1251" . "windows-1251") + ("cp1252" . "windows-1252") + ("cp1253" . "windows-1253") + ("cp1254" . "windows-1254") + ("cp1255" . "windows-1255") + ("cp1256" . "windows-1256") + ("cp1257" . "windows-1257") + ("cp1258" . "windows-1258") + ("shift-jis" . "shift_jis") + ("sjis" . "shift_jis") + ("x-euc-jp" . "euc-jp") + ("x-shift-jis" . "shift_jis") + ("x-shift_jis" . "shift_jis") + ("x-sjis" . "shift_jis")) + "Alist of MIME charsets; strange ones and standard ones." + :group 'w3m + :type '(repeat (cons :format "%v" :indent 11 + (string :format "From: %v\n" :size 0) + (string :format "To: %v\n" :size 0)))) + +(defcustom w3m-horizontal-scroll-columns 10 + "*Number of steps in columns used when scrolling a window horizontally." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-horizontal-shift-columns 2 + "*Number of steps in columns used when shifting a window horizontally. +The term `shifting' means a fine level scrolling." + :group 'w3m + :type '(integer :size 0)) + +(defcustom w3m-view-recenter 1 + "Recenter window contents when going to an anchor. +An integer is passed to `recenter', for instance the default 1 + means put the anchor on the second line of the screen. +t means `recenter' with no arguments, which puts it in the middle + of the screen. +nil means don't recenter, let the display follow point in the + usual way." + :group 'w3m + ;; radio items in the same order as in the docstring, and `integer' first + ;; because it's the default + :type '(radio (integer :format "%{%t%}: %v\n" :value 1 :size 1) + (const :format "%t\n" t) + (const :format "%t\n" nil))) + +(defcustom w3m-use-form t + "*Non-nil means make it possible to use form extensions. (EXPERIMENTAL)" + :group 'w3m + :type 'boolean + :require 'w3m-form) + +(defcustom w3m-submit-form-safety-check nil + "Non-nil means ask you for confirmation when submitting a form." + :group 'w3m + :type 'boolean) + +(defcustom w3m-use-cookies nil + "*Non-nil means enable emacs-w3m to use cookies. (EXPERIMENTAL)" + :group 'w3m + :type 'boolean) + +(defcustom w3m-use-filter nil + "*Non-nil means use filter programs to convert web contents. +See also `w3m-filter-rules'." + :group 'w3m + :type 'boolean + :require 'w3m-filter) + +(defcustom w3m-use-symbol + (when (and (featurep 'mule) + (eq w3m-type 'w3m-m17n)) + (if (eq w3m-output-coding-system 'utf-8) + (and (w3m-mule-unicode-p) + (or (featurep 'xemacs) + (< emacs-major-version 23)) + 'w3m-device-on-window-system-p) + t)) + "*Non-nil means replace symbols that the <_SYMBOL> tags lead into. +It is meaningful only when the w3m-m17n command is used and (X)Emacs +handles unicode charsets." + :group 'w3m + :type 'boolean + :require 'w3m-symbol) + +(defcustom w3m-edit-function 'find-file + "*Function used for editing local files. +It is used when either `w3m-edit-current-url' or `w3m-edit-this-url' +is invoked for local pages." + :group 'w3m + :type '(radio + (const :tag "Edit it in the current window" find-file) + (const :tag "Edit it in another window" find-file-other-window) + (const :tag "Edit it in another frame" find-file-other-frame) + (const :tag "View it in another window" view-file-other-window) + (function :format "Other function: %v\n" :size 0 + :value view-file))) + +(defcustom w3m-edit-function-alist + '(("\\`[^?]+/hiki\\.cgi\\?" . hiki-edit-url)) + "*Alist of functions used for editing pages. +This option is referred to decide which function should be used to +edit a specified page, when either `w3m-edit-current-url' or +`w3m-edit-this-url' is invoked. When no suitable function is found +from this alist, `w3m-edit-function' is used." + :group 'w3m + :type '(repeat (cons :format "%v" :indent 3 + (regexp :format "URL: %v\n" :size 0) + (function)))) + +(defcustom w3m-url-local-directory-alist + (when (boundp 'yahtml-path-url-alist) + (mapcar + (lambda (pair) + (cons (cdr pair) (car pair))) + (symbol-value 'yahtml-path-url-alist))) + "*Alist of URLs and local directories. +If directory names of a given URL and the car of an element are the +same, emacs-w3m assumes that the file exists in the local directory +where the cdr of an element points to. The default value will be set +to a value of the `yahtml-path-url-alist' variable which exchanged the +car and the cdr in each element if it is available." + :type '(repeat + (cons :format "%v" :indent 3 + (string :format "URL: %v\n" :size 0) + (directory :format "%t: %v\n" :size 0))) + :group 'w3m) + +(defcustom w3m-track-mouse t + "*Whether to track the mouse and message the url under the mouse. +See also `show-help-function' if you are using GNU Emacs. + +A tip for XEmacs users: + +You can also use the `balloon-help' feature by the +`M-x balloon-help-mode' command with arg 1. If the window manager +decorates the balloon-help frame, and that is not to your taste, you +may strip it off with the following directives: + +For ol[v]wm use this in .Xdefaults: + olvwm.NoDecor: balloon-help + or + olwm.MinimalDecor: balloon-help + +For fvwm version 1 use this in your .fvwmrc: + NoTitle balloon-help +or + Style \"balloon-help\" NoTitle, NoHandles, BorderWidth 0 + +For twm use this in your .twmrc: + NoTitle { \"balloon-help\" } + +See the balloon-help.el file for more information." + :group 'w3m + :type 'boolean) + +(defcustom w3m-show-decoded-url + '(("\\`http://\\(?:[^./?#]+\\.\\)*wikipedia\\.org/" . utf-8) + ("\\`http://\\(?:[^./?#]+\\.\\)*nikkei\\.co\\.jp/" . nil) + ("\\`http://\\(?:[^./?#]+\\.\\)*hatena\\.ne\\.jp/" . euc-jp) + ("\\`http://\\(?:[^./?#]+\\.\\)*ohmynews\\.co\\.jp/" . utf-8) + (t . t)) + "*Non-nil means show decoded URIs in the echo area, the balloon, etc. +This variable can take one of the following five kinds of forms: + +1. t + Decode URIs using the encoding guessed from the value of + `w3m-coding-system-priority-list'. + +2. Coding system + Decode URIs using this value. + +3. List of coding systems: + Decode URIs using the encoding assumed based on this list. + +4. Alist of predicates and forms described below: + Each element looks like the `(PREDICATE . ENCODING)' form. PREDICATE + should be a regexp, a function or a Lisp form, and ENCODING should be + one of the forms described here excluding this form. If PREDICATE is + a regexp, it will be tested whether it matches to the target url. + If it is a function, it will be called with the target url. If it + is a Lisp form, it will be simply evaluated. Elements are tested in + turn until the result of the test of the predicate is true and the + encoding which is associated to the predicate is used for decoding + URIs. + +5. nil + Don't decode URIs." + :group 'w3m + :type + '(choice + :format "%{%t%}: %[Value Menu%]\n %v" + (coding-system :tag "Specify encoding" :format "Use this encoding: %v" + :match (lambda (widget value) + (w3m-find-coding-system value))) + (const :tag "Prefer the encoding of the current page" + :format "%t: %{t%}\n" :sample-face widget-field-face + t) + (group :tag "List of prefered encodings" + :match (lambda (widget value) + (and (car-safe value) + (symbolp (car-safe value)))) + (repeat :format "List of prefered encodings:\n%v%i\n" + :inline t + (coding-system :tag "Encoding"))) + (group :tag "Rules to select an encoding of URIs on the current page" + :match (lambda (widget value) value) + (repeat + :format + "Rules to select an encoding of URIs on the current page:\n%v%i\n" + :inline t + (cons + :format "%v" :indent 2 + (choice + :format "\n %[Value Menu for the car%]\n %v" + (regexp :tag "Regexp matches the current page") + (function :tag "Predicate checks for the current page") + (sexp :tag "Expression checks for the current page")) + (choice + :format "%[Value Menu for the cdr%]\n %v" + (coding-system :tag "Specify encoding" + :format "Use this encoding: %v" + :match (lambda (widget value) + (if (featurep 'xemacs) + nil ;; ?? + (w3m-find-coding-system value)))) + (const :tag "Prefer the encoding of the current page" + :format "%t: %{t%}\n" :sample-face widget-field-face + t) + (group :tag "List of prefered encodings" + (repeat :tag "List of prefered encodings" + :inline t + :extra-offset 4 + (coding-system :tag "Encoding"))) + (const :tag "Don't decode URIs" + :format "%t: %{nil%}\n" :sample-face widget-field-face + nil))))) + (const :tag "Don't decode URIs" + :format "%t: %{nil%}\n" :sample-face widget-field-face + nil))) + +(defcustom w3m-use-title-buffer-name nil + "Non-nil means use name of buffer included current title." + :group 'w3m + :type 'boolean) + +(defcustom w3m-use-japanese-menu + (and (equal "Japanese" w3m-language) + ;; Emacs 21, XEmacs 21.4 and SXEmacs don't seem to support + ;; non-ASCII text in the popup menu. + (not (featurep 'sxemacs)) + (if (featurep 'xemacs) + (or (> emacs-major-version 21) + (and (= emacs-major-version 21) + (>= emacs-minor-version 5))) + (or (>= emacs-major-version 22) + (featurep 'meadow)))) + "Non-nil means use Japanese characters for Menu if possible." + :group 'w3m + :type 'boolean) + +(defcustom w3m-menu-on-forefront nil + "Non-nil means place the emacs-w3m menus on the forefront of the menu bar." + :group 'w3m + :type 'boolean + :set (lambda (symbol value) + (prog1 + (custom-set-default symbol value) + (unless noninteractive + (w3m-menu-on-forefront value))))) + +(defcustom w3m-use-tab t + "Non-nil means make emacs-w3m a tab browser. +It makes it possible to show all emacs-w3m buffers in a single window +with the tabs line, and you can choose one by clicking a mouse on it. +See also `w3m-use-tab-menubar'." + :group 'w3m + :type 'boolean) + +(defcustom w3m-add-tab-number nil + "Non-nil means put sequential number to a title on tab." + :group 'w3m + :type 'boolean) + +(defcustom w3m-use-tab-menubar t + "Non-nil means use the TAB pull-down menu in the menubar. +It makes it possible to show all emacs-w3m buffers in a single window, +and you can choose one by clicking a mouse on it. This feature +requires that Emacs has been built to be able to display multilingual +text in the menubar if you often visit web sites written in non-ascii +text. See also `w3m-use-tab'." + :group 'w3m + :type 'boolean) + +(defcustom w3m-new-session-url "about://bookmark/" + "*Default url to be opened in a tab or a session which is created newly." + :group 'w3m + :type '(radio + :convert-widget w3m-widget-type-convert-widget + `((const :tag "About emacs-w3m" "about:") + (const :tag "Blank page" "about:blank") + (const :tag "Bookmark" "about://bookmark/") + (const :tag ,(format "Home page (%s)" w3m-home-page) + ,w3m-home-page) + (string :format "URL: %v\n" :size 0 + :value "http://emacs-w3m.namazu.org")))) + +(defcustom w3m-make-new-session nil + "*Non-nil means making new emacs-w3m buffers when visiting new pages. +If it is non-nil and there are already emacs-w3m buffers, the `w3m' +command makes a new emacs-w3m buffer if a user specifies a url string +in the minibuffer, and the `w3m-safe-view-this-url' command also makes +a new buffer if a user invokes it in a buffer not being running the +`w3m-mode'." + :group 'w3m + :type 'boolean) + +(defcustom w3m-use-favicon t + "*Non-nil means show favicon images if they are available. +It will be set to nil automatically if ImageMagick's `convert' program +does not support the ico format." + :get (lambda (symbol) + (and (not noninteractive) + (default-value symbol) + (w3m-favicon-usable-p))) + :set (lambda (symbol value) + (custom-set-default symbol (and (not noninteractive) + value + (w3m-favicon-usable-p)))) + :group 'w3m + :type 'boolean) + +(defcustom w3m-show-graphic-icons-in-mode-line t + "Non-nil means show graphic status indicators in the mode-line. +If it is nil, also the favicon won't be shown in the mode-line even if +`w3m-use-favicon' is non-nil." + :set (lambda (symbol value) + (prog1 + (custom-set-default symbol value) + (if (and (not noninteractive) + ;; Make sure it is not the first time. + (featurep 'w3m) + (fboundp 'w3m-initialize-graphic-icons)) + (w3m-initialize-graphic-icons)))) + :group 'w3m + :type 'boolean) + +(defcustom w3m-show-graphic-icons-in-header-line t + "Non-nil means show graphic status indicators in the header-line. +If it is nil, also the favicon won't be shown in the header-line even +if `w3m-use-favicon' is non-nil. This variable is currently +meaningless under XEmacs." + :group 'w3m + :type 'boolean) + +(defcustom w3m-pop-up-windows t + "Non-nil means split the windows when a new emacs-w3m session is created. +This variable is similar to `pop-up-windows' and quite overridden by +`w3m-pop-up-frames' as if `pop-up-frames' influences. Furthermore, if +`w3m-use-tab' is non-nil or there is the buffers selection window (for +the `w3m-select-buffer' feature), this variable is ignored when +creating the second or more emacs-w3m session." + :group 'w3m + :type 'boolean) + +(defcustom w3m-pop-up-frames nil + "Non-nil means pop to a new frame up for an emacs-w3m session. +This variable is similar to `pop-up-frames' and does override +`w3m-pop-up-windows'. If `w3m-use-tab' is non-nil or there is the +buffers selection window (for the `w3m-select-buffer' feature), this +variable is ignored when creating the second or more emacs-w3m session." + :group 'w3m + :type 'boolean) + +(defcustom w3m-view-this-url-new-session-in-background nil + "*Obsolete." + :group 'w3m + :type 'boolean) + +(defcustom w3m-new-session-in-background + w3m-view-this-url-new-session-in-background + "*Say whether not to focus on a new tab or a new session in target. +It influences only when a new emacs-w3m buffer is created." + :group 'w3m + :type 'boolean) + +(defcustom w3m-popup-frame-parameters nil + "Alist of frame parameters used when creating a new emacs-w3m frame. +It allows not only the alist form but also XEmacs' plist form." + :group 'w3m + :type '(choice (group :inline t :tag "Frame Parameters (Emacs)" + (repeat :inline t :tag "Frame Parameters (Emacs)" + (cons :format "%v" :indent 3 + (symbol :format "Parameter: %v\n" + :size 0) + (sexp :format "%t: %v\n" :size 0)))) + (group :inline t :tag "Frame Plist (XEmacs)" + (repeat :inline t :tag "Frame Plist (XEmacs)" + (group :indent 2 :inline t + (symbol :format "Property: %v\n" + :size 0) + (sexp :format "%t: %v\n" :size 0)))))) + +(defcustom w3m-auto-show t + "*Non-nil means provide the ability to horizontally scroll the window. +Automatic horizontal scrolling is made when the point gets away from +both ends of the window, but nothing occurs if `truncate-lines' is set +to nil. + +This feature works with the specially made program in emacs-w3m; usual +`auto-hscroll-mode', `automatic-hscrolling', `auto-show-mode' or +`hscroll-mode' will all be invalidated in emacs-w3m buffers." + :group 'w3m + :type 'boolean) + +(defcustom w3m-horizontal-scroll-division 4 + "*Integer used by the program making the point certainly visible. +The cursor definitely does not go missing even when it has been driven +out of the window while wandering around anchors and forms in an +emacs-w3m buffer. + +Suppose that the value of this variable is N. When the point is +outside the left of the window, emacs-w3m scrolls the window so that +the point may be displayed on the position within 1/N of the width of +the window from the left. Similarly, when the point is outside the +right of the window, emacs-w3m scrolls the window so that the point +may be displayed on the position of 1/N of the width of the window +from the right. + +This feature doesn't work if `w3m-auto-show' is nil. The value must +be a larger integer than 1." + :group 'w3m + :type '(integer :size 0) + :set (lambda (symbol value) + (custom-set-default symbol (if (and (integerp value) (> value 1)) + value + 4)))) + +(defcustom w3m-show-error-information t + "*Non-nil means show an error information as a web page. +Page is made when the foreign server doesn't respond to a request to +retrieve data." + :group 'w3m + :type 'boolean) + +(defcustom w3m-use-refresh t + "*Non-nil means honor the REFRESH attribute in META tags. +Emacs-w3m arbitrarily takes you to a url specified by that attribute. +Note that they may be malicious traps." + :group 'w3m + :type 'boolean) + +(defcustom w3m-mbconv-command "mbconv" + "*Name of the \"mbconv\" command provided by the \"libmoe\" package. +The \"libmoe\" package is used when you use the w3mmee command instead +of the w3m command. See also `w3m-command'." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-local-find-file-regexps + (cons nil + (concat "\\." + (regexp-opt (append '("htm" + "html" + "shtm" + "shtml" + "xhtm" + "xhtml" + "txt") + (and (w3m-image-type-available-p 'jpeg) + '("jpeg" "jpg")) + (and (w3m-image-type-available-p 'gif) + '("gif")) + (and (w3m-image-type-available-p 'png) + '("png")) + (and (w3m-image-type-available-p 'xbm) + '("xbm")) + (and (w3m-image-type-available-p 'xpm) + '("xpm"))) + t) ;; with surrounding parens (for old Emacsen). + "\\'")) + "*Cons of two regexps matching and not matching with local file names. +If a url of the `file:' scheme in which you entered matches the first +form and does not match the latter form, it will be opened by the +function specified by the `w3m-local-find-file-function' variable. +Nil for the regexp matches any file names. + +For instance, the value `(nil . \"\\\\.[sx]?html?\\\\'\")' allows +\"file:///some/where/w3m.el\", not \"file:///any/where/index.html\", to +open by the function specified by `w3m-local-find-file-function'. The +latter will be opened as a normal web page. Furthermore, if you would +like to view some types of contents in the local system using the +viewers specified by the `w3m-content-type-alist' variable, you can +add regexps matching those file names to the second element of this +variable. For example: + +\(setq w3m-local-find-file-regexps + '(nil . \"\\\\.\\\\(?:[sx]?html?\\\\|dvi\\\\|ps\\\\|pdf\\\\)\\\\'\")) + +It is effective only when the `w3m-local-find-file-function' variable +is set properly." + :group 'w3m + :type '(cons (radio :tag "Match" + (const :format "All " nil) + (regexp :format "%t: %v\n" :size 0)) + (radio :tag "Nomatch" + (const :format "All " nil) + (regexp :format "%t: %v\n" :size 0)))) + +(defcustom w3m-local-find-file-function + '(if (w3m-popup-frame-p) + 'find-file-other-frame + 'find-file-other-window) + "*Function used to open local files. +If a url of the `file:' scheme in which you entered agrees with the +rule of the `w3m-local-find-file-regexps' variable (which see), it is +used to open the file. + +Function should take one argument, the string naming the local file. +It can also be any Lisp form returning a function. Set this to nil if +you want to always use emacs-w3m to see local files." + :group 'w3m + :type '(sexp :size 0)) + +(defcustom w3m-local-directory-view-method 'w3m-cgi + "*Symbol of the method to view a local directory tree. +The valid values include `w3m-cgi' using the CGI program specified by +the `w3m-dirlist-cgi-program' variable (which see), and `w3m-dtree' +using the w3m-dtree Lisp module." + :group 'w3m + :type '(radio (const :format "Dirlist CGI " w3m-cgi) + (const :tag "Directory tree" w3m-dtree))) + +(defcustom w3m-dirlist-cgi-program + (cond ((eq system-type 'windows-nt) + "c:/usr/local/lib/w3m/dirlist.cgi") + ((memq system-type '(OS/2 emx)) + (expand-file-name "dirlist.cmd" (getenv "W3M_LIB_DIR"))) + (t nil)) + "*Name of the CGI program to list a local directory. +If it is nil, the dirlist.cgi module of the w3m command will be used." + :group 'w3m + :type `(radio + (const :tag "w3m internal CGI" nil) + (file :format "path of 'dirlist.cgi': %v\n" + :size 0 + :value ,(if (not noninteractive) + (expand-file-name + (concat "../lib/" + (file-name-nondirectory w3m-command) + "/dirlist.cgi") + (file-name-directory + (w3m-which-command w3m-command))))))) + +(defcustom w3m-add-referer + (if (boundp 'w3m-add-referer-regexps) + (symbol-value 'w3m-add-referer-regexps) + (cons "\\`http:" "\\`http://\\(?:localhost\\|127\\.0\\.0\\.1\\)/")) + "*Rule of sending referers. +There are five choices as the valid values of this option. + +\(1\) nil: this means that emacs-w3m never send referers. +\(2\) t: this means that emacs-w3m always send referers. +\(3\) lambda: this means that emacs-w3m send referers only when both + the current page and the target page are provided by the same + server. +\(4\) a cons cell keeping two regular expressions: this means that + emacs-w3m send referers when the url of the current page matches + the first regular expression and does not match the second regular + expression. Nil for the regexp matches any url. +\(5\) a function: emacs-w3m send referers when this function which has + two arguments, URL and REFERER, returns non-nil. + +If you become nervous about leak of your private WEB browsing history, +set `nil' or `lambda' to this option. When your computer belongs to a +secret network, you may set a pair of regular expressions to inhibit +sending referers which will disclose your private informations, as +follows: + +\(setq w3m-add-referer + '(\"\\\\`http:\" + . \"\\\\`http://\\\\(?:[^./]+\\\\.\\\\)*example\\\\.net/\")\) +" + :group 'w3m + :type '(choice + (const :tag "Never send referers" nil) + (const :tag "Always send referers" t) + (const :tag "Send referers when accessing the same server" lambda) + (cons :tag "Send referers when URI matches:" + (list :inline t :format "%v" + (radio :indent 2 :sample-face underline + :tag "Allow" + (regexp :format "%t: %v\n" :size 0) + (const :tag "Don't allow all" nil)) + (radio :indent 2 :sample-face underline + :tag "Don't allow" + (regexp :format "%t: %v\n" :size 0) + (const :tag "Allow all" nil)))) + (function :tag "Send referers when your function returns non-nil"))) + +(defcustom w3m-touch-command (w3m-which-command "touch") + "*Name of the executable file of the touch command. +Note that the command is required to be able to modify file's +timestamp with the `-t' option." + :group 'w3m + :type '(string :size 0)) + +(defcustom w3m-puny-utf-16be + (cond + ((w3m-find-coding-system 'utf-16-be-no-signature) + 'utf-16-be-no-signature) + ((w3m-find-coding-system 'utf-16be) + 'utf-16be) + (t nil)) + "*Coding system for PUNY coding. if nil, don't use PUNY code." + :group 'w3m + :type '(radio (coding-system :tag "UTF-16BE without BOM") + (const "Don't use" nil))) + +(defcustom w3m-uri-replace-alist + '(("\\`gg:" w3m-search-uri-replace "google") + ("\\`ggg:" w3m-search-uri-replace "google groups") + ("\\`ya:" w3m-search-uri-replace "yahoo") + ("\\`al:" w3m-search-uri-replace "altavista") + ("\\`bts:" w3m-search-uri-replace "debian-bts") + ("\\`dpkg:" w3m-search-uri-replace "debian-pkg") + ("\\`archie:" w3m-search-uri-replace "iij-archie") + ("\\`alc:" w3m-search-uri-replace "alc") + ("\\`urn:ietf:rfc:\\([0-9]+\\)" w3m-pattern-uri-replace + "http://www.ietf.org/rfc/rfc\\1.txt")) + "*Alist of regexps matching URIs, and some types of replacements. +It can be used universally to replace URI strings in the local rule to +the valid forms in the Internet. + +Each element looks like the `(REGEXP FUNCTION OPTIONS...)' form. +FUNCTION takes one or more arguments, a uri and OPTIONS. You can use +the grouping constructs \"\\\\(...\\\\)\" in REGEXP, and they can be +referred by the \"\\N\" forms in a replacement (which is one of OPTIONS). + +Here are some predefined functions which can be used for those ways: + +`w3m-pattern-uri-replace' + Replace a URI using PATTERN (which is just an OPTION). It is + allowed that PATTERN contains the \"\\N\" forms in the same manner + of `replace-match'. + +`w3m-search-uri-replace' + Generate the valid forms to query words to some specified search + engines. For example, the element + + (\"\\\\`gg:\" w3m-search-uri-replace \"google\") + + makes it possible to replace the URI \"gg:emacs\" to the form to + query the word \"emacs\" to the Google site.\ +" + :group 'w3m + :type '(repeat + :convert-widget w3m-widget-type-convert-widget + `((choice + :format "%[Value Menu%] %v" :tag "Replacing URI with" + (list :indent 4 :tag "Replacement Using Pattern" + (regexp :format "%t: %v\n" :size 0) + (function-item :format "" w3m-pattern-uri-replace) + (string :format "Pattern: %v\n" :size 0)) + (list :format "%t:\n%v" :indent 4 :tag "Quick Search" + (regexp :format "Prefix URI %t: %v\n" + :size 0 :value "") + (function-item :format "" w3m-search-uri-replace) + (string :format "Quick Search Engine: %v\n" + :size 0 :value "")) + ,@(progn + (require 'w3m-search) + (mapcar + (lambda (elem) + (let* ((engine (car elem)) + (prefix (mapconcat 'identity + (split-string (downcase engine)) + "-"))) + `(list + :format "Quick Search:\n%v" + :indent 4 + :tag ,(concat "Quick Search: " prefix) + (regexp :tag "Prefix URL Regexp" + ,(concat "\\`" (regexp-quote prefix) ":")) + (function-item :format "" w3m-search-uri-replace) + (string :tag "Quick Search Engine" ,engine)))) + w3m-search-engine-alist)) + (list :indent 4 :tag "User Defined Function" + (regexp :format "%t: %v\n" :size 0) + (function + :format "%t: %v\n" :size 0 + ;; Fix a bug in Emacs versions prior to 22. + :value-to-internal + (lambda (widget value) + (if (stringp value) + (if (string-match "\\`\".*\"\\'" value) + (substring value 1 -1) + value) + (prin1-to-string value)))) + (repeat :extra-offset 2 :tag "Options" + (sexp :format "%t: %v\n" :size 0))))))) + +(defcustom w3m-relationship-estimate-rules + `((w3m-relationship-simple-estimate + "\\`http://\\(?:www\\|blogsearch\\|groups\\|news\\|images\\)\ +\\.google\\.[^/]+/\\(?:\\(?:blog\\|code\\)?search\\|groups\\|news\\|images\ +\\|cse\\?cx=\\|custom\\?\\(?:q\\|hl\\)=\\)" + ,(concat "<a[^>]+?href=" w3m-html-string-regexp + ">\\(?:\\(?:<img src=[^>]*nav_next\\.gif\\)" + "\\|\\(?:<span>Next</span>\\)\\)") + ,(concat "<a[^>]+?href=" w3m-html-string-regexp + ">\\(?:\\(?:<img src=[^>]*nav_previous\\.gif\\)" + "\\|\\(?:<span>Previous</span>\\)\\)") + nil nil) + (w3m-relationship-simple-estimate + "\\`http://www\\.google\\.[^/]+/gwt/n\\?u=" + ,(concat "<a[^>]+?href=" w3m-html-string-regexp + "[ \t\n]+accesskey=\"3\">") + ,(concat "<a[^>]+?href=" w3m-html-string-regexp + "[ \t\n]+accesskey=\"1\">") + nil nil) + (w3m-relationship-simple-estimate + "\\`http://beta\\.search\\.yahoo\\.co\\.jp/" + ,(concat "<a href=" w3m-html-string-regexp + "><img src=http://i\\.yimg\\.jp/images/common/ar_next\\.gif") + ,(concat "<a href=" w3m-html-string-regexp + "><img src=http://i\\.yimg\\.jp/images/common/ar_prev\\.gif") + nil nil) + (w3m-relationship-simple-estimate + "\\`http://www\\.zdnet\\.co\\.jp/news/" + ,(concat "<a href=" w3m-html-string-regexp ">$B<!$N%Z!<%8(B</a>") + ,(concat "<a href=" w3m-html-string-regexp ">$BA0$N%Z!<%8(B</a>") + nil nil) + (w3m-relationship-simple-estimate + "\\`http://freshmeat\\.net/\\(search\\|browse\\)/" + ,(concat "<A HREF=" w3m-html-string-regexp ">\\[»\\]</A>") + ,(concat "<A HREF=" w3m-html-string-regexp ">\\[«\\]</A>") + nil nil) + (w3m-relationship-oddmuse-estimate) + (w3m-relationship-magicpoint-estimate) + (w3m-relationship-slashdot-estimate) + (w3m-relationship-alc-estimate)) + "*Rules to estimate relationships between a retrieved page and others." + :group 'w3m + :type '(repeat + (choice + :format "%[Value Menu%] %v" + (list :tag "Estimate relationships from anchors matching" + :indent 1 + (const :format "Function: %v\n" + w3m-relationship-simple-estimate) + (regexp :tag "URL") + (regexp :tag "Next") + (regexp :tag "Prev") + (radio :format "Start: %v" + (const :format "%v " nil) regexp) + (radio :format "Contents: %v" + (const :format "%v " nil) regexp)) + (list :tag "Estimate with a user defined function" + :indent 1 + function + (repeat :tag "Args" :extra-offset 1 (sexp :format "%v")))))) + +(defcustom w3m-enable-google-feeling-lucky t + "Non-nil enables you to enter any words as well as a url when prompted. +In that case, emacs-w3m uses Google to search for the words." + :group 'w3m + :type 'boolean) + +(defcustom w3m-google-feeling-lucky-charset + (cond + ((or (featurep 'un-define) (fboundp 'utf-translate-cjk-mode)) + "UTF-8") + ((equal "Japanese" w3m-language) + "SHIFT_JIS") + ((w3m-find-coding-system 'utf-8) + "UTF-8") + (t "US-ASCII")) + "*Character set for \"I'm Feeling Lucky on Google\"." + :group 'w3m + :type '(string :size 0)) + +(defconst w3m-entity-table + (let ((table (make-hash-table :test 'equal))) + (dolist (entity '(("nbsp" . " ") + ("gt" . ">") + ("lt" . "<") + ("amp" . "&") + ("quot" . "\"") + ("apos" . "'") + ("circ" . "^") + ("tilde" . "~"))) + (puthash (car entity) (cdr entity) table)) + (dolist (entity + '(;("nbsp" . 160) + ("iexcl" . 161) ("cent" . 162) ("pound" . 163) ("curren" . 164) + ("yen" . 165) ("brvbar" . 166) ("sect" . 167) ("uml" . 168) + ("copy" . 169) ("ordf" . 170) ("laquo" . 171) ("not" . 172) + ("shy" . 173) ("reg" . 174) ("macr" . 175) ("deg" . 176) + ("plusmn" . 177) ("sup2" . 178) ("sup3" . 179) ("acute" . 180) + ("micro" . 181) ("para" . 182) ("middot" . 183) ("cedil" . 184) + ("sup1" . 185) ("ordm" . 186) ("raquo" . 187) ("frac14" . 188) + ("frac12" . 189) ("frac34" . 190) ("iquest" . 191) + ("Agrave" . 192) ("Aacute" . 193) ("Acirc" . 194) + ("Atilde" . 195) ("Auml" . 196) ("Aring" . 197) ("AElig" . 198) + ("Ccedil" . 199) ("Egrave" . 200) ("Eacute" . 201) + ("Ecirc" . 202) ("Euml" . 203) ("Igrave" . 204) ("Iacute" . 205) + ("Icirc" . 206) ("Iuml" . 207) ("ETH" . 208) ("Ntilde" . 209) + ("Ograve" . 210) ("Oacute" . 211) ("Ocirc" . 212) + ("Otilde" . 213) ("Ouml" . 214) ("times" . 215) ("Oslash" . 216) + ("Ugrave" . 217) ("Uacute" . 218) ("Ucirc" . 219) ("Uuml" . 220) + ("Yacute" . 221) ("THORN" . 222) ("szlig" . 223) ("agrave" . 224) + ("aacute" . 225) ("acirc" . 226) ("atilde" . 227) ("auml" . 228) + ("aring" . 229) ("aelig" . 230) ("ccedil" . 231) ("egrave" . 232) + ("eacute" . 233) ("ecirc" . 234) ("euml" . 235) ("igrave" . 236) + ("iacute" . 237) ("icirc" . 238) ("iuml" . 239) ("eth" . 240) + ("ntilde" . 241) ("ograve" . 242) ("oacute" . 243) + ("ocirc" . 244) ("otilde" . 245) ("ouml" . 246) ("divide" . 247) + ("oslash" . 248) ("ugrave" . 249) ("uacute" . 250) + ("ucirc" . 251) ("uuml" . 252) ("yacute" . 253) ("thorn" . 254) + ("yuml" . 255))) + (puthash (car entity) + (char-to-string (make-char 'latin-iso8859-1 (cdr entity))) + table)) + (dolist (entity + '(("Alpha" . 65) ("Beta" . 66) ("Gamma" . 67) ("Delta" . 68) + ("Epsilon" . 69) ("Zeta" . 70) ("Eta" . 71) ("Theta" . 72) + ("Iota" . 73) ("Kappa" . 74) ("Lambda" . 75) ("Mu" . 76) + ("Nu" . 77) ("Xi" . 78) ("Omicron" . 79) ("Pi" . 80) + ("Rho" . 81) ; No ("Sigmaf" . 82) + ("Sigma" . 83) ("Tau" . 84) ("Upsilon" . 85) ("Phi" . 86) + ("Chi" . 87) ("Psi" . 88) ("Omega" . 89) + ("alpha" . 97) ("beta" . 98) ("gamma" . 99) ("delta" . 100) + ("epsilon" . 101) ("zeta" . 102) ("eta" . 103) ("theta" . 104) + ("iota" . 105) ("kappa" . 106) ("lambda" . 107) ("mu" . 108) + ("nu" . 109) ("xi" . 110) ("omicron" . 111) ("pi" . 112) + ("rho" . 113) ("sigmaf" . 114) ("sigma" . 115) ("tau" . 116) + ("upsilon" . 117) ("phi" . 118) ("chi" . 119) ("psi" . 120) + ("omega" . 121))) + (puthash (car entity) + (char-to-string (make-char 'greek-iso8859-7 (cdr entity))) + table)) + (when (w3m-mule-unicode-p) + (let ((latin-extended-a + '((32 . (("OElig" . 114) ("oelig" . 115))) + (33 . (("Scaron" . 32) ("scaron" . 33) ("Yuml" . 56))))) + (latin-extended-b '((33 . (("fnof" . 82))))) + ;;(spacing-modifier-letters '(36 . (("circ" . 120) ("tilde" . 124)))) + (general-punctuation + '((114 . + (("ensp" . 98) ("emsp" . 99) ("thinsp" . 105) ("zwnj" . 108) + ("zwj" . 109) ("lrm" . 110) ("rlm" . 111) ("ndash" . 115) + ("mdash" . 116) ("lsquo" . 120) ("rsquo" . 121) + ("sbquo" . 122) ("ldquo" . 124) ("rdquo" . 125) + ("bdquo" . 126))) + (115 . + (("dagger" . 32) ("Dagger" . 33) ("permil" . 48) + ("lsaquo" . 57) ("rsaquo" . 58) + ("bull" . 34) ("hellip" . 38) ("prime" . 50) ("Prime" . 51) + ("oline" . 62) ("frasl" . 68))) + (116 . + (("euro" . 76))))) + (greek '((39 . (("thetasym" . 81) ("upsih" . 82) ("piv" . 86))))) + (letterlike-symbols + '((117 . + (("weierp" . 88) ("image" . 81) ("real" . 92) + ("trade" . 98) ("alefsym" . 117))))) + (arrows + '((118 . + (("larr" . 112) ("uarr" . 113) ("rarr" . 114) ("darr" . 115) + ("harr" . 116))) + (119 . + (("crarr" . 53) ("lArr" . 80) ("uArr" . 81) ("rArr" . 81) + ("dArr" . 83) ("hArr" . 84))))) + (mathematical-operators + '((120 . + (("forall" . 32) ("part" . 34) ("exist" . 35) ("empty" . 37) + ("nabla" . 39) ("isin" . 40) ("notin" . 41) ("ni" . 43) + ("prod" . 47) ("sum" . 49) ("minus" . 50) ("lowast" . 55) + ("radic" . 58) ("prop" . 61) ("infin" . 62) ("ang" . 64) + ("and" . 71) ("or" . 72) ("cap" . 73) ("cup" . 74) + ("int" . 75) ("there4" . 84) ("sim" . 92) ("cong" . 101) + ("asymp" . 104))) + (121 . + (("ne" . 32) ("equiv" . 33) ("le" . 36) ("ge" . 37) + ("sub" . 66) ("sup" . 67) ("nsub" . 68) ("sube" . 70) + ("supe" . 71) ("oplus" . 85) ("otimes" . 87) + ("perp" . 101))) + (122 . (("sdot" . 37))))) + (miscellaneous-technical + '((122 . (("lceil" . 104) ("rceil" . 105) ("lfloor" . 106) + ("rfloor" . 107))) + (123 . (("lang" . 41) ("rang" . 42))))) + (suit + '(("loz" . (34 . 42)) ("spades" . (35 . 96)) ("clubs" . (35 . 99)) + ("hearts" . (35 . 101)) ("diams" . (35 . 102))))) + (dolist (entities `(,@latin-extended-a + ,@latin-extended-b + ,@general-punctuation + ,@greek ,@letterlike-symbols ,@arrows + ,@mathematical-operators + ,@miscellaneous-technical)) + (let ((code1 (car entities))) + (dolist (entity (cdr entities)) + (puthash (car entity) + (char-to-string + (make-char 'mule-unicode-0100-24ff + code1 (cdr entity))) + table)))) + (dolist (entity suit) + (puthash (car entity) + (char-to-string + (make-char 'mule-unicode-2500-33ff + (car (cdr entity)) (cdr (cdr entity)))) + table)))) + table) + "Table of html character entities and values.") + +(defconst w3m-entity-reverse-table + (let ((table (make-hash-table :test 'equal))) + (maphash (lambda (key val) (puthash val key table)) + w3m-entity-table) + table) + "Revision table of html character entities and values.") + +(defconst w3m-entity-regexp + (let (buf) + (maphash (lambda (key val) (push key buf)) + w3m-entity-table) + (concat "&\\(" + (let ((max-specpdl-size (* 1024 1024))) ;; For old Emacsen. + (regexp-opt buf)) + "\\|#\\(?:[xX][0-9a-fA-F]+\\|[0-9]+\\)\\)\\(\\'\\|[^0-9a-zA-Z]\\)")) + "Regexp matching html character entities.") + +(defconst w3m-encoding-alist + (eval-when-compile + (apply 'nconc + (mapcar (lambda (elem) + (mapcar (lambda (x) (cons x (car elem))) + (cdr elem))) + '((gzip . ("gzip" "x-gzip" "compress" "x-compress")) + (bzip . ("x-bzip" "bzip" "bzip2")) + (deflate . ("x-deflate" "deflate")))))) + "Alist of content encoding types and decoder symbols. +Decoders are specified by `w3m-decoder-alist' (which see).") + +(defconst w3m-emacs-w3m-icon "\ +R0lGODlhUwAOAPIFAP///38AvwAAv1Uq/AC/AL9/Af8AAAAAACH/C05FVFNDQVBFMi4wAwEA +AAAh+QQEIQD/ACwAAAAAUwAOAEADwgi63P4wykldCBYDIRT33RYOQ0ScU1EAKrs2hqHEswzQ +ynUte78vnA9DQGKQihIUQNliNGlQXGVKrVqv2Oy06Zr+vpqfcDgqAZDHCvPVVHFxcJsOAAbZ +RWdkfn9GKSVtbC83NnE1WoiIblyJjY4KXIwSdXQ+GEKYIXtoZnoPa5CDoTUyMaVyOpRimkFC +ngtHZksntAQKBCstkiyFvYeVGXeZCpzEsgt/EYGjv4aEPHPCIWNEJXppyLQVy6RSzlKP4eIJ +ACH5BAQhAP8ALAAAAAABAAEAAAMCCAkAIfkEBCEA/wAsAQABAFEACwAAAx0Iutz+MMpJq704 +6827/2AojmRpnmiqrmzrvnBsJgAh+QQEIQD/ACwBAAQAEQAIAAADHAixAb6qMRgfZDbXHaem +nBOKINmIpnSWqIe+TgIAIfkEBCEA/wAsCQAEABcACAAAAykYAcoNUEgBq1ALAxnp9tXzcFVX +OtAITmS4fCYsuzHZnqhsg/geb7hKAgAh+QQEIQD/ACwXAAQAFAAIAAADJSgKzDKjAQjbYrXO +uJ3AnEZZytdJoAZcKuqKIeduchaidjPOQAIAIfkEBCEA/wAsJgAEABUACAAAAyA4OtD+gJAm +GVAQyodz3s5iRVI5RR/ordTJapP6OuacJQAh+QQEIQD/ACw2AAEAEAALAAADJgi6XO4sAqio +nGU5ogjH0VZlYFN8VPoARAZZGviSlzpKdmneF5AAADs=" + "A small image to be displayed in the about: page. +It is encoded in the optimized interlaced endlessly animated gif format +and base64. Emacs can display only the 1st frame of an animation, but +XEmacs can fully display it with the help of the gifsicle program.") + +(defcustom w3m-process-modeline-format " loaded: %s" + "*Format used when displaying the progress of the external w3m process. +It shows a percentage of the data loaded from the web server." + :group 'w3m + :type '(choice (string :tag "Format") function)) + +(defcustom w3m-ignored-image-url-regexp nil + "*Regexp matching image urls which you don't want to view. +It is effective even if `w3m-display-inline-images' is non-nil. +For instance, the value \"^http://www\\.google\\.com/\" conceals +Google's logo and navigation images, but display YouTube's +thumbnail." + :group 'w3m + :type '(regexp :format "URL: %v\n" :size 0)) + +(defcustom w3m-refresh-minimum-interval 60 + "*Minimum seconds to wait for refresh, when visiting a page by +history-back or history-next." + :group 'w3m + :type '(integer :size 0)) + +(defvar w3m-modeline-process-status-on "<PRC>" + "Modeline control for displaying the status when the process is running. +The value will be modified for displaying the graphic icon.") + +(defvar w3m-modeline-image-status-on "[IMG]" + "Modeline control to display the status when inline images are turned on. +The value will be modified for displaying the graphic icon.") + +(defvar w3m-modeline-status-off "[ - ]" + "Modeline control for displaying the status for the default. +The value will be modified for displaying the graphic icon.") + +(defvar w3m-modeline-ssl-image-status-on "[IMG(SSL)]" + "Modeline control for displaying the status when images and SSL are on. +The value will be modified for displaying the graphic icon.") + +(defvar w3m-modeline-ssl-status-off "[SSL]" + "Modeline control for displaying the status when SSL is turned on. +The value will be modified for displaying the graphic icon.") + +(defvar w3m-modeline-separator " / " + "String used to separate a status and a title in the modeline.") + +(defvar w3m-modeline-favicon nil + "Modeline control for displaying a favicon. +This variable will be made buffer-local.") + +(defvar w3m-favicon-image nil + "Favicon image of the page. +This variable will be made buffer-local") + +(defvar w3m-current-process nil + "Flag used to say whether the external process is running in the buffer. +This variable will be made buffer-local.") +(make-variable-buffer-local 'w3m-current-process) + +(defvar w3m-refresh-timer nil + "Variable used to keep a timer object for refreshing a page. +It will be supplied by the REFRESH attribute in the META tag, and made +buffer-local in each emacs-w3m buffer.") +(make-variable-buffer-local 'w3m-refresh-timer) + +(defvar w3m-mail-user-agents '(gnus-user-agent + message-user-agent + mew-user-agent + vm-user-agent + wl-user-agent) + "List of mail user agents that `w3m-mail' supports. +See also w3m-mail.el.") + +(defvar w3m-current-base-url nil + "URL specified by <base...> tag in <head> element of the page source.") +(defvar w3m-current-forms nil + "Variable used to keep forms data for the current emacs-w3m buffer.") +(defvar w3m-current-coding-system nil + "Coding system used when decoding the current emacs-w3m buffer.") +(defvar w3m-current-content-charset nil + "Content charset of the page specified by the server or the META tag.") +(defvar w3m-icon-data nil + "Cons of icon data and its image-type for the current emacs-w3m buffer. +It is used for favicon data. The type is often `ico'.") +(defvar w3m-next-url nil + "URL as the next document in the author-defined sequence.") +(defvar w3m-previous-url nil + "URL as the previous document in the author-defined sequence.") +(defvar w3m-start-url nil + "URL as the first document in the author-defined sequence.") +(defvar w3m-contents-url nil + "URL as the table of contents for the current page.") +(defvar w3m-max-anchor-sequence nil + "Maximum number of the anchor sequence in the current page.") +(defvar w3m-current-refresh nil + "Cons of number of seconds and a url specified by the REFRESH attribute.") +(defvar w3m-current-ssl nil + "SSL certification indicator for the current emacs-w3m buffer.") +(defvar w3m-name-anchor-from-hist nil + "List of the points of where `w3m-search-name-anchor' come from.") + +(make-variable-buffer-local 'w3m-current-url) +(make-variable-buffer-local 'w3m-current-base-url) +(make-variable-buffer-local 'w3m-current-title) +(make-variable-buffer-local 'w3m-current-forms) +(make-variable-buffer-local 'w3m-current-coding-system) +(make-variable-buffer-local 'w3m-current-content-charset) +(make-variable-buffer-local 'w3m-icon-data) +(make-variable-buffer-local 'w3m-next-url) +(make-variable-buffer-local 'w3m-previous-url) +(make-variable-buffer-local 'w3m-start-url) +(make-variable-buffer-local 'w3m-contents-url) +(make-variable-buffer-local 'w3m-max-anchor-sequence) +(make-variable-buffer-local 'w3m-current-refresh) +(make-variable-buffer-local 'w3m-current-ssl) +(make-variable-buffer-local 'w3m-name-anchor-from-hist) + +(defun w3m-clear-local-variables () + (setq w3m-current-url nil + w3m-current-base-url nil + w3m-current-title nil + w3m-current-coding-system nil + w3m-current-content-charset nil + w3m-icon-data nil + w3m-next-url nil + w3m-previous-url nil + w3m-start-url nil + w3m-contents-url nil + w3m-max-anchor-sequence nil + w3m-current-refresh nil + w3m-current-ssl nil + w3m-name-anchor-from-hist nil)) + +(defun w3m-copy-local-variables (from-buffer) + (let (url base title cs char icon next prev start toc hseq refresh ssl) + (with-current-buffer from-buffer + (setq url w3m-current-url + base w3m-current-base-url + title w3m-current-title + cs w3m-current-coding-system + char w3m-current-content-charset + icon w3m-icon-data + next w3m-next-url + prev w3m-previous-url + start w3m-start-url + toc w3m-contents-url + hseq w3m-max-anchor-sequence + refresh w3m-current-refresh + ssl w3m-current-ssl)) + (setq w3m-current-url url + w3m-current-base-url base + w3m-current-title title + w3m-current-coding-system cs + w3m-current-content-charset char + w3m-icon-data icon + w3m-next-url next + w3m-previous-url prev + w3m-start-url start + w3m-contents-url toc + w3m-max-anchor-sequence hseq + w3m-current-refresh refresh + w3m-current-ssl ssl))) + +(defvar w3m-verbose nil + "*Flag controls whether to log messages in the *Messages* buffer. +If it is nil, a lot of messages issued by emacs-w3m will be displayed +only in the echo area.") + +(defvar w3m-safe-url-regexp nil + "Regexp matching urls which are considered to be safe. +The nil value means all urls are considered to be safe. + +Note: The value, that might be bound to a certain value while rendering +contents, will be held by the `w3m-safe-url-regexp' text property that +is set over the rendered contents in a buffer. So, programs that use +the value to test whether a url of a link in a buffer is safe should +use the value of the text property, not the value of this variable. +See the function definitions of `w3m-toggle-inline-image', +`w3m-toggle-inline-images', `w3m-safe-view-this-url', and +`w3m-mouse-safe-view-this-url'.") + +(defvar w3m-current-buffer nil) +(defvar w3m-cache-buffer nil) +(defvar w3m-cache-articles nil) +(defvar w3m-cache-hashtb nil) +(defvar w3m-input-url-history nil) + +(defconst w3m-arrived-db-size 1023) +(defvar w3m-arrived-db nil + "Hash table, the arrived URLs database. +The name of each symbol represents a url, the arrival time in the +Emacs style (a list of three integers) is stored as the value, and +informations including a title, a modification time, a content charset +and a content type are stored as the properties of the symbol. The +nil value means it has not been initialized.") + +(defvar w3m-arrived-setup-functions nil + "Hook functions run after setting up the arrived URLs database.") +(defvar w3m-arrived-shutdown-functions nil + "Hook functions run after saving the arrived URLs database.") + +(defconst w3m-image-type-alist + '(("image/jpeg" . jpeg) + ("image/gif" . gif) + ("image/png" . png) + ("image/x-xbm" . xbm) + ("image/x-xpm" . xpm)) + "Alist of content types and image types defined as the Emacs' features.") + +(defconst w3m-toolbar-buttons + '("back" "parent" "forward" "reload" "open" "home" "search" "image" + "copy" "weather" "antenna" "history" "db-history") + "List of prefix strings for the toolbar buttons.") + +(defconst w3m-toolbar + (if (equal "Japanese" w3m-language) + (let ((a (decode-coding-string "\e$B%\"\e(B" 'iso-2022-jp))) ;; $B%"(B + `([w3m-toolbar-back-icon w3m-view-previous-page + (w3m-history-previous-link-available-p) + "$BA0$N%Z!<%8$KLa$k(B"] + [w3m-toolbar-parent-icon w3m-view-parent-page + (w3m-parent-page-available-p) + "$B>e$N%G%#%l%/%H%j$X0\F0$9$k(B"] + [w3m-toolbar-forward-icon w3m-view-next-page + (w3m-history-next-link-available-p) + "$B<!$N%Z!<%8$K?J$`(B"] + [w3m-toolbar-reload-icon w3m-reload-this-page + w3m-current-url + "$B%5!<%P$+$i%Z!<%8$r$b$&0lEYFI$_9~$`(B"] + [w3m-toolbar-open-icon w3m-goto-url t "URL $B$rF~NO$7$F%Z!<%8$r3+$/(B"] + [w3m-toolbar-home-icon w3m-gohome w3m-home-page + "$B%[!<%`%Z!<%8$X%8%c%s%W(B"] + [w3m-toolbar-search-icon w3m-search t "$B%$%s%?!<%M%C%H>e$r8!:w(B"] + [w3m-toolbar-image-icon w3m-toggle-inline-images t + "$B2hA|$NI=<($r%H%0%k$9$k(B"] + [w3m-toolbar-copy-icon w3m-copy-buffer t + "$B$3$N%;%C%7%g%s$N%3%T!<$r:n$k(B"] + [w3m-toolbar-weather-icon w3m-weather t "$BE75$M=Js$r8+$k(B"] + [w3m-toolbar-antenna-icon w3m-antenna t + ,(concat a "$B%s%F%J$G<u?.$9$k(B")] + [w3m-toolbar-history-icon w3m-history t "$B%R%9%H%j!<(B"] + [w3m-toolbar-db-history-icon w3m-db-history t + "$B2a5n$KK,Ld$7$?(B URL $B$NMzNr$r8+$k(B"])) + '([w3m-toolbar-back-icon w3m-view-previous-page + (w3m-history-previous-link-available-p) + "Back to Previous Page"] + [w3m-toolbar-parent-icon w3m-view-parent-page + (w3m-parent-page-available-p) + "View the parent page"] + [w3m-toolbar-forward-icon w3m-view-next-page + (w3m-history-next-link-available-p) + "Forward to Next Page"] + [w3m-toolbar-reload-icon w3m-reload-this-page + w3m-current-url + "Reload This Page"] + [w3m-toolbar-open-icon w3m-goto-url t "Go to..."] + [w3m-toolbar-home-icon w3m-gohome w3m-home-page "Go to Home Page"] + [w3m-toolbar-search-icon w3m-search t "Search the Internet"] + [w3m-toolbar-image-icon w3m-toggle-inline-images t "Toggle Images"] + [w3m-toolbar-copy-icon w3m-copy-buffer t "Make a Copy of This Session"] + [w3m-toolbar-weather-icon w3m-weather t "Weather Forecast"] + [w3m-toolbar-antenna-icon w3m-antenna t "Investigate with Antenna"] + [w3m-toolbar-history-icon w3m-history t "Show a History"] + [w3m-toolbar-db-history-icon w3m-db-history t "View Arrived URLs"])) + "Toolbar definition for emacs-w3m.") + +;; "View" is page viewing +;; "Show" is link list showing +(defconst w3m-menubar + (let ((a (when w3m-use-japanese-menu + (decode-coding-string "\e$B%\"\e(B" 'iso-2022-jp)))) ;; $B%"(B + `("w3m" + [,(w3m-make-menu-item "$B$3$N(B URL $B$r?7$7$$%;%C%7%g%s$G3+$/(B" + "Open This URL in a new session") + w3m-view-this-url-new-session (or (w3m-anchor) (w3m-image))] + [,(w3m-make-menu-item "$B$3$N(B URL $B$r%@%&%s%m!<%I$9$k(B" "Download This URL") + w3m-download-this-url (or (w3m-anchor) (w3m-image))] + [,(w3m-make-menu-item "$B%@%&%s%m!<%I(B..." "Download to...") + w3m-download t] + "----" ;; separator + [,(w3m-make-menu-item "$BA0$N%Z!<%8$KLa$k(B" "Back to Previous Page") + w3m-view-previous-page + (w3m-history-previous-link-available-p)] + [,(w3m-make-menu-item "$B<!$N%Z!<%8$K0\F0$9$k(B" "Forward to Next Page") + w3m-view-next-page + (w3m-history-next-link-available-p)] + [,(w3m-make-menu-item "$B>e$N3,AX$K0\F0$9$k(B" "Up to Parent Page") + w3m-view-parent-page + (w3m-parent-page-available-p)] + "----" ;; separator + [,(w3m-make-menu-item "$B$3$N%Z!<%8$r30It%V%i%&%6$G3+$/(B" + "Open This Page in an External Browser") + w3m-external-view-current-url w3m-current-url] + [,(w3m-make-menu-item "$B$3$N(B URL $B$r30It%V%i%&%6$G3+$/(B" + "Open This URL in an External Browser") + w3m-external-view-this-url (or (w3m-anchor) (w3m-image))] + "----" ;; separator + (,(w3m-make-menu-item "$B:FI=<((B" "Redisplay") + [,(w3m-make-menu-item "$B$3$N%Z!<%8$r:F<hF@$9$k(B" "Reload This Page") + w3m-reload-this-page w3m-current-url] + [,(w3m-make-menu-item "$B$9$Y$F$N%Z!<%8$r:F<hF@$9$k(B" "Reload All Pages") + w3m-reload-all-pages (cdr (w3m-list-buffers))] + "----" ;; separator + [,(w3m-make-menu-item "$B2hA|I=<($N@ZBX(B($BA4It(B)" "Toggle Images") + w3m-toggle-inline-images (w3m-display-graphic-p)] + [,(w3m-make-menu-item "$B2hA|I=<($N@ZBX(B($B$3$N2hA|(B)" "Toggle This Image") + w3m-toggle-inline-image (w3m-image)] + [,(w3m-make-menu-item "$B2hA|I=<($r;_$a$k(B" "Turn off Images") + w3m-turnoff-inline-images (w3m-display-graphic-p)] + "----" ;; separator + [,(w3m-make-menu-item "$B:FIA2h$9$k(B" "Redisplay This Page") + w3m-redisplay-this-page w3m-current-url] + [,(w3m-make-menu-item "Charset $B$r;XDj$7$F:FIA2h$9$k(B" + "Redisplay This Page with Charset") + w3m-redisplay-with-charset w3m-current-url] + [,(w3m-make-menu-item "Content-type $B$r;XDj$7$F:FIA2h$9$k(B" + "Redisplay This Page with Content-type") + w3m-redisplay-with-content-type w3m-current-url] + [,(w3m-make-menu-item "$B;XDj$7$?(B Charset $B$H(B Content-type $B$rGK4~$9$k(B" + "Reset Charset and Content-type") + w3m-redisplay-and-reset w3m-current-url] + ) ;; end redisplay + [,(w3m-make-menu-item "$B%[!<%`%Z!<%8$X0\F0(B" "Go to Home Page") + w3m-gohome w3m-home-page] + (,(w3m-make-menu-item "$B%V%C%/%^!<%/(B" "Bookmark") + [,(w3m-make-menu-item "$B%V%C%/%^!<%/$rI=<((B" "View Bookmark") + w3m-bookmark-view t] + [,(w3m-make-menu-item "$B?7$7$$%;%C%7%g%s$G%V%C%/%^!<%/$rI=<((B" + "View Bookmark in a New Session") + w3m-bookmark-view-new-session t]) + [,(w3m-make-menu-item "$B0\F0(B..." "Go to...") + w3m-goto-url t] + "----" ;; separator + (,(w3m-make-menu-item "$BMzNr(B" "History") + [,(w3m-make-menu-item "$BLZ9=B$$GMzNr$rI=<((B" "Show a Visited URLs Tree") + w3m-history t] + [,(w3m-make-menu-item "$B%j%9%H$GMzNr$rI=<((B" "Show an Arrived URLs List") + w3m-db-history t] + ) ;; end history + [,(w3m-make-menu-item "$B%$%s%?!<%M%C%H$G$N8!:w(B..." + "Search the Internet...") + w3m-search t] + [,(w3m-make-menu-item "$B?7$7$$%;%C%7%g%s$G8!:w(B..." + "Search the Internet in a New Session...") + w3m-search-new-session t] + [,(w3m-make-menu-item "$BE75$M=Js(B" "Weather Forecast") + w3m-weather t] + [,(w3m-make-menu-item (concat a "$B%s%F%J$G<hF@(B") + "Investigate with Antenna") + w3m-antenna t] + (,(w3m-make-menu-item "$B%X%k%W(B" "Resource") + [,(w3m-make-menu-item "$B%W%m%;%9$rCf;_$9$k(B" "Cancel Process") + w3m-process-stop w3m-current-process] + [,(w3m-make-menu-item "$B%=!<%9$r8+$k(B" "View Source") + w3m-view-source t] + [,(w3m-make-menu-item "$B%X%C%@!<$r8+$k(B" "View Header") + w3m-view-header t] + ) ;; end resource + "----" ;; separator + [,(w3m-make-menu-item "$B$3$N%Z!<%8$r%a!<%k$GAw$k(B" "Mail this page") + w3m-mail (memq mail-user-agent w3m-mail-user-agents)] + "----" ;; separator + [,(w3m-make-menu-item "$B%P%0%l%]!<%H$rAw$k(B" "Send a Bug Report") + report-emacs-w3m-bug t] + "----" ;; separator + [,(w3m-make-menu-item "$B$3$N(B URL $B$rI=<($9$k(B" "Print the Current URL") + w3m-print-current-url t] + [,(w3m-make-menu-item "w3m $B$rJD$8$k(B" "Close w3m") + w3m-close-window t] + [,(w3m-make-menu-item "w3m $B$r=*N;$9$k(B" "Quit w3m") + w3m-quit t] + )) ;; end w3m + "Menubar definition for emacs-w3m.") + +(defvar w3m-rmouse-menubar + `("w3m" + [,(w3m-make-menu-item "$BA0$N%Z!<%8$KLa$k(B" "Back to Previous Page") + w3m-view-previous-page + (w3m-history-previous-link-available-p)] + [,(w3m-make-menu-item "$B<!$N%Z!<%8$K0\F0$9$k(B" "Forward to Next Page") + w3m-view-next-page + (w3m-history-next-link-available-p)] + [,(w3m-make-menu-item "$B>e$N3,AX$K0\F0$9$k(B" "Up to Parent Page") + w3m-view-parent-page + (w3m-parent-page-available-p)] + "----" ;; separator + [,(w3m-make-menu-item "$B$3$N%Z!<%8$r:F<hF@$9$k(B" "Reload This Page") + w3m-reload-this-page w3m-current-url] + [,(w3m-make-menu-item "$B$9$Y$F$N%Z!<%8$r:F<hF@$9$k(B" "Reload All Pages") + w3m-reload-all-pages (cdr (w3m-list-buffers))] + [,(w3m-make-menu-item "$B%W%m%;%9$rCf;_$9$k(B" "Cancel Process") + w3m-process-stop w3m-current-process]) + "*Menubar for click the right mouse button.") + +(defvar w3m-cid-retrieve-function-alist nil) +(defvar w3m-force-redisplay t) + +(defvar w3m-work-buffer-list nil) +(defconst w3m-work-buffer-name " *w3m-work*") +(defconst w3m-select-buffer-name " *w3m buffers*") + +(defconst w3m-dump-head-source-command-arguments + (cond ((eq w3m-type 'w3mmee) + (list "-dump=extra,head,source")) + (t + (list + '(if w3m-accept-languages + '("-o" + (concat "accept_language=" + (mapconcat 'identity w3m-accept-languages ",")))) + "-dump_extra"))) + "Arguments passed to the w3m command to run \"dump_extra\".") + +(defvar w3m-halfdump-command nil + "Alternative w3m command used to run \"halfdump\". +If it is nil, the command specified to `w3m-command' is used.") + +(defconst w3m-halfdump-command-arguments + (cond ((eq w3m-type 'w3mmee) + (list '(if w3m-treat-image-size + "-dump=half-buffer,single-row-image" + "-dump=half-buffer") + '(if (eq w3m-input-coding-system 'ctext) + (list "-I" "x-ctext") + (when (and (eq w3m-input-coding-system 'binary) + charset) + (list "-I" 'charset))) + "-o" "concurrent=0")) + ((eq w3m-type 'w3m-m17n) + (list "-halfdump" + "-o" "ext_halfdump=1" + "-o" "strict_iso2022=0" + "-o" "fix_width_conv=1" + "-o" "use_jisx0201=0" + "-o" "ucs_conv=1" + '(if (eq w3m-input-coding-system 'binary) + (if charset (list "-I" 'charset)) + (list "-I" (cond + ((eq w3m-input-coding-system 'utf-8) + "UTF-8") + ((eq w3m-input-coding-system 'iso-8859-1) + "ISO-8859-1") + (t + "ISO-2022-JP-2")))) + "-O" + '(cond + ((eq w3m-output-coding-system 'utf-8) + "UTF-8") + ((eq w3m-output-coding-system 'iso-8859-1) + "ISO-8859-1") + (t + "ISO-2022-JP-2")))) + ((eq w3m-input-coding-system 'w3m-euc-japan) + (list "-halfdump" "-I" "e")) + (t (list "-halfdump"))) + "Arguments passed to the w3m command to run \"halfdump\".") + +(defconst w3m-halfdump-command-common-arguments + (list "-T" "text/html" "-t" tab-width "-cols" '(w3m-display-width) + '(cond + ((and (eq w3m-display-ins-del 'fontify) + (w3m-device-on-window-system-p)) + (list "-o" "display_ins_del=2")) + ((or (eq w3m-display-ins-del 'tag) + (and (eq w3m-display-ins-del 'fontify) + (not (w3m-device-on-window-system-p)))) + (list "-o" "display_ins_del=1")))) + "Arguments used in common by the w3m command variants to run \"halfdump\".") + +(defconst w3m-arrived-ignored-regexp + "\\`about:\\(?://\\(?:header\\|source\\|history\\|\ +db-history\\|antenna\\|namazu\\|dtree\\)/.*\\)?\\'\ +\\|\\`about:/*blank/?\\'" + "Regexp matching urls which aren't stored in the arrived URLs database.") + +(defconst w3m-history-ignored-regexp + "\\`about:\\(?://\\(?:header\\|source\\|history\\|\ +db-history\\|antenna\\|namazu\\|dtree\\)/.*\\)?\\'\ +\\|\\`about:/*blank/?\\'" + "Regexp matching urls which aren't stored in the history.") + +(defvar w3m-mode-map nil "Keymap for emacs-w3m buffers.") +(defvar w3m-link-map nil "Keymap used on links.") +(defvar w3m-doc-view-map nil + "Keymap used in `doc-view-mode' that emacs-w3m launches. +`doc-view-mode-map' gets to be its parent keymap.") + +(defvar w3m-mode-setup-functions nil + "Hook functions run after setting up the `w3m-mode'.") +(defvar w3m-display-functions nil + "Hook functions run after displaying pages in emacs-w3m buffers. +Each function is called with a url string as the argument. This hook +is evaluated just before evaluating `w3m-display-hook'.") + +(defvar w3m-load-hook nil + "*Hook run after loading the w3m.elc module. +It is not recommended that you use this hook instead of writing into +`w3m-init-file' for customization.") + + +;; Generic functions: +(defun w3m-url-to-file-name (url) + "Return the file name which is pointed to by URL. +When URL does not point to any local files, it returns nil. The +actual performance of this function is to strip off the scheme part +and the net_loc part from URL. It is meaningless to give an argument +whose net_loc part is not empty, a null string or the localhost name +to this function." + (cond + ((string-match "\\`\\(\\(file:/\\{0,2\\}\\)\\|about://dtree\\)/" url) + (setq url (substring url (match-end 1))) + (when (and (match-beginning 2) ;; file: + (< (match-end 2) 7) ;; file:// or file:/ + (string-match "\\`\\(/[^/]+[^/:|]\\)/" url)) + (cond ((file-directory-p (match-string 0 url)) + ) ;; The directory "/hostname/" exists. + ((string-match (concat "\\`/\\(localhost\\|127\\.0\\.0\\.1\\|" + (regexp-quote (system-name)) "\\)/") + url) + ;; Strip the localhost name. + (setq url (substring url (match-end 1)))) + (t + ;; Make it a Tramp url: /hostname:/... + ;; See `tramp-default-method' and `tramp-default-method-alist'. + (setq url (concat (substring url 0 (match-end 1)) + ":" + (substring url (match-end 1))))))) + ;; Process abs_path part in Windows. + (when (and w3m-treat-drive-letter + (string-match + "\\`/\\(?:\\([a-zA-Z]\\)[|:]?\\|cygdrive/\\([a-zA-Z]\\)\\)/" + url)) + (setq url (concat (or (match-string 1 url) (match-string 2 url)) + ":/" + (substring url (match-end 0))))) + (if (string-match "\\`/[^/:]\\{2,\\}:/" url) + ;; Don't check for a Tramp url. + url + (if (file-exists-p url) + url + (let ((x (w3m-url-decode-string url w3m-file-name-coding-system))) + (if (file-exists-p x) x url))))) + ((string-match "\\`\\(?:[~/]\\|[a-zA-Z]:/\\|\\.\\.?/\\)" url) url) + (t + (catch 'found-file + (dolist (pair w3m-url-local-directory-alist) + (and (string-match (concat "\\`" + (regexp-quote + (file-name-as-directory (car pair)))) + url) + (let ((file (expand-file-name (substring url (match-end 0)) + (cdr pair)))) + (when (or (file-exists-p file) + (file-exists-p + (setq file (w3m-url-decode-string + file w3m-file-name-coding-system)))) + (throw 'found-file file))))))))) + +(defun w3m-expand-file-name-as-url (file &optional directory) + "Return a url string which points to the FILE. +Optional DIRECTORY is a directory to start with if FILE is relative +\(i.e., FILE doesn't start with slash). It defaults to the current +directory." + (setq file (expand-file-name file directory)) + (concat "file://" + (if (string-match "\\`\\([a-zA-Z]\\):" file) + (format (if w3m-use-cygdrive "/cygdrive/%s%s" "/%s|%s") + (match-string 1 file) + (substring file (match-end 0))) + file))) + + +;;; Managing the arrived URLs database: +(defmacro w3m-arrived-intern (url &optional soft) + "Normalize URL by stripping last / and intern it into `w3m-arrived-db'. +If SOFT is non-nil, use `intern-soft' instead." + (let ((fn (if soft 'intern-soft 'intern)) + (str (if (consp url) + `(let* ((url ,url) + (len (length url))) + (if (and (not (zerop len)) + (eq (aref url (1- len)) ?/)) + (substring url 0 -1) + url)) + `(if (let ((len (length ,url))) + (and (not (zerop len)) + (eq (aref ,url (1- len)) ?/))) + (substring ,url 0 -1) + ,url)))) + `(,fn ,str w3m-arrived-db))) + +(defun w3m-arrived-add (url &optional title modification-time + arrival-time content-charset content-type) + "Add URL to the arrived URLs database. +Optional TITLE, MODIFICATION-TIME, ARRIVAL-TIME, CONTENT-CHARSET and +CONTENT-TYPE are also be added." + (unless (string-match w3m-arrived-ignored-regexp url) + (let ((ident (w3m-arrived-intern url))) + (if (string-match "\\`\\([^#]+\\)#" url) + (w3m-arrived-add (substring url 0 (match-end 1)) + title modification-time arrival-time + content-charset content-type) + (when title + (put ident 'title title)) + (when modification-time + (put ident 'last-modified modification-time)) + (when content-charset + (put ident 'content-charset content-charset)) + (when content-type + (put ident 'content-type content-type))) + (set ident arrival-time)))) + +(defun w3m-arrived-p (url) + "Return non-nil if a page of URL has arrived." + (or (string-match w3m-arrived-ignored-regexp url) + (w3m-arrived-intern url t))) + +(defun w3m-arrived-time (url) + "Return the arrival time of a page of URL if it has arrived. +Otherwise return nil." + (let ((v (w3m-arrived-intern url t))) + (and v (boundp v) (symbol-value v)))) +(defsetf w3m-arrived-time (url) (value) + (list 'w3m-arrived-add url nil nil value)) + +(defun w3m-arrived-put (url property value) + "Store VALUE in the arrived URLs database as the PROPERTY of URL. +Return VALUE if a page of URL has arrived. Otherwise, VALUE is +ignored and return nil." + (let ((symbol (w3m-arrived-intern url t))) + (and symbol (put symbol property value)))) + +(defun w3m-arrived-get (url property) + "Return the value of URL's PROPERTY stored in the arrived URLs database. +If a page of URL has not arrived, return nil." + (let ((symbol (w3m-arrived-intern url t))) + (and symbol (get symbol property)))) + +(defsetf w3m-arrived-get w3m-arrived-put) + +(defmacro w3m-arrived-title (url) + "Return the title of URL having stored in the arrived URLs database." + `(w3m-arrived-get ,url 'title)) + +(defmacro w3m-arrived-last-modified (url) + "Return the mod time of URL having stored in the arrived URLs database. +If a page of URL has not arrived yet, return nil." + `(w3m-arrived-get ,url 'last-modified)) + +(defmacro w3m-arrived-content-charset (url) + "Return the content charset of URL stored in the arrived URLs database. +If it has not been specified or a page of URL has not arrived yet, +return nil." + `(w3m-arrived-get ,url 'content-charset)) + +(defmacro w3m-arrived-content-type (url) + "Return the content type of URL stored in the arrived URLs database. +If it has not been specified or a page of URL has not arrived yet, +return nil." + `(w3m-arrived-get ,url 'content-type)) + +(defun w3m-arrived-load-list () + "Load the arrived URLs database file. +The file is specified by `w3m-arrived-file'. If the data is in old +format, they will simply be ignored." + (let ((list (w3m-load-list w3m-arrived-file))) + (when (or + ;; Before the revision 1.120, every element of the list was + ;; a string that represented an arrived URL. + (stringp (car list)) + ;; Before the revision 1.135, every element was a cons + ;; cell: its car kept a URL, and its cdr kept a time when + ;; the URL was arrived. + ;; Before the revision 1.178, every element was a 4-tuple + ;; that consisted of a URL, a title, a modification time, + ;; and an arrival time. + ;; An element of the modern database is a 6-tuple that + ;; consisted of a URL, a title, a modification time, an + ;; arrival time, a charset, and a content type. + ;; Thus, the following condition eliminates the revision + ;; 1.177 and olders. + (<= (length (car list)) 4)) + (setq list nil) + (when (file-exists-p w3m-arrived-file) + (delete-file w3m-arrived-file))) + list)) + +(defun w3m-arrived-setup () + "Load the arrived URLs database file and set up the hashed database. +It is performed only when `w3m-arrived-db' has not been initialize yet. +The file is specified by `w3m-arrived-file'." + (unless w3m-arrived-db + (setq w3m-arrived-db (make-vector w3m-arrived-db-size 0)) + (let ((list (w3m-arrived-load-list))) + (dolist (elem list) + ;; Ignore an element that lacks an arrival time information. + (when (nth 3 elem) + (w3m-arrived-add (if (string-match "\\`/" (car elem)) + (w3m-expand-file-name-as-url (car elem)) + (car elem)) + (nth 1 elem) + (nth 2 elem) + (nth 3 elem) + (when (stringp (nth 4 elem)) (nth 4 elem)) + (nth 5 elem)))) + (unless w3m-input-url-history + (setq w3m-input-url-history (mapcar (function car) list)))) + (run-hooks 'w3m-arrived-setup-functions))) + +(defun w3m-arrived-shutdown () + "Save the arrived URLs database in the file. +The database `w3m-arrived-db' will be cleared after saving. The file +is specified by `w3m-arrived-file'." + (when w3m-arrived-db + ;; Re-read the database file, and if there are data which another + ;; Emacs process registered, merge them to the current database. + (dolist (elem (w3m-arrived-load-list)) + (when (w3m-time-newer-p (nth 3 elem) (w3m-arrived-time (car elem))) + (w3m-arrived-add (if (string-match "\\`/" (car elem)) + (w3m-expand-file-name-as-url (car elem)) + (car elem)) + (nth 1 elem) + (nth 2 elem) + (nth 3 elem) + (when (stringp (nth 4 elem)) (nth 4 elem)) + (nth 5 elem)))) + ;; Convert current database to a list. + (let (list) + (mapatoms + (lambda (sym) + (and sym + (boundp sym) + (symbol-value sym) ; Ignore an entry lacks an arrival time. + (push (list (symbol-name sym) + (get sym 'title) + (get sym 'last-modified) + (symbol-value sym) + (get sym 'content-charset) + (get sym 'content-type)) + list))) + w3m-arrived-db) + (w3m-save-list w3m-arrived-file + (w3m-sub-list + (sort list + (lambda (a b) + (if (equal (nth 3 a) (nth 3 b)) + (string< (car a) (car b)) + (w3m-time-newer-p (nth 3 a) (nth 3 b))))) + w3m-keep-arrived-urls) + nil t)) + (setq w3m-arrived-db nil) + (run-hooks 'w3m-arrived-shutdown-functions))) + +(add-hook 'kill-emacs-hook 'w3m-arrived-shutdown) +(add-hook 'kill-emacs-hook 'w3m-cookie-shutdown) +(add-hook 'w3m-arrived-shutdown-functions 'w3m-session-automatic-save) +(add-hook 'w3m-arrived-shutdown-functions 'w3m-session-crash-recovery-remove) +(add-hook 'w3m-arrived-shutdown-functions 'w3m-cleanup-temp-files) + +;;; Generic macros and inline functions: +(defun w3m-attributes (url &optional no-cache handler) + "Return a list of attributes corresponding to URL. +Return nil if it failed in retrieving of the header. +Otherwise, return a list which includes the following elements: + + 0. Type of contents. + 1. Charset of contents. + 2. Size in bytes. + 3. Encoding of contents. + 4. Last modification time. + 5. Real URL. + +If the optional argument NO-CACHE is non-nil, cache is not used." + (if (not handler) + (condition-case nil + (w3m-process-with-wait-handler + (w3m-attributes url no-cache handler)) + (w3m-process-timeout nil)) + (setq url (w3m-url-strip-fragment url)) + (cond + ((string= "about://emacs-w3m.gif" url) + (list "image/gif" nil nil nil nil url url)) + ((string-match "\\`about://source/" url) + (lexical-let ((src (substring url (match-end 0)))) + (w3m-process-do + (attrs (w3m-attributes src no-cache handler)) + (list "text/plain" + (or (w3m-arrived-content-charset (w3m-url-strip-authinfo src)) + (cadr attrs)) + (nth 2 attrs) + (nth 3 attrs) + (nth 4 attrs) + (concat "about://source/" (nth 5 attrs)))))) + ((string-match "\\`about:" url) + (list "text/html" w3m-coding-system nil nil nil url)) + ((string-match "\\`cid:" url) + (let ((w3m-current-buffer (current-buffer))) + (w3m-process-do-with-temp-buffer + (type (w3m-cid-retrieve url nil nil)) + (list type nil nil nil nil url url)))) + ((string-match "\\`data:" url) + (let ((w3m-current-buffer (current-buffer))) + (w3m-process-do-with-temp-buffer + (type (w3m-data-retrieve url nil nil)) + (list type nil nil nil nil url url)))) + ((w3m-url-local-p url) + (w3m-local-attributes url)) + (t + (w3m-w3m-attributes url no-cache handler))))) + +(defmacro w3m-content-type (url &optional no-cache handler) + (if handler + `(let ((handler ,handler)) + (w3m-process-do + (attrs (w3m-attributes ,url ,no-cache handler)) + (car attrs))) + `(car (w3m-attributes ,url ,no-cache)))) +(defmacro w3m-content-charset (url &optional no-cache handler) + (if handler + `(let ((handler ,handler)) + (w3m-process-do + (attrs (w3m-attributes ,url ,no-cache handler)) + (nth 1 attrs))) + `(nth 1 (w3m-attributes ,url ,no-cache)))) +(defmacro w3m-content-length (url &optional no-cache handler) + (if handler + `(let ((handler ,handler)) + (w3m-process-do + (attrs (w3m-attributes ,url ,no-cache handler)) + (nth 2 attrs))) + `(nth 2 (w3m-attributes ,url ,no-cache)))) +(defmacro w3m-content-encoding (url &optional no-cache handler) + (if handler + `(let ((handler ,handler)) + (w3m-process-do + (attrs (w3m-attributes ,url ,no-cache handler)) + (nth 3 attrs))) + `(nth 3 (w3m-attributes ,url ,no-cache)))) +(defmacro w3m-last-modified (url &optional no-cache handler) + (if handler + `(let ((handler ,handler)) + (w3m-process-do + (attrs (w3m-attributes ,url ,no-cache handler)) + (nth 4 attrs))) + `(nth 4 (w3m-attributes ,url ,no-cache)))) +(defmacro w3m-real-url (url &optional no-cache handler) + (if handler + `(let ((handler ,handler)) + (w3m-process-do + (attrs (w3m-attributes ,url ,no-cache handler)) + (nth 5 attrs))) + `(nth 5 (w3m-attributes ,url ,no-cache)))) + +(defmacro w3m-make-help-echo (property) + "Make a function returning a string used for the `help-echo' message. +PROPERTY is a symbol (which doesn't need to be quoted) of a text +property (in XEmacs, it is an extent) with the value of a string which +should be in the place where having to show a help message. If you +need to know what function will be made, use `macroexpand'." + (if (featurep 'xemacs) + (let ((str `(get-text-property (extent-start-position extent) + ',property))) + `(lambda (extent) + (if (and w3m-track-mouse + (eq (extent-object extent) (current-buffer))) + (w3m-url-readable-string ,str)))) + `(lambda (window object pos) + (if w3m-track-mouse + (let ((deactivate-mark nil)) + (message nil) ; Clear the echo area. + (w3m-url-readable-string + (get-text-property pos ',property + (window-buffer window)))))))) + +(defmacro w3m-make-balloon-help (property) + "Make a function returning a string used for the `balloon-help' message. +Functions made are used only when emacs-w3m is running under XEmacs. +It returns an interned symbol of a function. PROPERTY is a symbol +\(which doesn't need to be quoted) of an extent with the value of a +string which should be in the place where having to show a help +message." + (when (featurep 'xemacs) + (let ((str `(get-text-property (extent-start-position extent) + ',property))) + `(let ((fn (intern (format "w3m-balloon-help-for-%s" + ',property)))) + (prog1 + fn + (unless (fboundp fn) + (defalias fn + (lambda (extent) + (if (and w3m-track-mouse + (eq (extent-object extent) (current-buffer))) + (w3m-url-readable-string ,str))))) + (when (and (featurep 'bytecomp) + (not (compiled-function-p (symbol-function fn)))) + (byte-compile fn))))))) + +(defvar w3m-current-message nil + "The string currently displayed by `w3m-message' in the echo area.") +(defvar w3m-message-silent nil + "When set to `t', w3m-message is just ignored.") + +(defun w3m-message (&rest args) + "Print a one-line message at the bottom of the screen. +It displays a given message without logging, when the cursor is +neither in the minibuffer or in the echo area and `w3m-verbose' is +nil. When the cursor is either in the minibuffer or in the echo area +and `w3m-verbose' is nil, it behaves as `format' and simply returns a +string. When `w3m-verbose' is non-nil, it behaves identically as +`message', that displays a given message with logging." + ;; Always clear previous message in order to shrink the window height + ;; for the echo area. + (unless (or (featurep 'xemacs) + (< emacs-major-version 22) + (< (string-width (or (current-message) "")) (window-width))) + (message nil)) + (unless w3m-message-silent + (if w3m-verbose + (apply (function message) args) + (if (when w3m-process-background + (or (window-minibuffer-p (selected-window)) + (when (current-message) + (not (equal (current-message) w3m-current-message))))) + (apply (function format) args) + (w3m-static-if (featurep 'xemacs) + (progn + (setq w3m-current-message (apply (function format) args)) + (display-message 'no-log w3m-current-message)) + (let (message-log-max) + (setq w3m-current-message (apply (function message) args)))))))) + +(defun w3m-time-parse-string (string) + "Parse the time-string STRING into a time in the Emacs style." + (ignore-errors + (let ((x (timezone-fix-time string nil nil))) + (encode-time (aref x 5) (aref x 4) (aref x 3) + (aref x 2) (aref x 1) (aref x 0) + (aref x 6))))) + +;; When a buggy timezone.el is loaded, we use parse-time.el instead. +(unless (equal (w3m-time-parse-string "Thursday, 01-Jan-1970 00:00:00 GMT") + '(0 0)) + (ignore-errors + (require 'parse-time)) + (defun w3m-time-parse-string (string) + "Parse the time-string STRING and return its time as Emacs style." + (ignore-errors + (let ((fn (when (fboundp 'parse-time-string) + 'parse-time-string))) + (when fn + (apply (function encode-time) (funcall fn string))))))) + +(defun w3m-sub-list (list n) + "Return a list of the first N elements of LIST. +If N is negative, return a list of the last N elements of LIST." + (if (integerp n) + (if (< n 0) + ;; N is negative, extract the last items + (if (>= (- n) (length list)) + (copy-sequence list) + (nthcdr (+ (length list) n) (copy-sequence list))) + ;; N is positive, extract the first items + (if (>= n (length list)) + (copy-sequence list) + (nreverse (nthcdr (- (length list) n) (reverse list))))) + (copy-sequence list))) + +(defun w3m-load-list (file &optional coding-system) + "Read an emacs-w3m data file FILE and return contents as a list. +It is used for loading `w3m-arrived-file', `w3m-cookie-file', +`w3m-favicon-cache-file' and `w3m-antenna-file' (which see). +CODING-SYSTEM is used to read FILE which defaults to the value of +`w3m-file-coding-system-for-read'." + (when (and (file-readable-p file) + ;; XEmacs 21.4 might crash when inserting a directory. + (not (file-directory-p file))) + (with-temp-buffer + (when (condition-case nil + (let ((coding-system-for-read + (or coding-system w3m-file-coding-system-for-read))) + (insert-file-contents file)) + (error + (message "Error while loading %s" file) + nil)) + ;; point is not always moved to the beginning of the buffer + ;; after `insert-file-contents' is done. + (goto-char (point-min)) + (condition-case err + (read (current-buffer)) + (error + (message "Error while reading %s; %s" + file (error-message-string err)) + nil)))))) + +(defun w3m-save-list (file list &optional coding-system escape-ctl-chars) + "Save a LIST form into the emacs-w3m data file FILE. +Contents will be encoded with CODING-SYSTEM which defaults to the +value of `w3m-file-coding-system'. Optional ESCAPE-CTL-CHARS if it is +non-nil, control chars will be represented with ^ as `cat -v' does." + (when (and list (file-writable-p file)) + (with-temp-buffer + (let ((coding-system-for-write (or coding-system w3m-file-coding-system)) + (standard-output (current-buffer)) + (print-fn (if escape-ctl-chars + 'w3m-prin1 + 'prin1)) + element print-length print-level) + (insert (format "\ +;;; %s -*- mode: emacs-lisp%s -*- +;; This file is generated automatically by emacs-w3m v%s. + +" + (file-name-nondirectory file) + (if coding-system-for-write + (format "; coding: %s" coding-system-for-write) + "") + emacs-w3m-version)) + (insert "(") + (while list + (setq element (car list) + list (cdr list)) + (if (consp element) + (progn + (insert "(") + (funcall print-fn (car element)) + (insert "\n") + (while (setq element (cdr element)) + (insert " ") + (funcall print-fn (car element)) + (insert "\n")) + (backward-delete-char 1) + (insert ")\n ")) + (funcall print-fn element) + (insert "\n"))) + (skip-chars-backward "\n ") + (delete-region (point) (point-max)) + (insert ")\n") + (let ((mode (and (file-exists-p file) + (file-modes file)))) + (write-region (point-min) (point-max) file nil 'nomsg) + (when mode (set-file-modes file mode))))))) + +(defun w3m-url-encode-string (str &optional coding encode-space) + (apply (function concat) + (mapcar + (lambda (ch) + (cond + ((eq ch ?\n) ; newline + "%0D%0A") + ((string-match "[-a-zA-Z0-9_:/.]" (char-to-string ch)) ; xxx? + (char-to-string ch)) ; printable + ((and (char-equal ch ?\x20); space + encode-space) + "+") + (t + (format "%%%02X" ch)))) ; escape + ;; Coerce a string into a list of chars. + (append (encode-coding-string (or str "") + (or coding + w3m-default-coding-system + w3m-coding-system + 'iso-2022-7bit)) + nil)))) + +(defun w3m-url-decode-string (str &optional coding) + (let ((start 0) + (buf) + (case-fold-search t)) + (while (string-match "%\\(?:\\([0-9a-f][0-9a-f]\\)\\|0d%0a\\)" str start) + (push (substring str start (match-beginning 0)) buf) + (push (if (match-beginning 1) + (vector (string-to-number (match-string 1 str) 16)) + "\n") + buf) + (setq start (match-end 0))) + (setq str (apply 'concat (nreverse (cons (substring str start) buf)))) + (w3m-decode-coding-string-with-priority str coding))) + +(defun w3m-url-readable-string (url) + "Return a readable string for a given encoded URL. +If `w3m-show-decoded-url' has a non-nil value, it is referred to to +decide a decoding scheme." + (when (stringp url) + (setq url (w3m-puny-decode-url url)) + (let ((rule + (cond ((string-match "[^\000-\177]" url) + ;; It looks not to have been encoded. + nil) + ((and (listp w3m-show-decoded-url) + (consp (car w3m-show-decoded-url))) + (catch 'found-rule + (save-match-data + (dolist (elem w3m-show-decoded-url) + (when (if (stringp (car elem)) + (string-match (car elem) url) + (if (functionp (car elem)) + (funcall (car elem) url) + (eval (car elem)))) + (throw 'found-rule (cdr elem))))))) + (t w3m-show-decoded-url)))) + (if rule + (w3m-url-decode-string url + (if (eq t rule) + w3m-coding-system-priority-list + rule)) + url)))) + +(defun w3m-url-transfer-encode-string (url &optional coding) + "Encode non-ascii characters in URL into the sequence of escaped octets. +CODING which defaults to `w3m-current-coding-system' (which see) is a +coding system used when encoding non-ascii characters. + +This function is designed for conversion for safe transmission of URL, +i.e., it handles only non-ASCII characters that can not be transmitted +safely through the network. For the other general purpose, you should +use `w3m-url-encode-string' instead." + (setq url (w3m-puny-encode-url url)) + (let ((start 0) + (buf)) + (while (string-match "[^\x21-\x7e]+" url start) + (setq buf + (cons (apply 'concat + (mapcar + (lambda (c) (format "%%%02X" c)) + (append (encode-coding-string + (match-string 0 url) + (or coding + w3m-current-coding-system))))) + (cons (substring url start (match-beginning 0)) + buf)) + start (match-end 0))) + (apply 'concat + (nreverse (cons (substring url start) buf))))) + + +;;; HTML character entity handling: +(defun w3m-entity-value (name) + "Get a char corresponding to NAME from the html char entities database. +The database is kept in `w3m-entity-table'." + ;; Return a value of the specified entity, or nil if it is unknown. + (if (eq (aref name 0) ?#) + (char-to-string (w3m-ucs-to-char + (if (or (eq (aref name 1) ?x) + (eq (aref name 1) ?X)) + (string-to-number (substring name 2) 16) + (string-to-number (substring name 1))))) + (gethash name w3m-entity-table))) + +(defun w3m-fontify-bold () + "Fontify bold text in the buffer containing halfdump." + (goto-char (point-min)) + (while (search-forward "<b>" nil t) + (let ((start (match-beginning 0))) + (delete-region start (match-end 0)) + (when (re-search-forward "</b[ \t\r\f\n]*>" nil t) + (delete-region (match-beginning 0) (match-end 0)) + (w3m-add-face-property start (match-beginning 0) 'w3m-bold))))) + +(defun w3m-fontify-italic () + "Fontify italic text in the buffer containing halfdump." + (goto-char (point-min)) + (while (search-forward "<i>" nil t) + (let ((start (match-beginning 0))) + (delete-region start (match-end 0)) + (when (re-search-forward "</i[ \t\r\f\n]*>" nil t) + (delete-region (match-beginning 0) (match-end 0)) + (w3m-add-face-property start (match-beginning 0) 'w3m-italic))))) + +(defun w3m-fontify-underline () + "Fontify underline text in the buffer containing halfdump." + (goto-char (point-min)) + (while (search-forward "<u>" nil t) + (let ((start (match-beginning 0))) + (delete-region start (match-end 0)) + (when (re-search-forward "</u[ \t\r\f\n]*>" nil t) + (delete-region (match-beginning 0) (match-end 0)) + (w3m-add-face-property start (match-beginning 0) 'w3m-underline))))) + +(defun w3m-fontify-strike-through () + "Fontify strike-through text in the buffer containing halfdump." + (goto-char (point-min)) + (cond + ((and (eq w3m-display-ins-del 'fontify) + (w3m-device-on-window-system-p)) + (while (search-forward "<s>" nil t) + (let ((start (match-beginning 0))) + (delete-region start (match-end 0)) + (when (re-search-forward "</s[ \t\r\f\n]*>" nil t) + (delete-region (match-beginning 0) (match-end 0)) + (w3m-add-face-property start (match-beginning 0) + 'w3m-strike-through))))) + ((w3m-device-on-window-system-p) + (while (re-search-forward + (concat "<U>\\(?:\\(?::\\(?:\\(?:DEL\\|S\\)]\\)\\|" + "\\[\\(?:\\(?:DEL\\|S\\):\\)\\)</U>\\)") + nil t) + (w3m-add-face-property (match-beginning 0) (match-end 0) + 'w3m-strike-through))))) + +(defun w3m-fontify-insert () + "Fontify insert text in the buffer containing halfdump." + (goto-char (point-min)) + (cond + ((and (eq w3m-display-ins-del 'fontify) + (w3m-device-on-window-system-p)) + (while (search-forward "<ins>" nil t) + (let ((start (match-beginning 0))) + (delete-region start (match-end 0)) + (when (re-search-forward "</ins[ \t\r\f\n]*>" nil t) + (delete-region (match-beginning 0) (match-end 0)) + (w3m-add-face-property start (match-beginning 0) 'w3m-insert))))) + ((w3m-device-on-window-system-p) + (while (re-search-forward "<U>\\(?:\\(?::INS]\\|\\[INS:\\)</U>\\)" + nil t) + (w3m-add-face-property (match-beginning 0) (match-end 0) 'w3m-insert))))) + +(defun w3m-decode-anchor-string (str) + ;; FIXME: This is a quite ad-hoc function to process encoded url string. + ;; More discussion about timing &-sequence decode is required. The + ;; following article (written in Japanese) is the origin of this issue: + ;; + ;; [emacs-w3m:00150] <URL:http://emacs-w3m.namazu.org/ml/msg00149.html> + ;; + ;; Takaaki MORIYAMA wrote in the article that the string "&" which + ;; is replaced from "&" and embedded in the w3m's halfdump should be + ;; restored into "&" some time. + (let ((start 0) (buf)) + (while (string-match "\\(&\\)\\|\\([\t\r\f\n]+\\)" str start) + (setq buf (cons (if (match-beginning 1) "&" " ") + (cons (substring str start (match-beginning 0)) buf)) + start (match-end 0))) + (apply (function concat) + (nreverse (cons (substring str start) buf))))) + +(defun w3m-image-type (content-type) + "Return an image type which corresponds to CONTENT-TYPE." + (cdr (assoc content-type w3m-image-type-alist))) + +(defun w3m-imitate-widget-button () + "Return a boolean value corresponding to the variable of the same name." + (if (listp w3m-imitate-widget-button) + (condition-case nil + (eval w3m-imitate-widget-button) + (error nil)) + (and w3m-imitate-widget-button t))) + +(defun w3m-fontify-anchors () + "Fontify anchor tags in the buffer which contains halfdump." + (let ((help (w3m-make-help-echo w3m-balloon-help)) + (balloon (w3m-make-balloon-help w3m-balloon-help)) + prenames start end) + (goto-char (point-min)) + (setq w3m-max-anchor-sequence 0) ;; reset max-hseq + (while (re-search-forward "<_id[ \t\r\f\n]+" nil t) + (setq start (match-beginning 0)) + (setq prenames (get-text-property start 'w3m-name-anchor)) + (w3m-parse-attributes (id) + (delete-region start (point)) + (w3m-add-text-properties start (point-max) + (list 'w3m-name-anchor + (cons + (w3m-decode-entities-string + (w3m-url-transfer-encode-string + id)) + prenames))))) + (goto-char (point-min)) + (while (re-search-forward "<a[ \t\r\f\n]+" nil t) + (setq start (match-beginning 0)) + (setq prenames (get-text-property start 'w3m-name-anchor2)) + (w3m-parse-attributes (href name id charset + (rel :case-ignore) (hseq :integer)) + (unless name + (setq name id)) + (when rel + (setq rel (split-string rel)) + (cond + ((member "next" rel) (setq w3m-next-url href)) + ((or (member "prev" rel) (member "previous" rel)) + (setq w3m-previous-url href)) + ((member "start" rel) (setq w3m-start-url href)) + ((member "contents" rel) (setq w3m-contents-url href)))) + (delete-region start (point)) + (cond + (href + (when (re-search-forward "[ \t\r\f\n]*\\(</a>\\)" nil t) + (setq end (match-beginning 0)) + (delete-region (match-beginning 1) (match-end 1)) + (setq href (w3m-expand-url (w3m-decode-anchor-string href))) + (unless (w3m-url-local-p href) + (w3m-string-match-url-components href) + (setq href (if (match-beginning 8) + (let ((tmp (match-string 9 href))) + (concat (w3m-url-transfer-encode-string + (substring href 0 (match-beginning 8)) + (w3m-charset-to-coding-system charset)) + "#" tmp)) + (w3m-url-transfer-encode-string + href + (w3m-charset-to-coding-system charset))))) + (setq hseq (or (and (null hseq) 0) (abs hseq))) + (setq w3m-max-anchor-sequence (max hseq w3m-max-anchor-sequence)) + (w3m-add-face-property start end (if (w3m-arrived-p href) + 'w3m-arrived-anchor + 'w3m-anchor)) + (w3m-add-text-properties start end + (list 'w3m-href-anchor href + 'w3m-balloon-help href + 'mouse-face 'highlight + 'w3m-anchor-sequence hseq + 'help-echo help + 'balloon-help balloon + 'keymap w3m-link-map)) + (when (w3m-imitate-widget-button) + (require 'wid-edit) + (let ((widget-button-face (if (w3m-arrived-p href) + 'w3m-arrived-anchor + 'w3m-anchor)) + (widget-mouse-face 'highlight) + w) + (setq w (widget-convert-button 'default start end + :button-keymap nil + :help-echo href)) + (w3m-static-unless (featurep 'xemacs) + (overlay-put (widget-get w :button-overlay) 'evaporate t)))) + (when name + (w3m-add-text-properties start (point-max) + (list 'w3m-name-anchor2 + (cons + (w3m-decode-entities-string + (w3m-url-transfer-encode-string + name)) + prenames)))))) + (name + (w3m-add-text-properties start (point-max) + (list 'w3m-name-anchor2 + (cons + (w3m-decode-entities-string + (w3m-url-transfer-encode-string + name)) + prenames))))))) + (when w3m-icon-data + (setq w3m-icon-data (cons (and (car w3m-icon-data) + (w3m-expand-url (car w3m-icon-data))) + (or (w3m-image-type (cdr w3m-icon-data)) + 'ico)))) + (when w3m-next-url + (setq w3m-next-url (w3m-expand-url w3m-next-url))) + (when w3m-previous-url + (setq w3m-previous-url (w3m-expand-url w3m-previous-url))) + (when w3m-start-url + (setq w3m-start-url (w3m-expand-url w3m-start-url))) + (when w3m-contents-url + (setq w3m-contents-url (w3m-expand-url w3m-contents-url))))) + +(eval-and-compile + (unless (featurep 'xemacs) + (defun w3m-setup-menu () + "Define menubar buttons for Emacsen." + (w3m-menu-on-forefront w3m-menu-on-forefront t) + (unless (keymapp (lookup-key w3m-mode-map [menu-bar w3m])) + (let ((map (make-sparse-keymap (car w3m-menubar)))) + (define-key w3m-mode-map [menu-bar] (make-sparse-keymap)) + (w3m-setup-session-menu) + (when w3m-use-tab-menubar (w3m-setup-tab-menu)) + (w3m-setup-bookmark-menu) + (define-key w3m-mode-map [menu-bar w3m] (cons (car w3m-menubar) map)) + (require 'easymenu) + (easy-menu-define + w3m-mode-menu w3m-mode-map + "w3m menu item" w3m-menubar) + (easy-menu-add w3m-mode-menu)) + (let ((map (make-sparse-keymap))) + (easy-menu-define + w3m-rmouse-menu map + "w3m rmouse menu item" w3m-rmouse-menubar)))))) + +(defun w3m-fontify-images () + "Fontify img_alt strings of images in the buffer containing halfdump." + (goto-char (point-min)) + (let ((help (w3m-make-help-echo w3m-balloon-help)) + (balloon (w3m-make-balloon-help w3m-balloon-help)) + upper start end help) + (while (re-search-forward "<\\(img_alt\\)[^>]+>" nil t) + (setq upper (string= (match-string 1) "IMG_ALT") + start (match-beginning 0) + end (match-end 0)) + (goto-char (match-end 1)) + (w3m-parse-attributes (src + (width :integer) + (height :integer) + title + usemap) + (delete-region start end) + (setq src (w3m-expand-url (w3m-decode-anchor-string src))) + (when (search-forward "</img_alt>" nil t) + (delete-region (setq end (match-beginning 0)) (match-end 0)) + (setq help (get-text-property start 'w3m-balloon-help)) + (cond + ((and help title) + (setq help (format "%s\nalt: %s\nimg: %s" help title src))) + (help + (setq help (format "%s\nimg: %s" help src))) + (title + (setq help (format "alt: %s\nimg: %s" title src))) + (t + (setq help (format "img: %s" src)))) + (w3m-add-text-properties start end + (list 'w3m-image src + 'w3m-image-size + (when (or width height) + (cons width height)) + 'w3m-image-alt title + 'w3m-balloon-help help + 'w3m-image-usemap usemap + 'w3m-image-status 'off + 'w3m-image-redundant upper + 'keymap w3m-link-map)) + (unless (w3m-action start) + ;; No need to use `w3m-add-text-properties' here. + (w3m-add-face-property start end + (if (w3m-anchor start) + 'w3m-image-anchor + 'w3m-image)) + (unless (w3m-anchor start) + (add-text-properties start end (list 'mouse-face 'highlight + 'help-echo help + 'balloon-help balloon))))))))) + +(defvar w3m-idle-images-show-timer nil) +(defvar w3m-idle-images-show-list nil) +(defvar w3m-idle-images-show-interval 1) + +(defun w3m-idle-images-show () + (let ((repeat t) + (onbuffer (member (current-buffer) (w3m-list-buffers)))) + (while (and repeat w3m-idle-images-show-list) + (let* ((item (or (and onbuffer + (or (get-text-property (point) 'w3m-idle-image-item) + (let* ((prev (previous-single-property-change + (point) 'w3m-idle-image-item)) + (next (next-single-property-change + (point) 'w3m-idle-image-item)) + (prev-diff (and prev (abs (- (point) prev)))) + (next-diff (and next (abs (- (point) next))))) + (cond + ((and prev next) + (get-text-property + (if (< prev-diff next-diff) prev next) + 'w3m-idle-image-item)) + (prev + (get-text-property prev + 'w3m-idle-image-item)) + (next + (get-text-property next + 'w3m-idle-image-item)) + (t nil))))) + (car (last w3m-idle-images-show-list)))) + (start (nth 0 item)) + (end (nth 1 item)) + (iurl (nth 2 item)) + (url (nth 3 item)) + (no-cache (nth 4 item)) + (size (nth 5 item))) + (setq w3m-idle-images-show-list + (delete item w3m-idle-images-show-list)) + (if (buffer-live-p (marker-buffer start)) + (with-current-buffer (marker-buffer start) + (save-restriction + (widen) + (let (buffer-read-only) + (remove-text-properties start end '(w3m-idle-image-item)) + (set-buffer-modified-p nil)) + (w3m-process-with-null-handler + (lexical-let ((start start) + (end end) + (iurl iurl) + (url url)) + (w3m-process-do + (image (let ((w3m-current-buffer (current-buffer)) + (w3m-message-silent t)) + (w3m-create-image + iurl no-cache + url + size handler))) + (when (buffer-live-p (marker-buffer start)) + (with-current-buffer (marker-buffer start) + (save-restriction + (widen) + (if image + (when (equal url w3m-current-url) + (let (buffer-read-only) + (w3m-insert-image start end image iurl)) + ;; Redisplay + (when w3m-force-redisplay + (sit-for 0))) + (let (buffer-read-only) + (w3m-add-text-properties + start end '(w3m-image-status off)))) + (set-buffer-modified-p nil)) + (set-marker start nil) + (set-marker end nil)))))))) + (set-marker start nil) + (set-marker end nil) + (w3m-idle-images-show-unqueue (marker-buffer start)))) + (setq repeat (sit-for 0.1 t))) + (if w3m-idle-images-show-list + (when (input-pending-p) + (cancel-timer w3m-idle-images-show-timer) + (setq w3m-idle-images-show-timer + (run-with-idle-timer w3m-idle-images-show-interval + t + 'w3m-idle-images-show))) + (cancel-timer w3m-idle-images-show-timer) + (setq w3m-idle-images-show-timer nil)))) + +(defun w3m-idle-images-show-unqueue (buffer) + (when w3m-idle-images-show-timer + (cancel-timer w3m-idle-images-show-timer) + (setq w3m-idle-images-show-timer nil) + (setq w3m-idle-images-show-list + (delq nil + (mapcar (lambda (x) + (and (not (eq buffer (marker-buffer (nth 0 x)))) + x)) + w3m-idle-images-show-list))) + (when w3m-idle-images-show-list + (setq w3m-idle-images-show-timer + (run-with-idle-timer w3m-idle-images-show-interval + t + 'w3m-idle-images-show))))) + +(defvar w3m-image-no-idle-timer nil) +(defun w3m-toggle-inline-images-internal (status + &optional no-cache url + begin-pos end-pos + safe-regexp) + "Toggle displaying of inline images on current buffer. +STATUS is current image status. +If NO-CACHE is non-nil, cache is not used. +If URL is specified, only the image with URL is toggled." + (let ((cur-point (point)) + (buffer-read-only) + (end (or begin-pos (point-min))) + (allow-non-secure-images (not w3m-confirm-leaving-secure-page)) + start iurl image size) + (unless end-pos (setq end-pos (point-max))) + (save-excursion + (if (equal status 'off) + (while (< (setq start + (if (w3m-image end) + end + (next-single-property-change end 'w3m-image + nil end-pos))) + end-pos) + (setq end (or (next-single-property-change start 'w3m-image) + (point-max)) + iurl (w3m-image start) + size (get-text-property start 'w3m-image-size)) + (when (and (or (and (not url) + (or (not w3m-ignored-image-url-regexp) + (not (string-match + w3m-ignored-image-url-regexp + iurl)))) + ;; URL is specified and is same as the image URL. + (string= url iurl)) + (not (eq (get-text-property start 'w3m-image-status) + 'on))) + (w3m-add-text-properties start end '(w3m-image-status on)) + (if (get-text-property start 'w3m-image-redundant) + (progn + ;; Insert a dummy string instead of a redundant image. + (setq image (make-string + (string-width (buffer-substring start end)) + ? )) + (w3m-add-text-properties start end '(invisible t)) + (goto-char end) + (w3m-add-text-properties + end (progn (insert image) (point)) + '(w3m-image-dummy t w3m-image "dummy")) + (setq end (point))) + (goto-char cur-point) + (when (and (w3m-url-valid iurl) + (or (null safe-regexp) + (string-match safe-regexp iurl)) + (not (and (not (w3m-url-local-p w3m-current-url)) + (w3m-url-local-p iurl))) + (or (not w3m-current-ssl) + (string-match "\\`\\(?:ht\\|f\\)tps://" iurl) + allow-non-secure-images + (and (prog1 + (y-or-n-p "\ +You are retrieving non-secure image(s). Continue? ") + (message nil)) + (setq allow-non-secure-images t)))) + (if (or w3m-image-no-idle-timer + (and (null (and size w3m-resize-images)) + (or (string-match "\\`\\(?:cid\\|data\\):" iurl) + (w3m-url-local-p iurl) + (w3m-cache-available-p iurl)))) + (w3m-process-with-null-handler + (lexical-let ((start (set-marker (make-marker) start)) + (end (set-marker (make-marker) end)) + (iurl iurl) + (url w3m-current-url)) + (w3m-process-do + (image (let ((w3m-current-buffer (current-buffer))) + (w3m-create-image + iurl no-cache + w3m-current-url + size handler))) + (when (buffer-live-p (marker-buffer start)) + (with-current-buffer (marker-buffer start) + (if image + (when (equal url w3m-current-url) + (let (buffer-read-only) + (w3m-insert-image start end image iurl)) + ;; Redisplay + (when w3m-force-redisplay + (sit-for 0))) + (let (buffer-read-only) + (w3m-add-text-properties + start end '(w3m-image-status off)))) + (set-buffer-modified-p nil))) + (set-marker start nil) + (set-marker end nil)))) + (let ((item (list (set-marker (make-marker) start) + (set-marker (make-marker) end) + (w3m-url-transfer-encode-string iurl) + w3m-current-url + no-cache + size))) + (setq w3m-idle-images-show-list + (cons item w3m-idle-images-show-list)) + (w3m-add-text-properties + start end + `(w3m-idle-image-item ,item)) + (unless w3m-idle-images-show-timer + (setq w3m-idle-images-show-timer + (run-with-idle-timer w3m-idle-images-show-interval + t + 'w3m-idle-images-show))))))))) + ;; Remove. + (while (< (setq start (if (w3m-image end) + end + (next-single-property-change end 'w3m-image + nil end-pos))) + end-pos) + (setq end (or (next-single-property-change start 'w3m-image) + (point-max)) + iurl (w3m-image start)) + ;; IMAGE-ALT-STRING DUMMY-STRING + ;; <--------w3m-image----------> + ;; <---redundant--><---dummy---> + ;; <---invisible--> + (when (and (or (not url) + ;; URL is specified and is not same as the image URL. + (string= url iurl)) + (not (eq (get-text-property start 'w3m-image-status) + 'off))) + (cond + ((get-text-property start 'w3m-image-redundant) + ;; Remove invisible property. + (put-text-property start end 'invisible nil)) + ((get-text-property start 'w3m-image-dummy) + ;; Remove dummy string. + (delete-region start end) + (setq end start)) + (t (w3m-remove-image start end))) + (w3m-add-text-properties start end + '(w3m-image-status off + w3m-idle-image-item nil)))) + (set-buffer-modified-p nil))))) + +(defun w3m-toggle-inline-image (&optional force no-cache) + "Toggle the visibility of an image under point or images in the region. +If FORCE is non-nil, displaying an image is forced. If NO-CACHE is +non-nil, cached data will not be used." + (interactive "P") + (unless (w3m-display-graphic-p) + (error "Can't display images in this environment")) + (let (toggle-list begin end) + (if (w3m-region-active-p) + (let ((p (region-beginning)) + iurl) + (setq begin (region-beginning) + end (region-end)) + (w3m-deactivate-region) + (while (< p end) + (setq p (next-single-property-change p 'w3m-image nil end)) + (when (and (< p end) + (setq iurl (w3m-image p)) + (not (assoc iurl toggle-list))) + (setq toggle-list (cons (cons iurl p) toggle-list))))) + (setq toggle-list (and (w3m-image) + `(,(cons (w3m-image) (point)))))) + (if toggle-list + (dolist (x toggle-list) + (let* ((url (car x)) + (pos (cdr x)) + (status (get-text-property pos 'w3m-image-status)) + safe-regexp) + (if (and (get-text-property pos 'w3m-image-scale) + (equal status 'off)) + (w3m-zoom-in-image 0) + (if (w3m-url-valid url) + (if (eq status 'on) + (progn + (if force (setq status 'off)) + (w3m-toggle-inline-images-internal + status no-cache url + (or begin (point-min)) + (or end (point-max)))) + (setq safe-regexp + (get-text-property (point) 'w3m-safe-url-regexp)) + (if (or (not safe-regexp) + (string-match safe-regexp url) + (and force + (or (not (interactive-p)) + (yes-or-no-p "\ +Are you sure you really want to show this image (maybe insecure)? ")))) + (w3m-toggle-inline-images-internal + status no-cache url + (or begin (point-min)) + (or end (point-max))) + (when (interactive-p) + (w3m-message "This image is considered to be unsafe;\ + use the prefix arg to force display")))))))) + (if begin + (w3m-message "No images in region") + (w3m-message "No image at point"))))) + +(defun w3m-turnoff-inline-images () + "Turn off to display all images in the buffer or in the region." + (interactive) + (w3m-toggle-inline-images 'turnoff)) + +(defun w3m-toggle-inline-images (&optional force no-cache) + "Toggle the visibility of all images in the buffer or in the region. +If FORCE is neither nil nor `turnoff', displaying images is forced. +The value `turnoff' is special; it turns displaying images off anyway. +If NO-CACHE is non-nil, cached data will not be used. + +Note that the status of whether images are visible is kept hereafter +even in new sessions if the `w3m-toggle-inline-images-permanently' +variable is non-nil (default=t)." + (interactive "P") + (unless (w3m-display-graphic-p) + (error "Can't display images in this environment")) + (let ((status (cond ((eq force 'turnoff) t) + (force nil) + (t w3m-display-inline-images))) + (safe-p t) + beg end safe-regexp pos url) + (if (w3m-region-active-p) + (progn + (setq beg (region-beginning) + end (region-end)) + (w3m-deactivate-region)) + (setq beg (point-min) + end (point-max))) + (unless status + (when (setq safe-regexp (get-text-property (point) 'w3m-safe-url-regexp)) + ;; Scan the buffer for searching for an insecure image url. + (setq pos beg) + (setq + safe-p + (catch 'done + (when (setq url (get-text-property pos 'w3m-image)) + (unless (string-match safe-regexp url) + (throw 'done nil)) + (setq pos (next-single-property-change pos 'w3m-image))) + (while (< pos end) + (when (and + (setq pos (next-single-property-change pos 'w3m-image + nil end)) + (setq url (get-text-property pos 'w3m-image))) + (unless (string-match safe-regexp url) + (throw 'done nil))) + (setq pos (next-single-property-change pos 'w3m-image + nil end))) + t)))) + (if (or status + (not safe-regexp) + safe-p + (and force + (or (not (interactive-p)) + (yes-or-no-p "\ +Are you sure you really want to show all images (maybe insecure)? ")))) + (progn + (unwind-protect + (w3m-toggle-inline-images-internal (if status 'on 'off) + no-cache nil beg end + (unless (interactive-p) + safe-regexp)) + (setq w3m-display-inline-images (not status)) + (when status + (w3m-process-stop (current-buffer)) + (w3m-idle-images-show-unqueue (current-buffer))) + (force-mode-line-update))) + (w3m-message "There are some images considered unsafe;\ + use the prefix arg to force display")))) + +(defun w3m-resize-inline-image-internal (url rate) + "Resize an inline image on the cursor position. +URL is a url of an image. RATE is a number of percent used when +resizing an image." + (let* ((buffer-read-only) + (start (point)) + (end (or (next-single-property-change start 'w3m-image) + (point-max))) + (iurl (w3m-image start)) + (size (get-text-property start 'w3m-image-size)) + (iscale (or (get-text-property start 'w3m-image-scale) '100)) + (allow-non-secure-images (not w3m-confirm-leaving-secure-page)) + scale image) + (w3m-add-text-properties start end '(w3m-image-status on)) + (setq scale (truncate (* iscale rate 0.01))) + (w3m-add-text-properties start end (list 'w3m-image-scale scale)) + (if (get-text-property start 'w3m-image-redundant) + (progn + ;; Insert a dummy string instead of a redundant image. + (setq image (make-string + (string-width (buffer-substring start end)) + ? )) + (w3m-add-text-properties start end '(invisible t)) + (w3m-add-text-properties (point) + (progn (insert image) (point)) + '(w3m-image-dummy t + w3m-image "dummy"))) + (when (and (w3m-url-valid iurl) + (or (not w3m-current-ssl) + (string-match "\\`\\(?:ht\\|f\\)tps://" iurl) + allow-non-secure-images + (and (prog1 + (y-or-n-p "\ +You are retrieving non-secure image(s). Continue? ") + (message nil)) + (setq allow-non-secure-images t)))) + (w3m-process-with-null-handler + (lexical-let ((start (set-marker (make-marker) start)) + (end (set-marker (make-marker) end)) + (iurl iurl) + (rate scale) + (url w3m-current-url)) + (w3m-process-do + (image (let ((w3m-current-buffer (current-buffer))) + (w3m-create-resized-image + iurl + rate + w3m-current-url + size handler))) + (when (buffer-live-p (marker-buffer start)) + (with-current-buffer (marker-buffer start) + (if image + (when (equal url w3m-current-url) + (let (buffer-read-only) + (w3m-static-when (featurep 'xemacs) + (w3m-remove-image start end)) + (w3m-insert-image start end image iurl)) + ;; Redisplay + (when w3m-force-redisplay + (sit-for 0))) + (let (buffer-read-only) + (w3m-add-text-properties + start end '(w3m-image-status off)))) + (set-buffer-modified-p nil)) + (set-marker start nil) + (set-marker end nil))))))))) + +(defun w3m-zoom-in-image (&optional rate) + "Zoom in an image on the point. +Numeric prefix specifies how many percent the image is enlarged by +\(30 means enlarging the image by 130%). The default is the value of +the `w3m-resize-image-scale' variable." + (interactive "P") + (unless (w3m-display-graphic-p) + (error "Can't display images in this environment")) + (unless (w3m-imagick-convert-program-available-p) + (error "ImageMagick's `convert' program is required")) + (let ((url (w3m-image))) + (if url + (w3m-resize-inline-image-internal + url + (+ 100 (or rate w3m-resize-image-scale))) + (w3m-message "No image at point")))) + +(defun w3m-zoom-out-image (&optional rate) + "Zoom out an image on the point. +Numeric prefix specifies how many percent the image is shrunk by +\(30 means shrinking the image by 70%). The default is the value of +the `w3m-resize-image-scale' variable." + (interactive "P") + (unless (w3m-display-graphic-p) + (error "Can't display images in this environment")) + (unless (w3m-imagick-convert-program-available-p) + (error "ImageMagick's `convert' program is required")) + (let ((url (w3m-image))) + (if url + (w3m-resize-inline-image-internal + url + (- 100 (or rate w3m-resize-image-scale))) + (w3m-message "No image at point")))) + +(defun w3m-decode-entities (&optional keep-properties) + "Decode entities in the current buffer. +If optional KEEP-PROPERTIES is non-nil, text property is reserved." + (save-excursion + (goto-char (point-min)) + ;; Character entity references are case-sensitive. + ;; Cf. http://www.w3.org/TR/1999/REC-html401-19991224/charset.html#h-5.3.2 + (let (case-fold-search start fid prop value) + (while (re-search-forward w3m-entity-regexp nil t) + (setq start (match-beginning 0) + fid (get-text-property start 'w3m-form-field-id)) + (unless (and fid + (save-match-data + (string-match "/type=\\(?:text\\|select\\)/name=[^/]+/" + fid))) + (when keep-properties + (setq prop (text-properties-at start))) + (unless (eq (char-after (match-end 1)) ?\;) + (goto-char (match-end 1))) + ;; Note that `w3m-entity-value' breaks `match-data' at the 1st + ;; time in XEmacs because of the autoloading unicode.elc for + ;; the `ucs-to-char' function. + (when (setq value (w3m-entity-value (match-string 1))) + (delete-region start (point)) + (insert value)) + (when prop + (w3m-add-text-properties start (point) prop))))))) + +(defun w3m-decode-entities-string (str) + "Decode entities in the string STR." + (save-match-data + ;; Character entity references are case-sensitive. + ;; Cf. http://www.w3.org/TR/1999/REC-html401-19991224/charset.html#h-5.3.2 + (let ((case-fold-search) (pos 0) (buf)) + (while (string-match w3m-entity-regexp str pos) + (setq buf (cons (or (w3m-entity-value (match-string 1 str)) + (match-string 1 str)) + (cons (substring str pos (match-beginning 0)) + buf)) + pos (if (eq (aref str (match-end 1)) ?\;) + (match-end 0) + (match-end 1)))) + (if buf + (apply 'concat (nreverse (cons (substring str pos) buf))) + str)))) + +(defun w3m-encode-specials-string (str) + "Encode special characters in the string STR." + (let ((pos 0) + (buf)) + (while (string-match "[<>&]" str pos) + (setq buf + (cons ";" + (cons (gethash (match-string 0 str) w3m-entity-reverse-table) + (cons "&" + (cons (substring str pos (match-beginning 0)) + buf)))) + pos (match-end 0))) + (if buf + (apply 'concat (nreverse (cons (substring str pos) buf))) + str))) + +(defun w3m-fontify () + "Fontify the current buffer." + (let ((case-fold-search t) + (buffer-read-only)) + (w3m-message "Fontifying...") + (run-hooks 'w3m-fontify-before-hook) + ;; Remove hidden anchors like "<a href=url> </a>". + (goto-char (point-min)) + (while (re-search-forward "<a[\t\n ]+[^>]+>[\t\n ]*</a>" nil t) + (delete-region (match-beginning 0) (match-end 0))) + ;; Delete <?xml ... ?> tag + (goto-char (point-min)) + (if (search-forward "<?xml" nil t) + (let ((start (match-beginning 0))) + (search-forward "?>" nil t) + (delete-region start (match-end 0)) + (goto-char (point-min)))) + ;; Delete extra title tag. + (let (start) + (and (search-forward "<title>" nil t) + (setq start (match-beginning 0)) + (search-forward "</title>" nil t) + (delete-region start (match-end 0)))) + (w3m-fontify-bold) + (w3m-fontify-italic) + (w3m-fontify-strike-through) + (w3m-fontify-insert) + (w3m-fontify-underline) + (when w3m-use-symbol + (w3m-replace-symbol)) + (w3m-fontify-anchors) + (when w3m-use-form + (w3m-fontify-forms)) + (w3m-fontify-images) + ;; Remove other markups. + (goto-char (point-min)) + (while (re-search-forward "</?[A-Za-z_][^>]*>" nil t) + (let* ((start (match-beginning 0)) + (fid (get-text-property start 'w3m-form-field-id))) + (if (and fid (string-match "/type=text\\(?:area\\)?/" fid)) + (goto-char (1+ start)) + (delete-region start (match-end 0))))) + ;; Decode escaped characters (entities). + (w3m-decode-entities 'reserve-prop) + (when w3m-use-form + (w3m-fontify-textareas)) + (goto-char (point-min)) + (when w3m-delete-duplicated-empty-lines + (while (re-search-forward "^[ \t]*\n\\(?:[ \t]*\n\\)+" nil t) + (delete-region (match-beginning 0) (1- (match-end 0))))) + + ;; FIXME: The code above reduces number of empty lines but one line + ;; remains. While such empty lines might have been inserted for + ;; making sure of rooms for displaying images, they all should be + ;; removed since they are useless for emacs-w3m. However, currently + ;; we don't have a proper way to identify whether they were inserted + ;; intentionally by the author or not. So, we decided to remove only + ;; that one at the beginning of the buffer though it is unwillingness. + (goto-char (point-min)) + (skip-chars-forward "\t\n $B!!(B") + (delete-region (point-min) (point-at-bol)) + + (w3m-header-line-insert) + (put-text-property (point-min) (point-max) + 'w3m-safe-url-regexp w3m-safe-url-regexp) + (w3m-message "Fontifying...done") + (run-hooks 'w3m-fontify-after-hook))) + +(defun w3m-refontify-anchor (&optional buff) + "Refontify anchors as they have already arrived. +It replaces the faces on the arrived anchors from `w3m-anchor' to +`w3m-arrived-anchor'." + (with-current-buffer (or buff (current-buffer)) + (let (prop) + (when (and (eq major-mode 'w3m-mode) + (get-text-property (point) 'w3m-anchor-sequence) + (setq prop (get-text-property (point) 'face)) + (listp prop) + (member 'w3m-anchor prop)) + (let* ((start) + (end (next-single-property-change (point) 'w3m-anchor-sequence)) + (buffer-read-only)) + (when (and end + (setq start (previous-single-property-change + end 'w3m-anchor-sequence)) + (w3m-arrived-p (get-text-property (point) + 'w3m-href-anchor))) + (w3m-remove-face-property start end 'w3m-anchor) + (w3m-remove-face-property start end 'w3m-arrived-anchor) + (w3m-add-face-property start end 'w3m-arrived-anchor)) + (set-buffer-modified-p nil)))))) + +(defun w3m-url-completion (url predicate flag) + "Completion function for URL." + (if (string-match "\\`\\(?:file:\\|[/~]\\|\\.\\.?/\\|[a-zA-Z]:\\)" url) + (if (eq flag 'lambda) + (file-exists-p (w3m-url-to-file-name url)) + (let* ((partial + (expand-file-name + (cond + ((string-match "\\`file:[^/]" url) + (substring url 5)) + ((string-match "/\\(~\\)" url) + (substring url (match-beginning 1))) + (t (w3m-url-to-file-name url))))) + (collection + (let ((dir (file-name-directory partial))) + (mapcar + (lambda (f) + (list (w3m-expand-file-name-as-url f dir))) + (file-name-all-completions (file-name-nondirectory partial) + dir))))) + (setq partial + (if (string-match "/\\.\\'" url) + (concat (file-name-as-directory + (w3m-expand-file-name-as-url partial)) + ".") + (w3m-expand-file-name-as-url partial))) + (cond + ((not flag) + (try-completion partial collection predicate)) + ((eq flag t) + (all-completions partial collection predicate))))) + (cond + ((not flag) + (try-completion url w3m-arrived-db)) + ((eq flag t) + (all-completions url w3m-arrived-db)) + ((eq flag 'lambda) + (if (w3m-arrived-p url) t nil))))) + +(defun w3m-gmane-url-at-point () + "Return a url that indicates the thread page in Gmane. +This function works only when the cursor stays in the References +header or the Message-ID header, otherwise returns nil. + +On the Message-ID header, the url that asks Gmane for the thread +beginning with the current article will be generated. +On the References header, the url that asks Gmane for the whole thread +\(namely it begins with the article of the first ID in the header) will +be generated. In that case, Gmane might fail to find the thread since +it is possible that the root article has been posted to another group. + +That it returns an invalid url for the article of the group which is +not being archived in Gmane cannot be helped." + (save-excursion + (let ((fmt "http://news.gmane.org/group/thread=%s/force_load=t") + (start (point)) + (inhibit-point-motion-hooks t) + case-fold-search) + (goto-char (point-min)) + (re-search-forward (concat "^\\(?:" + (regexp-quote mail-header-separator) + "\\)?$") + nil 'move) + (when (< start (point)) + (setq case-fold-search t) + (save-restriction + (narrow-to-region (point-min) (point)) + (goto-char start) + (beginning-of-line) + (while (and (memq (char-after) '(?\t ? )) + (zerop (forward-line -1)))) + (when (looking-at + "\\(?:Message-ID\\|References\\):[\t\n ]*<\\([^\t\n <>]+\\)>") + (format + fmt + (w3m-url-encode-string (match-string-no-properties 1) + nil t)))))))) + +(defun w3m-header-line-url () + "Return w3m-current-url if point on header line." + (let ((faces (get-text-property (point) 'face))) + (when (and (eq major-mode 'w3m-mode) + (listp faces) + (or (memq 'w3m-header-line-location-title faces) + (memq 'w3m-header-line-location-content faces)) + w3m-current-url) + w3m-current-url))) + +(eval-and-compile + (autoload 'ffap-url-at-point "ffap") + (defalias 'w3m-url-at-point + (cond ((and (featurep 'xemacs) (featurep 'mule)) + (lambda nil "\ +Like `ffap-url-at-point', except that text props will be stripped and +iso646 characters are unified into ascii characters." + (or (w3m-gmane-url-at-point) + (w3m-header-line-url) + (let ((left (buffer-substring-no-properties (point-at-bol) + (point))) + (right (buffer-substring-no-properties (point) + (point-at-eol))) + (regexp (format "[%c-%c]" + (make-char 'latin-jisx0201 33) + (make-char 'latin-jisx0201 126))) + (diff (- (char-to-int (make-char 'latin-jisx0201 33)) + 33)) + index) + (while (setq index (string-match regexp left)) + (aset left index (- (aref left index) diff))) + (while (setq index (string-match regexp right)) + (aset right index (- (aref right index) diff))) + (with-temp-buffer + (insert right) + (goto-char (point-min)) + (insert left) + (ffap-url-at-point)))))) + ((featurep 'xemacs) + (lambda nil "\ +Like `ffap-url-at-point', except that text props will be stripped." + (or (w3m-gmane-url-at-point) + (w3m-header-line-url) + (unless (fboundp 'ffap-url-at-point) + ;; It is necessary to bind `ffap-xemacs'. + (load "ffap" nil t)) + (let (ffap-xemacs) + (ffap-url-at-point))))) + (t + (lambda nil + (or (w3m-gmane-url-at-point) + (w3m-header-line-url) + (ffap-url-at-point))))))) + +(eval-after-load "ffap" + '(progn + ;; Under XEmacs, `ffap-url-regexp' won't match to https urls. + (if (and ffap-url-regexp + (not (string-match ffap-url-regexp "https://foo")) + (string-match "\\((\\|\\\\|\\)\\(http\\)\\(\\\\|\\|\\\\)\\)" + ffap-url-regexp)) + (setq ffap-url-regexp (replace-match "\\1\\2s?\\3" + nil nil ffap-url-regexp))) + ;; Add nntp:. + (if (and ffap-url-regexp + (not (string-match ffap-url-regexp "nntp://bar")) + (string-match "\\(\\\\(news\\\\(post\\\\)\\?:\\)\\(\\\\|\\)" + ffap-url-regexp)) + (setq ffap-url-regexp (replace-match "\\1\\\\|nntp:\\2" + nil nil ffap-url-regexp))))) + +(defun w3m-active-region-or-url-at-point (&optional default=current) + "Return an active region or a url around the cursor. +In Transient Mark mode, deactivate the mark. If DEFAULT=CURRENT is +non-nil, return the url of the current page by default." + (if (w3m-region-active-p) + (prog1 + (w3m-replace-in-string (buffer-substring-no-properties + (region-beginning) (region-end)) + "[\t\r\f\n $B!!(B]+" "") + (w3m-deactivate-region)) + (or (w3m-url-at-point) + (w3m-anchor) + (unless w3m-display-inline-images + (w3m-image)) + (and default=current + (stringp w3m-current-url) + (if (string-match "\\`about://\\(?:header\\|source\\)/" + w3m-current-url) + (substring w3m-current-url (match-end 0)) + w3m-current-url))))) + +(defun w3m-canonicalize-url (url &optional feeling-lucky) + "Add a scheme part to an URL or make an URL for \"I'm Feeling Lucky on Google\" +if it has no scheme part." + (w3m-string-match-url-components url) + (cond + ((match-beginning 1) + url) + ((and (file-name-absolute-p url) (file-exists-p url)) + (concat "file://" url)) + (feeling-lucky + (let* ((charset w3m-google-feeling-lucky-charset) + (cs (w3m-charset-to-coding-system charset)) + (str (w3m-url-encode-string url cs t))) + (format (concat "http://www.google.com/search" + "?btnI=I%%27m+Feeling+Lucky&ie=%s&oe=%s&q=%s") + charset charset str))) + (t + (concat "http://" url)))) + +(defun w3m-input-url (&optional prompt initial default quick-start + feeling-lucky) + "Read a url from the minibuffer, prompting with string PROMPT." + (let (url) + (w3m-arrived-setup) + (unless default + (setq default w3m-home-page)) + (unless (or initial + (not (setq initial (w3m-active-region-or-url-at-point t))) + (string-match "[^\000-\177]" initial)) + (setq initial (w3m-url-decode-string initial w3m-current-coding-system))) + (when initial + (setq initial (w3m-puny-decode-url initial))) + (if (and quick-start + default + (not initial)) + default + (unless w3m-enable-google-feeling-lucky + (setq feeling-lucky nil)) + (setq url (let ((minibuffer-setup-hook + (append minibuffer-setup-hook '(beginning-of-line))) + (ofunc (lookup-key minibuffer-local-completion-map " "))) + (when feeling-lucky + (define-key minibuffer-local-completion-map " " + 'self-insert-command)) + (unwind-protect + (completing-read + (if prompt + (if (or initial (not default)) + prompt + (when (string-match " *: *\\'" prompt) + (setq prompt (substring prompt 0 + (match-beginning 0)))) + (concat prompt " (default " + (if (equal default w3m-home-page) + "HOME" + default) + "): ")) + (if (or initial (not default)) + (if feeling-lucky "URL or Keyword: " "URL: ") + (format "URL %s(default %s): " + (if feeling-lucky "or Keyword " "") + (if (stringp default) + (if (eq default w3m-home-page) + "HOME" default) + (prin1-to-string default))))) + 'w3m-url-completion nil nil initial + 'w3m-input-url-history) + (define-key minibuffer-local-completion-map " " ofunc)))) + (when (string= "" url) + (setq url default)) + (if (stringp url) + (progn + ;; remove duplication + (setq w3m-input-url-history + (cons url (delete url w3m-input-url-history))) + (w3m-canonicalize-url url feeling-lucky)) + ;; It may be `popup'. + url)))) + +;;; Cache: +(defun w3m-cache-setup () + "Initialize the variables for managing the cache." + (unless (and (bufferp w3m-cache-buffer) + (buffer-live-p w3m-cache-buffer)) + (with-current-buffer (w3m-get-buffer-create " *w3m cache*") + (buffer-disable-undo) + (set-buffer-multibyte nil) + (setq buffer-read-only t + w3m-cache-buffer (current-buffer) + w3m-cache-hashtb (make-vector 1021 0))))) + +(defun w3m-cache-shutdown () + "Clear all the variables managing the cache, and the cache itself." + (when (buffer-live-p w3m-cache-buffer) + (kill-buffer w3m-cache-buffer)) + (setq w3m-cache-hashtb nil + w3m-cache-articles nil)) + +(defun w3m-cache-header-delete-variable-part (header) + (let (buf flag) + (dolist (line (split-string header "\n+")) + (if (string-match "\\`\\(?:Date\\|Server\\|W3m-[^:]+\\):" line) + (setq flag t) + (unless (and flag (string-match "\\`[ \t]" line)) + (setq flag nil) + (push line buf)))) + (mapconcat (function identity) (nreverse buf) "\n"))) + +(defun w3m-cache-header (url header &optional overwrite) + "Store HEADER into the cache so that it corresponds to URL. +If OVERWRITE is non-nil, it forces the storing even if there has +already been the data corresponding to URL in the cache." + (w3m-cache-setup) + (let ((ident (intern url w3m-cache-hashtb))) + (if (boundp ident) + (if (and + (not overwrite) + (string= + (w3m-cache-header-delete-variable-part header) + (w3m-cache-header-delete-variable-part (symbol-value ident)))) + (symbol-value ident) + (w3m-cache-remove url) + (set ident header)) + (set ident header)))) + +(defun w3m-cache-request-header (url) + "Return the header string of URL when it is stored in the cache." + (w3m-cache-setup) + (let ((ident (intern url w3m-cache-hashtb))) + (and (boundp ident) + (symbol-value ident)))) + +(defun w3m-cache-remove-oldest () + (with-current-buffer w3m-cache-buffer + (goto-char (point-min)) + (unless (zerop (buffer-size)) + (let ((ident (get-text-property (point) 'w3m-cache)) + buffer-read-only) + ;; Remove the ident from the list of articles. + (when ident + (setq w3m-cache-articles (delq ident w3m-cache-articles))) + ;; Delete the article itself. + (delete-region (point) + (next-single-property-change + (1+ (point)) 'w3m-cache nil (point-max))))))) + +(defun w3m-cache-remove (url) + "Remove the data coresponding to URL from the cache." + (w3m-cache-setup) + (let ((ident (intern url w3m-cache-hashtb)) + beg end) + (when (memq ident w3m-cache-articles) + ;; It was in the cache. + (with-current-buffer w3m-cache-buffer + (let (buffer-read-only) + (when (setq beg (text-property-any + (point-min) (point-max) 'w3m-cache ident)) + ;; Find the end (i. e., the beginning of the next article). + (setq end (next-single-property-change + (1+ beg) 'w3m-cache (current-buffer) (point-max))) + (delete-region beg end))) + (setq w3m-cache-articles (delq ident w3m-cache-articles)))))) + +(defun w3m-cache-contents (url buffer) + "Store the contents of URL into the cache. +The contents are assumed to be in BUFFER. Return a symbol which +identifies the data in the cache." + (w3m-cache-setup) + (let ((ident (intern url w3m-cache-hashtb))) + (w3m-cache-remove url) + ;; Remove the oldest article, if necessary. + (and (numberp w3m-keep-cache-size) + (>= (length w3m-cache-articles) w3m-keep-cache-size) + (w3m-cache-remove-oldest)) + ;; Insert the new article. + (with-current-buffer w3m-cache-buffer + (let (buffer-read-only) + (goto-char (point-max)) + (let ((b (point))) + (insert-buffer-substring buffer) + ;; Tag the beginning of the article with the ident. + (when (> (point-max) b) + (w3m-add-text-properties b (1+ b) (list 'w3m-cache ident)) + (setq w3m-cache-articles (cons ident w3m-cache-articles)) + ident)))))) + +(defun w3m-cache-request-contents (url &optional buffer) + "Insert contents of URL into BUFFER. +Return t if the contents are found in the cache, otherwise nil. When +BUFFER is nil, all contents will be inserted in the current buffer." + (w3m-cache-setup) + (let ((ident (intern url w3m-cache-hashtb))) + (when (memq ident w3m-cache-articles) + ;; It was in the cache. + (let (beg end) + (with-current-buffer w3m-cache-buffer + (if (setq beg (text-property-any + (point-min) (point-max) 'w3m-cache ident)) + ;; Find the end (i.e., the beginning of the next article). + (setq end (next-single-property-change + (1+ beg) 'w3m-cache (current-buffer) (point-max))) + ;; It wasn't in the cache after all. + (setq w3m-cache-articles (delq ident w3m-cache-articles)))) + (and beg + end + (with-current-buffer (or buffer (current-buffer)) + (let (buffer-read-only) + (insert-buffer-substring w3m-cache-buffer beg end)) + t)))))) + +;; FIXME: we need to check whether contents were updated in remote servers. +(defun w3m-cache-available-p (url) + "Return non-nil if a content of URL has already been cached." + (w3m-cache-setup) + (when (stringp url) + (let ((ident (intern url w3m-cache-hashtb))) + (and + (memq ident w3m-cache-articles) + (or + w3m-prefer-cache + (save-match-data + (let ((case-fold-search t) + (head (and (boundp ident) (symbol-value ident))) + time expire) + (cond + ((and (string-match "^\\(?:date\\|etag\\):[ \t]" head) + (or (string-match "^pragma:[ \t]+no-cache\n" head) + (string-match + "^cache-control:\\(?:[^\n]+\\)?[ \t,]\\(?:no-cache\\|max-age=0\\)[,\n]" + head))) + nil) + ((and + (string-match "^date:[ \t]\\([^\n]+\\)\n" head) + (setq time (match-string 1 head)) + (setq time (w3m-time-parse-string time)) + (string-match "^cache-control:\\(?:[^\n]+\\)?[ \t,]max-age=\\([1-9][0-9]*\\)" + head) + (setq expire (string-to-number (match-string 1 head)))) + (setq time (decode-time time)) + (setcar time (+ (car time) expire)) + ;; Work around too large integer. + (when (floatp (car time)) + (setcar time (eval '(lsh -1 -1)))) + (setq expire (apply 'encode-time time)) + (w3m-time-newer-p expire (current-time))) + ((and + (string-match "^expires:[ \t]+\\([^\n]+\\)\n" head) + (setq expire (match-string 1 head)) + (setq expire (w3m-time-parse-string expire))) + (w3m-time-newer-p expire (current-time))) + (t + ;; Adhoc heuristic rule: pages with neither + ;; Last-Modified header and ETag header are treated as + ;; dynamically-generated pages. + (string-match "^\\(?:last-modified\\|etag\\):" head)))))) + ident)))) + +(defun w3m-read-file-name (&optional prompt dir default existing) + (when default + (setq default (file-name-nondirectory (w3m-url-strip-query default)))) + (unless prompt + (setq prompt (if (and default (not (string-equal default ""))) + (format "Save to (%s): " default) + "Save to: "))) + (setq dir (file-name-as-directory (or dir w3m-default-save-directory))) + (let ((default-directory dir) + (file (read-file-name prompt dir nil existing default))) + (if (not (file-directory-p file)) + (setq w3m-default-save-directory + (or (file-name-directory file) w3m-default-save-directory)) + (setq w3m-default-save-directory file) + (if default + (setq file (expand-file-name default file)))) + (expand-file-name file))) + +;;; Handling character sets: +(defun w3m-charset-to-coding-system (charset) + "Return a coding system which is most suitable to CHARSET. +CHARSET is a symbol whose name is MIME charset. +This function is imported from mcharset.el." + (if (stringp charset) + (setq charset (intern (downcase charset)))) + (let ((cs (assq charset w3m-charset-coding-system-alist))) + (w3m-find-coding-system (if cs (cdr cs) charset)))) + +(defun w3m-coding-system-to-charset (coding-system) + "Return the MIME charset corresponding to CODING-SYSTEM." + (when coding-system + (w3m-static-if (featurep 'xemacs) + (when (or (fboundp 'coding-system-to-mime-charset) + (progn + (require 'mcharset) + (fboundp 'coding-system-to-mime-charset))) + (defalias 'w3m-coding-system-to-charset + 'coding-system-to-mime-charset) + (w3m-coding-system-to-charset coding-system)) + (or (coding-system-get coding-system :mime-charset) + (coding-system-get coding-system 'mime-charset))))) + +;; FIXME: we need to investigate the kind of Content-Charsets being +;; actually possible. +(defun w3m-read-content-charset (prompt &optional default) + "Read a content charset from the minibuffer, prompting with string PROMPT. +The second argument DEFAULT is the default value, which is used as the +value to return if the user enters the empty string." + (let ((charset (completing-read + prompt + (nconc + (mapcar (lambda (c) (cons (symbol-name c) c)) + (coding-system-list)) + (mapcar (lambda (c) (cons (symbol-name (car c)) c)) + w3m-charset-coding-system-alist)) + nil t))) + (if (string= "" charset) + default + charset))) + + +;;; Handling encoding of contents: +(defun w3m-decode-encoded-contents (encoding) + "Decode encoded contents in the current buffer. +It supports the encoding types of gzip, bzip2, deflate, etc." + (let ((x (and (stringp encoding) + (assoc (downcase encoding) w3m-encoding-alist)))) + (or (not (and x (setq x (cdr (assq (cdr x) w3m-decoder-alist))))) + (let ((coding-system-for-write 'binary) + (coding-system-for-read 'binary) + (default-process-coding-system (cons 'binary 'binary))) + (w3m-process-with-environment w3m-command-environment + (zerop (apply 'call-process-region + (point-min) (point-max) + (w3m-which-command (car x)) + t '(t nil) nil (cadr x)))))))) + +(defmacro w3m-correct-charset (charset) + `(or (and ,charset (stringp ,charset) + (cdr (assoc (downcase ,charset) w3m-correct-charset-alist))) + ,charset)) + +(defun w3m-detect-meta-charset () + (let ((case-fold-search t)) + (goto-char (point-min)) + (catch 'found + (while (re-search-forward "<meta[ \t\r\f\n]+" nil t) + (w3m-parse-attributes ((http-equiv :case-ignore) + (content :case-ignore)) + (when (and (string= http-equiv "content-type") + content + (string-match ";[ \t\n]*charset=\\([^\";]+\\)" content)) + (throw 'found (match-string 1 content)))))))) + +(defun w3m-detect-xml-charset () + (let ((case-fold-search t)) + (goto-char (point-min)) + (when (looking-at "[ \t\r\f\n]*<\\?xml[ \t\r\f\n]+") + (goto-char (match-end 0)) + (or (w3m-parse-attributes ((encoding :case-ignore)) + encoding) + "utf-8")))) + +(defvar w3m-compatible-encoding-alist + '((gb2312 . gbk) + (iso-8859-1 . windows-1252) + (iso-8859-8 . windows-1255) + (iso-8859-9 . windows-1254)) + "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 +for decoding when the cdr that the data specify is not available.") + +(defvar w3m-view-source-decode-level 0 + "Say whether `w3m-view-source' decodes html sources. +Users should never modify the value. See also `w3m-view-source'.") + +(defun w3m-decode-buffer (url &optional content-charset content-type) + (let* ((sourcep (string-match "\\`about://source/" url)) + (level (if sourcep w3m-view-source-decode-level 0)) + cs) + (unless (>= level 4) + (unless content-type + (setq content-type (w3m-content-type url))) + (unless content-charset + (setq content-charset + (or (w3m-content-charset url) + (when (or (string= "text/html" content-type) sourcep) + (w3m-detect-meta-charset)) + (w3m-detect-xml-charset)))) + (cond + ((or (and (stringp content-charset) + (string= "x-moe-internal" (downcase content-charset))) + (eq content-charset 'x-moe-internal)) + (setq cs (w3m-x-moe-decode-buffer)) + (setq content-charset (symbol-name cs))) + (content-charset + (setq content-charset (w3m-correct-charset content-charset)) + (setq cs (w3m-charset-to-coding-system content-charset)))) + (setq w3m-current-content-charset content-charset) + (unless cs + (setq cs (w3m-detect-coding-region + (point-min) (point-max) (if (w3m-url-local-p url) + nil + w3m-coding-system-priority-list)))) + (setq w3m-current-coding-system + (or (w3m-find-coding-system + (cdr (assq cs w3m-compatible-encoding-alist))) + (w3m-find-coding-system cs) + (w3m-find-coding-system + (car (rassq cs w3m-compatible-encoding-alist))))) + ;; Decode `&#nnn;' entities in 128..159 and 160. + (when (and (<= level 1) + (rassq w3m-current-coding-system + w3m-compatible-encoding-alist)) + (goto-char (point-min)) + (let ((case-fold-search t)) + (while (re-search-forward "\ +\\(?:&#\\(12[89]\\|1[3-5][0-9]\\)\;\\)\\|\\(?:&#x\\([89][0-9a-f]\\)\;\\)" + nil t) + (insert (prog1 + (if (match-beginning 1) + (string-to-number (match-string 1)) + (string-to-number (match-string 2) 16)) + (delete-region (match-beginning 0) (match-end 0))))) + (goto-char (point-min)) + (while (re-search-forward "\240\\| \\| " nil t) + (replace-match " ")))) + (insert + (prog1 + (decode-coding-string (buffer-string) w3m-current-coding-system) + (erase-buffer) + (set-buffer-multibyte t)))))) + +(defun w3m-x-moe-decode-buffer () + (let ((args '("-i" "-cs" "x-moe-internal")) + (coding-system-for-read 'binary) + (coding-system-for-write 'binary) + (default-process-coding-system (cons 'binary 'binary)) + charset) + (if (w3m-find-coding-system 'utf-8) + (setq args (append args '("-o" "-cs" "utf-8")) + charset 'utf-8) + (setq args + (append args (list "-o" "-cs" (symbol-name w3m-coding-system)))) + (setq charset w3m-coding-system)) + (w3m-process-with-environment w3m-command-environment + (apply 'call-process-region (point-min) (point-max) + w3m-mbconv-command t t nil args)) + charset)) + +(defun w3m-safe-decode-buffer (url &optional content-charset content-type) + (and (not w3m-current-coding-system) + (stringp content-type) + (string-match "\\`text/" content-type) + (w3m-decode-buffer url content-charset content-type))) + +;;; Retrieving local data: +(defun w3m-local-file-type (url) + "Return the content type and the content encoding of URL." + (setq url (or (w3m-url-to-file-name url) + (file-name-nondirectory url))) + (if (or (and (file-name-absolute-p url) + (file-directory-p url)) + (string-match "\\`news:" url)) ;; FIXME: isn't this a kludge? + (cons "text/html" nil) + (let ((encoding + (catch 'encoding-detected + (dolist (elem w3m-encoding-type-alist) + (when (string-match (car elem) url) + (setq url (substring url 0 (match-beginning 0))) + (throw 'encoding-detected (cdr elem))))))) + (cons (catch 'type-detected + (dolist (elem w3m-content-type-alist) + (when (and (cadr elem) (string-match (cadr elem) url)) + (throw 'type-detected (car elem)))) + "unknown") + encoding)))) + +(defmacro w3m-local-content-type (url) + `(car (w3m-local-file-type ,url))) + +(defun w3m-local-attributes (url &rest args) + "Return a list of attributes corresponding to URL. +Return nil if it failed in retrieving of the header. +Otherwise, return a list which includes the following elements: + + 0. Type of contents. + 1. Charset of contents. + 2. Size in bytes. + 3. Encoding of contents. + 4. Last modification time. + 5. Real URL. +" + (let* ((file (w3m-url-to-file-name url)) + (attr (when (file-exists-p file) + (file-attributes file))) + (type (w3m-local-file-type url))) + (list (or (w3m-arrived-content-type url) (car type)) + nil + (nth 7 attr) + (cdr type) + (nth 5 attr) + (w3m-expand-file-name-as-url (file-truename file))))) + +(defun w3m-local-retrieve (url &optional no-uncompress &rest args) + "Retrieve contents of local URL and put it into the current buffer. +This function will return the content-type of URL as a string when +retrieval is successful." + (let ((file (w3m-url-to-file-name url))) + (when (file-readable-p file) + (if (file-directory-p file) + (w3m-local-dirlist-cgi url) + (let ((coding-system-for-read 'binary)) + (if no-uncompress + (let (jka-compr-compression-info-list + format-alist) + (insert-file-contents file)) + (insert-file-contents file)))) + (or (w3m-arrived-content-type url) + (w3m-local-content-type file))))) + +(defun w3m-local-dirlist-cgi (url) + (w3m-message "Reading %s..." (w3m-url-readable-string url)) + (if w3m-dirlist-cgi-program + (if (file-executable-p w3m-dirlist-cgi-program) + (let ((coding-system-for-read 'binary) + (default-process-coding-system + (cons 'binary 'binary)) + (lcookie (make-temp-name + (format "%s.%d." (user-login-name) (emacs-pid)))) + (cfile (make-temp-name + (expand-file-name "w3melck" w3m-profile-directory))) + (env (copy-sequence w3m-command-environment)) + file) + (with-temp-buffer + (insert lcookie) + (write-region (point-min) (point-max) cfile 'nomsg)) + (w3m-process-with-environment + (append + (list + (cons "LOCAL_COOKIE" lcookie) + (cons "LOCAL_COOKIE_FILE" cfile) + (cons "QUERY_STRING" + (format + "dir=%s&cookie=%s" + (encode-coding-string (w3m-url-to-file-name url) + w3m-file-name-coding-system) + lcookie))) + (delq (assoc "LOCAL_COOKIE" env) + (delq (assoc "LOCAL_COOKIE_FILE" env) + (delq (assoc "QUERY_STRING" env) env)))) + (call-process w3m-dirlist-cgi-program nil t nil)) + ;; delete local cookie file + (when (and (file-exists-p cfile) (file-writable-p cfile)) + (delete-file cfile)) + (goto-char (point-min)) + (when (re-search-forward "^<html>" nil t) + (delete-region (point-min) (match-beginning 0)) + (while (re-search-forward "<a href=\"\\([^\"]+\\)\"\\(?:>\\| \\)" + nil t) + (setq file (match-string 1)) + (delete-region (goto-char (match-beginning 1)) (match-end 1)) + (if (file-directory-p file) + (setq file (w3m-expand-file-name-as-url + (file-name-as-directory file))) + (setq file (w3m-expand-file-name-as-url file))) + (insert (encode-coding-string + (w3m-url-decode-string file + w3m-file-name-coding-system) + w3m-file-name-coding-system))))) + (error "Can't execute: %s" w3m-dirlist-cgi-program)) + ;; execute w3m internal CGI + (w3m-process-with-wait-handler + (setq w3m-current-url url) + (w3m-process-start handler + w3m-command + (append w3m-command-arguments + (list "-dump_source" url))))) + ;; bind charset to w3m-file-name-coding-system + (let ((charset (or (car (rassq w3m-file-name-coding-system + w3m-charset-coding-system-alist)) + w3m-file-name-coding-system)) + beg) + (goto-char (point-min)) + (when (search-forward "<head>" nil t) + (insert "\n<meta http-equiv=\"CONTENT-TYPE\" " + "content=\"text/html; charset=" + (symbol-name charset) + "\">")) + (goto-char (point-min)) + ;; Remove <form>...</form> + (when (search-forward "<form " nil t) + (setq beg (match-beginning 0)) + (when (search-forward "</form>" nil t) + (delete-region beg (match-end 0))))) + (w3m-message "Reading %s...done" (w3m-url-readable-string url))) + +;;; Retrieving data via HTTP: +(defun w3m-remove-redundant-spaces (str) + "Remove leading and trailing whitespace from STR." + (save-match-data + (when (string-match "\\`[ \t\r\f\n]+" str) + (setq str (substring str (match-end 0)))) + (if (string-match "[ \t\r\f\n]+\\'" str) + (substring str 0 (match-beginning 0)) + str))) + +(defun w3m-w3m-parse-header (url header) + "Parse a given string HEADER as a MIME header of URL. +Return a list which includes: + + 0. Status code. + 1. Type of contents. + 2. Charset of contents. + 3. Size in bytes. + 4. Encoding of contents. + 5. Last modification time. + 6. Real URL. +" + (let ((case-fold-search t) + (headers) + (status)) + (dolist (line (split-string header "[ \f\t\r]*\n")) + (cond + ((string-match "\\`HTTP/1\\.[0-9] \\([0-9][0-9][0-9]\\)\\b" line) + (setq status (string-to-number (match-string 1 line)))) + ((string-match (eval-when-compile + (concat "\\`\\(" + (regexp-opt + '(;; MEMO: $B%U%!%$%k$r%@%&%s%m!<%I$9$k(B + ;; $B$H$-$N(B $BE,@Z$J%G%U%)%k%HL>$r7hDj(B + ;; $B$9$k$?$a$K$O(B content-disposition + ;; $B$N2r<a$,I,MW!%(B + "content-disposition" + "content-encoding" + "content-length" + ;; MEMO: See [emacs-w3m:02341]. + "content-transfer-encoding" + "content-type" + "last-modified" + "location" + "w3m-current-url" + "w3m-document-charset" + "w3m-ssl-certificate" + "x-w3m-content-encoding" + "alternates")) + "\\):[ \t]*")) + line) + (push (cons (downcase (match-string 1 line)) + (substring line (match-end 0))) + headers)))) + (let (alt real-url type charset xmoe) + (when (and (setq alt (cdr (assoc "alternates" headers))) + (string-match "\\`{[\t ]*\"\\(.+\\)\"" alt)) + (setq real-url (w3m-expand-url (match-string 1 alt) url)) + (when (string-match "{[\t ]*type[\t ]+\\([^\t }]+\\)" alt) + (setq type (downcase (match-string 1 alt)))) + (when (string-match "{[\t ]*charset[\t ]+\\([^\t }]+\\)" alt) + (setq charset (downcase (match-string 1 alt))))) + (when (and (not type) + (setq type (cdr (assoc "content-type" headers)))) + (if (string-match ";[ \t]*charset=\"?\\([^\"]+\\)\"?" type) + (setq charset (w3m-remove-redundant-spaces + (match-string 1 type)) + type (w3m-remove-redundant-spaces + (substring type 0 (match-beginning 0)))) + (setq type (w3m-remove-redundant-spaces type))) + (when (string-match ";" type) + (setq type (substring type 0 (match-beginning 0)))) + (setq type (downcase type))) + (setq w3m-current-ssl (cdr (assoc "w3m-ssl-certificate" headers))) + (when (string-match "\\`ftps?:" url) + (setq url (or (cdr (assoc "w3m-current-url" headers)) + url))) + (when (and (setq xmoe (cdr (assoc "w3m-document-charset" headers))) + (string= xmoe "x-moe-internal")) + (setq charset xmoe)) + (list status + (if (string-match "\\`ftps?:.*/\\'" url) + "text/html" + (or type (w3m-local-content-type url))) + (if (string-match "\\`ftps?:.*/\\'" url) + (if w3m-accept-japanese-characters + "w3m-euc-japan" "w3m-iso-latin-1") + charset) + (let ((v (cdr (assoc "content-length" headers)))) + (and v (setq v (string-to-number v)) (> v 0) v)) + (cdr (or (assoc "content-encoding" headers) + (assoc "x-w3m-content-encoding" headers))) + (let ((v (cdr (assoc "last-modified" headers)))) + (and v (w3m-time-parse-string v))) + (or real-url + (let ((v (cdr (assoc "location" headers)))) + ;; RFC2616 says that the field value of the Location + ;; response-header consists of a single absolute + ;; URI. However, some broken servers return + ;; relative URIs. + (and v (w3m-expand-url v url))) + url))))) + +(defun w3m-w3m-dump-head (url handler) + "Return the header string of URL." + (lexical-let ((url url) + (silent w3m-message-silent)) + (w3m-message "Request sent, waiting for response...") + (w3m-process-do-with-temp-buffer + (success (progn + (setq w3m-current-url url + url (w3m-url-strip-authinfo url)) + (w3m-process-start handler + w3m-command + (append w3m-command-arguments + (list "-o" "follow_redirection=0" + "-dump_head" url))))) + (let ((w3m-message-silent silent)) + (w3m-message "Request sent, waiting for response...done") + (when success + (buffer-string)))))) + +(defun w3m-w3m-canonicalize-url (url) + "Add a slash to an URL, when its server part is not ended with a slash." + ;; Because URLs encountered in WEB documents are no less reliable + ;; than URLs given by users, a minimum canonicalization may be + ;; required in the backend side. For more detail, please see + ;; [emacs-w3m:07000]. + (if (string-match "\\`\\(?:ht\\|f\\)tps?://[^/]+\\'" url) + (concat url "/") + url)) + +(defun w3m-w3m-attributes (url no-cache handler) + "Return a list of attributes corresponding to URL. +Return nil if it failed in retrieving of the header. +Otherwise, return a list which includes the following elements: + + 0. Type of contents. + 1. Charset of contents. + 2. Size in bytes. + 3. Encoding of contents. + 4. Last modification time. + 5. Real URL. + +If the optional argument NO-CACHE is non-nil, cache is not used." + (w3m-w3m-attributes-1 (w3m-w3m-canonicalize-url url) + no-cache + (or w3m-follow-redirection 0) + handler)) + +(defun w3m-w3m-attributes-1 (url no-cache counter handler) + "A subroutine for `w3m-w3m-attributes'." + (lexical-let ((url url) + (no-cache no-cache) + (counter counter)) + (w3m-process-do + (header (or (unless no-cache + (w3m-cache-request-header url)) + (w3m-w3m-dump-head url handler))) + (when header + (let ((attr (w3m-w3m-parse-header url header))) + (w3m-cache-header url header) + (if (memq (car attr) '(301 302 303 304 305 306 307)) + (if (zerop counter) + ;; Redirect counter exceeds `w3m-follow-redirection'. + (list "text/html" "us-ascii" nil nil nil url) + ;; Follow redirection. + (w3m-w3m-attributes-1 (nth 6 attr) no-cache + (1- counter) handler)) + (cdr attr))))))) + +(defun w3m-w3m-expand-arguments (arguments) + (apply 'append + (mapcar + (lambda (x) + (cond + ((stringp x) (list x)) + ((setq x (eval x)) + (cond ((stringp x) + (list x)) + ((listp x) + (w3m-w3m-expand-arguments x)) + (t + (let (print-level print-length) + (list (prin1-to-string x)))))))) + arguments))) + +(defun w3m-w3m-dump-extra (url handler) + "Retrive headers and contents pointed to by URL" + (lexical-let ((url url) + (silent w3m-message-silent)) + (setq w3m-current-url url + url (w3m-url-strip-authinfo url)) + (w3m-message "Reading %s...%s" + (w3m-url-readable-string url) + (if (and w3m-async-exec (not w3m-process-waited)) + (substitute-command-keys "\ + (Type `\\<w3m-mode-map>\\[w3m-process-stop]' to stop asynchronous process)") + "")) + (w3m-process-do + (success + (w3m-process-start handler + w3m-command + (append w3m-command-arguments + (w3m-w3m-expand-arguments + w3m-dump-head-source-command-arguments) + (list url)))) + (let ((w3m-message-silent silent)) + (w3m-message "Reading %s...done" (w3m-url-readable-string url)) + (when success + (goto-char (point-min)) + (let ((case-fold-search t)) + (when (and (re-search-forward "^w3m-current-url:" nil t) + (progn + (delete-region (point-min) (match-beginning 0)) + (search-forward "\n\n" nil t))) + (let ((header (buffer-substring (point-min) (point)))) + (when w3m-use-cookies + (w3m-cookie-set url (point-min) (point))) + (delete-region (point-min) (point)) + (w3m-cache-header url header) + (w3m-cache-contents url (current-buffer)) + (w3m-w3m-parse-header url header))))))))) + +(defun w3m-additional-command-arguments (url) + "Return a list of additional arguments passed to the w3m command. +You may specify additional arguments for the particular urls using the +option `w3m-command-arguments-alist', or using `w3m-no-proxy-domains' +to add the option \"-no-proxy\"." + (let ((defs w3m-command-arguments-alist) + def args host) + (while (and defs + (null args)) + (setq def (car defs) + defs (cdr defs)) + (when (string-match (car def) url) + (setq args (cdr def)))) + (when (and w3m-no-proxy-domains + (not (member "-no-proxy" args)) + (string-match "^[a-z]+://\\([^/:]+\\)" url) + (catch 'domain-match + (setq host (match-string 1 url)) + (dolist (domain w3m-no-proxy-domains) + (when (string-match (concat "\\(?:^\\|\\.\\)" + (regexp-quote domain) + "$") + host) + (throw 'domain-match t))))) + (push "-no-proxy" args)) + args)) + +(defun w3m-add-referer-p (url referer) + "Return non-nil when URL and REFERER satisfies the condition +specified by `w3m-add-referer'." + (when (stringp referer) + (cond + ((eq w3m-add-referer 'lambda) + (let (host) + (w3m-string-match-url-components url) + (when (match-beginning 4) + (setq host (match-string 4 url)) + (w3m-string-match-url-components referer) + (when (match-beginning 4) + (string= host (match-string 4 referer)))))) + ((consp w3m-add-referer) + (and (not (and (cdr w3m-add-referer) + (string-match (cdr w3m-add-referer) referer))) + (car w3m-add-referer) + (string-match (car w3m-add-referer) referer))) + ((functionp w3m-add-referer) + (funcall w3m-add-referer url referer)) + (t w3m-add-referer)))) + +;; Currently, -request argument is supported only by w3mmee. +(defun w3m-request-arguments (method url temp-file + &optional body referer content-type) + "Make the arguments for `-request' or `-header' option passed to w3m. +METHOD is an HTTP method name. +TEMP-FILE is a name of temporal file to write request content to. +Optional BODY is the body content string. +Second optional REFERER is the Referer: field content. +Third optional CONTENT-TYPE is the Content-Type: field content." + (with-temp-buffer + (let ((modes (default-file-modes)) + (cookie (and w3m-use-cookies (w3m-cookie-get url)))) + (if (and (null cookie)(null body) + (null content-type)) + (append + (when w3m-add-user-agent + (list "-header" (concat "User-Agent:" w3m-user-agent))) + (when (w3m-add-referer-p url referer) + (list "-header" (concat "Referer: " referer))) + (when w3m-accept-languages + (list "-header" (concat + "Accept-Language: " + (mapconcat 'identity w3m-accept-languages + " "))))) + (when w3m-add-user-agent (insert "User-Agent: " w3m-user-agent "\n")) + (when (w3m-add-referer-p url referer) + (insert "Referer: " referer "\n")) + (when w3m-accept-languages + (insert "Accept-Language: " + (mapconcat 'identity w3m-accept-languages " ") "\n")) + (when cookie + (insert "Cookie: " cookie "\n")) + (when content-type + (insert "Content-Type: " content-type "\n")) + (insert "\n") + (when body + (insert body)) + (unwind-protect + (let ((coding-system-for-write 'binary)) + (set-default-file-modes (* 64 6)) + (write-region (point-min) (point-max) temp-file nil 'silent)) + (set-default-file-modes modes)) + (list "-request" (concat method ":" temp-file)))))) + +;; Currently, w3m uses this function. +(defun w3m-header-arguments (method url temp-file + &optional body referer content-type) + "Make the arguments for the `-header' option passed to the w3m command. +METHOD is an HTTP method name. +TEMP-FILE is a name of temporal file to write post body to. +Optional BODY is the post body content string. +Optional second REFERER is the Referer: field content. +Third optional CONTENT-TYPE is the Content-Type: field content." + (let ((modes (default-file-modes)) + (cookie (and w3m-use-cookies (w3m-cookie-get url))) + args) + (when w3m-add-user-agent + (setq args (nconc args + (list "-o" (concat "user_agent=" w3m-user-agent))))) + (when cookie + (setq args (nconc args + (list "-header" (concat "Cookie: " cookie))))) + (when (and (string= method "post") temp-file) + (with-temp-buffer + (set-buffer-multibyte nil) + (when body (insert body)) + (unwind-protect + (let ((coding-system-for-write 'binary)) + (set-default-file-modes (* 64 6)) + (write-region (point-min) (point-max) temp-file nil 'silent)) + (set-default-file-modes modes))) + (setq args (nconc args + (when content-type + (list "-header" (concat "Content-Type: " + content-type))) + (list "-post" temp-file)))) + (when (w3m-add-referer-p url referer) + (setq args (nconc args (list "-header" (concat "Referer: " referer))))) + args)) + +(defun w3m-w3m-retrieve (url no-uncompress no-cache post-data referer handler) + "Retrieve web contents pointed to by URL using the external w3m command. +It will put the retrieved contents into the current buffer. See +`w3m-retrieve' for how does it work asynchronously with the arguments." + (lexical-let ((url (w3m-w3m-canonicalize-url url)) + (no-uncompress no-uncompress) + (current-buffer (current-buffer)) + (silent w3m-message-silent)) + (w3m-process-do-with-temp-buffer + (attr (progn + (set-buffer-multibyte nil) + (w3m-w3m-retrieve-1 url post-data referer no-cache + (or w3m-follow-redirection 0) handler))) + (let ((w3m-message-silent silent)) + (when attr + (cond + ((eq attr 'redirection-exceeded) + "X-w3m-error/redirection") + ((or (not (string-match "\\`https?:" url)) + (memq (car attr) '(200 300))) + (if (or no-uncompress + (w3m-decode-encoded-contents (nth 4 attr))) + (let ((temp-buffer (current-buffer))) + (with-current-buffer current-buffer + (insert-buffer-substring temp-buffer)) + (goto-char (point-min)) + (cadr attr)) + (ding) + (w3m-message "Can't decode encoded contents: %s" url) + nil)) + (t nil))))))) + +(defun w3m-w3m-retrieve-1 (url post-data referer no-cache counter handler) + "A subroutine for `w3m-w3m-retrieve'." + (let ((w3m-command-arguments + (append w3m-command-arguments + (when (member "cookie" w3m-compile-options) + (list "-no-cookie")) + (list "-o" "follow_redirection=0") + (w3m-additional-command-arguments url))) + (cachep (w3m-cache-available-p url)) + temp-file) + (when (and w3m-broken-proxy-cache + (or no-cache (not cachep))) + (setq w3m-command-arguments + (append w3m-command-arguments '("-o" "no_cache=1")))) + (setq temp-file + (when (or (eq w3m-type 'w3mmee) post-data) + (make-temp-name + (expand-file-name "w3mel" w3m-profile-directory)))) + (setq w3m-command-arguments + (append w3m-command-arguments + (apply (if (eq w3m-type 'w3mmee) + 'w3m-request-arguments + 'w3m-header-arguments) + (list (if post-data "post" "get") + url + temp-file + (if (consp post-data) + (cdr post-data) + post-data) + referer + (if (consp post-data) (car post-data)))))) + (lexical-let ((url url) + (post-data post-data) + (referer referer) + (no-cache no-cache) + (counter counter) + (temp-file temp-file)) + (w3m-process-do + (attr (or (unless no-cache + (and cachep + (w3m-cache-request-contents url) + (w3m-w3m-parse-header + url (w3m-cache-request-header url)))) + (w3m-w3m-dump-extra url handler))) + (and temp-file + (file-exists-p temp-file) + (delete-file temp-file)) + (if (memq (car attr) '(301 302 303 304 305 306 307)) + (if (zerop counter) + ;; Redirect counter exceeds `w3m-follow-redirection'. + 'redirection-exceeded + ;; Follow redirection. + (erase-buffer) + (unless (and post-data + (cond + ((memq (car attr) '(301 302)) + (if w3m-redirect-with-get + (setq post-data nil) + (not (y-or-n-p + (format "Send POST data to `%s'?" url))))) + ((eq (car attr) 303) ; => See Other + (setq post-data nil)) + ((eq (car attr) 307) ; => Temporally Redirect + (not (y-or-n-p + (format "Send POST data to `%s'?" url)))))) + (w3m-w3m-retrieve-1 (nth 6 attr) + post-data referer no-cache + (1- counter) handler))) + (if (and (eq (car attr) 406) + (not (equal url (nth 6 attr)))) + ;; Attempt to retrieve an alternative url. + (progn + (erase-buffer) + (w3m-w3m-retrieve-1 (nth 6 attr) post-data referer no-cache + counter handler)) + attr)))))) + +(defun w3m-about-retrieve (url &optional no-uncompress no-cache + post-data referer handler) + "Retrieve the about: page which is pointed to by URL. +It will put the retrieved contents into the current buffer. See +`w3m-retrieve' for how does it work asynchronously with the arguments." + (cond + ((string= "about://emacs-w3m.gif" url) + (let ((icon (base64-decode-string w3m-emacs-w3m-icon))) + (if (featurep 'xemacs) + (insert icon) + (set-buffer-multibyte (multibyte-string-p icon)) + (insert icon) + (set-buffer-multibyte nil))) + "image/gif") + ((string-match "\\`about://source/" url) + (lexical-let ((url (substring url (match-end 0)))) + (w3m-process-do + (type (w3m-retrieve url + no-uncompress no-cache post-data referer handler)) + (cond + (type "text/plain") + ((w3m-cache-request-contents url) + (w3m-decode-encoded-contents (w3m-content-encoding url)) + "text/plain") + (t nil))))) + ((string-match "\\`about:/*blank/?\\'" url) + "text/plain") + (t + (lexical-let ((output-buffer (current-buffer))) + (w3m-process-do-with-temp-buffer + (type (let (func) + (setq w3m-current-url url) + (set-buffer-multibyte t) + (if (and (string-match "\\`about://\\([^/]+\\)/" url) + (setq func + (intern-soft (concat "w3m-about-" + (match-string 1 url)))) + (fboundp func)) + (funcall func url no-uncompress no-cache + post-data referer handler) + (w3m-about url no-uncompress no-cache)))) + (when type + (when (string-match "\\`text/" type) + (encode-coding-region (point-min) (point-max) w3m-coding-system)) + (set-buffer-multibyte nil) + (when (buffer-name output-buffer) + (let ((temp-buffer (current-buffer))) + (with-current-buffer output-buffer + (insert-buffer-substring temp-buffer)))) + type)))))) + +(defun w3m-cid-retrieve (url &optional no-uncompress no-cache) + "Retrieve contents pointed to by URL prefixed with the cid: scheme. +This function is mainly used when displaying text/html MIME parts in +message user agents, e.g., Gnus, Mew, T-gnus, Wanderlust, and possibly +VM. + +It calls a function according to the `major-mode' of the buffer +specified by `w3m-current-buffer'. Functions to be called are +specified by the `w3m-cid-retrieve-function-alist' variable. + +Each function in that variable should take three arguments passed +through this function, extract and insert contents specified by URL +\(which can be found in the raw message itself) into the current buffer, +and return the content type of the data. + +The optional two arguments can be omitted by functions; NO-UNCOMPRESS +specifies whether functions should not uncompress extracted contents; +NO-CACHE specifies whether functions should not use cached contents." + (let ((func (cdr (assq (with-current-buffer w3m-current-buffer major-mode) + w3m-cid-retrieve-function-alist)))) + (when func (funcall func url no-uncompress no-cache)))) + +(defun w3m-data-retrieve (url &optional no-uncompress no-cache) + "Retrieve contents pointed to by URL prefixed with the data: scheme. +See RFC2397." + (let ((case-fold-search t) (mime-type "text/plain") + (coding nil) (encode nil) (param "") + data-string) + (when (string-match + "data:\\(\\([^/;,]+\\(/[^;,]+\\)?\\)\\(;[^;,]+\\)*\\)?,\\(.*\\)" + url) + (setq mime-type (or (match-string-no-properties 2 url) + mime-type) + param (or (match-string-no-properties 4 url) + param) + data-string (match-string-no-properties 5 url)) + (when (string-match "^.*\\(;[ \t]*base64\\)$" param) + (setq param (substring param 0 (match-beginning 1))) + (setq encode 'base64)) + (when (string-match "charset=\\([^;]+\\)" param) + (setq coding (w3m-charset-to-coding-system + (match-string-no-properties 1 param)))) + (when data-string + (erase-buffer) + (let (decode-string) + (setq decode-string + (cond + ((eq encode 'base64) + (base64-decode-string data-string)) + (t + (w3m-url-decode-string + data-string coding)))) + (set-buffer-multibyte nil) + (if (featurep 'xemacs) + (insert decode-string) + (set-buffer-multibyte (multibyte-string-p decode-string)) + (insert decode-string) + (set-buffer-multibyte nil))))) + mime-type)) + +;;;###autoload +(defun w3m-retrieve (url &optional no-uncompress no-cache + post-data referer handler) + "Retrieve web contents pointed to by URL. +It will put the retrieved contents into the current buffer. + +If HANDLER is nil, this function will retrieve web contents, return +the content type of the retrieved data, and then come to an end. This +behavior is what is called a synchronous operation. You have to +specify HANDLER in order to make this function show its real ability, +which is called an asynchronous operation. + +If HANDLER is a function, this function will come to an end in no time. +In this case, contents will be retrieved by the asynchronous process +after a while. And after finishing retrieving contents successfully, +HANDLER will be called on the buffer where this function starts. The +content type of the retrieved data will be passed to HANDLER as a +string argument. + +NO-UNCOMPRESS specifies whether this function should not uncompress contents. +NO-CACHE specifies whether this function should not use cached contents. +POST-DATA and REFERER will be sent to the web server with a request." + (if (not handler) + (condition-case nil + (w3m-process-with-wait-handler + (w3m-retrieve url + no-uncompress no-cache post-data referer handler)) + (w3m-process-timeout nil)) + (unless (and w3m-safe-url-regexp + (not (string-match w3m-safe-url-regexp url))) + (setq url (w3m-url-strip-fragment url)) + (set-buffer-multibyte nil) + (cond + ((string-match "\\`about:" url) + (w3m-about-retrieve url + no-uncompress no-cache post-data referer handler)) + ((string-match "\\`cid:" url) + (w3m-cid-retrieve url no-uncompress no-cache)) + ((string-match "\\`data:" url) + (w3m-data-retrieve url no-uncompress no-cache)) + ((w3m-url-local-p url) + (w3m-local-retrieve url no-uncompress)) + (t + (w3m-w3m-retrieve url + no-uncompress no-cache post-data referer handler)))))) + +(defvar w3m-touch-file-available-p 'undecided) + +(eval-and-compile + (if (fboundp 'set-file-times) + (defalias 'w3m-touch-file 'set-file-times) + (defun w3m-touch-file (file time) + "Change the access and/or modification TIME of the specified FILE." + ;; Check the validity of `touch' command. + (when (eq w3m-touch-file-available-p 'undecided) + (let ((file (make-temp-name + (expand-file-name "w3mel" w3m-profile-directory))) + time timefile) + (while (progn + (setq time (list (abs (% (random) 8192)) + (abs (% (random) 65536))) + timefile (expand-file-name + (format-time-string "%Y%m%d%H%M.%S" time) + w3m-profile-directory)) + (file-exists-p timefile))) + (unwind-protect + (setq w3m-touch-file-available-p + (when (w3m-which-command w3m-touch-command) + (with-temp-buffer + (insert "touch check") + (write-region (point-min) (point-max) file nil 'nomsg)) + (and (let ((default-directory w3m-profile-directory) + (w3m-touch-file-available-p t)) + (w3m-touch-file file time)) + (zerop (w3m-time-lapse-seconds + time (nth 5 (file-attributes file))))))) + (when (file-exists-p file) + (ignore-errors (delete-file file))) + (when (file-exists-p timefile) + (ignore-errors (delete-file timefile)))))) + (and w3m-touch-file-available-p + time + (w3m-which-command w3m-touch-command) + (file-exists-p file) + (zerop (let ((default-directory (file-name-directory file)) + (coding-system-for-write + (or + (and (boundp 'file-name-coding-system) + (symbol-value 'file-name-coding-system)) + (and (boundp 'default-file-name-coding-system) + (symbol-value 'default-file-name-coding-system)) + ;; Some versions of X*macsen seem touched. + (and (boundp 'coding-system-for-write) + (symbol-value 'coding-system-for-write))))) + (call-process w3m-touch-command nil nil nil + "-t" + (format-time-string "%Y%m%d%H%M.%S" time) + file))))))) + +;;;###autoload +(defun w3m-download (url &optional filename no-cache handler post-data) + "Download contents of URL to a file named FILENAME. +NO-CHACHE (which the prefix argument gives when called interactively) +specifies not using the cached data." + (interactive + (let* ((url (w3m-input-url "Download URL: ")) + (basename (file-name-nondirectory (w3m-url-strip-query url)))) + (if (string-match "^[\t ]*$" basename) + (list url + (w3m-read-file-name (format "Download %s to: " url) + w3m-default-save-directory "index.html") + current-prefix-arg) + (list url + (w3m-read-file-name (format "Download %s to: " basename) + w3m-default-save-directory basename) + current-prefix-arg)))) + (if (and w3m-use-ange-ftp (string-match "\\`ftp://" url)) + (w3m-goto-ftp-url url filename) + (lexical-let ((url url) + (filename (or filename (w3m-read-file-name nil nil url)))) + (w3m-process-do-with-temp-buffer + (type (progn + (w3m-clear-local-variables) + (setq w3m-current-url url) + (w3m-retrieve url t no-cache post-data nil handler))) + (if type + (let ((buffer-file-coding-system 'binary) + (coding-system-for-write 'binary) + jka-compr-compression-info-list + format-alist) + (when (or (not (file-exists-p filename)) + (prog1 (y-or-n-p + (format "File(%s) already exists. Overwrite? " + filename)) + (message nil))) + (write-region (point-min) (point-max) filename) + (w3m-touch-file filename (w3m-last-modified url)) + t)) + (ding) + (message "Cannot retrieve URL: %s%s" + url + (if w3m-process-exit-status + (format " (exit status: %s)" w3m-process-exit-status) + "")) + nil))))) + +;;; Retrieve data: +(w3m-make-ccl-coding-system + 'w3m-euc-japan ?E + "ISO 2022 based EUC encoding for Japanese with w3m internal characters. + (generated by `w3m')" + 'w3m-euc-japan-decoder + 'w3m-euc-japan-encoder) + +(w3m-make-ccl-coding-system + 'w3m-iso-latin-1 ?1 + "ISO 2022 based 8-bit encoding for Latin-1 with w3m internal characters. + (generated by `w3m')" + 'w3m-iso-latin-1-decoder + 'w3m-iso-latin-1-encoder) + +(defun w3m-remove-comments () + "Remove HTML comments in the current buffer." + (goto-char (point-min)) + (let (beg) + (while (search-forward "<!--" nil t) + (setq beg (match-beginning 0)) + (if (search-forward "-->" nil t) + (delete-region beg (point)))))) + +(defun w3m-remove-invisible-image-alt () + "Remove alt=\"whitespace\" attributes in img tags. +Such attributes not only obscure them but also might make images not +be displayed especially in shimbun articles." + (goto-char (point-min)) + (let ((case-fold-search t) + start end) + (while (and (re-search-forward "\\(<img\\)[\t\n\f\r ]+" nil t) + (progn + (setq start (match-end 1)) + (search-forward ">" nil t)) + (progn + (setq end (match-beginning 0)) + (goto-char start) + (re-search-forward "[\t\n\f\r ]+alt=\"[\t\n\f\r ]*\"" + end t))) + (delete-region (match-beginning 0) (match-end 0))))) + +(defun w3m-check-header-tags () + "Process header tags (<LINK>,<BASE>) in the current buffer." + (let ((case-fold-search t) + tag) + (goto-char (point-min)) + (when (re-search-forward "</head\\(?:[ \t\r\f\n][^>]*\\)?>" nil t) + (save-restriction + (narrow-to-region (point-min) (point)) + (goto-char (point-min)) + (while (re-search-forward "<\\(link\\|base\\)[ \t\r\f\n]+" nil t) + (setq tag (downcase (match-string 1))) + (cond + ((string= tag "link") + (w3m-parse-attributes ((rel :case-ignore) href type) + (when rel + (setq rel (split-string rel)) + (cond + ((member "icon" rel) (setq w3m-icon-data (cons href type))) + ((member "next" rel) (setq w3m-next-url href)) + ((or (member "prev" rel) (member "previous" rel)) + (setq w3m-previous-url href)) + ((member "start" rel) (setq w3m-start-url href)) + ((member "contents" rel) (setq w3m-contents-url href)))))) + ((string= tag "base") + (w3m-parse-attributes (href) + (when (< 0 (length href)) + (setq w3m-current-base-url href)))))))))) + +(defun w3m-check-refresh-attribute () + "Get REFRESH attribute in META tags." + (setq w3m-current-refresh nil) + (when w3m-use-refresh + (let ((case-fold-search t) + (refurl w3m-current-url) + sec) + (goto-char (point-min)) + (catch 'found + (while (re-search-forward "<meta[ \t\r\f\n]+" nil t) + (w3m-parse-attributes ((http-equiv :case-ignore) content) + (when (string= http-equiv "refresh") + (cond + ((string-match "\\`[0-9]+\\'" content) + (setq sec (match-string-no-properties 0 content))) + ((string-match + "\\([^;]+\\);[ \t\n]*url=[\"']?\\([^\"']+\\)" + content) + (setq sec (match-string-no-properties 1 content)) + (setq refurl (w3m-decode-entities-string + (match-string-no-properties 2 content))) + (when (string-match "\\`[\"']\\(.*\\)[\"']\\'" refurl) + (setq refurl (match-string 1 refurl))))) + (when (and sec (string-match "\\`[0-9]+\\'" sec)) + (when (and (eq w3m-use-refresh 'wait-minimum) + (< (string-to-number sec) w3m-refresh-minimum-interval)) + (setq sec (number-to-string w3m-refresh-minimum-interval))) + (throw 'found + (setq w3m-current-refresh + (cons (string-to-number sec) + (w3m-expand-url refurl)))))))))))) + +(defun w3m-remove-meta-charset-tags () + (let ((case-fold-search t)) + (goto-char (point-min)) + (catch 'found + (when (re-search-forward "<meta[ \t\r\f\n]+" nil t) + (let ((start (match-beginning 0))) + (w3m-parse-attributes ((http-equiv :case-ignore) + (content :case-ignore)) + (when (and (string= http-equiv "content-type") + content + (string-match ";[ \t\n]*charset=" content)) + (delete-region start (point)) + (throw 'found nil)))))))) + +(defun w3m-rendering-extract-title () + "Extract the title from the halfdump and put it into the current buffer." + (goto-char (point-min)) + (or (when (re-search-forward "<title_alt[ \t\n]+title=\"\\([^\"]+\\)\">" + nil t) + (prog1 (w3m-decode-entities-string + (mapconcat 'identity + (save-match-data (split-string (match-string 1))) + " ")) + (delete-region (match-beginning 0) (match-end 0)))) + (when (and (stringp w3m-current-url) + (string-match "/\\([^/]+\\)/?\\'" w3m-current-url)) + (match-string 1 w3m-current-url)) + "<no-title>")) + +(defun w3m-set-display-ins-del () + (when (eq w3m-display-ins-del 'auto) + (with-temp-buffer + (let* ((coding-system-for-read w3m-output-coding-system) + (coding-system-for-write (if (eq 'binary w3m-input-coding-system) + w3m-current-coding-system + w3m-input-coding-system)) + (default-process-coding-system + (cons coding-system-for-read coding-system-for-write)) + (env (copy-sequence w3m-command-environment)) + type) + (setq w3m-display-ins-del nil) + (w3m-process-with-environment (cons '("LANG" . "C") + (delq (assoc "LANG" env) env)) + (call-process (or w3m-halfdump-command w3m-command) nil t nil "-o") + (goto-char (point-min)) + (when (re-search-forward "display_ins_del=<\\([^>]+\\)>" nil t) + (setq type (match-string 1)) + (cond + ((string= type "number") + (setq w3m-display-ins-del 'fontify)) + ((string= type "bool") + (setq w3m-display-ins-del 'tag))))))))) + +(defun w3m-rendering-half-dump (charset) + ;; `charset' is used by `w3m-w3m-expand-arguments' to generate + ;; arguments for w3mmee and w3m-m17n from `w3m-halfdump-command-arguments'. + (w3m-set-display-ins-del) + (let* ((coding-system-for-read w3m-output-coding-system) + (coding-system-for-write (if (eq 'binary w3m-input-coding-system) + w3m-current-coding-system + w3m-input-coding-system)) + (default-process-coding-system + (cons coding-system-for-read coding-system-for-write))) + (w3m-process-with-environment w3m-command-environment + (apply 'call-process-region + (point-min) + (point-max) + (or w3m-halfdump-command w3m-command) + t t nil + (w3m-w3m-expand-arguments + (append w3m-halfdump-command-arguments + w3m-halfdump-command-common-arguments + ;; Image size conscious rendering + (when (member "image" w3m-compile-options) + (if (and w3m-treat-image-size + (or (w3m-display-graphic-p) + (and w3m-pixels-per-line + w3m-pixels-per-character))) + (list "-o" "display_image=on" + "-ppl" (number-to-string + (or w3m-pixels-per-line + (w3m-static-if + (featurep 'xemacs) + (font-height + (face-font 'default)) + (frame-char-height)))) + "-ppc" (number-to-string + (or w3m-pixels-per-character + (w3m-static-if + (featurep 'xemacs) + (font-width + (face-font 'default)) + (frame-char-width))))) + (list "-o" "display_image=off"))))))))) + +(defun w3m-rendering-buffer (&optional charset) + "Do rendering of contents in the currenr buffer as HTML and return title." + (w3m-message "Rendering...") + (w3m-remove-comments) + (w3m-remove-invisible-image-alt) + (w3m-check-header-tags) + (w3m-check-refresh-attribute) + (unless (eq w3m-type 'w3m-m17n) + (w3m-remove-meta-charset-tags)) + (w3m-rendering-half-dump charset) + (w3m-message "Rendering...done") + (w3m-rendering-extract-title)) + +(defcustom w3m-confirm-leaving-secure-page t + "If non-nil, you'll be asked for confirmation when leaving secure pages. +This option controls whether the confirmation is made also when +retrieving data (typically images) in a secure page from non-secure +pages. It is STRONGLY recommended to set non-nil value to this option. +You MUST understand what you want to do completely before +switching off this option." + :group 'w3m + :type 'boolean) + +(defun w3m-retrieve-and-render (url &optional no-cache charset + post-data referer handler) + "Retrieve contents of URL and render them in the current buffer. +It returns a `w3m-process' object and comes to an end immediately. +The HANDLER function will be called when rendering is complete. When +a new content is retrieved in the buffer, the HANDLER function will be +called with t as an argument. Otherwise, it will be called with nil." + (unless (and w3m-current-ssl + w3m-confirm-leaving-secure-page + ;; Permit leaving safe pages without confirmation for + ;; several safe commands. For more detail of + ;; definition of safe commands, see the thread + ;; beginning at [emacs-w3m:09767]. + (not + (or (memq this-command + '(w3m + w3m-goto-url w3m-redisplay-this-page + w3m-reload-this-page w3m-history + w3m-view-next-page w3m-view-previous-page + w3m-view-header w3m-view-source)) + (string-match "\\`\\(?:ht\\|f\\)tps://" url) + (prog1 + (y-or-n-p "You are leaving secure page. Continue? ") + (message nil))))) + (lexical-let ((url (w3m-url-strip-fragment url)) + (charset charset) + (page-buffer (current-buffer)) + (arrival-time (current-time)) + (silent w3m-message-silent)) + (w3m-process-do-with-temp-buffer + (type (progn + (w3m-clear-local-variables) + (w3m-retrieve url nil no-cache post-data referer handler))) + (let ((w3m-message-silent silent)) + (when (buffer-live-p page-buffer) + (setq url (w3m-url-strip-authinfo url)) + (if type + (if (string= type "X-w3m-error/redirection") + (when (w3m-show-redirection-error-information url page-buffer) + (w3m-message (w3m-message "Cannot retrieve URL: %s" + url))) + (let ((modified-time (w3m-last-modified url))) + (w3m-arrived-add url nil modified-time arrival-time) + (unless modified-time + (setf (w3m-arrived-last-modified url) nil)) + (let ((real (w3m-real-url url))) + (unless (string= url real) + (w3m-arrived-add url nil nil arrival-time) + (setf (w3m-arrived-title real) + (w3m-arrived-title url)) + (setf (w3m-arrived-last-modified real) + (w3m-arrived-last-modified url)) + (setq url real))) + (prog1 (w3m-create-page url + (or (w3m-arrived-content-type url) + type) + (or charset + (w3m-arrived-content-charset url) + (w3m-content-charset url)) + page-buffer) + (w3m-force-window-update-later page-buffer) + (unless (get-buffer-window page-buffer) + (w3m-message "The content (%s) has been retrieved in %s" + url (buffer-name page-buffer)))))) + (ding) + (when (eq (car w3m-current-forms) t) + (setq w3m-current-forms (cdr w3m-current-forms))) + (prog1 (when (and w3m-show-error-information + (not (or (w3m-url-local-p url) + (string-match "\\`about:" url)))) + (w3m-show-error-information url charset page-buffer)) + (w3m-message "Cannot retrieve URL: %s%s" + url + (if w3m-process-exit-status + (format " (exit status: %s)" + w3m-process-exit-status) + "")))))))))) + +(defun w3m-show-error-information (url charset page-buffer) + "Create and prepare the error information." + (or (when (w3m-cache-request-contents url) + (w3m-decode-encoded-contents (w3m-content-encoding url)) + t) ; Even if decoding is failed, use the cached contents. + (let ((case-fold-search t) + (header (w3m-cache-request-header url)) + (errmsg (format "\n<br><h1>Cannot retrieve URL: %s%s</h1>" + (format "<a href=\"%s\">%s</a>" url url) + (when w3m-process-exit-status + (format " (exit status: %s)" + w3m-process-exit-status))))) + (if (or (null header) + (string-match "\\`w3m: Can't load " header)) + (progn + (erase-buffer) + (setq charset "us-ascii") + (insert + errmsg + (format "<br><br><b>%s</b> could not be found; " + (w3m-get-server-hostname url)) + (if (string-match "\\`news:" url) + "check the name of the <b>URL</b>\ + and the value of the <b>NNTPSERVER</b> environment variable\ + (that should be the address of the <b>NNTP</b> server)." + "check the name of the <b>URL</b>."))) + (goto-char (point-min)) + (when (or (re-search-forward "<body>" nil t) + (re-search-forward "<html>" nil t)) + (goto-char (match-end 0))) + (insert errmsg "<br><br><hr><br><br>") + (when (or (re-search-forward "</body>" nil t) + (re-search-forward "</html>" nil 'max)) + (goto-char (match-end 0))) + (insert "\n<br><br><hr><br><br><h2>Header information</h2><br>\n<pre>" + header "</pre>\n")))) + (w3m-create-page url "text/html" charset page-buffer) + nil) + +(defun w3m-show-redirection-error-information (url page-buffer) + (erase-buffer) + (insert + (format "\n<br><h1>Cannot retrieve URL: %s</h1><br><br>%s" + (format "<a href=\"%s\">%s</a>" url url) + "The number of redirections has exceeded a limit. This may have<br>\n +happened due to the server side miss-configuration. Otherwise,<br>\n +try increasing the limit, the value of <b>`w3m-follow-redirection'</b>.<br>\n")) + (w3m-create-page url "text/html" "us-ascii" page-buffer)) + +(defun w3m-prepare-content (url type charset) + "Prepare contents in the current buffer according to TYPE. +URL is assumed to be a place where the contents come from. CHARSET is +passed to the filter function corresponding to TYPE if it is +specified in the `w3m-content-type-alist' variable." + (let ((filter (nth 3 (assoc type w3m-content-type-alist)))) + (cond + ; Filter function is specified. + ((functionp filter) (funcall filter url type charset)) + ; Equivalent type is specified. + ((stringp filter) filter) + ; No filter is specified. + ((not filter) type) + ; Failed. + (t "")))) + +(defun w3m-detect-xml-type (url type charset) + "Check if the type of xml contents of URL is xhtml+xml. +If so return \"text/html\", otherwise \"text/plain\"." + (with-temp-buffer + (w3m-retrieve url) + (w3m-decode-buffer url charset type) + (goto-char (point-min)) + (setq case-fold-search t) + (if (re-search-forward + "<[\t\n ]*html\\(?:\\(?:[\t\n ]+[^>]+\\)?>\\|[\t\n ]*>\\)" + nil t) + "text/html" + "text/plain"))) + +(defun w3m-create-text-page (url type charset page-buffer) + (w3m-safe-decode-buffer url charset type) + (setq w3m-current-url (if (w3m-arrived-p url) + (w3m-real-url url) + url) + w3m-current-title + (if (string= "text/html" type) + (let ((title (w3m-rendering-buffer charset))) + (setf (w3m-arrived-title url) title) + title) + (or (when (string-match "\\`about://\\(?:source\\|header\\)/" url) + (w3m-arrived-title (substring url (match-end 0)))) + (file-name-nondirectory (if (string-match "/\\'" url) + (directory-file-name url) + url))))) + (let ((result-buffer (current-buffer))) + (with-current-buffer page-buffer + (let (buffer-read-only) + (widen) + (delete-region (point-min) (point-max)) + (insert-buffer-substring result-buffer) + (w3m-copy-local-variables result-buffer) + (set-buffer-file-coding-system w3m-current-coding-system) + (when (string= "text/html" type) (w3m-fontify)) + 'text-page)))) + +(defun w3m-create-image-page (url type charset page-buffer) + (when (w3m-image-type-available-p (w3m-image-type type)) + (with-current-buffer page-buffer + (let (buffer-read-only) + (w3m-clear-local-variables) + (setq w3m-current-url (w3m-real-url url) + w3m-current-title (file-name-nondirectory url)) + (widen) + (delete-region (point-min) (point-max)) + (insert w3m-current-title) + (w3m-add-face-property (point-min) (point-max) 'w3m-image) + (w3m-add-text-properties (point-min) (point-max) + (list 'w3m-image url + 'mouse-face 'highlight)) + 'image-page)))) + +(defun w3m-create-page (url type charset page-buffer) + ;; Select a content type. + (unless (and (stringp type) + (assoc type w3m-content-type-alist)) + (save-window-excursion + (pop-to-buffer (current-buffer)) + (delete-other-windows) + (ding) + (setq type + (completing-read + (format "Input %s's content type (default Download): " + (file-name-nondirectory url)) + w3m-content-type-alist nil t)) + (setf (w3m-arrived-content-type url) type))) + (setq w3m-current-coding-system nil) ; Reset decoding status of this buffer. + (setq type (w3m-prepare-content url type charset)) + (w3m-safe-decode-buffer url charset type) + (setq charset (or charset w3m-current-content-charset)) + (when w3m-use-filter (w3m-filter url)) + (w3m-relationship-estimate url) + ;; Create pages. + (cond + ((string-match "\\`text/" type) + (w3m-create-text-page url type charset page-buffer)) + ((string-match "\\`image/" type) + (w3m-create-image-page url type charset page-buffer)) + ((member type w3m-doc-view-content-types) + (w3m-doc-view url)) + (t + (with-current-buffer page-buffer + (w3m-external-view url) + 'external-view)))) + +(defun w3m-relationship-estimate (url) + "Estimate relationships between a page and others." + (save-excursion + (save-match-data + (catch 'estimated + (dolist (rule w3m-relationship-estimate-rules) + (when (apply (car rule) url (cdr rule)) + (throw 'estimated t))))))) + +(defun w3m-relationship-simple-estimate (url regexp &optional next previous + start contents) + "Search relationships with given patterns +when the URL of the retrieved page matches the REGEXP." + (when (string-match regexp url) + (w3m-relationship-search-patterns url next previous start contents))) + +(defun w3m-relationship-magicpoint-estimate (url) + "Search relationships for pages generated by MagicPoint." + (goto-char (point-max)) + (when (search-backward + "Generated by <A HREF=\"http://www.mew.org/mgp/\">MagicPoint</A>" + nil t) + (goto-char (point-min)) + (w3m-relationship-search-patterns + url + (eval-when-compile + (concat "<A HREF=" w3m-html-string-regexp ">\\[next>\\]</A>")) + (eval-when-compile + (concat "<A HREF=" w3m-html-string-regexp ">\\[<prev\\]</A>")) + (eval-when-compile + (concat "<A HREF=" w3m-html-string-regexp ">\\[<<start\\]</A>")) + (eval-when-compile + (concat "<A HREF=" w3m-html-string-regexp ">\\[index\\]</A>"))))) + +(defun w3m-relationship-oddmuse-estimate (url) + (when (string-match "/wiki\\?search=.*" url) + (goto-char (point-min)) + (and (re-search-forward "href=\"\\([^\"]+\\)\">Previous</a>" nil t) + (setq w3m-previous-url (match-string 1))) + (and (re-search-forward "href=\"\\([^\"]+\\)\">Next</a>" nil t) + (setq w3m-next-url (match-string 1))))) + +(defun w3m-relationship-slashdot-estimate (url) + (goto-char (point-min)) + (when (and (string-match + "slashdot\\.org/\\(article\\|comments\\)\\.pl\\?" + url) + (search-forward "<div class=\"linkCommentPage\">" nil t)) + (let ((min (point)) (max (save-excursion (search-forward "</div>" nil t)))) + ;; move to the position of the current page indicator and then search + ;; for the next and previous link within the current <div> + (when (and max (re-search-forward "<b>\\(([0-9]+)\\)</b>" max t)) + (let ((re (concat "<a href=" w3m-html-string-regexp ">"))) + (when (save-excursion (re-search-backward re min t)) + (setq w3m-previous-url + (w3m-expand-url (w3m-decode-anchor-string + (or (match-string 2) + (match-string 3) + (match-string 1)))))) + (when (re-search-forward re max t) + (setq w3m-next-url + (w3m-expand-url (w3m-decode-anchor-string + (or (match-string 2) + (match-string 3) + (match-string 1))))))))))) + +(defun w3m-relationship-alc-estimate (url) + ;; use filter + (when (string-match "\\`http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8/" url) + (when (re-search-forward + (concat "<a href=\\\"http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8/" + "\\(\\?pg=[0-9]+\\)\\\">$BA0$X(B</a>") + nil t) + (setq w3m-previous-url + (w3m-expand-url (match-string 1) url))) + (when (re-search-forward + (concat "<a href=\\\"http://eow\\.alc\\.co\\.jp/[^/]+/UTF-8/" + "\\(\\?pg=[0-9]+\\)\\\">$B<!$X(B</a>") + nil t) + (setq w3m-next-url + (w3m-expand-url (match-string 1) url))) + (unless (or w3m-previous-url w3m-next-url) + ;; no use filter + (goto-char (point-min)) + (when (re-search-forward + "<a href='javascript:goPage(\"\\([0-9+]\\)\")'>$BA0$X(B</a>" + nil t) + (setq w3m-previous-url + (w3m-expand-url (format "?pg=%s" (match-string 1)) url))) + (when (re-search-forward + "<a href='javascript:goPage(\"\\([0-9+]\\)\")'>$B<!$X(B</a>" + nil t) + (setq w3m-next-url + (w3m-expand-url (format "?pg=%s" (match-string 1)) url)))))) + +(defun w3m-relationship-search-patterns (url next previous + &optional start contents) + "Search relationships with given patterns." + (goto-char (point-min)) + (and next + (re-search-forward next nil t) + (setq w3m-next-url + (w3m-expand-url (w3m-decode-anchor-string (or (match-string 2) + (match-string 3) + (match-string 1))) + url)) + (goto-char (point-min))) + (and previous + (re-search-forward previous nil t) + (setq w3m-previous-url + (w3m-expand-url (w3m-decode-anchor-string (or (match-string 2) + (match-string 3) + (match-string 1))) + url)) + (goto-char (point-min))) + (and start + (re-search-forward start nil t) + (setq w3m-start-url + (w3m-expand-url (w3m-decode-anchor-string (or (match-string 2) + (match-string 3) + (match-string 1))) + url)) + (goto-char (point-min))) + (and contents + (re-search-forward contents nil t) + (setq w3m-contents-url + (w3m-expand-url (w3m-decode-anchor-string (or (match-string 2) + (match-string 3) + (match-string 1))) + url)))) + +(defun w3m-search-name-anchor (name &optional quiet no-record) + (interactive "sName: ") + (let ((pos (point-min)) + (cur-pos (point)) + found) + (catch 'found + (while (setq pos (next-single-property-change pos 'w3m-name-anchor)) + (when (member name (get-text-property pos 'w3m-name-anchor)) + (goto-char pos) + (when (eolp) (forward-line)) + (w3m-horizontal-on-screen) + (throw 'found (setq found t)))) + (setq pos (point-min)) + (while (setq pos (next-single-property-change pos 'w3m-name-anchor2)) + (when (member name (get-text-property pos 'w3m-name-anchor2)) + (goto-char pos) + (when (eolp) (forward-line)) + (w3m-horizontal-on-screen) + (throw 'found (setq found t)))) + (unless quiet + (message "No such anchor: %s" name))) + + (when (and found + (not no-record) + (/= (point) cur-pos)) + (setq w3m-name-anchor-from-hist + (append (list 1 nil (point) cur-pos) + (and (integerp (car w3m-name-anchor-from-hist)) + (nthcdr (1+ (car w3m-name-anchor-from-hist)) + w3m-name-anchor-from-hist))))) + (when found + (w3m-recenter)) + found)) + +(defun w3m-parent-page-available-p () + (if (null w3m-current-url) + nil + (save-match-data + (string-match "\\`[a-z]+://?[^/]+/." w3m-current-url)))) + +(defun w3m-view-parent-page (&optional count) + "Attempt to move to the parent directory of the page currently displayed. +For instance, it will let you visit \"http://foo/bar/\" if you are currently +viewing \"http://foo/bar/baz\". +If COUNT is a integer, you will visit the parent directory to step up the COUNT. +If COUNT is zero, you will visit the top of this site." + (interactive "p") + (unless (integerp count) + (setq count 1)) + (setq count (abs count)) + (cond + ((and w3m-current-url + (eq count 0) + (string-match "\\`[a-z]+:///?[^/]+/" w3m-current-url)) + (w3m-goto-url (match-string 0 w3m-current-url))) + (w3m-start-url (w3m-goto-url w3m-start-url)) + (w3m-contents-url (w3m-goto-url w3m-contents-url)) + (w3m-current-url + (let ((parent-url w3m-current-url)) + (catch 'loop + (while (not (zerop count)) + (setq count (1- count)) + ;; Check whether http://foo/bar/ or http://foo/bar + (if (string-match "/$" parent-url) + (if (string-match "\\(.*\\)/[^/]+/$" parent-url) + ;; http://foo/bar/ -> http://foo/ + (setq parent-url (concat (match-string 1 parent-url) "/"))) + (if (string-match "\\(.*\\)/.+$" parent-url) + ;; http://foo/bar -> http://foo/ + (setq parent-url (concat (match-string 1 parent-url) "/")))) + ;; Ignore "http:/" + (cond + ((string-match "\\`[a-z]+:///?[^/]+/\\'" parent-url) + (throw 'loop t)) + ((and parent-url + (string-match "\\`[a-z]+:/+\\'" parent-url)) + (setq parent-url nil) + (throw 'loop nil))))) + (if parent-url + (w3m-goto-url parent-url) + (error "No parent page for: %s" w3m-current-url)))) + (t (error "w3m-current-url is not set")))) + +(defun w3m-view-previous-page (&optional count) + "Move back COUNT pages in the history. +If COUNT is a positive integer, move backward COUNT times in the +history. If COUNT is a negative integer, moving forward is performed. +COUNT is treated as 1 by default if it is omitted." + (interactive "p") + (unless w3m-current-url + ;; This page may have not been registered in the history since an + ;; accident has probably occurred, so we should skip the page. + (if (integerp count) + (when (> count 0) + (decf count)) + (setq count 0))) + (let ((index (car w3m-name-anchor-from-hist)) + pos) + (if (and (integerp count) + (integerp index) + (< 0 (setq index (+ index count))) + (setq pos (nth index w3m-name-anchor-from-hist))) + (progn + (when (and (= (point) pos) + (nth (1+ index) w3m-name-anchor-from-hist)) + (setq index (1+ index))) + (goto-char (nth index w3m-name-anchor-from-hist)) + (setcar w3m-name-anchor-from-hist index) + ;; Restore last position. + (w3m-history-restore-position)) + (let ((hist ;; Cons of a new history element and position pointers. + (if (integerp count) + (w3m-history-backward count) + (w3m-history-backward))) + ;; Inhibit sprouting of a new history. + (w3m-history-reuse-history-elements t) + (w3m-use-refresh 'wait-minimum)) + (if hist + (let ((w3m-prefer-cache t)) + (w3m-goto-url (caar hist) nil nil + (w3m-history-plist-get :post-data) + (w3m-history-plist-get :referer) + nil + (w3m-history-element (caddr hist) t)) + ;; Set the position pointers in the history. + (setcar w3m-history (cdr hist)) + ;; Restore last position. + (w3m-history-restore-position)) + (message "There's no more history")))))) + +(defun w3m-view-next-page (&optional count) + "Move forward COUNT pages in history. +If COUNT is a positive integer, move forward COUNT times in the +history. If COUNT is a negative integer, moving backward is performed. +COUNT is treated as 1 by default if it is omitted." + (interactive "p") + (w3m-view-previous-page (if (integerp count) (- count) -1))) + +(defun w3m-expand-path-name (file base) + (let ((input (if (eq (elt file 0) ?/) + file + (concat base file))) + (output "")) + (save-match-data + (while (string-match "^\\(?:\\.\\.?/\\)+" input) + (setq input (substring input (match-end 0)))) + (while (not (zerop (length input))) + (cond + ((string-match "^/\\.\\(?:/\\|$\\)" input) + (setq input (concat "/" (substring input (match-end 0))))) + ((string-match "^/\\.\\.\\(?:/\\|$\\)" input) + (setq input (concat "/" (substring input (match-end 0)))) + (when (string-match "/?[^/]+$" output) + (setq output (substring output 0 (match-beginning 0))))) + ((string-match "^\\.\\.?$" input) + (setq input "")) + (t + (let ((end (and (string-match "^/[^/]*" input) + (match-end 0)))) + (setq output + (concat output (substring input 0 end))) + (setq input + (substring input end)))))) + output))) + +(defconst w3m-url-hierarchical-schemes + '("http" "https" "ftp" "ftps" "file") + "List of schemes which may have hierarchical parts. +This list is refered to by `w3m-expand-url' to keep backward +compatibility which is described in Section 5.2 of RFC 2396.") + +(defun w3m-expand-url (url &optional base) + "Convert URL to the absolute address, and canonicalize it." + (save-match-data + (if base + (if (progn + (w3m-string-match-url-components base) + (match-beginning 1)) + (and (not (match-beginning 3)) + (member (match-string 2 base) w3m-url-hierarchical-schemes) + (setq base (concat + (substring base 0 (match-end 1)) + "//" + (substring base (match-beginning 5))))) + (error "BASE must have a scheme part: %s" base)) + (setq base (or w3m-current-base-url + w3m-current-url + w3m-url-fallback-base))) + (w3m-string-match-url-components url) + ;; Remove an empty fragment part. + (when (and (match-beginning 8) + (= (match-beginning 9) (length url))) + (setq url (substring url 0 (match-beginning 8))) + (w3m-string-match-url-components url)) + ;; Remove an empty query part. + (when (and (match-beginning 6) + (= (match-beginning 7) (or (match-beginning 8) + (length url)))) + (setq url (concat (substring url 0 (match-beginning 6)) + (if (match-beginning 8) + (substring url (match-beginning 8)) + "")) + base (progn (w3m-string-match-url-components base) + (substring base 0 (match-beginning 6)))) + (w3m-string-match-url-components url)) + (cond + ((match-beginning 1) + ;; URL has a scheme part. => URL may have an absolute spec. + (if (or (match-beginning 3) + (and (< (match-beginning 5) (length url)) + (eq ?/ (aref url (match-beginning 5))))) + ;; URL has a net-location part or an absolute hierarchical + ;; part. => URL has an absolute spec. + url + (let ((scheme (match-string 2 url))) + (if (and (member scheme w3m-url-hierarchical-schemes) + (progn + (w3m-string-match-url-components base) + (equal scheme (match-string 2 base)))) + (w3m-expand-url (substring url (match-end 1)) base) + url)))) + ((match-beginning 3) + ;; URL has a net-location part. => The hierarchical part of URL + ;; has an absolute spec. + (w3m-string-match-url-components base) + (concat (substring base 0 (match-end 1)) url)) + ((> (match-end 5) (match-beginning 5)) + (let ((path-end (match-end 5)) + expanded-path + ;; See the following thread about a problem related to + ;; the use of file-name-* functions for url string: + ;; http://news.gmane.org/group/gmane.emacs.w3m/thread=4210 + file-name-handler-alist) + (w3m-string-match-url-components base) + (setq expanded-path + (w3m-expand-path-name + (substring url 0 path-end) + (or (file-name-directory (match-string 5 base)) + "/"))) + (concat + (substring base 0 (match-beginning 5)) + (if (member (match-string 2 base) w3m-url-hierarchical-schemes) + expanded-path + (substring url 0 path-end)) + (substring url path-end)))) + ((match-beginning 6) + ;; URL has a query part. + (w3m-string-match-url-components base) + (concat (substring base 0 (match-end 5)) url)) + (t + ;; URL has only a fragment part. + (w3m-string-match-url-components base) + (concat (substring base 0 (match-beginning 8)) + url))))) + +(defun w3m-display-progress-message (url) + "Show \"Reading URL...\" message in the middle of a buffer." + (insert (make-string (max 0 (/ (1- (window-height)) 2)) ?\n) + "Reading " (w3m-url-readable-string (w3m-url-strip-authinfo url)) + "...") + (beginning-of-line) + (let ((fill-column (window-width))) + (center-region (point) (point-max))) + (goto-char (point-min)) + (put-text-property (point) (point-max) 'w3m-progress-message t) + (sit-for 0)) + +(defun w3m-view-this-url-1 (url reload new-session) + (lexical-let ((url url) + (obuffer (current-buffer)) + (wconfig (current-window-configuration)) + pos buffer) + (if new-session + (let ((empty + ;; If a new url has the #name portion, we simply copy + ;; the buffer's contents to the new session, otherwise + ;; creating an empty buffer. + (not (and (progn + (w3m-string-match-url-components url) + (match-beginning 8)) + (string-equal w3m-current-url + (substring url + 0 (match-beginning 8))))))) + (setq pos (point-marker) + buffer (w3m-copy-buffer + nil nil nil empty w3m-new-session-in-background)) + (when w3m-new-session-in-background + (set-buffer buffer)) + (when empty + (w3m-display-progress-message url))) + (setq buffer (current-buffer))) + (let (handler) + (w3m-process-do + (success (w3m-goto-url url reload nil nil w3m-current-url handler)) + (set-window-hscroll (selected-window) 0) + ;; Delete the newly created buffer if it's been made empty. + (when (and pos + (buffer-name buffer)) + (w3m-delete-buffer-if-empty buffer)) + (when pos ;; the new session is created. + ;; FIXME: what we should actually do is to modify the `w3m-goto-url' + ;; function so that it may return a proper value, and checking it. + (when (and (marker-buffer pos) (buffer-name (marker-buffer pos))) + (with-current-buffer (marker-buffer pos) + (save-excursion + (goto-char pos) + (w3m-refontify-anchor))))) + ;; We need to restore the window configuration to the former + ;; one if `w3m-new-session-in-background' is non-nil unless + ;; the buffer's major mode has changed from the w3m-mode to + ;; another by visiting the new url (possibly a local file, + ;; a mailto url, doc-view-mode, etc.). + (if (and w3m-new-session-in-background + (not (eq obuffer (current-buffer))) + (or (buffer-name buffer) + ;; Clear "...has been retrieved in..." message. + (progn (w3m-message "") nil)) + (or (eq major-mode 'w3m-mode) + (not (eq (with-current-buffer buffer major-mode) + 'w3m-mode)))) + (set-window-configuration wconfig) + (w3m-recenter)))))) + +(defun w3m-view-this-url (&optional arg new-session) + "Display the page pointed to by the link under point. +If ARG is the number 2 or the list of the number 16 (you may produce +this by typing `C-u' twice) or NEW-SESSION is non-nil and the link is +an anchor, this function makes a copy of the current session in +advance. Otherwise, if ARG is non-nil, it forces to reload the url at +point." + (interactive (if (member current-prefix-arg '(2 (16))) + (list nil t) + (list current-prefix-arg nil))) + ;; Store the current position in the history structure. + (w3m-history-store-position) + (let ((w3m-prefer-cache + (or w3m-prefer-cache + (and (stringp w3m-current-url) + (string-match "\\`about://\\(?:db-\\)?history/" + w3m-current-url)))) + act url) + (cond + ((setq act (w3m-action)) + (let ((w3m-form-new-session new-session) + (w3m-form-download nil)) + (eval act))) + ((setq url (w3m-url-valid (w3m-anchor))) + (w3m-view-this-url-1 url arg new-session)) + ((w3m-url-valid (w3m-image)) + (if (w3m-display-graphic-p) + (w3m-toggle-inline-image) + (w3m-view-image))) + ((setq url (w3m-active-region-or-url-at-point t)) + (unless (eq 'quit (setq url (w3m-input-url nil url 'quit nil + 'feeling-lucky))) + (w3m-view-this-url-1 url arg new-session))) + (t (w3m-message "No URL at point"))))) + +(eval-and-compile + (autoload 'mouse-set-point "mouse")) + +(defun w3m-mouse-view-this-url (event &optional arg) + "Follow the link under the mouse pointer." + (interactive "e\nP") + (mouse-set-point event) + (w3m-view-this-url arg)) + +(defun w3m-open-all-links-in-new-session (start end &optional arg) + "Open all http links between START and END as new sessions. +If the page looks like Google's search result and the START point is +the beginning of a line, only the links displayed in the beginning of +lines are picked up. If ARG is non-nil, it forces to reload all links. +If Transient Mark mode, deactivate the mark." + (interactive "r\nP") + (when (w3m-region-active-p) + (w3m-deactivate-region)) + (let ((buffer (current-buffer)) + (prev start) + (url (w3m-url-valid (w3m-anchor start))) + urls all) + (when url + (setq urls (list url))) + (save-excursion + (goto-char start) + (setq all (not (and (bolp) + w3m-current-url + (string-match "\\`http://\\(?:[^/]+\\.\\)*google\\." + w3m-current-url)))) + (while (progn + (w3m-next-anchor) + (and (> (point) prev) + (< (point) end))) + (setq prev (point)) + (when (and (setq url (w3m-url-valid (w3m-anchor))) + (string-match "\\`https?:" url) + (or all + (bolp))) + (push url urls)))) + (setq urls (nreverse urls)) + (while urls + (setq url (car urls) + urls (cdr urls)) + (set-buffer buffer) + (w3m-view-this-url-1 url arg t)))) + +(defun w3m-view-this-url-new-session () + "Display the page of the link under point in a new session. +If the region is active, use the `w3m-open-all-links-in-new-session' +command instead." + (interactive) + (if (w3m-region-active-p) + (call-interactively 'w3m-open-all-links-in-new-session) + (w3m-view-this-url nil t))) + +(defun w3m-mouse-view-this-url-new-session (event) + "Follow the link under the mouse pointer in a new session." + (interactive "e") + (mouse-set-point event) + (w3m-view-this-url nil t)) + +(defun w3m-submit-form (&optional new-session) + "Submit the form at point." + (interactive "P") + (let ((submit (w3m-submit))) + (if (and submit + w3m-current-url + (w3m-url-valid w3m-current-url) + (if w3m-submit-form-safety-check + (prog1 (y-or-n-p "Submit? ") (message nil)) + t)) + (let ((w3m-form-new-session new-session) + (w3m-form-download nil)) + (eval submit)) + (w3m-message "Can't submit form at this point")))) + +(defun w3m-external-view (url &optional no-cache handler) + (when (w3m-url-valid url) + (lexical-let ((url url) + (no-cache no-cache)) + (w3m-process-do + (type (w3m-content-type url no-cache handler)) + (when type + (lexical-let ((method + (or (nth 2 (assoc type w3m-content-type-alist)) + (nth 2 (assoc (w3m-prepare-content url type nil) + w3m-content-type-alist))))) + (cond + ((not method) + (if (w3m-url-local-p url) + (error "\ +No method to view `%s' is registered. Use `w3m-edit-this-url'" + (file-name-nondirectory (w3m-url-to-file-name url))) + (w3m-download url nil no-cache handler))) + ((functionp method) + (funcall method url)) + ((consp method) + (lexical-let + ((command (w3m-which-command (car method))) + (arguments (cdr method)) + (file (make-temp-name + (expand-file-name "w3mel" w3m-profile-directory))) + suffix) + (setq suffix (file-name-nondirectory url)) + (when (string-match "\\.[a-zA-Z0-9]+$" suffix) + (setq suffix (match-string 0 suffix)) + (when (< (length suffix) 5) + (setq file (concat file suffix)))) + (cond + ((and command (memq 'file arguments)) + (let ((w3m-current-buffer (current-buffer))) + (w3m-process-do + (success (w3m-download url file no-cache handler)) + (when success + (w3m-external-view-file command file url arguments))))) + (command + (w3m-external-view-file command nil url arguments)) + (t + (w3m-download url nil no-cache handler)))))))))))) + +(defun w3m-external-view-file (command file url arguments) + ;; The 3rd argument `url' is necessary to handle the constant `url' + ;; included in the 4th argument `arguments' which is provided by + ;; `w3m-content-type-alist'. + (lexical-let ((file file)) + (let (proc) + (unwind-protect + (with-current-buffer + (generate-new-buffer " *w3m-external-view*") + (setq proc + (apply 'start-process + "w3m-external-view" + (current-buffer) + command + (mapcar (function eval) arguments))) + (w3m-message "Start %s..." (file-name-nondirectory command)) + (set-process-sentinel + proc + (lambda (proc event) + (let ((buffer (process-buffer proc))) + (when (and (string-match "^\\(?:finished\\|exited\\)" event) + (buffer-name buffer)) + (with-current-buffer buffer + (and (stringp file) + (file-exists-p file) + (delete-file file))) + (kill-buffer buffer)))))) + (and (stringp file) + (file-exists-p file) + (unless (and (processp proc) + (memq (process-status proc) '(run stop))) + (delete-file file))))))) + +(defun w3m-view-image () + "Display the image under point in the external viewer. +The viewer is defined in `w3m-content-type-alist' for every type of an +image." + (interactive) + (let ((url (w3m-url-valid (w3m-image)))) + (if url + (w3m-external-view url) + (w3m-message "No image at point")))) + +(defun w3m-save-image () + "Save the image under point to a file. +The default name will be the original name of the image." + (interactive) + (let ((url (w3m-url-valid (w3m-image)))) + (if url + (w3m-download url) + (w3m-message "No image at point")))) + +(defun w3m-external-view-this-url () + "Launch the external browser and display the link an point." + (interactive) + (let ((url (w3m-url-valid (or (w3m-anchor) (w3m-image))))) + (if url + (w3m-external-view url) + (w3m-message "No URL at point")))) + +(defun w3m-external-view-current-url () + "Launch the external browser and display the current URL." + (interactive) + (if w3m-current-url + (w3m-external-view w3m-current-url) + (w3m-message "No URL at this page"))) + +(defun w3m-view-url-with-external-browser (&optional url) + "Launch the external browser and display the same web page. +If the cursor points to a link, it visits the url of the link instead +of the url currently displayed. The browser is defined in +`w3m-content-type-alist' for every type of a url." + (interactive) + (unless url + (setq url (or url + (w3m-anchor) + (unless w3m-display-inline-images + (w3m-image)) + (when (y-or-n-p (format "Browse <%s> ? " w3m-current-url)) + w3m-current-url)))) + (if (w3m-url-valid url) + (progn + (message "Browsing <%s>..." url) + (w3m-external-view url)) + (w3m-message "No URL at point"))) + +(defun w3m-download-this-url () + "Download the file or the page pointed to by the link under point." + (interactive) + (let ((url (or (w3m-anchor) (w3m-image))) act) + (cond + ((w3m-url-valid url) + (lexical-let ((pos (point-marker)) + (curl w3m-current-url)) + (w3m-process-with-null-handler + (w3m-process-do + (success (w3m-download url nil nil handler)) + (and success + (buffer-name (marker-buffer pos)) + (with-current-buffer (marker-buffer pos) + (when (equal curl w3m-current-url) + (goto-char pos) + (w3m-refontify-anchor)))))))) + ((setq act (w3m-action)) + (let ((w3m-form-download t)) + (eval act))) + (t + (w3m-message "No URL at point"))))) + +(defun w3m-download-this-image () + "Download the image under point." + (interactive) + (let ((url (w3m-image)) act) + (cond + ((w3m-url-valid url) + (lexical-let ((pos (point-marker)) + (curl w3m-current-url)) + (w3m-process-with-null-handler + (w3m-process-do + (success (w3m-download url nil nil handler)) + (and success + (buffer-name (marker-buffer pos)) + (with-current-buffer (marker-buffer pos) + (when (equal curl w3m-current-url) + (goto-char pos) + (w3m-refontify-anchor)))))))) + ((setq act (w3m-action)) + (let ((w3m-form-download t)) + (eval act))) + (t + (w3m-message "No image at point"))))) + +(defun w3m-print-current-url () + "Display the current url in the echo area and put it into `kill-ring'." + (interactive) + (when w3m-current-url + (let ((deactivate-mark nil)) + (kill-new w3m-current-url) + (w3m-message "%s" (w3m-url-readable-string w3m-current-url))))) + +(defun w3m-print-this-url (&optional interactive-p) + "Display the url under point in the echo area and put it into `kill-ring'." + (interactive (list t)) + (let ((deactivate-mark nil) + (url (if interactive-p + (or (w3m-anchor) (w3m-image)) + (or (w3m-anchor (point)) (w3m-image (point))))) + (alt (if interactive-p + (w3m-image-alt) + (w3m-image-alt (point))))) + (when (or url interactive-p) + (and url interactive-p (kill-new url)) + (w3m-message "%s%s" + (if (zerop (length alt)) + "" + (concat alt ": ")) + (or (w3m-url-readable-string url) + (and (w3m-action) "There is a form") + "There is no url"))))) + +(defun w3m-print-this-image-url (&optional interactive-p) + "Display image url under point in echo area and put it into `kill-ring'." + (interactive (list t)) + (let ((deactivate-mark nil) + (url (if interactive-p + (w3m-image) + (w3m-image (point)))) + (alt (if interactive-p + (w3m-image-alt) + (w3m-image-alt (point))))) + (when (or url interactive-p) + (and url interactive-p (kill-new url)) + (w3m-message "%s%s" + (if (zerop (length alt)) + "" + (concat alt ": ")) + (or (w3m-url-readable-string url) + (and (w3m-action) "There is a form") + "There is no image url"))))) + +(defmacro w3m-delete-all-overlays () + "Delete all momentary overlays." + '(dolist (overlay (overlays-in (point-min) (point-max))) + (if (overlay-get overlay 'w3m-momentary-overlay) + (delete-overlay overlay)))) + +(defun w3m-highlight-current-anchor-1 (seq) + "Highlight an anchor in the line if the anchor sequence is the same as SEQ. +Return t if highlighting is successful." + (let ((limit (point-at-eol)) + ov beg pos pseq) + (save-excursion + (beginning-of-line) + (setq pos (point)) + (while (and pos + (< pos limit) + (not (eq seq (setq pseq (w3m-anchor-sequence pos))))) + (setq pos (next-single-property-change pos 'w3m-anchor-sequence))) + (when (and pos (< pos limit) (eq seq pseq)) + (setq beg pos) + (setq pos (next-single-property-change pos 'w3m-anchor-sequence)) + (setq ov (make-overlay beg pos)) + (overlay-put ov 'face 'w3m-current-anchor) + (overlay-put ov 'w3m-momentary-overlay t) + (overlay-put ov 'evaporate t) + t)))) + +(defun w3m-highlight-current-anchor () + "Highlight an anchor under point." + (when (let ((ovs (overlays-at (point))) ov) + ;; If the anchor is already highlighted, it does nothing. + (or (null ovs) + (null (progn (while ovs + (if (overlay-get (car ovs) 'w3m-momentary-overlay) + (setq ov (car ovs) + ovs nil)) + (setq ovs (cdr ovs))) + ov)))) + (w3m-delete-all-overlays) + (save-excursion + (let ((seq (w3m-anchor-sequence)) + (pos (point))) + (when (and seq + (w3m-highlight-current-anchor-1 seq) + (zerop (forward-line 1))) + (while (and (w3m-highlight-current-anchor-1 seq) + (zerop (forward-line 1)))) + (goto-char pos) + (while (and (zerop (forward-line -1)) + (w3m-highlight-current-anchor-1 seq)))))))) + +(defun w3m-edit-url (url) + "Edit the page pointed by URL." + (interactive (list (w3m-input-url))) + (when (string-match "\\`about://\\(?:header\\|source\\)/" url) + (setq url (substring url (match-end 0)))) + (catch 'found + (dolist (pair w3m-edit-function-alist) + (when (and (string-match (car pair) url) + (fboundp (cdr pair))) + (throw 'found (funcall (cdr pair) url)))) + (funcall w3m-edit-function + (or (w3m-url-to-file-name url) + (error "URL:%s is not a local file" url))))) + +(defun w3m-edit-current-url () + "Edit this viewing page." + (interactive) + (if w3m-current-url + (w3m-edit-url w3m-current-url) + (w3m-message "No URL"))) + +(defun w3m-edit-this-url () + "Edit the page linked from the anchor under the cursor." + (interactive) + (let ((url (w3m-url-valid (w3m-anchor)))) + (if url + (w3m-edit-url url) + (w3m-message "No URL at point")))) + +(defvar w3m-goto-anchor-hist nil) +(make-variable-buffer-local 'w3m-goto-anchor-hist) + +(defun w3m-goto-next-anchor () + (let ((hseq (w3m-anchor-sequence)) + (pos (next-single-property-change (point) 'w3m-anchor-sequence))) + (if (or (not hseq) (< hseq 1)) + (and pos (goto-char pos)) + (setq pos + ;; hseq is not sequence in form. + (catch 'loop + (setq hseq (1+ hseq)) + (while (<= hseq w3m-max-anchor-sequence) + (setq pos (text-property-any + (point-min) (point-max) 'w3m-anchor-sequence hseq)) + (when pos (throw 'loop pos)) + (setq hseq (1+ hseq))))) + (and pos (goto-char pos))))) + +(defun w3m-next-anchor (&optional arg) + "Move the point to the next anchor." + (interactive "p") + (w3m-keep-region-active) + (unless arg (setq arg 1)) + (if (null (memq last-command '(w3m-next-anchor w3m-previous-anchor))) + (when (setq w3m-goto-anchor-hist (w3m-anchor-sequence)) + (setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist))) + (when (and (eq last-command 'w3m-previous-anchor) w3m-goto-anchor-hist) + (setcdr w3m-goto-anchor-hist nil))) + (if (< arg 0) + (w3m-previous-anchor (- arg)) + (let (pos) + (while (> arg 0) + (unless (w3m-goto-next-anchor) + (setq w3m-goto-anchor-hist nil) + (if (w3m-imitate-widget-button) + (widget-forward 1) + (when (setq pos (text-property-any + (point-min) (point-max) 'w3m-anchor-sequence 1)) + (goto-char pos)))) + (setq arg (1- arg)) + (if (member (w3m-anchor-sequence) w3m-goto-anchor-hist) + (setq arg (1+ arg)) + (push (w3m-anchor-sequence) w3m-goto-anchor-hist)))) + (w3m-horizontal-on-screen) + (w3m-print-this-url))) + +(defun w3m-goto-previous-anchor () + (let ((hseq (w3m-anchor-sequence)) + (pos (previous-single-property-change (point) 'w3m-anchor-sequence))) + (cond + ((and (not hseq) pos) + (if (w3m-anchor-sequence pos) + (goto-char pos) + (setq pos (previous-single-property-change pos 'w3m-anchor-sequence)) + (and pos (goto-char pos)))) + ((or (not pos) (< hseq 2)) nil) + (t + (setq pos + ;; hseq is not sequence in form. + (catch 'loop + (setq hseq (1- hseq)) + (while (> hseq 0) + (setq pos (text-property-any + (point-min) (point-max) 'w3m-anchor-sequence hseq)) + (when pos (throw 'loop pos)) + (setq hseq (1- hseq))))) + (and pos (goto-char pos)))))) + +(defun w3m-previous-anchor (&optional arg) + "Move the point to the previous anchor." + (interactive "p") + (w3m-keep-region-active) + (unless arg (setq arg 1)) + (if (null (memq last-command '(w3m-next-anchor w3m-previous-anchor))) + (when (setq w3m-goto-anchor-hist (w3m-anchor-sequence)) + (setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist))) + (when (and (eq last-command 'w3m-next-anchor) w3m-goto-anchor-hist) + (setcdr w3m-goto-anchor-hist nil))) + (if (< arg 0) + (w3m-next-anchor (- arg)) + (let (pos) + (while (> arg 0) + (unless (w3m-goto-previous-anchor) + (setq w3m-goto-anchor-hist nil) + (if (w3m-imitate-widget-button) + (widget-forward -1) + (when (setq pos (and w3m-max-anchor-sequence + (text-property-any + (point-min) (point-max) + 'w3m-anchor-sequence + w3m-max-anchor-sequence))) + (goto-char pos)))) + (setq arg (1- arg)) + (if (member (w3m-anchor-sequence) w3m-goto-anchor-hist) + (setq arg (1+ arg)) + (push (w3m-anchor-sequence) w3m-goto-anchor-hist)))) + (w3m-horizontal-on-screen) + (w3m-print-this-url))) + +(defun w3m-goto-next-form () + ;; Move the point to the end of the current form. + (when (w3m-action (point)) + (goto-char (next-single-property-change (point) 'w3m-action))) + ;; Find the next form. + (or (w3m-action (point)) + (let ((pos (next-single-property-change (point) 'w3m-action))) + (when pos + (goto-char pos) + t)))) + +(defun w3m-next-form (&optional arg) + "Move the point to the next form." + (interactive "p") + (w3m-keep-region-active) + (unless arg (setq arg 1)) + (if (null (memq last-command '(w3m-next-form w3m-previous-form))) + (when (setq w3m-goto-anchor-hist (w3m-action (point))) + (setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist))) + (when (and (eq last-command 'w3m-previous-form) w3m-goto-anchor-hist) + (setcdr w3m-goto-anchor-hist nil))) + (if (< arg 0) + (w3m-previous-form (- arg)) + (while (> arg 0) + (unless (w3m-goto-next-form) + ;; Make a search from the beginning of the buffer. + (setq w3m-goto-anchor-hist nil) + (goto-char (point-min)) + (w3m-goto-next-form)) + (setq arg (1- arg)) + (if (member (w3m-action (point)) w3m-goto-anchor-hist) + (setq arg (1+ arg)) + (push (w3m-action (point)) w3m-goto-anchor-hist))) + (w3m-horizontal-on-screen) + (w3m-print-this-url))) + +(defun w3m-goto-previous-form () + ;; Move the point to the beginning of the current form. + (when (w3m-action (point)) + (goto-char (previous-single-property-change (1+ (point)) + 'w3m-action))) + ;; Find the previous form. + (let ((pos (previous-single-property-change (point) 'w3m-action))) + (if pos + (goto-char + (if (w3m-action pos) + pos + (previous-single-property-change pos 'w3m-action)))))) + +(defun w3m-previous-form (&optional arg) + "Move the point to the previous form." + (interactive "p") + (w3m-keep-region-active) + (unless arg (setq arg 1)) + (if (null (memq last-command '(w3m-next-form w3m-previous-form))) + (when (setq w3m-goto-anchor-hist (w3m-action (point))) + (setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist))) + (when (and (eq last-command 'w3m-next-form) w3m-goto-anchor-hist) + (setcdr w3m-goto-anchor-hist nil))) + (if (< arg 0) + (w3m-next-form (- arg)) + (while (> arg 0) + (unless (w3m-goto-previous-form) + ;; search from the end of the buffer + (setq w3m-goto-anchor-hist nil) + (goto-char (point-max)) + (w3m-goto-previous-form)) + (setq arg (1- arg)) + (if (member (w3m-action (point)) w3m-goto-anchor-hist) + (setq arg (1+ arg)) + (push (w3m-action (point)) w3m-goto-anchor-hist))) + (w3m-horizontal-on-screen) + (w3m-print-this-url))) + +(defun w3m-goto-next-image () + ;; Move the point to the end of the current image. + (when (w3m-image (point)) + (goto-char (next-single-property-change (point) 'w3m-image))) + ;; Find the next form or image. + (or (w3m-image (point)) + (let ((pos (next-single-property-change (point) 'w3m-image))) + (when pos + (goto-char pos) + t)))) + +(defun w3m-next-image (&optional arg) + "Move the point to the next image." + (interactive "p") + (w3m-keep-region-active) + (unless arg (setq arg 1)) + (if (null (memq last-command + '(w3m-next-image w3m-previous-image))) + (when (setq w3m-goto-anchor-hist (w3m-image (point))) + (setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist))) + (when (and (eq last-command 'w3m-previous-image) + w3m-goto-anchor-hist) + (setcdr w3m-goto-anchor-hist nil))) + (if (< arg 0) + (w3m-previous-image (- arg)) + (while (> arg 0) + (unless (w3m-goto-next-image) + ;; Make a search for an image from the beginning of the buffer. + (setq w3m-goto-anchor-hist nil) + (goto-char (point-min)) + (w3m-goto-next-image)) + (setq arg (1- arg)) + (if (member (w3m-image (point)) w3m-goto-anchor-hist) + (setq arg (1+ arg)) + (push (w3m-image (point)) w3m-goto-anchor-hist))) + (w3m-horizontal-on-screen) + (w3m-print-this-url))) + +(defun w3m-goto-previous-image () + ;; Move the point to the beginning of the current image. + (when (w3m-image (point)) + (goto-char (previous-single-property-change (1+ (point)) + 'w3m-image))) + ;; Find the previous form or image. + (let ((pos (previous-single-property-change (point) 'w3m-image))) + (if pos + (goto-char + (if (w3m-image pos) pos + (previous-single-property-change pos 'w3m-image)))))) + +(defun w3m-previous-image (&optional arg) + "Move the point to the previous image." + (interactive "p") + (w3m-keep-region-active) + (unless arg (setq arg 1)) + (if (null (memq last-command '(w3m-next-image w3m-previous-image))) + (when (setq w3m-goto-anchor-hist (w3m-image (point))) + (setq w3m-goto-anchor-hist (list w3m-goto-anchor-hist))) + (when (and (eq last-command 'w3m-next-image) + w3m-goto-anchor-hist) + (setcdr w3m-goto-anchor-hist nil))) + (if (< arg 0) + (w3m-next-image (- arg)) + (while (> arg 0) + (unless (w3m-goto-previous-image) + ;; Make a search from the end of the buffer. + (setq w3m-goto-anchor-hist nil) + (goto-char (point-max)) + (w3m-goto-previous-image)) + (setq arg (1- arg)) + (if (member (w3m-image (point)) w3m-goto-anchor-hist) + (setq arg (1+ arg)) + (push (w3m-image (point)) w3m-goto-anchor-hist))) + (w3m-horizontal-on-screen) + (w3m-print-this-url))) + +(defun w3m-copy-buffer (&optional buffer newname just-copy empty background) + "Create a copy of the BUFFER in which emacs-w3m is working. +Return a new buffer. + +If BUFFER is nil, the current buffer is assumed. If NEWNAME is nil, +it defaults to the name of the current buffer. If JUST-COPY is nil, +this function lets a new buffer be the current buffer and pop up as a +new window or a new frame according to `w3m-pop-up-windows' and +`w3m-pop-up-frames' (which see), otherwise just creates BUFFER's copy. +If EMPTY is nil, a page of the same url will be re-rendered in a new +buffer, otherwise an empty buffer is created. If BACKGROUND is non-nil, +this function stays on the current buffer. + +Note that this function should be called on the window displaying the +original buffer BUFFER even if JUST-COPY is non-nil in order to render +a page in a new buffer with the correct width." + (interactive (list (current-buffer) + (if current-prefix-arg (read-string "Name: ")) + t)) + (unless buffer + (setq buffer (current-buffer))) + (unless newname + (setq newname (buffer-name buffer))) + (when (string-match "<[0-9]+>\\'" newname) + (setq newname (substring newname 0 (match-beginning 0)))) + (let (url coding images init-frames new) + (save-current-buffer + (set-buffer buffer) + (setq url (or w3m-current-url + (car (w3m-history-element (cadar w3m-history)))) + coding w3m-current-coding-system + images w3m-display-inline-images + init-frames (when (w3m-popup-frame-p) + (copy-sequence w3m-initial-frames))) + (unless url + (setq empty t)) + ;; + (set-buffer (setq new (w3m-generate-new-buffer newname))) + (w3m-mode) + ;; Make copies of `w3m-history' and `w3m-history-flat'. + (w3m-history-copy buffer) + (setq w3m-current-coding-system coding + w3m-initial-frames init-frames + w3m-display-inline-images + (if w3m-toggle-inline-images-permanently + images + w3m-default-display-inline-images))) + (cond + ((and empty (not background)) + ;; Pop to a window or a frame up because `w3m-goto-url' is not called. + (w3m-popup-buffer new)) + (empty + ;; When empty and just-copy, stay origianl buffer. + ) + (t + ;; Need to change to the `new' buffer in which `w3m-goto-url' runs. + (set-buffer new) + ;; Render a page. + (let ((positions (copy-sequence (car w3m-history))) + (w3m-history-reuse-history-elements t) + (w3m-prefer-cache t)) + (w3m-process-with-wait-handler + (w3m-goto-url url 'redisplay nil nil nil handler + ;; Pass the properties of the history elements, + ;; although it is currently always nil. + (w3m-history-element (cadr positions)))) + (setcar w3m-history positions)) + (when (and w3m-new-session-in-background + just-copy + (not (get-buffer-window buffer))) + (set-window-buffer (selected-window) buffer)))) + new)) + +(defun w3m-next-buffer (arg) + "Turn ARG pages of emacs-w3m buffers ahead." + (interactive "p") + (unless arg (setq arg 1)) + (when (and (/= arg 0) (eq major-mode 'w3m-mode)) + (w3m-history-store-position) + (let* ((buffers (w3m-list-buffers)) + (len (length buffers))) + (switch-to-buffer + (nth (mod (+ arg (- len (length (memq (current-buffer) buffers)))) + len) + buffers))) + (w3m-history-restore-position) + (run-hooks 'w3m-select-buffer-hook) + (w3m-select-buffer-update))) + +(defun w3m-previous-buffer (arg) + "Turn ARG pages of emacs-w3m buffers behind." + (interactive "p") + (w3m-next-buffer (- arg))) + +(defun w3m-delete-buffer (&optional force) + "Delete the current emacs-w3m buffer and switch to the previous one. +If there is the sole emacs-w3m buffer, it is assumed to be called for +terminating the emacs-w3m session; the prefix argument FORCE will be +passed to the `w3m-quit' function (which see)." + (interactive "P") + ;; Bind `w3m-fb-mode' to nil so that this function might not call + ;; `w3m-quit' when there is only one buffer belonging to the selected + ;; frame, but there are emacs-w3m buffers in other frames. + (let* ((w3m-fb-mode nil) + (buffers (w3m-list-buffers t)) + (num (length buffers)) + cur buf bufs) + (if (= 1 num) + (w3m-quit force) + (setq cur (current-buffer)) + (if (w3m-use-tab-p) + (save-window-excursion + (select-window (or (get-buffer-window cur t) (selected-window))) + (w3m-next-buffer -1)) + ;; List buffers being shown in the other windows of the current frame. + (save-current-buffer + (walk-windows (lambda (window) + (set-buffer (setq buf (window-buffer window))) + (when (and (eq major-mode 'w3m-mode) + (not (eq buf cur))) + (push buf bufs))) + 'no-minibuf)) + (cond ((= (1- num) (length bufs)) + ;; All the other buffers are shown in the current frame. + (select-window (get-buffer-window (prog2 + (w3m-next-buffer -1) + (current-buffer) + (delete-window))))) + (bufs + ;; Look for the buffer which is not shown in the current frame. + (setq buf nil) + (while (progn + (w3m-next-buffer -1) + (unless buf + (setq buf (current-buffer))) + (memq (current-buffer) bufs))) + (when (memq buf bufs) + ;; Go to the buffer which is most suitable to be called + ;; the *previous* buffer. + (select-window (get-buffer-window buf)))) + ((progn ;; List buffers being not shown anywhere. + (setq bufs nil) + (while buffers + (unless (get-buffer-window (setq buf (pop buffers)) t) + (push buf bufs))) + bufs) + (while (progn + (w3m-next-buffer -1) + (not (memq (current-buffer) bufs))))) + ((memq (selected-frame) w3m-initial-frames) + ;; Assume that this frame was created to show this buffer. + (if (one-window-p t) + (delete-frame) + (delete-window))) + (t + (if (>= num 2) + (w3m-next-buffer -1) + (unless (one-window-p t) + (delete-window)))))) + (w3m-session-deleted-save (list cur)) + (w3m-process-stop cur) + (w3m-idle-images-show-unqueue cur) + (kill-buffer cur) + (when w3m-use-form + (w3m-form-kill-buffer cur)) + (w3m-history-restore-position) + (run-hooks 'w3m-delete-buffer-hook) + (w3m-session-crash-recovery-save))) + (w3m-select-buffer-update) + (unless w3m-fb-inhibit-buffer-selection + (w3m-fb-select-buffer))) + +(defun w3m-delete-buffer-if-empty (buffer) + "Delete a newly created emacs-w3m buffer BUFFER if it seems unnecessary. +Some emacs-w3m commands create a buffer for the new session first, but +it may be useless if the command is invoked for visiting a local file +or a mail buffer. This command will delete BUFFER if it is empty or +there is only a progress message. It also deletes windows and frames +related to BUFFER." + (with-current-buffer buffer + (unless (or w3m-current-process + w3m-current-url + (not (or (zerop (buffer-size)) + (and (get-text-property (point-min) + 'w3m-progress-message) + (get-text-property (1- (point-max)) + 'w3m-progress-message))))) + (w3m-delete-buffer t)))) + +(defun w3m-pack-buffer-numbers () + "Renumber suffixes of names of emacs-w3m buffers. +It aligns emacs-w3m buffers in order of *w3m*, *w3m<2>, *w3m*<3>,... +as if the folder command of MH performs with the -pack option." + (interactive) + (let ((count 1) number newname) + (dolist (buffer (w3m-list-buffers)) + (setq number (w3m-buffer-number buffer)) + (when number + (unless (eq number count) + (when (and (setq newname (w3m-buffer-set-number buffer count)) + w3m-use-form) + (w3m-form-set-number buffer newname))) + (incf count))))) + +(defun w3m-delete-other-buffers (&optional buffer) + "Delete emacs-w3m buffers except for BUFFER or the current buffer." + (interactive) + (unless buffer + (setq buffer (current-buffer))) + (w3m-delete-frames-and-windows buffer) + (let ((buffers (delq buffer (w3m-list-buffers t)))) + (w3m-delete-buffers buffers))) + +(defun w3m-delete-left-tabs () + "Delete tabs on the left side of the current tab." + (interactive) + (let ((cbuf (current-buffer)) + bufs) + (setq bufs (catch 'done + (dolist (buf (w3m-list-buffers)) + (if (eq cbuf buf) + (throw 'done bufs) + (setq bufs (cons buf bufs)))))) + (when bufs + (w3m-delete-buffers bufs)))) + +(defun w3m-delete-right-tabs () + "Delete tabs on the right side of the current tab." + (interactive) + (let ((bufs (w3m-righttab-exist-p))) + (when bufs + (w3m-delete-buffers bufs)))) + +(defun w3m-delete-buffers (buffers) + "Delete emacs-w3m buffers." + (let (buffer) + (when buffers + (w3m-session-deleted-save buffers)) + (while buffers + (setq buffer (pop buffers)) + (w3m-process-stop buffer) + (w3m-idle-images-show-unqueue buffer) + (kill-buffer buffer) + (when w3m-use-form + (w3m-form-kill-buffer buffer)))) + (run-hooks 'w3m-delete-buffer-hook) + (w3m-session-crash-recovery-save) + (w3m-select-buffer-update) + (w3m-force-window-update)) + +(defvar w3m-lynx-like-map nil + "Lynx-like keymap used in emacs-w3m buffers.") +;; `C-t' is a prefix key reserved to commands that do something in all +;; emacs-w3m buffers. 2006-05-18 +(unless w3m-lynx-like-map + (let ((map (make-keymap))) + (suppress-keymap map) + (define-key map " " 'w3m-scroll-up-or-next-url) + (define-key map "b" 'w3m-scroll-down-or-previous-url) + (define-key map [backspace] 'w3m-scroll-down-or-previous-url) + (define-key map [delete] 'w3m-scroll-down-or-previous-url) + (if (featurep 'xemacs) + (define-key map [(shift space)] 'w3m-scroll-down-or-previous-url) + (define-key map [?\S-\ ] 'w3m-scroll-down-or-previous-url)) + (define-key map "h" 'backward-char) + (define-key map "j" 'next-line) + (define-key map "k" 'previous-line) + (define-key map "l" 'forward-char) + (define-key map "J" 'w3m-scroll-up-1) + (define-key map "K" (lambda () (interactive) (scroll-down 1))) + (define-key map "\C-?" 'w3m-scroll-down-or-previous-url) + (define-key map "\t" 'w3m-next-anchor) + (define-key map [tab] 'w3m-next-anchor) + (define-key map [(shift tab)] 'w3m-previous-anchor) + (define-key map [(shift iso-lefttab)] 'w3m-previous-anchor) + (define-key map [backtab] 'w3m-previous-anchor) + (define-key map [down] 'w3m-next-anchor) + (define-key map "\M-\t" 'w3m-previous-anchor) + (define-key map [up] 'w3m-previous-anchor) + (define-key map "\C-m" 'w3m-view-this-url) + (define-key map [(shift return)] 'w3m-view-this-url-new-session) + (define-key map [(shift kp-enter)] 'w3m-view-this-url-new-session) + (define-key map [right] 'w3m-view-this-url) + (cond ((featurep 'xemacs) + (define-key map [(button3)] 'w3m-mouse-major-mode-menu)) + ;; Don't use [mouse-3], which gets submenus not working in GTK Emacs. + ((featurep 'gtk) + (define-key map [down-mouse-3] 'w3m-mouse-major-mode-menu) + (define-key map [drag-mouse-3] 'undefined) + (define-key map [mouse-3] 'undefined)) + (t + (define-key map [mouse-3] 'w3m-mouse-major-mode-menu))) + (if (featurep 'xemacs) + (progn + (define-key map [(button2)] 'w3m-mouse-view-this-url) + (define-key map [(shift button2)] + 'w3m-mouse-view-this-url-new-session)) + (define-key map [mouse-2] 'w3m-mouse-view-this-url) + ;; Support for mouse-1 on Emacs 22 and greater. + (define-key map [follow-link] 'mouse-face) + (define-key map [S-mouse-2] 'w3m-mouse-view-this-url-new-session)) + (define-key map "\C-c\C-@" 'w3m-history-store-position) + (if (featurep 'xemacs) + (define-key map [?\C-c (control space)] 'w3m-history-store-position) + ;; `C- ' doesn't mean `C-SPC' in XEmacs. + (define-key map [?\C-c ?\C-\ ] 'w3m-history-store-position)) + (define-key map "\C-c\C-v" 'w3m-history-restore-position) + (define-key map [left] 'w3m-view-previous-page) + (define-key map "B" 'w3m-view-previous-page) + (define-key map "N" 'w3m-view-next-page) + (define-key map "^" 'w3m-view-parent-page) + (define-key map "\M-d" 'w3m-download) + (define-key map "d" 'w3m-download-this-url) + (define-key map "u" 'w3m-print-this-url) + (define-key map "I" 'w3m-view-image) + (define-key map "\M-i" 'w3m-save-image) + (define-key map "c" 'w3m-print-current-url) + (define-key map "M" 'w3m-view-url-with-external-browser) + (define-key map "G" 'w3m-goto-url-new-session) + (define-key map "g" 'w3m-goto-url) + (define-key map "T" 'w3m-toggle-inline-images) + (define-key map "\M-T" 'w3m-turnoff-inline-images) + (define-key map "t" 'w3m-toggle-inline-image) + (when (w3m-display-graphic-p) + (define-key map "\M-[" 'w3m-zoom-out-image) + (define-key map "\M-]" 'w3m-zoom-in-image)) + (define-key map "U" 'w3m-goto-url) + (define-key map "v" 'w3m-bookmark-view) + (define-key map "V" 'w3m-bookmark-view-new-session) + (define-key map "q" 'w3m-close-window) + (define-key map "Q" 'w3m-quit) + (define-key map "\M-n" 'w3m-copy-buffer) + (define-key map "\C-c\C-t" 'w3m-copy-buffer) + (define-key map "\C-c\C-p" 'w3m-previous-buffer) + (define-key map "\C-c\C-n" 'w3m-next-buffer) + (when (featurep 'w3m-ems) + (define-key map [?\C-c ?\C-,] 'w3m-tab-move-left) + (define-key map [?\C-c ?\C-<] 'w3m-tab-move-left) + (define-key map [?\C-c ?\C-.] 'w3m-tab-move-right) + (define-key map [?\C-c ?\C->] 'w3m-tab-move-right)) + (define-key map "\C-c\C-w" 'w3m-delete-buffer) + (define-key map "\C-c\M-w" 'w3m-delete-other-buffers) + (define-key map "\C-c\M-l" 'w3m-delete-left-tabs) + (define-key map "\C-c\M-r" 'w3m-delete-right-tabs) + (define-key map "\C-c\C-s" 'w3m-select-buffer) + (define-key map "\C-c\C-a" 'w3m-switch-buffer) + (define-key map "\M-s" 'w3m-session-select) + (define-key map "\M-S" 'w3m-session-save) + (define-key map "r" 'w3m-redisplay-this-page) + (define-key map "R" 'w3m-reload-this-page) + (define-key map "\C-tR" 'w3m-reload-all-pages) + (define-key map "?" 'describe-mode) + (define-key map "\M-a" 'w3m-bookmark-add-this-url) + (define-key map "\M-k" 'w3m-cookie) + (define-key map "a" 'w3m-bookmark-add-current-url) + (define-key map "\C-ta" 'w3m-bookmark-add-all-urls) + (define-key map "+" 'w3m-antenna-add-current-url) + (define-key map "]" 'w3m-next-form) + (define-key map "[" 'w3m-previous-form) + (define-key map "}" 'w3m-next-image) + (define-key map "{" 'w3m-previous-image) + (define-key map "H" 'w3m-gohome) + (define-key map "A" 'w3m-antenna) + (define-key map "W" 'w3m-weather) + (define-key map "S" 'w3m-search) + (define-key map "D" 'w3m-dtree) + (define-key map ">" 'w3m-scroll-left) + (define-key map "<" 'w3m-scroll-right) + (define-key map "." 'w3m-shift-left) + (define-key map "," 'w3m-shift-right) + (define-key map "\M-l" 'w3m-horizontal-recenter) + (define-key map "\C-a" 'w3m-beginning-of-line) + (define-key map "\C-e" 'w3m-end-of-line) + (define-key map "\\" 'w3m-view-source) + (define-key map "=" 'w3m-view-header) + (define-key map "s" 'w3m-history) + (define-key map "E" 'w3m-edit-current-url) + (define-key map "e" 'w3m-edit-this-url) + (define-key map "C" (make-sparse-keymap)) + (define-key map "Ct" 'w3m-redisplay-with-content-type) + (define-key map "Cc" 'w3m-redisplay-with-charset) + (define-key map "CC" 'w3m-redisplay-and-reset) + (define-key map "\C-c\C-b" 'report-emacs-w3m-bug) + (define-key map "\C-c\C-c" 'w3m-submit-form) + (define-key map "\C-c\C-k" 'w3m-process-stop) + (define-key map "\C-c\C-m" 'w3m-move-unseen-buffer) + (define-key map "\C-c\C-l" 'w3m-go-to-linknum) + (setq w3m-lynx-like-map map))) + +(defvar w3m-info-like-map nil + "Info-like keymap used in emacs-w3m buffers.") +;; `C-t' is a prefix key reserved to commands that do something in all +;; emacs-w3m buffers. 2006-05-18 +(unless w3m-info-like-map + (let ((map (make-keymap))) + (suppress-keymap map) + (define-key map [backspace] 'w3m-scroll-down-or-previous-url) + (define-key map [delete] 'w3m-scroll-down-or-previous-url) + (define-key map "\C-?" 'w3m-scroll-down-or-previous-url) + (if (featurep 'xemacs) + (define-key map [(shift space)] 'w3m-scroll-down-or-previous-url) + (define-key map [?\S-\ ] 'w3m-scroll-down-or-previous-url)) + (define-key map "\t" 'w3m-next-anchor) + (define-key map [tab] 'w3m-next-anchor) + (define-key map [(shift tab)] 'w3m-previous-anchor) + (define-key map [(shift iso-lefttab)] 'w3m-previous-anchor) + (define-key map [backtab] 'w3m-previous-anchor) + (define-key map "\M-\t" 'w3m-previous-anchor) + (define-key map "\C-m" 'w3m-view-this-url) + (define-key map [(shift return)] 'w3m-view-this-url-new-session) + (define-key map [(shift kp-enter)] 'w3m-view-this-url-new-session) + (if (featurep 'xemacs) + (progn + (define-key map [(button2)] 'w3m-mouse-view-this-url) + (define-key map [(shift button2)] + 'w3m-mouse-view-this-url-new-session)) + (define-key map [mouse-2] 'w3m-mouse-view-this-url) + ;; Support for mouse-1 on Emacs 22 and greater. + (define-key map [follow-link] 'mouse-face) + (define-key map [S-mouse-2] 'w3m-mouse-view-this-url-new-session)) + (cond ((featurep 'xemacs) + (define-key map [(button3)] 'w3m-mouse-major-mode-menu)) + ;; Don't use [mouse-3], which gets submenus not working in GTK Emacs. + ((featurep 'gtk) + (define-key map [down-mouse-3] 'w3m-mouse-major-mode-menu) + (define-key map [drag-mouse-3] 'undefined) + (define-key map [mouse-3] 'undefined)) + (t + (define-key map [mouse-3] 'w3m-mouse-major-mode-menu))) + (define-key map "\C-c\C-@" 'w3m-history-store-position) + (define-key map [?\C-c?\C- ] 'w3m-history-store-position) + (define-key map "\C-c\C-v" 'w3m-history-restore-position) + (define-key map " " 'w3m-scroll-up-or-next-url) + (define-key map "a" 'w3m-bookmark-add-current-url) + (define-key map "\C-ta" 'w3m-bookmark-add-all-urls) + (define-key map "\M-a" 'w3m-bookmark-add-this-url) + (define-key map "+" 'w3m-antenna-add-current-url) + (define-key map "A" 'w3m-antenna) + (define-key map "b" 'w3m-scroll-down-or-previous-url) + (define-key map "!" 'w3m-redisplay-with-content-type) + (define-key map "d" 'w3m-download) + (define-key map "D" 'w3m-download-this-url) + (define-key map "e" 'w3m-edit-current-url) + (define-key map "E" 'w3m-edit-this-url) + (define-key map "f" 'undefined) ;; reserved. + (define-key map "g" 'w3m-goto-url) + (define-key map "G" 'w3m-goto-url-new-session) + (define-key map "h" 'describe-mode) + (define-key map "H" 'w3m-gohome) + (define-key map "i" (if (w3m-display-graphic-p) + 'w3m-toggle-inline-image + 'w3m-view-image)) + (define-key map "I" 'w3m-toggle-inline-images) + (define-key map "\M-I" 'w3m-turnoff-inline-images) + (when (w3m-display-graphic-p) + (define-key map "\M-[" 'w3m-zoom-out-image) + (define-key map "\M-]" 'w3m-zoom-in-image)) + (define-key map "\M-i" 'w3m-save-image) + (define-key map "l" 'w3m-view-previous-page) + (define-key map "\C-l" 'recenter) + (define-key map [(control L)] 'w3m-reload-this-page) + (define-key map [(control t) (control L)] 'w3m-reload-all-pages) + (define-key map "M" 'w3m-view-url-with-external-browser) + (define-key map "n" 'w3m-view-next-page) + (define-key map "N" 'w3m-namazu) + (define-key map "\M-n" 'w3m-copy-buffer) + (define-key map "\M-k" 'w3m-cookie) + (define-key map "\C-c\C-t" 'w3m-copy-buffer) + (define-key map "\C-c\C-p" 'w3m-previous-buffer) + (define-key map "\C-c\C-n" 'w3m-next-buffer) + (when (featurep 'w3m-ems) + (define-key map [?\C-c ?\C-,] 'w3m-tab-move-left) + (define-key map [?\C-c ?\C-<] 'w3m-tab-move-left) + (define-key map [?\C-c ?\C-.] 'w3m-tab-move-right) + (define-key map [?\C-c ?\C->] 'w3m-tab-move-right)) + (define-key map "\C-c\C-w" 'w3m-delete-buffer) + (define-key map "\C-c\M-w" 'w3m-delete-other-buffers) + (define-key map "\C-c\M-l" 'w3m-delete-left-tabs) + (define-key map "\C-c\M-r" 'w3m-delete-right-tabs) + (define-key map "\C-c\C-s" 'w3m-select-buffer) + (define-key map "\C-c\C-a" 'w3m-switch-buffer) + (define-key map "\M-s" 'w3m-session-select) + (define-key map "\M-S" 'w3m-session-save) + (define-key map "o" 'w3m-history) + (define-key map "O" 'w3m-db-history) + (define-key map "p" 'w3m-view-previous-page) + (define-key map "P" 'undecided) ;; reserved for print-this-buffer. + (define-key map "q" 'w3m-close-window) + (define-key map "Q" 'w3m-quit) + (define-key map "r" 'w3m-redisplay-this-page) + (define-key map "R" 'w3m-reload-this-page) + (define-key map "\C-tR" 'w3m-reload-all-pages) + (define-key map "s" 'w3m-search) + (define-key map "S" 'w3m-search-new-session) + (define-key map "T" 'w3m-dtree) + (define-key map "u" 'w3m-view-parent-page) + (define-key map "v" 'w3m-bookmark-view) + (define-key map "V" 'w3m-bookmark-view-new-session) + (define-key map "W" 'w3m-weather) + (define-key map "y" 'w3m-print-current-url) + (define-key map "Y" 'w3m-print-this-url) + (define-key map "=" 'w3m-view-header) + (define-key map "\\" 'w3m-view-source) + (define-key map "?" 'describe-mode) + (define-key map ">" 'w3m-scroll-left) + (define-key map "<" 'w3m-scroll-right) + (define-key map [(shift right)] 'w3m-shift-left) + (define-key map [(shift left)] 'w3m-shift-right) + (define-key map "\M-l" 'w3m-horizontal-recenter) + (define-key map "\C-a" 'w3m-beginning-of-line) + (define-key map "\C-e" 'w3m-end-of-line) + (define-key map "." 'beginning-of-buffer) + (define-key map "^" 'w3m-view-parent-page) + (define-key map "]" 'w3m-next-form) + (define-key map "[" 'w3m-previous-form) + (define-key map "}" 'w3m-next-image) + (define-key map "{" 'w3m-previous-image) + (define-key map "C" (make-sparse-keymap)) + (define-key map "Ct" 'w3m-redisplay-with-content-type) + (define-key map "Cc" 'w3m-redisplay-with-charset) + (define-key map "CC" 'w3m-redisplay-and-reset) + (define-key map "\C-c\C-b" 'report-emacs-w3m-bug) + (define-key map "\C-c\C-c" 'w3m-submit-form) + (define-key map "\C-c\C-k" 'w3m-process-stop) + (define-key map "\C-c\C-m" 'w3m-move-unseen-buffer) + (define-key map "\C-c\C-l" 'w3m-go-to-linknum) + (setq w3m-info-like-map map))) + +(defun w3m-alive-p (&optional visible) + "Return a buffer in which emacs-w3m is running. +If there is no emacs-w3m session, return nil. If the optional VISIBLE +is non-nil, a visible emacs-w3m buffer is preferred. The last visited +emacs-w3m buffer is likely to return if VISIBLE is omitted or there is +no visible buffer." + (let* ((buffers (w3m-list-buffers t)) + (buf (car buffers))) + (if visible + (progn + (setq visible nil) + (while (and (not visible) + buffers) + (when (get-buffer-window (car buffers) t) + (setq visible (car buffers))) + (setq buffers (cdr buffers))) + (or visible buf)) + buf))) + +(defun w3m-quit (&optional force) + "Return to a peaceful life (exiting all emacs-w3m sessions). +This command lets you quit browsing web after updating the arrived +URLs database. Quit browsing immediately if the prefix argument FORCE +is specified, otherwise prompt you for the confirmation. See also +`w3m-close-window'." + (interactive "P") + (let ((buffers (w3m-list-buffers t)) + (all-buffers (let ((w3m-fb-mode nil)) + (w3m-list-buffers t)))) + (if (or (= (length buffers) (length all-buffers)) + (prog1 (y-or-n-p "Kill emacs-w3m buffers on other frames? ") + (message nil))) + (let ((w3m-fb-mode nil)) + (when (or force + (prog1 (y-or-n-p "Do you want to exit emacs-w3m? ") + (message nil))) + (w3m-session-automatic-save) + (w3m-delete-frames-and-windows) + (sit-for 0) ;; Delete frames seemingly fast. + (dolist (buffer all-buffers) + (w3m-cancel-refresh-timer buffer) + (kill-buffer buffer) + (when w3m-use-form + (w3m-form-kill-buffer buffer))) + (when w3m-use-form + (w3m-form-textarea-file-cleanup)) + (w3m-select-buffer-close-window) + (w3m-cache-shutdown) + (w3m-arrived-shutdown) + (w3m-process-shutdown) + (when w3m-use-cookies + (w3m-cookie-shutdown)) + (w3m-kill-all-buffer))) + (w3m-session-automatic-save) + (w3m-fb-delete-frame-buffers) + (w3m-fb-select-buffer)))) + +(defun w3m-close-window () + "Return to a restless life (quitting all emacs-w3m sessions). +This command closes all emacs-w3m windows, but all the emacs-w3m +buffers remain. Frames created for emacs-w3m sessions will also be +closed. See also `w3m-quit'." + (interactive) + (w3m-history-store-position) + ;; `w3m-list-buffers' won't return all the emacs-w3m buffers if + ;; `w3m-fb-mode' is turned on. + (let* ((buffers (w3m-list-buffers t)) + (bufs buffers) + buf windows window) + (w3m-delete-frames-and-windows) + (while bufs + (setq buf (pop bufs)) + (w3m-cancel-refresh-timer buf) + (bury-buffer buf)) + (while buffers + (setq buf (pop buffers) + windows (get-buffer-window-list buf 'no-minibuf t)) + (while windows + (setq window (pop windows)) + (set-window-buffer + window + (w3m-static-if (featurep 'xemacs) + (other-buffer buf (window-frame window) nil) + (other-buffer buf nil (window-frame window))))))) + (w3m-select-buffer-close-window) + ;; The current-buffer and displayed buffer are not necessarily the + ;; same at this point; if they aren't bury-buffer will be a nop, and + ;; we will infloop. + (set-buffer (window-buffer (selected-window))) + (while (eq major-mode 'w3m-mode) + (bury-buffer))) + +(unless w3m-mode-map + (setq w3m-mode-map + (if (eq w3m-key-binding 'info) + w3m-info-like-map + w3m-lynx-like-map))) + +(defun w3m-mouse-major-mode-menu (event) + "Pop up a W3M mode-specific menu of mouse commands." + (interactive "e") + (mouse-set-point event) + (let* ((bmkitems (if w3m-bookmark-mode + (cdr w3m-bookmark-menu-items) + (car w3m-bookmark-menu-items))) + (bmkmenu (if w3m-bookmark-menu-items-pre + `(,@bmkitems + "----" + ,@w3m-bookmark-menu-items-pre) + bmkitems))) + (w3m-static-if (featurep 'xemacs) + (let (menubar) + (when current-menubar + (run-hooks 'activate-menubar-hook)) + (setq menubar + (cons "w3m" + (delq nil + `(,@(cdr w3m-rmouse-menubar) + "----" + "----" + ,(assoc "w3m" current-menubar) + "----" + ,(assoc "Bookmark" current-menubar) + ,(assoc "Tab" current-menubar) + ,(assoc "Session" current-menubar))))) + (popup-menu menubar event)) + (run-hooks 'menu-bar-update-hook) + (popup-menu (delete nil + `(,@w3m-rmouse-menubar + "----" + "----" + ,w3m-menubar + "----" + ,(cons "Bookmark" bmkmenu) + ,(when w3m-tab-menubar-make-items-preitems + (cons "Tab" w3m-tab-menubar-make-items-preitems)) + ,(cons "Session" (if w3m-session-menu-items-pre + (append w3m-session-menu-items + '("----") + w3m-session-menu-items-pre) + w3m-session-menu-items)))) + event)))) + +(defvar w3m-tab-button-menu-current-buffer nil + "Internal variable used by `w3m-tab-button-menu'.") + +(defvar w3m-tab-button-menu-commands + (let ((manyp '(cdr (w3m-list-buffers))) + (currentp 'w3m-tab-button-menu-current-buffer) + (leftp '(and w3m-tab-button-menu-current-buffer + (w3m-lefttab-exist-p w3m-tab-button-menu-current-buffer))) + (rightp '(and w3m-tab-button-menu-current-buffer + (w3m-righttab-exist-p + w3m-tab-button-menu-current-buffer))) + (many2p '(and w3m-tab-button-menu-current-buffer + (cdr (w3m-list-buffers))))) + `((w3m-goto-url-new-session + ,(w3m-make-menu-item "$B?7$7$$%?%V(B" "New Tab") + t ,w3m-new-session-in-background w3m-new-session-url) + (w3m-copy-buffer + ,(w3m-make-menu-item "$B%?%V$rJ#@=(B" "Copy Tab") + ,currentp ,w3m-new-session-in-background) + - + (w3m-reload-this-page + ,(w3m-make-menu-item "$B%?%V$r:FFI$_9~$_(B" "Reload Tab") + ,currentp) + (w3m-reload-all-pages + ,(w3m-make-menu-item "$B$9$Y$F$N%?%V$r:FFI$_9~$_(B" "Reload All Tabs") + ,manyp) + - + (w3m-delete-buffer + ,(w3m-make-menu-item "$B$3$N%?%V$rJD$8$k(B" "Close This Tab") + ,currentp) + - + (w3m-delete-other-buffers + ,(w3m-make-menu-item "$BB>$N%?%V$r$9$Y$FJD$8$k(B" "Close Other Tabs") + ,many2p) + (w3m-delete-left-tabs + ,(w3m-make-menu-item "$B:8B&$N%?%V$r$9$Y$FJD$8$k(B" "Close Left Tabs") + ,leftp) + (w3m-delete-right-tabs + ,(w3m-make-menu-item "$B1&B&$N%?%V$r$9$Y$FJD$8$k(B" "Close Right Tabs") + ,rightp) + - + (w3m-view-url-with-external-browser + ,(w3m-make-menu-item "$B30It%V%i%&%6$G3+$/(B" "View with external browser") + ,currentp ,w3m-new-session-in-background w3m-current-url) + - + (w3m-session-save + ,(w3m-make-menu-item "$B$9$Y$F$N%?%V$rJ]B8$9$k(B" "Save All Tabs...") + t) + (w3m-session-select + ,(w3m-make-menu-item "$B%?%V%j%9%H$rA*Br$9$k(B" "Select List of Tabs...") + t) + (w3m-bookmark-add-current-url + ,(w3m-make-menu-item "$B$3$N%?%V$r%V%C%/%^!<%/(B" "Bookmark This Tab...") + ,currentp ,w3m-new-session-in-background) + (w3m-bookmark-add-all-urls + ,(w3m-make-menu-item + "$B$9$Y$F$N%?%V$r%V%C%/%^!<%/(B" "Bookmark All Tabs..." ) + ,manyp))) + "List of commands invoked by the tab button menu. +Each item is the symbol `-' which is a separator, +or a list which consists of the following elements: + +0: a function. +1: a function description. +2: a Lisp form which returns non-nil if the item is active. +3: a flag specifying whether the buffer should be selected. +&rest: arguments passed to the function.") + +(w3m-static-unless (featurep 'xemacs) + (easy-menu-define + w3m-tab-button-menu w3m-tab-map "w3m tab button menu." + (cons nil (w3m-make-menu-commands w3m-tab-button-menu-commands))) + + ;; This function must be placed after `easy-menu-define'. + (defun w3m-tab-button-menu (event buffer) + (select-window (posn-window (event-start event))) + (setq w3m-tab-button-menu-current-buffer buffer) + (popup-menu w3m-tab-button-menu)) + + (defun w3m-tab-button-menu2 (event buffer) + (select-window (posn-window (event-start event))) + (setq w3m-tab-button-menu-current-buffer nil) + (popup-menu w3m-tab-button-menu))) + +(unless w3m-link-map + (setq w3m-link-map (make-sparse-keymap)) + (cond ((featurep 'xemacs) + (define-key w3m-link-map [(button3)] 'w3m-link-menu)) + ;; Don't use [mouse-3], which gets submenus not working in GTK Emacs. + ((featurep 'gtk) + (define-key w3m-link-map [down-mouse-3] 'w3m-link-menu) + (define-key w3m-link-map [drag-mouse-3] 'undefined) + (define-key w3m-link-map [mouse-3] 'undefined)) + (t + (define-key w3m-link-map [mouse-3] 'w3m-link-menu)))) + +(easy-menu-define w3m-link-menu w3m-link-map "w3m link menu." + `("Link" ;; This cannot be omitted for at least MacOS. + [,(w3m-make-menu-item "$B%j%s%/$r$3$N%;%C%7%g%s$G3+$/(B" + "Open Link in This Session") + w3m-view-this-url (w3m-anchor (point))] + [,(w3m-make-menu-item "$B%j%s%/$r?7$7$$%;%C%7%g%s$G3+$/(B" + "Open Link in New Session") + w3m-view-this-url-new-session (w3m-anchor (point))] + [,(w3m-make-menu-item "$B%j%s%/$r30It%V%i%&%6$G3+$/(B" + "Open Link in an External Browser") + w3m-external-view-this-url (w3m-anchor (point))] + "-" + [,(w3m-make-menu-item "$B$3$N%j%s%/$r%V%C%/%^!<%/(B..." + "Bookmark This Link...") + w3m-bookmark-add-this-url (w3m-anchor (point))] + [,(w3m-make-menu-item "$BL>A0$rIU$1$F%j%s%/@h$rJ]B8(B..." + "Save Link As...") + w3m-download-this-url (w3m-anchor (point))] + [,(w3m-make-menu-item "$BL>A0$rIU$1$F2hA|$rJ]B8(B..." + "Save Image As...") + w3m-download-this-image (w3m-image (point))] + [,(w3m-make-menu-item "$B%j%s%/$N(B URL $B$r%3%T!<(B" + "Copy Link Location") + w3m-print-this-url (w3m-anchor (point))] + [,(w3m-make-menu-item "$B2hA|$N(B URL $B$r%3%T!<(B" + "Copy Image Location") + w3m-print-this-image-url (w3m-image (point))])) + +(defun w3m-link-menu (event) + "Pop up a link menu." + (interactive "e") + (mouse-set-point event) + (popup-menu w3m-link-menu)) + +(defvar w3m-buffer-unseen nil) +(make-variable-buffer-local 'w3m-buffer-unseen) + +(defun w3m-set-buffer-unseen (&optional url) + (setq w3m-buffer-unseen t) + (w3m-add-local-hook 'pre-command-hook 'w3m-set-buffer-seen)) + +(defun w3m-set-buffer-seen () + (setq w3m-buffer-unseen nil) + (w3m-remove-local-hook 'pre-command-hook 'w3m-set-buffer-seen)) + +(defun w3m-move-unseen-buffer () + "Move to the next unseen buffer." + (interactive) + (when (eq major-mode 'w3m-mode) + (let* ((bufs (w3m-list-buffers)) + (right (memq (current-buffer) bufs)) + unseen) + (setq unseen + (catch 'unseen + (dolist (buf (append right bufs)) + (when (w3m-unseen-buffer-p buf) + (throw 'unseen buf))))) + (if (not unseen) + (message "No unseen buffer.") + (switch-to-buffer unseen) + (run-hooks 'w3m-select-buffer-hook) + (w3m-select-buffer-update))))) + +(defun w3m-mode () + "Major mode for browsing web. + +\\<w3m-mode-map>\ +\\[w3m-view-this-url] Display the page pointed to by the link under point. + You may use the prefix arg `2' or\ + `\\[universal-argument] \\<universal-argument-map>\ +\\[universal-argument-more]\\<w3m-mode-map>' to make a new session. +\\[w3m-mouse-view-this-url] Follow the link under the mouse pointer. + If w3m-use-form is t, `\\[w3m-view-this-url]' and\ + `\\[w3m-mouse-view-this-url]' enable you to enter forms. + You may use the prefix arg `2' or\ + `\\[universal-argument] \\<universal-argument-map>\ +\\[universal-argument-more]\\<w3m-mode-map>' to make a new session. +\\[w3m-view-this-url-new-session] Display the page of the link\ + in a new session. + If the region is active, visit all the links within the region. +\\[w3m-mouse-view-this-url-new-session] Display the page of the link\ + in a new session by mouse. + +\\[w3m-submit-form] Submit the form at point. + +\\[w3m-reload-this-page] Reload the current page. +\\[w3m-reload-all-pages] Reload all the pages. +\\[w3m-redisplay-this-page] Redisplay the current page. +\\[w3m-redisplay-with-content-type] Redisplay the page, specifying\ + a content type. +\\[w3m-redisplay-with-charset] Redisplay the current page, specifying\ + a charset. +\\[w3m-redisplay-and-reset] Redisplay the current page and reset\ + the user-specified charset and\n\tcontent type. + +\\[w3m-next-anchor] Move the point to the next anchor. +\\[w3m-previous-anchor] Move the point to the previous anchor. +\\[w3m-go-to-linknum] Move the point to the numbered anchor. +\\[w3m-next-form] Move the point to the next form. +\\[w3m-previous-form] Move the point to the previous form. +\\[w3m-next-image] Move the point to the next image. +\\[w3m-previous-image] Move the point to the previous image. + +\\[w3m-view-previous-page] Move back to the previous page in the history. +\\[w3m-view-next-page] Move forward to the next page in the history. +\\[w3m-view-parent-page] Attempt to move to the parent directory of\ + the page. + +\\[w3m-goto-url] Visit the web page. +\\[w3m-goto-url-new-session] Visit the web page in a new session. +\\[w3m-gohome] Go to the Home page. +\\[w3m-view-url-with-external-browser] Display the current page using the\ + external browser. + +\\[w3m-download] Download the URL. +\\[w3m-download-this-url] Download the URL under point. + +\\[w3m-view-image] Display the image under point in the external viewer. +\\[w3m-save-image] Save the image under point to a file. +\\[w3m-toggle-inline-images] Toggle the visibility of all images. +\\[w3m-turnoff-inline-images] Turn off to display all images. +\\[w3m-zoom-out-image] Zoom in an image on the point. +\\[w3m-zoom-in-image] Zoom out an image on the point. + +\\[w3m-print-this-url] Display the url under point and put it into\ + `kill-ring'. +\\[w3m-print-current-url] Display the url of the current page and put\ + it into `kill-ring'. + +\\[w3m-view-source] Display the html source of the current page. +\\[w3m-view-header] Display the header of the current page. +\\[w3m-edit-current-url] Edit the local file displayed as the current\ + page. +\\[w3m-edit-this-url] Edit the local file which is pointed to by URL under\ + point. + +\\[w3m-scroll-up-or-next-url] Scroll up the current window, or go to the\ + next page. +\\[w3m-scroll-down-or-previous-url] Scroll down the current window, or\ + go to the previous page. +\\[w3m-scroll-left] Scroll to the left. +\\[w3m-scroll-right] Scroll to the right. +\\[w3m-shift-left] Shift to the left. +\\[w3m-shift-right] Shift to the right. +\\[w3m-horizontal-recenter] Recenter horizontally. +\\[w3m-beginning-of-line] Go to the entire beginning of line, may be\ + accompanied by scrolling. +\\[w3m-end-of-line] Go to the entire end of line, may be accompanied\ + by scrolling. + +\\[next-line] Next line. +\\[previous-line] Previous line. +\\[forward-char] Forward char. +\\[backward-char] Backward char. + +\\[goto-line] Go to the line, specifying the line number (beginning with 1). +\\[w3m-history-store-position] Mark the current position. +\\[w3m-history-restore-position] Go to the last marked position. + +\\[w3m-history] Display the history of pages you have visited in the\ + session. + If it is called with the prefix arg, it displays the arrived URLs. +\\[w3m-antenna] Display the report of changes in web pages. + If it is called with the prefix arg, it updates the report. +\\[w3m-antenna-add-current-url] Add the current url to the antenna database. +\\[w3m-search] Query to the search engine a word. + To change the server, give any prefix argument to the command. +\\[w3m-search-new-session] Query to the search engine a word in a new session. + To change the server, give any prefix argument to the command. +\\[w3m-weather] Display a weather report. + To change the local area, give any prefix argument to the command. +\\[w3m-dtree] Display a directory tree. + If the prefix arg is given, display files in addition to directories. +\\[w3m-namazu] Search files with Namazu. + To change the index, give any prefix argument to the command. + +\\[w3m-bookmark-view] Display the bookmark. +\\[w3m-bookmark-view-new-session] Display the bookmark on a new session. +\\[w3m-bookmark-add-current-url] Add a url of the current page to\ + the bookmark. + If the prefix arg is given, the user will be prompted for the url. +\\[w3m-bookmark-add-all-urls] Add urls of all pages being visited to\ + the bookmark. +\\[w3m-bookmark-add-this-url] Add the url under point to the bookmark. + +\\[w3m-copy-buffer] Create a copy of the current page as a new session. +\\[w3m-next-buffer] Turn the page of emacs-w3m buffers ahead. +\\[w3m-previous-buffer] Turn the page of emacs-w3m buffers behind. +\\[w3m-select-buffer] Pop to the emacs-w3m buffers selection window up. +\\[w3m-switch-buffer] Select one of emacs-w3m buffers at the current window. +\\[w3m-delete-buffer] Delete the current emacs-w3m buffer. +\\[w3m-delete-other-buffers] Delete emacs-w3m buffers except for the\ + current buffer. + +\\[w3m] Start browsing web with emacs-w3m. +\\[w3m-close-window] Close all emacs-w3m windows, without deleteing\ + buffers. +\\[w3m-quit] Exit browsing web. All emacs-w3m buffers will be deleted. + +\\[describe-mode] describe-mode. + +\\[report-emacs-w3m-bug] Send a bug report to the emacs-w3m team. +" + (kill-all-local-variables) + (buffer-disable-undo) + (setq major-mode 'w3m-mode) + (setq mode-name "w3m") + (use-local-map w3m-mode-map) + (setq truncate-lines t + w3m-display-inline-images w3m-default-display-inline-images) + (when w3m-auto-show + (when (boundp 'auto-hscroll-mode) + (set (make-local-variable 'auto-hscroll-mode) nil)) + (when (boundp 'automatic-hscrolling) + (set (make-local-variable 'automatic-hscrolling) nil)) + (when (boundp 'auto-show-mode) + (set (make-local-variable 'auto-show-mode) nil)) + (when (boundp 'hscroll-mode) + (set (make-local-variable 'hscroll-mode) nil))) + (make-local-variable 'list-buffers-directory) + (w3m-static-unless (featurep 'xemacs) + (setq show-trailing-whitespace nil)) + (w3m-setup-toolbar) + (w3m-setup-menu) + (run-hooks 'w3m-mode-setup-functions) + (w3m-run-mode-hooks 'w3m-mode-hook)) + +(defun w3m-scroll-up-1 (&optional arg) + "Scroll the current window up ARG line. +ARG will be fixed into 1 when this function is called interactively. +This function avoids the bug that Emacs 21.x hangs up when scrolling +up for too many number of lines if `scroll-margin' is set as two or +greater." + (interactive '(1)) + (w3m-static-unless (featurep 'xemacs) + (when (and (numberp arg) + (> arg 0) + (numberp scroll-margin) + (> scroll-margin 0)) + (setq arg (min arg + (max 0 (- (count-lines (window-start) (point-max)) + scroll-margin)))))) + (scroll-up arg)) + +(defun w3m-scroll-up-or-next-url (arg) + "Scroll the current window up ARG lines, or go to the next page." + (interactive "P") + (w3m-keep-region-active) + (if (pos-visible-in-window-p (point-max)) + (if w3m-next-url + (let ((w3m-prefer-cache t)) + (w3m-goto-url w3m-next-url)) + (signal 'end-of-buffer nil)) + (w3m-scroll-up-1 arg))) + +(defun w3m-scroll-down-or-previous-url (arg) + "Scroll the current window down ARG lines, or go to the previous page." + (interactive "P") + (w3m-keep-region-active) + (if (pos-visible-in-window-p (point-min)) + (if w3m-previous-url + (let ((w3m-prefer-cache t)) + (w3m-goto-url w3m-previous-url)) + (signal 'beginning-of-buffer nil)) + (scroll-down arg))) + +(defvar w3m-current-longest-line nil + "The length of the longest line in the window.") + +(defun w3m-set-current-longest-line () + "Set the value of `w3m-current-longest-line'." + (save-excursion + (goto-char (window-start)) + (end-of-line) + (setq w3m-current-longest-line 0) + ;; The XEmacs version of `window-end' returns the point beyond + ;; `point-max' if it is visible in the window. + (let ((end (min (window-end) (point-max)))) + (while (progn + (skip-chars-backward " ") + (setq w3m-current-longest-line + (max w3m-current-longest-line (current-column))) + (end-of-line 2) + (< (point) end)))))) + +(defun w3m-scroll-left (arg) + "Scroll to the left. +If ARG (the prefix) is a number, scroll the window ARG columns. +Otherwise, it defaults to `w3m-horizontal-scroll-columns'." + (interactive "P") + (when (if (memq last-command '(w3m-scroll-left w3m-shift-left)) + (or (< (window-hscroll) w3m-current-longest-line) + (progn (ding) nil)) + (w3m-set-current-longest-line) + (< (window-hscroll) w3m-current-longest-line)) + (w3m-horizontal-scroll 'left (if arg + (prefix-numeric-value arg) + w3m-horizontal-scroll-columns)))) + +(defun w3m-scroll-right (arg) + "Scroll to the right. +If ARG (the prefix) is a number, scroll the window ARG columns. +Otherwise, it defaults to `w3m-horizontal-scroll-columns'." + (interactive "P") + (if (zerop (window-hscroll)) + (when (memq last-command '(w3m-scroll-right w3m-shift-right)) + (ding)) + (w3m-horizontal-scroll 'right (if arg + (prefix-numeric-value arg) + w3m-horizontal-scroll-columns)))) + +(defun w3m-shift-left (arg) + "Shift to the left. Shift means a fine level horizontal scrolling. +If ARG (the prefix) is a number, scroll the window ARG columns. +Otherwise, it defaults to `w3m-horizontal-shift-columns'." + (interactive "P") + (when (if (memq last-command '(w3m-scroll-left w3m-shift-left)) + (or (< (window-hscroll) w3m-current-longest-line) + (progn (ding) nil)) + (w3m-set-current-longest-line) + (< (window-hscroll) w3m-current-longest-line)) + (w3m-horizontal-scroll 'left (if arg + (prefix-numeric-value arg) + w3m-horizontal-shift-columns)))) + +(defun w3m-shift-right (arg) + "Shift to the right. Shift means a fine level horizontal scrolling. +If ARG (the prefix) is a number, scroll the window ARG columns. +Otherwise, it defaults to `w3m-horizontal-shift-columns'." + (interactive "P") + (if (zerop (window-hscroll)) + (when (memq last-command '(w3m-scroll-right w3m-shift-right)) + (ding)) + (w3m-horizontal-scroll 'right (if arg + (prefix-numeric-value arg) + w3m-horizontal-shift-columns)))) + +(defvar w3m-horizontal-scroll-done nil) +(make-variable-buffer-local 'w3m-horizontal-scroll-done) +(defvar w3m-current-position '(-1 0 0)) +(make-variable-buffer-local 'w3m-current-position) + +(defun w3m-auto-show () + "Scroll horizontally so that the point is visible." + (when (and truncate-lines + w3m-auto-show + (not w3m-horizontal-scroll-done) + (not (and (eq last-command this-command) + (or (eq (point) (point-min)) + (eq (point) (point-max))))) + (or (memq this-command '(beginning-of-buffer end-of-buffer)) + (string-match "\\`i?search-" (symbol-name this-command)) + (and (markerp (nth 1 w3m-current-position)) + (markerp (nth 2 w3m-current-position)) + (>= (point) + (marker-position (nth 1 w3m-current-position))) + (<= (point) + (marker-position (nth 2 w3m-current-position)))))) + (w3m-horizontal-on-screen)) + (setq w3m-horizontal-scroll-done nil)) + +;; Ailiases to meet XEmacs bugs? +(eval-and-compile + (unless (fboundp 'w3m-window-hscroll) + (defalias 'w3m-window-hscroll 'window-hscroll)) + (unless (fboundp 'w3m-current-column) + (defalias 'w3m-current-column 'current-column)) + (unless (fboundp 'w3m-set-window-hscroll) + (defalias 'w3m-set-window-hscroll 'set-window-hscroll))) + +(defun w3m-horizontal-scroll (direction ncol) + "Scroll the window NCOL columns horizontally to DIRECTION. +DIRECTON should be the symbol `left' which specifies to scroll to the +left, or any other Lisp object meaning to scroll to the right. NCOL +should be a number. This function is a subroutine called by the +commands `w3m-scroll-left', `w3m-scroll-right', `w3m-shift-left' and +`w3m-shift-right'." + (setq w3m-horizontal-scroll-done t) + (let ((inhibit-point-motion-hooks t)) + (w3m-set-window-hscroll (selected-window) + (max 0 + (+ (w3m-window-hscroll) + (if (eq direction 'left) ncol (- ncol))))) + (let ((hs (w3m-window-hscroll))) + (unless (and (>= (- (current-column) hs) 0) + (< (- (current-column) hs) (window-width))) + (move-to-column (if (eq direction 'left) hs + (+ hs (window-width) + (w3m-static-if (featurep 'xemacs) -3 -2)))))))) + +(defun w3m-horizontal-on-screen () + "Scroll the window horizontally so that the current position is visible. +See the documentation for the `w3m-horizontal-scroll-division' variable +for details." + (when w3m-auto-show + (setq w3m-horizontal-scroll-done t) + (let ((cc (w3m-current-column)) + (hs (w3m-window-hscroll)) + (ww (window-width)) + (inhibit-point-motion-hooks t)) + (unless (and (>= (- cc hs) 0) + (< (+ (- cc hs) (if (eolp) + 0 + (w3m-static-if (featurep 'xemacs) + 3 2))) ;; '$$' + ww)) + (w3m-set-window-hscroll + (selected-window) + (max 0 (- cc (if (> hs cc) + (/ ww w3m-horizontal-scroll-division) + (* (/ ww w3m-horizontal-scroll-division) + (1- w3m-horizontal-scroll-division)))))))))) + +(defun w3m-horizontal-recenter (&optional arg) + "Recenter horizontally. With ARG, put the point on the column ARG. +If `truncate-lines' is nil, it does nothing besides resetting the +window's hscroll." + (interactive "P") + (if truncate-lines + (progn + (cond ((< (w3m-current-column) (window-hscroll)) + (move-to-column (w3m-window-hscroll)) + (setq arg 0)) + ((>= (w3m-current-column) (+ (window-hscroll) (window-width))) + (move-to-column (+ (w3m-window-hscroll) (window-width) -2)) + (setq arg -1)) + ((listp arg) + (setq arg (car arg)))) + (w3m-set-window-hscroll + (selected-window) + (if (numberp arg) + (if (>= arg 0) + (max (- (current-column) arg) 0) + (let* ((home (point)) + (inhibit-point-motion-hooks t) + (maxcolumn (prog2 + (end-of-line) + (1- (current-column)) + (goto-char home)))) + (max (min (- (current-column) + (window-width) + arg + -2) + maxcolumn) + 0))) + (max (- (current-column) (/ (window-width) 2) -1) + 0)))) + (set-window-hscroll (selected-window) 0))) + +(defun w3m-recenter () + "Recenter according to `w3m-view-recenter'." + (when (and w3m-view-recenter + (eq (window-buffer) (current-buffer))) + (recenter (if (eq t w3m-view-recenter) + '(4) ;; per "C-u C-l" to recenter in middle + w3m-view-recenter)))) ;; otherwise an integer + +(defun w3m-beginning-of-line (&optional arg) + "Make the beginning of the line visible and move the point to there." + (interactive "P") + (w3m-keep-region-active) + (when (listp arg) + (setq arg (car arg))) + (set-window-hscroll (selected-window) 0) + (beginning-of-line arg)) + +(defun w3m-end-of-line (&optional arg) + "Move the point to the end of the line and scroll the window left. +It makes the ends of upper and lower three lines visible. If +`truncate-lines' is nil, it works identically as `end-of-line'." + (interactive "P") + (w3m-keep-region-active) + (if truncate-lines + (progn + (when (listp arg) + (setq arg (car arg))) + (forward-line (1- (or arg 1))) + (let ((inhibit-point-motion-hooks t) + home) + (end-of-line) + (setq home (point) + arg (current-column)) + (dolist (n '(-3 -2 -1 1 2 3)) + (forward-line n) + (end-of-line) + (setq arg (max (current-column) arg)) + (goto-char home))) + (setq temporary-goal-column arg + this-command 'next-line) + (w3m-set-window-hscroll (selected-window) + (max (- arg (window-width) -2) 0))) + (set-window-hscroll (selected-window) 0) + (end-of-line arg))) + +(defun w3m-pattern-uri-replace (uri format) + "Create a new uri from URI matched by last search according to FORMAT." + (replace-match format nil nil uri)) + +(defun w3m-uri-replace (uri) + "Return the converted URI according to `w3m-uri-replace-alist'." + (catch 'found-replacement + (dolist (elem w3m-uri-replace-alist uri) + (when (string-match (car elem) uri) + (if (setq uri + (cond + ((consp (cdr elem)) + (apply (cadr elem) uri (cddr elem))) + ;; Rest conditions are inserted in order to keep + ;; backward compatibility. + ((functionp (cdr elem)) + (funcall (cdr elem) uri)) + ((stringp (cdr elem)) + (w3m-pattern-uri-replace uri (cdr elem))))) + (throw 'found-replacement uri) + (error "Invalid replacement: %s" elem)))))) + +(defun w3m-goto-mailto-url (url &optional post-data) + (let ((before (nreverse (buffer-list))) + comp info buffers buffer function) + (save-window-excursion + (if (and (symbolp w3m-mailto-url-function) + (fboundp w3m-mailto-url-function)) + (funcall w3m-mailto-url-function url) + ;; Require `mail-user-agent' setting + (unless (and (boundp 'mail-user-agent) + (symbol-value 'mail-user-agent)) + (error "You must specify the valid value to `mail-user-agent'")) + (unless (and (setq comp (get (symbol-value 'mail-user-agent) + 'composefunc)) + (fboundp comp)) + (error "No function to compose a mail in `%s'" + (symbol-value 'mail-user-agent))) + ;; Use rfc2368.el if exist. + ;; rfc2368.el is written by Sen Nagata. + ;; You can find it in "contrib" directory of Mew package + ;; or in "utils" directory of Wanderlust package. + (if (or (featurep 'rfc2368) + (condition-case nil (require 'rfc2368) (error nil))) + (progn + (setq info (rfc2368-parse-mailto-url url)) + (apply comp + (append (mapcar (lambda (x) + (cdr (assoc x info))) + '("To" "Subject")) + (if post-data + (list + (list (cons + "body" + (or (and + (consp post-data) + (concat (car post-data) "\n")) + (concat post-data "\n"))))))))) + ;; without rfc2368.el. + (string-match ":\\([^?]+\\)" url) + (funcall comp (match-string 1 url))))) + (setq buffers (nreverse (buffer-list))) + (save-current-buffer + (while buffers + (setq buffer (car buffers) + buffers (cdr buffers)) + (unless (memq buffer before) + (set-buffer buffer) + (when (setq function + (cdr (assq major-mode + w3m-mailto-url-popup-function-alist))) + (setq buffers nil))))) + (when function + (let (special-display-buffer-names + special-display-regexps + same-window-buffer-names + same-window-regexps) + (funcall function buffer))))) + +(defun w3m-convert-ftp-url-for-emacsen (url) + (or (and (string-match "^ftp://?\\([^/@]+@\\)?\\([^/]+\\)\\(?:/~/\\)?" url) + (concat "/" + (if (match-beginning 1) + (substring url (match-beginning 1) (match-end 1)) + "anonymous@") + (substring url (match-beginning 2) (match-end 2)) + ":" + (substring url (match-end 2)))) + (error "URL is strange"))) + +(defun w3m-file-directory-p (file) + "Emulate the `file-directory-p' function for the remote file FILE." + (when (file-exists-p file) + (let (dirp (i 10)) + (catch 'loop + (while (> i 0) + (setq dirp (car (file-attributes file))) + (if (stringp dirp) + (setq file (expand-file-name + dirp + (file-name-directory (directory-file-name file))) + i (1- i)) + (throw 'loop dirp))))))) + +(defun w3m-goto-ftp-url (url &optional filename) + "Copy a remote file to the local system or run dired for ftp URLs. +If URL looks like a file, it will perform the copy. Otherwise, it +will run `dired-other-window' using `ange-ftp' or `efs'. Optional +FILENAME specifies the name of a local file. If FILENAME is omitted, +this function will prompt user for it." + (let ((ftp (w3m-convert-ftp-url-for-emacsen url)) + file) + (if (or (string-equal "/" (substring ftp -1)) + ;; `file-directory-p' takes a long time for remote files. + ;; `file-directory-p' returns t in Emacsen, anytime. + (w3m-file-directory-p ftp)) + (dired-other-window ftp) + (setq file (file-name-nondirectory ftp)) + (unless filename + (setq filename (w3m-read-file-name nil nil file))) + (unless (file-writable-p (file-name-directory filename)) + (error "Permission denied, %s" (file-name-directory filename))) + (when (or (not (file-exists-p filename)) + (if (file-writable-p filename) + (and (prog1 + (y-or-n-p + (format "File(%s) already exists. Overwrite? " + filename)) + (message nil)) + (progn + (delete-file filename) + t)) + (error "Permission denied, %s" filename))) + (copy-file ftp filename) + (message "Wrote %s" filename))))) + +(unless w3m-doc-view-map + (setq w3m-doc-view-map (make-sparse-keymap)) + (define-key w3m-doc-view-map "q" 'w3m-doc-view-quit)) + +(defun w3m-doc-view (url) + "View PDF/PostScript/DVI files using `doc-view-mode'. +`w3m-pop-up-windows' and `w3m-pop-up-frames' control how the document +window turns up." + (let* ((basename (file-name-nondirectory (w3m-url-strip-query url))) + (regexp (concat "\\`" (regexp-quote basename) "\\(?:<[0-9]+>\\)?\\'")) + (buffers (buffer-list)) + buffer data case-fold-search) + (save-current-buffer + (while buffers + (setq buffer (pop buffers)) + (if (and (string-match regexp (buffer-name buffer)) + (progn + (set-buffer buffer) + (eq major-mode 'doc-view-mode)) + (equal buffer-file-name url)) + (setq buffers nil) + (setq buffer nil)))) + (unless (prog1 + buffer + (unless buffer + (setq buffer (generate-new-buffer basename) + data (buffer-string))) + (let ((pop-up-windows w3m-pop-up-windows) + (pop-up-frames w3m-pop-up-frames)) + (pop-to-buffer buffer))) + (set-buffer-multibyte nil) + (insert data) + (set-buffer-modified-p nil) + (setq buffer-file-name url) + (doc-view-mode) + (use-local-map w3m-doc-view-map) + (set-keymap-parent w3m-doc-view-map doc-view-mode-map) + 'internal-view))) + +(defun w3m-doc-view-quit (&optional kill) + "Quit the `doc-view-mode' window that emacs-w3m launches. +With the prefix argument KILL, kill the buffer." + (interactive "P") + (cond (w3m-pop-up-frames + (when (prog1 (one-window-p t) (quit-window kill)) + (delete-frame (selected-frame)))) + (w3m-pop-up-windows + (if (fboundp 'quit-window) + (quit-window kill) + (if kill + (progn + (set-buffer-modified-p nil) + (kill-buffer (current-buffer))) + (bury-buffer))) + (unless (eq (next-window nil 'no-mini) (selected-window)) + (delete-window))))) + +(eval-and-compile + (unless (fboundp 'w3m-add-local-hook) + ;; Silence the byte compiler; `w3m-add-local-hook' will be defined + ;; in w3m-ems.el for GNU Emacs. + (eval-when-compile + (when (eq 'byte-compile-obsolete (get 'make-local-hook 'byte-compile)) + (put 'make-local-hook 'byte-compile nil) + (put 'make-local-hook 'byte-obsolete-info nil))) + (defun w3m-add-local-hook (hook function &optional append) + "Add to the buffer-local value of HOOK the function FUNCTION. +This function is designed for XEmacs." + (make-local-hook hook) + (add-hook hook function append t)) + (defun w3m-remove-local-hook (hook function) + "Remove to the buffer-local value of HOOK the function FUNCTION. +This function is designed for XEmacs." + (remove-hook hook function t)))) + +(defun w3m-store-current-position () + "Memorize the current positions whenever every command starts. +The value will be held in the `w3m-current-position' variable. This +function is designed as the hook function which is registered to +`pre-command-hook' by `w3m-buffer-setup'." + (setq w3m-current-position (list (point) + (copy-marker (point-at-bol)) + (copy-marker (point-at-eol))))) + +(defun w3m-check-current-position () + "Run `w3m-after-cursor-move-hook' if the point gets away from the window. +This function is designed as the hook function which is registered to +`post-command-hook' by `w3m-buffer-setup'." + (when (/= (point) (car w3m-current-position)) + ;; To bind `deactivate-mark' to nil protects the mark from being + ;; deactivated. `deactivate-mark' is set when any function modifies + ;; a buffer, and it causes the deactivation of the mark. + (let ((deactivate-mark nil)) + (run-hooks 'w3m-after-cursor-move-hook)))) + +(defun w3m-buffer-setup () + "Generate a new buffer, select it and set it up for emacs-w3m. +When the current buffer has already been prepared, it won't bother to +generate a new buffer." + (unless (eq major-mode 'w3m-mode) + (let ((buffer (w3m-alive-p t))) + (if buffer + (set-buffer buffer) + (set-buffer (w3m-generate-new-buffer "*w3m*")) + (w3m-mode)))) + ;; It may have been set to nil for viewing a page source or a header. + (setq truncate-lines t) + (w3m-add-local-hook 'pre-command-hook 'w3m-store-current-position) + (w3m-add-local-hook 'post-command-hook 'w3m-check-current-position) + (w3m-initialize-graphic-icons) + (setq mode-line-buffer-identification + `(,@(w3m-static-if (featurep 'xemacs) + (list (cons modeline-buffer-id-right-extent "%b") " ") + (nconc (propertized-buffer-identification "%b") '(" "))) + (w3m-current-process + w3m-modeline-process-status-on + (w3m-current-ssl + (w3m-display-inline-images + w3m-modeline-ssl-image-status-on + w3m-modeline-ssl-status-off) + (w3m-display-inline-images + w3m-modeline-image-status-on + w3m-modeline-status-off))) + (w3m-show-graphic-icons-in-mode-line + (w3m-use-favicon + (w3m-favicon-image + w3m-modeline-favicon + w3m-modeline-separator) + w3m-modeline-separator) + w3m-modeline-separator) + (w3m-current-process + "Loading..." ,(if (fboundp 'format-mode-line) + '(:eval (w3m-modeline-title)) + (if w3m-use-title-buffer-name + "" + 'w3m-current-title))))) + (unless (assq 'w3m-current-process mode-line-process) + (setq mode-line-process + (cons (list 'w3m-current-process 'w3m-process-modeline-string) + mode-line-process)))) + +(defvar w3m-modeline-title-string nil + "Internal variable used to keep contents to be shown in the mode line. +This is a buffer-local variable.") +(make-variable-buffer-local 'w3m-modeline-title-string) + +(defvar w3m-modeline-title-timer nil + "Say time has not gone by after the mode line was updated last time. +It is used to control the `w3m-modeline-title' function running too +frequently, set by the function itself and cleared by a timer.") +(make-variable-buffer-local 'w3m-modeline-title-timer) + +(eval-when-compile + (unless (fboundp 'format-mode-line) + (defalias 'format-mode-line 'ignore))) + +(defun w3m-modeline-title () + "Return a truncated title not to cut the right end of the mode line. +It currently works only with Emacs 22 and newer." + (if w3m-use-title-buffer-name + "" + (when w3m-current-title + (or (and w3m-modeline-title-timer w3m-modeline-title-string) + (prog2 + (setq w3m-modeline-title-string w3m-current-title + w3m-modeline-title-timer t) + (let ((excess (- (string-width + (condition-case nil + (format-mode-line mode-line-format 1) + (error ""))) + (window-width))) + (tlen (string-width w3m-current-title))) + (when (and (> excess 0) + (> tlen 3)) + (setq w3m-modeline-title-string + (concat (w3m-replace-in-string + (w3m-truncate-string + w3m-current-title (max (- tlen excess 3) 2)) + "[\t ]+\\'" "") + "..."))) + w3m-modeline-title-string) + (run-at-time 0.5 nil + (lambda (buffer) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (setq w3m-modeline-title-timer nil)))) + (current-buffer))))))) + +(defconst w3m-buffer-local-url "buffer://") +(defun w3m-buffer-local-url-p (url) + (save-match-data + (string-match (concat "^" w3m-buffer-local-url) url))) + +;;;###autoload +(defun w3m-goto-url (url &optional reload charset post-data referer handler + element no-popup) + "Visit World Wide Web pages. This is the primitive function of `w3m'. +If the second argument RELOAD is non-nil, reload a content of URL. +Except that if it is 'redisplay, re-display the page without reloading. +The third argument CHARSET specifies a charset to be used for decoding +a content. +The fourth argument POST-DATA should be a string or a cons cell. If +it is a string, it makes this function request a body as if the +content-type is \"x-www-form-urlencoded\". If it is a cons cell, the +car of a cell is used as the content-type and the cdr of a cell is +used as the body. +If the fifth argument REFERER is specified, it is used for a Referer: +field for this request. +The remaining HANDLER, ELEMENT[1], and NO-POPUP are for the +internal operations of emacs-w3m. +You can also use \"quicksearch\" url schemes such as \"gg:emacs\" which +would search for the term \"emacs\" with the Google search engine. See +the `w3m-search' function and the variable `w3m-uri-replace-alist'. + +\[1] A note for the developers: ELEMENT is a history element which has +already been registered in the `w3m-history-flat' variable. It is +corresponding to URL to be retrieved at this time, not for the url of +the current page." + (interactive + (list (w3m-input-url nil nil nil nil 'feeling-lucky) + current-prefix-arg + (w3m-static-if (fboundp 'universal-coding-system-argument) + coding-system-for-read))) + (when (and (stringp url) + (not (interactive-p))) + (setq url (w3m-canonicalize-url url))) + (set-text-properties 0 (length url) nil url) + (setq url (w3m-uri-replace url)) + (unless (or (w3m-url-local-p url) + (string-match "\\`about:" url)) + (w3m-string-match-url-components url) + (setq url (concat (w3m-url-transfer-encode-string (substring url 0 (match-beginning 8)) + (or w3m-current-coding-system + w3m-default-coding-system)) + (if (match-beginning 8) + (concat "#" (match-string 9 url)) + "")))) + (cond + ;; process mailto: protocol + ((string-match "\\`mailto:" url) + (w3m-goto-mailto-url url post-data)) + ;; process ftp: protocol + ((and w3m-use-ange-ftp + (string-match "\\`ftps?://" url) + (not (string= "text/html" (w3m-local-content-type url)))) + (w3m-goto-ftp-url url)) + ;; find-file directly + ((condition-case nil + (and (w3m-url-local-p url) + w3m-local-find-file-function + (let ((base-url (w3m-url-strip-fragment url)) + (match (car w3m-local-find-file-regexps)) + nomatch file) + (and (or (not match) + (string-match match base-url)) + (not (and (setq nomatch (cdr w3m-local-find-file-regexps)) + (string-match nomatch base-url))) + (setq file (w3m-url-to-file-name base-url)) + (file-exists-p file) + (not (file-directory-p file)) + (prog1 + t + (funcall (if (functionp w3m-local-find-file-function) + w3m-local-find-file-function + (eval w3m-local-find-file-function)) + file))))) + (error nil))) + ;; process buffer-local url + ((w3m-buffer-local-url-p url) + (let (file-part fragment-part) + (w3m-string-match-url-components url) + (setq file-part (concat (match-string 4 url) + (match-string 5 url)) + fragment-part (match-string 9 url)) + (cond + ((and (string= file-part "") + fragment-part) + (w3m-search-name-anchor fragment-part)) + ((not (string= file-part "")) + (w3m-goto-url (w3m-expand-url (substring url (match-beginning 4)) + (concat "file://" default-directory)) + reload charset post-data referer handler element)) + (t (w3m-message "No URL at point"))))) + ((w3m-url-valid url) + (w3m-buffer-setup) ; Setup buffer. + (w3m-arrived-setup) ; Setup arrived database. + (unless no-popup + (w3m-popup-buffer (current-buffer))) + (w3m-cancel-refresh-timer (current-buffer)) + (when w3m-current-process + (error "%s" + (substitute-command-keys " +Cannot run two w3m processes simultaneously \ +\(Type `\\<w3m-mode-map>\\[w3m-process-stop]' to stop asynchronous process)"))) + (w3m-process-stop (current-buffer)) ; Stop all processes retrieving images. + (w3m-idle-images-show-unqueue (current-buffer)) + ;; Access url group + (if (string-match "\\`group:" url) + (let ((urls (mapcar 'w3m-url-decode-string + (split-string (substring url (match-end 0)) "&"))) + (w3m-async-exec (and w3m-async-exec-with-many-urls + w3m-async-exec))) + (w3m-process-do + (type (prog1 + (w3m-goto-url (car urls)) + (dolist (url (cdr urls)) + (save-window-excursion + (with-current-buffer (w3m-copy-buffer nil nil nil + 'empty) + (w3m-goto-url url)))))) + type)) + ;; Retrieve the page. + (lexical-let ((orig url) + (url (w3m-url-strip-authinfo url)) + (reload (and (not (eq reload 'redisplay)) reload)) + (redisplay (eq reload 'redisplay)) + (charset charset) + (post-data post-data) + (referer referer) + (name) + (history-position (get-text-property (point) + 'history-position)) + (reuse-history w3m-history-reuse-history-elements)) + (when w3m-current-forms + ;; Store the current forms in the history structure. + (w3m-history-plist-put :forms w3m-current-forms)) + (let ((w3m-current-buffer (current-buffer))) + (unless element + (setq element + (if (and (equal referer "about://history/") + history-position) + (w3m-history-element history-position t) + (if w3m-history-reuse-history-elements + (w3m-history-assoc url))))) + ;; Set current forms using the history structure. + (when (setq w3m-current-forms + (when (and (not reload) ; If reloading, ignore history. + (null post-data) ; If post, ignore history. + (or (w3m-cache-available-p url) + (w3m-url-local-p url))) + ;; Don't use `w3m-history-plist-get' here. + (plist-get (nthcdr 3 element) :forms))) + ;; Mark that the form is from history structure. + (setq w3m-current-forms (cons t w3m-current-forms))) + (when (and post-data element) + ;; Remove processing url's forms from the history structure. + (w3m-history-set-plist (cadr element) :forms nil)) + ;; local directory URL check + (when (and (w3m-url-local-p url) + (file-directory-p (w3m-url-to-file-name url)) + (setq url (file-name-as-directory url)) + (eq w3m-local-directory-view-method 'w3m-dtree) + (string-match "\\`file:///" url)) + (setq url (replace-match "about://dtree/" nil nil url) + orig url)) + ;; Split body and fragments. + (w3m-string-match-url-components url) + (and (match-beginning 8) + (setq name (match-string 9 url) + url (substring url 0 (match-beginning 8)))) + (when (w3m-url-local-p url) + (unless (string-match "[^\000-\177]" url) + (setq url (w3m-url-decode-string url)))) + (w3m-process-do + (action + (if (and (not reload) + (not redisplay) + (stringp w3m-current-url) + (string= url w3m-current-url)) + (progn + (w3m-refontify-anchor) + 'cursor-moved) + (when w3m-name-anchor-from-hist + (w3m-history-plist-put + :name-anchor-hist + (append (list 1 nil) + (and (integerp (car w3m-name-anchor-from-hist)) + (nthcdr (1+ (car w3m-name-anchor-from-hist)) + w3m-name-anchor-from-hist))))) + (setq w3m-name-anchor-from-hist + (plist-get (nthcdr 3 element) :name-anchor-hist)) + (setq w3m-current-process + (w3m-retrieve-and-render orig reload charset + post-data referer handler)))) + (with-current-buffer w3m-current-buffer + (setq w3m-current-process nil) + (if (not action) + (progn + (w3m-history-push w3m-current-url + (list :title (or w3m-current-title + "<no-title>"))) + (goto-char (point-min))) + (if (and name + (progn + ;; Redisplay to search an anchor sure. + (sit-for 0) + (w3m-search-name-anchor + (w3m-url-transfer-encode-string name + (or w3m-current-coding-system + w3m-default-coding-system)) + nil (not (eq action 'cursor-moved))))) + (setf (w3m-arrived-time (w3m-url-strip-authinfo orig)) + (w3m-arrived-time url)) + (goto-char (point-min))) + (unless (eq action 'cursor-moved) + (if (equal referer "about://history/") + ;; Don't sprout a new branch for the existing history + ;; element. + (let ((w3m-history-reuse-history-elements t)) + (w3m-history-push w3m-current-url + (list :title w3m-current-title)) + ;; Fix the history position pointers. + (when history-position + (setcar w3m-history + (w3m-history-regenerate-pointers + history-position)))) + (let ((w3m-history-reuse-history-elements reuse-history) + (position (when (eq 'reload reuse-history) + (cadar w3m-history)))) + (w3m-history-push w3m-current-url + (list :title w3m-current-title)) + (when position + (w3m-history-set-current position)))) + (w3m-history-add-properties (list :referer referer + :post-data post-data)) + (unless w3m-toggle-inline-images-permanently + (setq w3m-display-inline-images + w3m-default-display-inline-images)) + (when (and w3m-use-form reload) + (w3m-form-textarea-files-remove)) + (cond ((w3m-display-inline-images-p) + (and w3m-force-redisplay (sit-for 0)) + (w3m-toggle-inline-images 'force reload)) + ((and (w3m-display-graphic-p) + (eq action 'image-page)) + (and w3m-force-redisplay (sit-for 0)) + (w3m-toggle-inline-image 'force reload))))) + (setq buffer-read-only t) + (set-buffer-modified-p nil) + (setq list-buffers-directory w3m-current-title) + ;; must be `w3m-current-url' + (setq default-directory (w3m-current-directory w3m-current-url)) + (w3m-buffer-name-add-title) + (w3m-update-toolbar) + (w3m-select-buffer-update) + (let ((real-url (if (w3m-arrived-p url) + (or (w3m-real-url url) url) + url))) + (run-hook-with-args 'w3m-display-functions real-url) + (run-hook-with-args 'w3m-display-hook real-url)) + (w3m-session-crash-recovery-save) + (when (and w3m-current-url + (stringp w3m-current-url) + (or (string-match + "\\`about://\\(?:header\\|source\\)/" + w3m-current-url) + (equal (w3m-content-type w3m-current-url) + "text/plain"))) + (setq truncate-lines nil)) + ;; restore position must call after hooks for localcgi. + (when (or reload redisplay) + (w3m-history-restore-position)) + (w3m-set-buffer-unseen) + (w3m-refresh-at-time))))))) + (t (w3m-message "Invalid URL: %s" url)))) + +(defun w3m-current-directory (url) + "Return a directory used as the current directory in a page visiting URL. +See `w3m-default-directory'." + (or (and url + (stringp url) + (let (file) + (if (string-match "\\`ftp://" url) + (progn + (setq file (w3m-convert-ftp-url-for-emacsen url)) + (file-name-as-directory + (if (string-match "/\\`" file) + file + (file-name-directory file)))) + (and (setq file (w3m-url-to-file-name url)) + (file-exists-p file) + (file-name-as-directory + (if (file-directory-p file) + file + (file-name-directory file))))))) + (let (directory) + (file-name-as-directory + (or (and (stringp w3m-default-directory) + (file-directory-p w3m-default-directory) + (expand-file-name w3m-default-directory)) + (and (symbolp w3m-default-directory) + (boundp w3m-default-directory) + (setq directory (symbol-value w3m-default-directory)) + (stringp directory) + (file-directory-p directory) + (expand-file-name directory)) + (and (functionp w3m-default-directory) + (stringp (setq directory + (condition-case nil + (funcall w3m-default-directory url) + (error nil)))) + (file-directory-p directory) + (expand-file-name directory)) + w3m-profile-directory))))) + +(defun w3m-refresh-at-time () + (when (and w3m-use-refresh w3m-current-refresh) + (if (= (car w3m-current-refresh) 0) + (w3m-goto-url-with-timer (cdr w3m-current-refresh) (current-buffer)) + (setq w3m-refresh-timer + (run-at-time (car w3m-current-refresh) + nil + 'w3m-goto-url-with-timer + (cdr w3m-current-refresh) + (current-buffer)))))) + +(defun w3m-goto-url-with-timer (url buffer) + "Run the `w3m-goto-url' function by the refresh timer." + (when (and (w3m-url-valid url) buffer (get-buffer buffer)) + (cond + ((get-buffer-window buffer) + (save-selected-window + (pop-to-buffer buffer) + (with-current-buffer buffer + (w3m-cancel-refresh-timer buffer) + (if (and w3m-current-url + (string= url w3m-current-url)) + (w3m-reload-this-page t) + (w3m-goto-url url))))) + ((buffer-live-p buffer) + (let* ((cwin (selected-window)) + (cbuf (window-buffer cwin))) + (with-current-buffer buffer + (w3m-cancel-refresh-timer buffer) + (if (and w3m-current-url + (string= url w3m-current-url)) + (w3m-reload-this-page t t) + (w3m-goto-url url nil + nil nil nil nil nil t))) + (set-window-buffer cwin cbuf))) + (t + (with-current-buffer buffer + (w3m-cancel-refresh-timer buffer)))))) + +(defun w3m-goto-new-session-url (&optional reload) + "Open `w3m-new-session-url' in a new session." + (interactive "P") + (if (not (eq major-mode 'w3m-mode)) + (message "This command can be used in w3m mode only") + (w3m-view-this-url-1 w3m-new-session-url reload 'new-session))) + +;;;###autoload +(defun w3m-goto-url-new-session (url &optional reload charset post-data + referer) + "Visit World Wide Web pages in a new session. +If you invoke this command in the emacs-w3m buffer, the new session +will be created by copying the current session. Otherwise, the new +session will start afresh." + (interactive + (list (w3m-input-url nil nil nil nil 'feeling-lucky) + current-prefix-arg + (w3m-static-if (fboundp 'universal-coding-system-argument) + coding-system-for-read) + nil ;; post-data + nil)) ;; referer + (let (buffer) + (if (or (eq 'w3m-mode major-mode) + (and (setq buffer (w3m-alive-p)) + (progn + (w3m-popup-buffer buffer) + t))) + (progn + (switch-to-buffer (setq buffer + (w3m-copy-buffer nil nil + w3m-new-session-in-background + 'empty))) + (w3m-display-progress-message url) + (w3m-goto-url url + (or reload + ;; When new URL has `name' portion, we have to + ;; goto the base url because generated buffer + ;; has no content at this moment. + (and (progn + (w3m-string-match-url-components url) + (match-beginning 8)) + 'redisplay)) + charset post-data referer) + ;; Delete useless newly created buffer if it is empty. + (w3m-delete-buffer-if-empty buffer)) + (w3m-goto-url url)))) + +(defun w3m-move-point-for-localcgi (url) + (when (and (w3m-url-local-p url) + (file-directory-p (w3m-url-to-file-name url)) + (not (eq w3m-local-directory-view-method 'w3m-dtree)) + (= (point-min) (point)) + (w3m-search-name-anchor "current" 'quiet)) + (recenter (/ (window-height) 5)))) + +;;;###autoload +(defun w3m-gohome () + "Go to the Home page." + (interactive) + (unless w3m-home-page + (error "You have to specify the value of `w3m-home-page'")) + (w3m-goto-url w3m-home-page)) + +(defun w3m-reload-this-page (&optional arg no-popup) + "Reload the current page, disregarding the cached contents. +If the prefix arg ARG is given, it also clears forms and post data." + (interactive "P") + (if w3m-current-url + (let ((w3m-history-reuse-history-elements + ;; Don't move the history position. + 'reload) + post-data) + (if arg + (progn + (w3m-history-remove-properties '(:forms nil :post-data nil)) + (setq w3m-current-forms nil)) + (when (and (setq post-data (w3m-history-plist-get :post-data)) + (not (y-or-n-p "Repost form data? "))) + (setq post-data nil))) + (w3m-history-store-position) + (w3m-goto-url w3m-current-url 'reload nil post-data + (w3m-history-plist-get :referer) + nil + (w3m-history-element (cadar w3m-history) t) + no-popup) + (w3m-history-restore-position)) + (w3m-message "Can't reload this page"))) + +(defun w3m-reload-all-pages (&optional arg) + "Reload all pages, disregarding the cached contents. +If the prefix arg ARG is given, it also clears forms and post data." + (interactive "P") + (if arg + (save-window-excursion + (dolist (buffer (w3m-list-buffers)) + (switch-to-buffer buffer) + (w3m-reload-this-page))) + (dolist (buffer (w3m-list-buffers)) + (save-window-excursion + (switch-to-buffer buffer) + (w3m-reload-this-page))))) + +(defun w3m-redisplay-this-page (&optional arg) + "Redisplay the current page. +If the prefix arg ARG is given, it toggles the visibility of images." + (interactive "P") + (if (null w3m-current-url) + (w3m-message "Can't redisplay this page") + (when arg + (setq w3m-display-inline-images (not w3m-display-inline-images))) + (let ((w3m-prefer-cache t) + (w3m-history-reuse-history-elements + ;; Don't move the history position. + 'reload)) + (w3m-history-store-position) + (w3m-goto-url w3m-current-url 'redisplay) + (w3m-history-restore-position)))) + +(defun w3m-redisplay-and-reset (&optional arg) + "Redisplay the current page and reset the user-specified values. +This function clears the charset and the content type which the user +specified for overriding the values of what the page requires. The +prefix argument ARG is passed to the `w3m-redisplay-this-page' +function (which see)." + (interactive "P") + (if (null w3m-current-url) + (w3m-message "Can't execute this page") + (setf (w3m-arrived-content-type w3m-current-url) nil) + (setf (w3m-arrived-content-charset + (if (string-match "\\`about://source/" w3m-current-url) + (substring w3m-current-url (match-end 0)) + w3m-current-url)) + nil) + (w3m-redisplay-this-page arg))) + +(defun w3m-redisplay-with-charset (&optional arg) + "Redisplay the current page, specifying a charset. +If the user enters the empty string, the value which once was used for +decoding the page is used. The prefix argument ARG is passed to the +`w3m-redisplay-this-page' function (which see)." + (interactive "P") + (if (null w3m-current-url) + (w3m-message "Can't execute the command") + (setf (w3m-arrived-content-charset + (if (string-match "\\`about://source/" w3m-current-url) + (substring w3m-current-url (match-end 0)) + w3m-current-url)) + (w3m-read-content-charset + (format "Content-charset (current %s, default reset): " + w3m-current-coding-system))) + (w3m-redisplay-this-page arg))) + +(defun w3m-redisplay-with-content-type (&optional arg) + "Redisplay the current page, specifying a content type. +If the user enters the empty string, it uses the value which was +specified by the page's contents itself. The prefix argument ARG is +passed to the `w3m-redisplay-this-page' function (which see)." + (interactive "P") + (if (null w3m-current-url) + (w3m-message "Can't execute this page") + (setf (w3m-arrived-content-type w3m-current-url) + (let ((type (completing-read + (format "Content-type (current %s, default reset): " + (or (w3m-arrived-content-type w3m-current-url) + (w3m-content-type w3m-current-url))) + w3m-content-type-alist nil t))) + (unless (string= type "") type))) + (w3m-redisplay-this-page arg))) + +(defun w3m-examine-command-line-args () + "Return a url when the `w3m' command is invoked from the command line. +The `w3m' Lisp command can be invoked even in the batch mode, e.g., +``emacs -f w3m'' or ``emacs -f w3m url''. This function is used in +the very case, it extracts a url string from the command line +arguments and passes it to the `w3m' command. If a url is omitted, it +defaults to the value of `w3m-home-page' or \"about:\"." + (let ((url (car command-line-args-left)) + (directives '("-f" "-funcall" "--funcall" "-e")) + args) + (if (and url (not (string-match "\\`-" url))) + (progn + (setq command-line-args-left (cdr command-line-args-left)) + (when (string-match "\\`[\t ]*\\'" url) + ;; emacs -f w3m '' ... + (setq url (or w3m-home-page "about:")))) + (setq args (nthcdr (max (- (length command-line-args) + (length command-line-args-left) + 2) + 1) + command-line-args)) + (when (and (equal (cadr args) "w3m") + (member (car args) directives)) + (setq url (or w3m-home-page "about:")))) + (unless + (and command-line-args-left + (progn + (setq args (reverse command-line-args-left)) + (while (and args + (not (and (setq args (cdr (member "w3m" args))) + (member (car args) directives))))) + args)) + (defalias 'w3m-examine-command-line-args (lambda nil))) + ;; Inhibit the startup screen. + (when (and url + ;; Since XEmacs provides `inhibit-startup-message' as + ;; a constant, we don't modify the value. + (not (featurep 'xemacs))) + (let ((var (cond ((boundp 'inhibit-startup-screen) + 'inhibit-startup-screen) + ((boundp 'inhibit-startup-message) + 'inhibit-startup-message))) + fn) + (when (and var + (not (symbol-value var))) + (set var t) + (setq fn (make-symbol "w3m-inhibit-startup-screen")) + (fset fn `(lambda nil + (set ',var nil) + (remove-hook 'window-setup-hook ',fn) + (fmakunbound ',fn))) + (add-hook 'window-setup-hook fn)))) + url)) + +;;;###autoload +(defun w3m (&optional url new-session interactive-p) + "Visit World Wide Web pages using the external w3m command. + +When you invoke this command interactively for the first time, it will +visit a page which is pointed to by a string like url around the +cursor position or the home page specified by the `w3m-home-page' +variable, but you will be prompted for a URL if `w3m-quick-start' is +nil (default t) or `w3m-home-page' is nil. + +The variables `w3m-pop-up-windows' and `w3m-pop-up-frames' control +whether this command should pop to a window or a frame up for the +session. + +When emacs-w3m sessions have already been opened, this command will +pop to the existing window or frame up, but if `w3m-quick-start' is +nil, \(default t), you will be prompted for a URL (which defaults to +`popup' meaning to pop to an existing emacs-w3m buffer up). + +In addition, if the prefix argument is given or you enter the empty +string for the prompt, it will visit the home page specified by the +`w3m-home-page' variable or the \"about:\" page. + +You can also run this command in the batch mode as follows: + + emacs -f w3m http://emacs-w3m.namazu.org/ & + +In that case, or if this command is called non-interactively, the +variables `w3m-pop-up-windows' and `w3m-pop-up-frames' will be ignored +\(treated as nil) and it will run emacs-w3m at the current (or the +initial) window. + +If the optional NEW-SESSION is non-nil, this function makes a new +emacs-w3m buffer. Besides that, it also makes a new emacs-w3m buffer +if `w3m-make-new-session' is non-nil and a user specifies a url string. + +The optional INTERACTIVE-P is for the internal use; it is mainly used +to check whether Emacs 22 or later calls this function as an +interactive command in the batch mode." + (interactive + (let ((url + ;; Emacs 22 or later calls a Lisp command interactively even + ;; if it is in the batch mode. If the following function + ;; returns non-nil value, it means this function is called in + ;; the batch mode, and we don't treat it as what it is called + ;; to interactively. + (w3m-examine-command-line-args)) + new) + (list + ;; url + (or url + (let ((default (if (w3m-alive-p) 'popup w3m-home-page))) + (setq new (if current-prefix-arg + default + (w3m-input-url nil nil default w3m-quick-start + 'feeling-lucky))))) + ;; new-session + (and w3m-make-new-session + (w3m-alive-p) + (not (eq new 'popup))) + ;; interactive-p + (not url)))) + (let ((nofetch (eq url 'popup)) + (alived (w3m-alive-p)) + (buffer (unless new-session (w3m-alive-p t))) + (w3m-pop-up-frames (and interactive-p w3m-pop-up-frames)) + (w3m-pop-up-windows (and interactive-p w3m-pop-up-windows))) + (unless (and (stringp url) + (> (length url) 0)) + (if buffer + (setq nofetch t) + ;; This command was possibly be called non-interactively or as + ;; the batch mode. + (setq url (or (w3m-examine-command-line-args) + ;; Unlikely but this function was called with no url. + "about:") + nofetch nil))) + (unless buffer + ;; It means `new-session' is non-nil or there's no emacs-w3m buffer. + ;; At any rate, we create a new emacs-w3m buffer in this case. + (with-current-buffer (setq buffer (w3m-generate-new-buffer "*w3m*")) + (w3m-mode))) + (w3m-popup-buffer buffer) + (unless nofetch + ;; `unwind-protect' is needed since a process may be terminated by C-g. + (unwind-protect + (let* ((crash (and (not alived) + (w3m-session-last-crashed-session))) + (last (and (not alived) + (not crash) + (w3m-session-last-autosave-session)))) + (w3m-goto-url url) + (when (or crash last) + (w3m-session-goto-session (or crash last)))) + ;; Delete useless newly created buffer if it is empty. + (w3m-delete-buffer-if-empty buffer))))) + +(eval-when-compile + (autoload 'browse-url-interactive-arg "browse-url")) + +;;;###autoload +(defun w3m-browse-url (url &optional new-session) + "Ask emacs-w3m to browse URL. +NEW-SESSION specifies whether to create a new emacs-w3m session. URL +defaults to the string looking like a url around the cursor position. +Pop to a window or a frame up according to `w3m-pop-up-windows' and +`w3m-pop-up-frames'." + (interactive (progn + (require 'browse-url) + (browse-url-interactive-arg "Emacs-w3m URL: "))) + (when (stringp url) + (setq url (w3m-canonicalize-url url)) + (if new-session + (w3m-goto-url-new-session url) + (w3m-goto-url url)))) + +;;;###autoload +(defun w3m-find-file (file) + "Function used to open FILE whose name is expressed in ordinary format. +The file name will be converted into the file: scheme." + (interactive "fFilename: ") + (w3m-goto-url (w3m-expand-file-name-as-url file) + nil + (w3m-static-if (fboundp 'universal-coding-system-argument) + coding-system-for-read))) + +(defun w3m-cygwin-path (path) + "Convert PATH in the win32 style into the cygwin format. +ex. c:/dir/file => //c/dir/file" + (if (string-match "^\\([A-Za-z]\\):" path) + (replace-match "//\\1" nil nil path) + path)) + +;;;###autoload +(defun w3m-region (start end &optional url charset) + "Render the region of the current buffer between START and END. +URL specifies the address where the contents come from. It can be +omitted or nil when the address is not identified. CHARSET is used +for decoding the contents. If it is nil, this function attempts to +parse the meta tag to extract the charset." + (interactive + (list (region-beginning) + (region-end) + (w3m-expand-file-name-as-url + (or (buffer-file-name) default-directory)))) + (save-restriction + (w3m-process-stop (current-buffer)) + (narrow-to-region start end) + (w3m-clear-local-variables) + (let ((w3m-current-buffer (current-buffer))) + (unless charset + (setq charset (w3m-correct-charset (w3m-detect-meta-charset)))) + (setq url (or url + w3m-buffer-local-url) + w3m-current-url url + w3m-current-base-url url + w3m-current-coding-system + (if charset + (w3m-charset-to-coding-system charset) + w3m-coding-system) + w3m-current-title + (let (w3m-use-refresh) + (w3m-rendering-buffer charset))) + (w3m-fontify) + (when (w3m-display-inline-images-p) + (and w3m-force-redisplay (sit-for 0)) + (w3m-toggle-inline-images 'force))))) + +;;;###autoload +(defun w3m-buffer (&optional url charset) + "Render the current buffer. +See `w3m-region' for the optional arguments." + (interactive (list (w3m-expand-file-name-as-url (or (buffer-file-name) + default-directory)))) + (w3m-region (point-min) (point-max) url charset)) + +;;; About: +(defun w3m-about (url &rest args) + (insert "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\"> +<html> +<head><title>About emacs-w3m</title></head> +<body> +<center> +Welcome to <a href=\"http://emacs-w3m.namazu.org/\">\ +<img src=\"about://emacs-w3m.gif\" alt=\"emacs-w3m\" width=\"83\" +height=\"14\"></a>!<br><br> +emacs-w3m is an interface program of +<a href=\"http://w3m.sourceforge.net/\">w3m</a>, +works on Emacs. +</center> +</body> +</html>") + "text/html") + +(defun w3m-view-source (&optional arg) + "Display an html source of a page visited in the current buffer. +ARG should be a number (a non-numeric value is treated as `1') which +controls how much to decode a source. A number larger than or equal +to 4 (which the `C-u' prefix produces) means don't decode. The number +2 or 3 means decode normal text. The number 1 means decodes `&#nnn;' +entities in 128..159 and 160 in addition to normal text (the default). +A number less than or equal to zero means also encode urls containing +non-ASCII characters." + (interactive "p") + (if w3m-current-url + (let ((w3m-prefer-cache t) + (w3m-view-source-decode-level (if (numberp arg) arg 0)) + (w3m-history-reuse-history-elements t)) + (w3m-history-store-position) + (cond + ((string-match "\\`about://source/" w3m-current-url) + (w3m-goto-url (substring w3m-current-url (match-end 0)))) + ((string-match "\\`about://header/" w3m-current-url) + (w3m-goto-url (concat "about://source/" + (substring w3m-current-url (match-end 0))))) + (t + (w3m-goto-url (concat "about://source/" w3m-current-url)))) + (w3m-history-restore-position)) + (w3m-message "Can't view page source"))) + +(defun w3m-make-separator () + (if (string= w3m-language "Japanese") + (make-string (/ (w3m-display-width) 2) + (make-char 'japanese-jisx0208 40 44)) + (make-string (w3m-display-width) ?-))) + +(defun w3m-about-header (url &optional no-uncompress no-cache &rest args) + (when (string-match "\\`about://header/" url) + (setq url (substring url (match-end 0))) + (insert "Page Information\n" + "\nTitle: " (or (w3m-arrived-title + (w3m-url-strip-authinfo url)) + "") + "\nURL: " url + "\nDocument Type: " (or (w3m-content-type url) "") + "\nLast Modified: " + (let ((time (w3m-last-modified url))) + (if time (current-time-string time) "")) + (let ((anchor (with-current-buffer w3m-current-buffer + (and (equal url w3m-current-url) (w3m-anchor))))) + (if anchor + (concat "\nCurrent Anchor: " anchor) + ""))) + (let ((ct (w3m-arrived-content-type url)) + (charset (w3m-arrived-content-charset url)) + (separator (w3m-make-separator)) + (case-fold-search t) + header ssl beg) + (when (or ct charset) + (insert "\n\n" separator "\n\nModifier Information\n") + (insert "\nDocument Content-Type: " (or ct "")) + (insert "\nDocument Charset: " (or charset ""))) + (when (and (not (w3m-url-local-p url)) + (setq header (condition-case nil + (or (unless no-cache + (w3m-cache-request-header url)) + (w3m-process-with-wait-handler + (w3m-w3m-dump-head url handler))) + (w3m-process-timeout nil)))) + (insert "\n\n" separator "\n\nHeader Information\n\n" header) + (goto-char (point-min)) + (when (re-search-forward "^w3m-ssl-certificate: " nil t) + (setq beg (match-end 0)) + (forward-line) + (while (and (not (eobp)) (looking-at "^[ \t]")) + (forward-line)) + (setq ssl (buffer-substring beg (point))) + (delete-region beg (point)) + (goto-char beg) + (insert "SSL\n") + (goto-char (point-max)) + (insert separator "\n\nSSL Information\n\n") + (setq beg (point)) + (insert ssl) + (goto-char beg) + (while (re-search-forward "^\t" nil t) + (delete-char -1) + (when (looking-at "Certificate:") + (insert "\n")))))) + "text/plain")) + +(defun w3m-view-header () + "Display the header of the current page." + (interactive) + (if w3m-current-url + (let ((w3m-prefer-cache t) + (w3m-history-reuse-history-elements t) + (url (cond + ((string-match "\\`about://header/" w3m-current-url) + (substring w3m-current-url (match-end 0))) + ((string-match "\\`about://source/" w3m-current-url) + (let ((real-url (substring w3m-current-url (match-end 0)))) + (unless (string-match "\\`about:" real-url) + (concat "about://header/" real-url)))) + ((string-match "\\`about:" w3m-current-url) + nil) + (t + (concat "about://header/" w3m-current-url))))) + (if url + (progn + (w3m-history-store-position) + (w3m-goto-url url) + (w3m-history-restore-position)) + (w3m-message "Can't load a header for %s" w3m-current-url))) + (w3m-message "Can't view page header"))) + +(defvar w3m-about-history-max-indentation '(/ (* (window-width) 2) 3) + "*Number used to limit the identation level when showing a history. +This value is evaluated whenever a history page is displayed by the +`w3m-about-history' command. So, it can be any s-expression returning +a number.") + +(defvar w3m-about-history-indent-level 4 + "*Number used to specify the indentation level when showing a history. +A history page is invoked by the `w3m-about-history' command.") + +(defun w3m-about-history (&rest args) + "Show a tree-structured history." + (let (start history current) + (with-current-buffer w3m-current-buffer + (setq history w3m-history-flat + current (cadar w3m-history))) + (insert "\ +<head><title>URL history</title></head><body> +<h1>List of all the links you have visited in this session.</h1><pre>\n") + (setq start (point)) + (when history + (let ((form + (format + "%%0%dd" + (length + (number-to-string + (apply 'max + (apply 'append + (mapcar + ;; Don't use `caddr' here, since it won't + ;; be substituted by the compiler macro. + (lambda (e) + (car (cdr (cdr e)))) + history))))))) + (cur (current-buffer)) + (margin (if (> w3m-about-history-indent-level 1) + 1 + 0)) + (max-indent (condition-case nil + ;; Force the value to be a number or nil. + (+ 0 (eval w3m-about-history-max-indentation)) + (error nil))) + (last-indent -1) + (sub-indent 0) + element url about title position bol indent) + (while history + (setq element (pop history) + url (car element) + ;; FIXME: an ad-hoc workaround to avoid illegal-type errors. + about (or (not (stringp url)) + (string-match w3m-history-ignored-regexp url)) + title (plist-get (cadr element) :title) + position (caddr element)) + (when url + (insert (format "h%s %d %d <a href=\"%s\">%s%s%s %s</a>\n" + (mapconcat (lambda (d) (format form d)) + position + "-") + (/ (1- (length position)) 2) + (if (equal current position) 1 0) + url + (if about "<" "") + (if (or (not title) + (string-equal "<no-title>" title) + (string-match "^[\t $B!!(B]*$" title)) + url + (w3m-encode-specials-string title)) + (if about ">" "") + position)))) + (sort-fields 0 start (point-max)) + (goto-char start) + (while (not (eobp)) + (setq bol (point)) + (skip-chars-forward "^ ") + (setq indent (read cur) + sub-indent (if (= indent last-indent) + (1+ sub-indent) + 0) + last-indent indent + indent (+ (* w3m-about-history-indent-level indent) + sub-indent)) + (when (prog1 + (= (read cur) 1) + (delete-region bol (point)) + (insert-char ?\ (+ margin (if max-indent + (min max-indent indent) + indent)))) + (beginning-of-line) + (delete-char 1) + (insert ">")) + (forward-line 1)))) + (insert "</pre></body>") + "text/html")) + +(defun w3m-about-db-history (url &rest args) + (let ((start 0) + (size nil) + (width (- (w3m-display-width) 18)) + (now (current-time)) + title time alist prev next page total) + (when (string-match "\\`about://db-history/\\?" url) + (dolist (s (split-string (substring url (match-end 0)) "&")) + (when (string-match "\\`\\(?:start\\|\\(size\\)\\)=" s) + (set (if (match-beginning 1) 'size 'start) + (string-to-number (substring s (match-end 0))))))) + (when w3m-arrived-db + (mapatoms + (lambda (sym) + (and sym + (setq url (symbol-name sym)) + (not (string-match "#" url)) + (not (string-match w3m-history-ignored-regexp url)) + (push (cons url (w3m-arrived-time url)) alist))) + w3m-arrived-db) + (setq alist (sort alist + (lambda (a b) + (w3m-time-newer-p (cdr a) (cdr b)))))) + (setq total (length alist)) + (setq alist (nthcdr start alist)) + (when size + (when (> start 0) + (setq prev + (format "about://db-history/?start=%d&size=%d" + (max 0 (- start size)) size))) + (when (> (length alist) size) + (setq next + (format "about://db-history/?start=%d&size=%d" + (+ start size) size))) + (when (> total 0) + (setq total (+ (/ total size) (if (> (% total size) 0) 1 0))) + (setq page (1+ (/ start size))))) + (insert "<html><head><title>URL history in DataBase</title>" + (if prev (format "<link rel=\"prev\" href=\"%s\">\n" prev) "") + (if next (format "<link rel=\"next\" href=\"%s\">\n" next) "") + (format + "</head>\n<body>\n<h1>Arrived URL history in DataBase%s</h1>\n" + (if (and page total) + (format " (%d/%d)" page total) ""))) + (setq prev + (if (or prev next) + (setq next + (concat + "<p align=\"left\">" + (if prev + (format "[<a href=\"%s\">Prev History</a>]" prev) + "") + (if next + (format "[<a href=\"%s\">Next History</a>]" next) + "") + "</p>\n")) + "")) + (if (null alist) + (insert "<em>Nothing in DataBase.</em>\n") + (insert prev "<table cellpadding=0> +<tr><td><h2> Title/URL </h2></td><td><h2>Time/Date</h2></td></tr>\n") + (while (and alist + (or (not size) + (>= (decf size) 0))) + (setq url (car (car alist)) + time (cdr (car alist)) + alist (cdr alist) + title (w3m-arrived-title url)) + (if (or (null title) + (string= "<no-title>" title)) + (setq title (concat "<" (w3m-truncate-string url width) ">")) + (when (>= (string-width title) width) + (setq title (concat (w3m-truncate-string title width) "...")))) + (insert (format "<tr><td><a href=\"%s\">%s</a></td>" + url + (w3m-encode-specials-string title))) + (when time + (insert "<td>" + (if (<= (w3m-time-lapse-seconds time now) + 64800) ;; = (* 60 60 18) 18hours. + (format-time-string "%H:%M:%S" time) + (format-time-string "%Y-%m-%d" time)) + "</td>")) + (insert "</tr>\n")) + (insert "</table>" + (if next "\n<br>\n<hr>\n" "") + prev)) + (insert "</body></html>\n")) + "text/html") + +(defun w3m-history-highlight-current-url (url) + "Highlight the current url if it is a page for the history. +It does manage history position data as well." + (when (string-equal "about://history/" url) + (let ((inhibit-read-only t) + (buffer (current-buffer)) + start) + ;; Make history position data invisible. + (goto-char (point-min)) + (w3m-next-anchor) + (while (progn + (setq start (point)) + (re-search-forward " (\\(?:[0-9]+ \\)*[0-9]+)$" nil t)) + (goto-char (match-beginning 0)) + (put-text-property start (match-beginning 0) + 'history-position (read buffer)) + (add-text-properties (match-beginning 0) (match-end 0) + '(invisible t intangible t)) + (forward-char 2) + (skip-chars-forward "\t ")) + ;; Highlight the current url. + (goto-char (point-min)) + (when (search-forward "\n>" nil t) + (w3m-next-anchor) + (setq start (point)) + (end-of-line) + (w3m-add-face-property start (point) 'w3m-history-current-url) + (goto-char start))) + (set-buffer-modified-p nil))) + +(defcustom w3m-db-history-display-size + (and (> w3m-keep-arrived-urls 500) 500) + "*Maximum number of arrived URLs which are displayed per page." + :group 'w3m + :type '(radio (const :tag "All entries are displayed in single page." nil) + (integer :format "%t: %v\n" :size 0))) + +(defun w3m-db-history (&optional start size) + "Display arrived URLs." + (interactive + (list nil w3m-db-history-display-size)) + (w3m-goto-url (concat + (format "about://db-history/?start=%d" (or start 0)) + (if size (format "&size=%d" size) "")))) + +(defun w3m-history (&optional arg) + "Display the history of all the links you have visited in the session. +If it is called with the prefix argument, display the arrived URLs." + (interactive "P") + (if (null arg) + (w3m-goto-url "about://history/") + (w3m-db-history nil w3m-db-history-display-size))) + +(defun w3m-w32-browser-with-fiber (url) + (let ((proc (start-process "w3m-w32-browser-with-fiber" + (current-buffer) + "fiber.exe" "-s" + (if (w3m-url-local-p url) + (w3m-url-to-file-name url) + url)))) + (set-process-filter proc 'ignore) + (set-process-sentinel proc 'ignore))) + +;;; Interactive select buffer. +(defcustom w3m-select-buffer-horizontal-window t + "*Non-nil means split windows horizontally to open the selection window." + :group 'w3m + :type 'boolean) + +(defcustom w3m-select-buffer-window-ratio '(18 . 12) + "*The percentage of the selection window to the whole frame. +The car is used when splitting windows horizontally and the cdr is for +splitting windows vertically." + :group 'w3m + :type '(cons (integer :format "H: %v[%%] " :size 0) + (integer :format "V: %v[%%]\n" :size 0))) + +(defvar w3m-select-buffer-window nil) +(defconst w3m-select-buffer-message + "n: next buffer, p: previous buffer, q: quit." + "Help message used when the emacs-w3m buffers selection window is open.") + +;; Why this function is here abruptly is because of `w-s-b-horizontal-window'. +(defun w3m-display-width () + "Return the maximum width which should display lines within the value." + (if (< 0 w3m-fill-column) + w3m-fill-column + (+ (if (and w3m-select-buffer-horizontal-window + (get-buffer-window w3m-select-buffer-name)) + ;; Show pages as if there is no buffers selection window. + (frame-width) + (window-width)) + (or w3m-fill-column -1)))) + +(defun w3m-select-buffer (&optional toggle nomsg) + "Pop to the emacs-w3m buffers selection window up. +It provides the feature for switching emacs-w3m buffers using the +buffer list. The following command keys are available: + +\\{w3m-select-buffer-mode-map}" + (interactive "P") + (when toggle + (setq w3m-select-buffer-horizontal-window + (not w3m-select-buffer-horizontal-window)) + (when (get-buffer-window w3m-select-buffer-name) + (delete-windows-on w3m-select-buffer-name))) + (unless (or (eq major-mode 'w3m-mode) + (eq major-mode 'w3m-select-buffer-mode)) + (let ((buffer (w3m-alive-p t))) + (if buffer + (w3m-popup-buffer buffer) + (w3m-goto-url (or w3m-home-page "about:"))))) + (let ((selected-window (selected-window)) + (current-buffer (current-buffer))) + (set-buffer (w3m-get-buffer-create w3m-select-buffer-name)) + (unless (eq nomsg 'update) + (setq w3m-select-buffer-window selected-window)) + (let ((w (or (get-buffer-window w3m-select-buffer-name) + (split-window selected-window + (w3m-select-buffer-window-size) + w3m-select-buffer-horizontal-window)))) + (set-window-buffer w (current-buffer)) + (select-window w)) + (w3m-select-buffer-generate-contents current-buffer)) + (w3m-select-buffer-mode) + (or nomsg (w3m-message w3m-select-buffer-message))) + +(defun w3m-select-buffer-update (&rest args) + (when (get-buffer-window w3m-select-buffer-name) + (save-selected-window + (w3m-select-buffer nil 'update))) + (when w3m-use-tab + (w3m-force-window-update))) + +(defun w3m-select-buffer-generate-contents (current-buffer) + (let ((i 0) + (buffer-read-only)) + (delete-region (point-min) (point-max)) + (dolist (buffer (w3m-list-buffers)) + (put-text-property (point) + (progn + (insert (format "%d:%s %s\n" (incf i) + (if (w3m-unseen-buffer-p buffer) + "(u)" " ") + (w3m-buffer-title buffer))) + (point)) + 'w3m-select-buffer buffer)) + (skip-chars-backward " \t\r\f\n") + (delete-region (point) (point-max)) + (set-buffer-modified-p nil) + (goto-char (or (text-property-any (point-min) (point-max) + 'w3m-select-buffer current-buffer) + (point-min))))) + +(defvar w3m-select-buffer-mode-map nil) +(unless w3m-select-buffer-mode-map + (let ((map (make-keymap))) + (suppress-keymap map) + (substitute-key-definition + 'next-line 'w3m-select-buffer-next-line map global-map) + (substitute-key-definition + 'previous-line 'w3m-select-buffer-previous-line map global-map) + (substitute-key-definition + 'w3m-copy-buffer 'w3m-select-buffer-copy-buffer map w3m-mode-map) + (substitute-key-definition + 'w3m-next-buffer 'w3m-select-buffer-next-line map w3m-mode-map) + (substitute-key-definition + 'w3m-previous-buffer 'w3m-select-buffer-previous-line map w3m-mode-map) + (substitute-key-definition + 'w3m-delete-buffer 'w3m-select-buffer-delete-buffer map w3m-mode-map) + (substitute-key-definition + 'w3m-delete-other-buffers + 'w3m-select-buffer-delete-other-buffers map w3m-mode-map) + (substitute-key-definition + 'w3m-scroll-up-or-next-url + 'w3m-select-buffer-show-this-line map w3m-mode-map) + (substitute-key-definition + 'w3m-scroll-down-or-previous-url + 'w3m-select-buffer-show-this-line-and-down map w3m-mode-map) + (substitute-key-definition + 'w3m-select-buffer 'w3m-select-buffer-toggle-style map w3m-mode-map) + (define-key map " " 'w3m-select-buffer-show-this-line) + (define-key map "g" 'w3m-select-buffer-recheck) + (define-key map "j" 'w3m-select-buffer-next-line) + (define-key map "k" 'w3m-select-buffer-previous-line) + (define-key map "n" 'w3m-select-buffer-next-line) + (define-key map "p" 'w3m-select-buffer-previous-line) + (define-key map "q" 'w3m-select-buffer-quit) + (define-key map "h" 'w3m-select-buffer-show-this-line-and-switch) + (define-key map "w" 'w3m-select-buffer-show-this-line-and-switch) + (define-key map "\C-m" 'w3m-select-buffer-show-this-line-and-quit) + (define-key map "\C-c\C-c" 'w3m-select-buffer-show-this-line-and-quit) + (define-key map "\C-c\C-k" 'w3m-select-buffer-quit) + (define-key map "\C-c\C-q" 'w3m-select-buffer-quit) + (define-key map "\C-g" 'w3m-select-buffer-quit) + (define-key map "?" 'describe-mode) + (setq w3m-select-buffer-mode-map map))) + +(defun w3m-select-buffer-mode () + "Major mode for switching emacs-w3m buffers using the buffer list. + +\\<w3m-select-buffer-mode-map>\ +\\[w3m-select-buffer-next-line]\ + Next buffer. +\\[w3m-select-buffer-previous-line]\ + Previous buffer. + +\\[w3m-select-buffer-show-this-line]\ + Show the buffer on the current menu line or scroll it up. +\\[w3m-select-buffer-show-this-line-and-down]\ + Show the buffer on the current menu line or scroll it down. +\\[w3m-select-buffer-show-this-line-and-switch]\ + Show the buffer on the menu and switch to the buffer. +\\[w3m-select-buffer-show-this-line-and-quit]\ + Show the buffer on the menu and quit the buffers selection. + +\\[w3m-select-buffer-copy-buffer]\ + Create a copy of the buffer on the menu, and show it. +\\[w3m-select-buffer-delete-buffer]\ + Delete the buffer on the current menu line. +\\[w3m-select-buffer-delete-other-buffers]\ + Delete emacs-w3m buffers except for the buffer on the menu. + +\\[w3m-select-buffer-toggle-style]\ + Toggle the style of the selection between horizontal and vertical. +\\[w3m-select-buffer-recheck]\ + Do the roll call to all emacs-w3m buffers. +\\[w3m-select-buffer-quit]\ + Quit the buffers selection. +" + (setq major-mode 'w3m-select-buffer-mode + mode-name "w3m buffers" + truncate-lines t + buffer-read-only t) + (use-local-map w3m-select-buffer-mode-map) + (w3m-run-mode-hooks 'w3m-select-buffer-mode-hook)) + +(defun w3m-select-buffer-recheck () + "Do the roll call to all emacs-w3m buffers and regenerate the menu." + (interactive) + (let ((buffer-read-only nil)) + (erase-buffer)) + (w3m-select-buffer-generate-contents + (window-buffer w3m-select-buffer-window)) + (w3m-select-buffer-show-this-line)) + +(defmacro w3m-select-buffer-current-buffer () + '(get-text-property (point-at-bol) 'w3m-select-buffer)) + +(defun w3m-select-buffer-show-this-line (&optional interactive-p) + "Show the buffer on the current menu line or scroll it up." + (interactive (list t)) + (forward-line 0) + (let ((obuffer (and (window-live-p w3m-select-buffer-window) + (window-buffer w3m-select-buffer-window))) + (buffer (w3m-select-buffer-current-buffer))) + (unless buffer + (error "No buffer at point")) + (cond + ((get-buffer-window buffer) + (setq w3m-select-buffer-window (get-buffer-window buffer))) + ((window-live-p w3m-select-buffer-window) + ()) + ((one-window-p t) + (setq w3m-select-buffer-window (selected-window)) + (select-window + (split-window nil + (w3m-select-buffer-window-size) + w3m-select-buffer-horizontal-window))) + (t (setq w3m-select-buffer-window (get-largest-window)))) + (set-window-buffer w3m-select-buffer-window buffer) + (when (and interactive-p (eq obuffer buffer)) + (save-selected-window + (pop-to-buffer buffer) + (w3m-scroll-up-or-next-url nil))) + (w3m-force-window-update w3m-select-buffer-window) + (w3m-message w3m-select-buffer-message) + buffer)) + +(defun w3m-select-buffer-show-this-line-and-down () + "Show the buffer on the current menu line or scroll it down." + (interactive) + (let ((obuffer (and (window-live-p w3m-select-buffer-window) + (window-buffer w3m-select-buffer-window))) + (buffer (w3m-select-buffer-show-this-line))) + (when (eq obuffer buffer) + (save-selected-window + (pop-to-buffer buffer) + (w3m-scroll-down-or-previous-url nil))))) + +(defun w3m-select-buffer-next-line (&optional n) + "Move cursor vertically down N lines and show the buffer on the menu." + (interactive "p") + (forward-line n) + (prog1 + (w3m-select-buffer-show-this-line) + (w3m-static-when (featurep 'xemacs) + (save-window-excursion + ;; Update gutter tabs. + (select-window w3m-select-buffer-window))))) + +(defun w3m-select-buffer-previous-line (&optional n) + "Move cursor vertically up N lines and show the buffer on the menu." + (interactive "p") + (w3m-select-buffer-next-line (- n))) + +(defun w3m-select-buffer-copy-buffer () + "Create a copy of the buffer on the current menu line, and show it." + (interactive) + (w3m-select-buffer-show-this-line) + (let ((window (selected-window))) + (select-window (get-buffer-window (w3m-select-buffer-current-buffer))) + ;; The selection buffer will be updated automatically because + ;; `w3m-copy-buffer' calls `w3m-select-buffer-update' by way of + ;; `w3m-goto-url'. + (w3m-copy-buffer) + (select-window window))) + +(defun w3m-select-buffer-delete-buffer (&optional force) + "Delete the buffer on the current menu line. +If there is the sole emacs-w3m buffer, it is assumed to be called for +terminating the emacs-w3m session; the prefix argument FORCE will be +passed to the `w3m-quit' function (which see)." + (interactive "P") + (w3m-select-buffer-show-this-line) + (if (= 1 (count-lines (point-min) (point-max))) + (w3m-quit force) + (let ((buffer (w3m-select-buffer-current-buffer))) + (forward-line -1) + (w3m-process-stop buffer) + (w3m-idle-images-show-unqueue buffer) + (kill-buffer buffer) + (when w3m-use-form + (w3m-form-kill-buffer buffer)) + (run-hooks 'w3m-delete-buffer-hook) + (w3m-select-buffer-generate-contents (w3m-select-buffer-current-buffer)) + (w3m-select-buffer-show-this-line)))) + +(defun w3m-select-buffer-delete-other-buffers () + "Delete emacs-w3m buffers except for the buffer on the current menu." + (interactive) + (w3m-select-buffer-show-this-line) + (w3m-delete-other-buffers (w3m-select-buffer-current-buffer))) + +(defun w3m-select-buffer-quit () + "Quit the buffers selection." + (interactive) + (if (one-window-p t) + (set-window-buffer (selected-window) + (or (w3m-select-buffer-current-buffer) + (w3m-alive-p))) + (let ((buf (or (w3m-select-buffer-current-buffer) + (w3m-alive-p))) + pop-up-frames) + (pop-to-buffer buf) + (and (get-buffer-window w3m-select-buffer-name) + (delete-windows-on w3m-select-buffer-name))))) + +(defun w3m-select-buffer-show-this-line-and-switch () + "Show the buffer on the menu and switch to the buffer." + (interactive) + (pop-to-buffer (w3m-select-buffer-show-this-line)) + (message nil)) + +(defun w3m-select-buffer-show-this-line-and-quit () + "Show the buffer on the menu and quit the buffers selection." + (interactive) + (w3m-select-buffer-show-this-line-and-switch) + (and (get-buffer-window w3m-select-buffer-name) + (delete-windows-on w3m-select-buffer-name))) + +(defun w3m-select-buffer-close-window () + "Close the window which displays the buffers selection." + (let ((window (get-buffer-window w3m-select-buffer-name))) + (when window + (if (one-window-p t) + (set-window-buffer window (other-buffer)) + (delete-window window))))) + +(defun w3m-select-buffer-toggle-style() + "Toggle the style of the selection between horizontal and vertical." + (interactive) + (w3m-select-buffer t)) + +(defun w3m-select-buffer-window-size () + (if w3m-select-buffer-horizontal-window + (- (window-width) + (/ (* (frame-width) (car w3m-select-buffer-window-ratio)) 100)) + (- (window-height) + (/ (* (frame-height) (cdr w3m-select-buffer-window-ratio)) 100)))) + + +;;; Header line +(defcustom w3m-use-header-line t + "*Non-nil means display the header line." + :group 'w3m + :type 'boolean) + +(defcustom w3m-use-header-line-title nil + "Non-nil means display the current title at the header line. +This variable is effective only when `w3m-use-tab' is nil." + :group 'w3m + :type 'boolean) + +(defface w3m-header-line-location-title + '((((class color) (background light)) + (:foreground "Blue" :background "Gray90")) + (((class color) (background dark)) + (:foreground "Cyan" :background "Gray20"))) + "Face used to highlight title when displaying location in the header line." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-header-line-location-title-face + 'face-alias 'w3m-header-line-location-title) + +(defface w3m-header-line-location-content + '((((class color) (background light)) + (:foreground "DarkGoldenrod" :background "Gray90")) + (((class color) (background dark)) + (:foreground "LightGoldenrod" :background "Gray20"))) + "Face used to highlight url when displaying location in the header line." + :group 'w3m-face) +;; backward-compatibility alias +(put 'w3m-header-line-location-content-face + 'face-alias 'w3m-header-line-location-content) + +(defvar w3m-header-line-map nil) +(unless w3m-header-line-map + (let ((map (make-sparse-keymap))) + (set-keymap-parent map w3m-mode-map) + (define-key map [mouse-2] 'w3m-goto-url) + ;; Prevent tool-bar from being doubled under GNU Emacs. + (define-key map [tool-bar] 'undefined) + (setq w3m-header-line-map map))) + +(defun w3m-header-line-insert () + "Put the header line into the current buffer." + (when (and (or (featurep 'xemacs) + (w3m-use-tab-p)) + w3m-use-header-line + w3m-current-url + (eq 'w3m-mode major-mode)) + (goto-char (point-min)) + (let ((ct (w3m-arrived-content-type w3m-current-url)) + (charset (w3m-arrived-content-charset w3m-current-url))) + (insert (format "Location%s: " (cond ((and ct charset) " [TC]") + (ct " [T]") + (charset " [C]") + (t ""))))) + (w3m-add-face-property (point-min) (point) 'w3m-header-line-location-title) + (let ((start (point))) + (insert (w3m-puny-decode-url + (if (string-match "[^\000-\177]" w3m-current-url) + w3m-current-url + (w3m-url-decode-string w3m-current-url w3m-current-coding-system)))) + (w3m-add-face-property start (point) 'w3m-header-line-location-content) + (w3m-add-text-properties start (point) + `(mouse-face highlight + keymap ,w3m-header-line-map + ,@(if (featurep 'xemacs) + '(help-echo + "button2 prompts to input URL" + balloon-help + "button2 prompts to input URL") + '(help-echo + "mouse-2 prompts to input URL")))) + (setq start (point)) + (insert-char ?\ (max + 0 + (- (if (and w3m-select-buffer-horizontal-window + (get-buffer-window w3m-select-buffer-name)) + (frame-width) + (window-width)) + (current-column) 1))) + (w3m-add-face-property start (point) 'w3m-header-line-location-content) + (unless (eolp) + (insert "\n"))))) + +;;; w3m-minor-mode +(defcustom w3m-goto-article-function nil + "Function used to visit an article pointed to by a given URL +in `w3m-minor-mode' buffer. Normally, this option is used only +when you follow a link in an html article. A function set to +this variable must take one argument URL, and should display the +specified page. It may return the symbol `w3m-goto-url' when it +fails displaying the page. In this case, either `w3m-goto-url' +or `w3m-goto-url-new-session' is employed to display the page." + :group 'w3m + :type '(radio (const :tag "Use emacs-w3m" nil) + (function :value browse-url))) + +(defun w3m-safe-view-this-url (&optional force) + "View the URL of the link under point. +This command is quite similar to `w3m-view-this-url' except for the +four differences: [1]don't handle forms, [2]don't consider URL-like +string under the cursor, [3]compare URL with `w3m-safe-url-regexp' +first to check whether it is safe, and [4]the arguments list differs; +the optional FORCE, if it is non-nil, specifies URL is safe. You +should use this command rather than `w3m-view-this-url' when viewing +doubtful pages that might contain vicious forms. + +This command makes a new emacs-w3m buffer if `w3m-make-new-session' is +non-nil and a user invokes this command in a buffer not being running +the `w3m-mode', otherwise use an existing emacs-w3m buffer." + (interactive "P") + (let ((w3m-pop-up-windows nil) + (url (w3m-url-valid (w3m-anchor))) + safe-regexp) + (cond + (url + (setq safe-regexp (get-text-property (point) 'w3m-safe-url-regexp)) + (if (or (not safe-regexp) + (w3m-buffer-local-url-p url) + (string-match safe-regexp url) + (and force + (or (not (interactive-p)) + (yes-or-no-p "\ +Are you sure you really want to follow this link (maybe insecure)? ")))) + (unless (and (functionp w3m-goto-article-function) + (not (eq 'w3m-goto-url + (funcall w3m-goto-article-function url)))) + (if (and w3m-make-new-session + (not (eq major-mode 'w3m-mode))) + (w3m-goto-url-new-session url) + (w3m-goto-url url))) + (when (interactive-p) + (w3m-message "\ +This link is considered to be unsafe; use the prefix arg to view anyway")))) + ((w3m-url-valid (w3m-image)) + (if (w3m-display-graphic-p) + (if (interactive-p) + (call-interactively 'w3m-toggle-inline-image) + (w3m-toggle-inline-image force)) + (w3m-view-image))) + (t (w3m-message "No URL at point"))))) + +(defun w3m-mouse-safe-view-this-url (event) + "Perform the command `w3m-safe-view-this-url' by the mouse event." + ;; Note: a command invoked by [mouse-N] cannot accept the prefix + ;; argument since [down-mouse-N] eats it. + (interactive "e") + (mouse-set-point event) + (let ((url (w3m-url-valid (or (w3m-anchor) (w3m-image))))) + (if url + (let ((safe-regexp (get-text-property (point) 'w3m-safe-url-regexp)) + (use-dialog-box t)) + (when (or (not safe-regexp) + (w3m-buffer-local-url-p url) + (string-match safe-regexp url) + (y-or-n-p "\ +This link is considered to be unsafe; continue? ")) + (w3m-safe-view-this-url t))) + (w3m-message "No URL at point")))) + +(defconst w3m-minor-mode-command-alist + '((w3m-next-anchor) + (w3m-previous-anchor) + (w3m-next-image) + (w3m-previous-image) + (w3m-toggle-inline-image) + (w3m-toggle-inline-images) + (w3m-view-this-url . w3m-safe-view-this-url) + (w3m-mouse-view-this-url . w3m-mouse-safe-view-this-url) + (w3m-print-this-url)) + "Alist of commands and commands to be defined in `w3m-minor-mode-map'. +Each element looks like (FROM-COMMAND . TO-COMMAND); those keys which +are defined as FROM-COMMAND in `w3m-mode-map' are redefined as +TO-COMMAND in `w3m-minor-mode-map'. When TO-COMMAND is nil, +FROM-COMMAND is defined in `w3m-minor-mode-map' with the same key in +`w3m-mode-map'.") + +(defun w3m-make-minor-mode-keymap () + "Return a keymap used for `w3m-minor-mode'." + (let ((keymap (make-sparse-keymap))) + (dolist (pair w3m-minor-mode-command-alist) + (substitute-key-definition (car pair) + (or (cdr pair) (car pair)) + keymap w3m-mode-map)) + (unless (featurep 'xemacs) + ;; Inhibit the `widget-button-click' command when + ;; `w3m-imitate-widget-button' is activated. + (define-key keymap [down-mouse-2] 'undefined)) + keymap)) + +(defvar w3m-minor-mode-map (w3m-make-minor-mode-keymap) + "*Keymap used when `w3m-minor-mode' is active.") + +(defcustom w3m-minor-mode-hook nil + "*Hook run after `w3m-minor-mode' initialization." + :group 'w3m + :type 'hook) + +(defvar w3m-minor-mode nil "Non-nil if w3m minor mode is enabled.") +(make-variable-buffer-local 'w3m-minor-mode) +(unless (assq 'w3m-minor-mode minor-mode-alist) + (push (list 'w3m-minor-mode " w3m") minor-mode-alist)) +(unless (assq 'w3m-minor-mode minor-mode-map-alist) + (push (cons 'w3m-minor-mode w3m-minor-mode-map) minor-mode-map-alist)) + +(defun w3m-minor-mode (&optional arg) + "Minor mode to view text/html parts in articles." + (interactive "P") + (when (setq w3m-minor-mode + (if arg + (> (prefix-numeric-value arg) 0) + (not w3m-minor-mode))) + (run-hooks 'w3m-minor-mode-hook))) + +(defcustom w3m-do-cleanup-temp-files nil + "*Whether to clean up temporary files when emacs-w3m shutdown." + :group 'w3m + :type 'boolean) + +(defun w3m-cleanup-temp-files () + (when w3m-do-cleanup-temp-files + (dolist (f (directory-files w3m-profile-directory)) + (when (string-match "^w3m\\(el\\|src\\)" f) + (delete-file (expand-file-name f w3m-profile-directory)))))) + +(provide 'w3m) + +(unless noninteractive + (if (string-match "\\.el\\'" w3m-init-file) + (or (load (concat w3m-init-file "c") t t t) + (load w3m-init-file t t t)) + (load w3m-init-file t t)) + (run-hooks 'w3m-load-hook)) + +;;; w3m.el ends here diff --git a/share/info/emacs-w3m-ja.info b/share/info/emacs-w3m-ja.info new file mode 100644 index 00000000000..b7784d16e4c --- /dev/null +++ b/share/info/emacs-w3m-ja.info @@ -0,0 +1,7014 @@ +Info file: emacs-w3m-ja.info, -*-Text-*- +produced by `texinfo-format-buffer' +from file `emacs-w3m-ja.texi' +using `texinfmt.el' version 2.42 of 7 Jul 2006. + +INFO-DIR-SECTION GNU Emacs Lisp +START-INFO-DIR-ENTRY +* Emacs-w3m-ja: (emacs-w3m-ja). An Emacs interface to w3m (Japanese) +END-INFO-DIR-ENTRY + + +This file documents emacs-w3m, an Emacs interface to w3m. + +$B$3$N%U%!%$%k$O(B Emacs $B$GF0$/(B w3m $B$N%$%s%?%U%'!<%9$G$"$k(B emacs-w3m $B$K4X$9(B +$B$k@bL@=q$G$9!#(B + +This edition is for emacs-w3m version 1.4.385. + +$B$3$NHG$O(B emacs-w3m $B%P!<%8%g%s(B 1.4.385 $B$KBP1~$7$^$9!#(B + + + + + +File: emacs-w3m-ja.info, Node: Top, Next: Introduction, Prev: (dir), Up: (dir) + +Emacs-w3m $A%f$B!<$A%6%^%K%e%"%k(B +************************** + + Emacs-w3m $B3+H/%A!<%`(B + +$B$3$NJ8=q$O(B emacs-w3m $B%P!<%8%g%s(B 1.4.385 $B$KBP1~$7$^$9!#(B + + + +Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +2008, 2009 TSUCHIYA Masatoshi + + Permission is granted to copy, distribute and/or modify this + document under the terms of the GNU General Public License, + Version 2 or any later version published by the Free Software + Foundation. + + $A$3$NND$(GUs$A$r!"%U%j$B!<$A%=%U%H%&%'%"$(GXB$(I#>$A$K$h$C$F$BH/$APP$5$l$?(B GNU $AR;0c9+$(I>j(B + $A@{SC$(G]Br?$AFu$(GR|Us$A5Z(B 2 $A0f$^$?$O$=$lRT=5$N0f$N$&$A$I$l$+$N6($a$kLu<~$N(B + $AOB$G$(Gnoj{$A!"Ed2<!"$"$k$$$O$(I+y$A8|$9$k$3$H$r$(G]B$A?I$7$^$9!#(B + + This document 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. + + $A$3$NND$(GUs$A$OSPSC$G$"$k$3$H$r$(GyL$A$C$F$(Ggc$A2<$5$l$^$9$,!"(B*$AH+$/$N$(G`R$A1#$(Gb%(B* $A$G(B + $A$9!#(B*$AIL$(GdF$A?ID\PT(B* $A$N1#$(Gb%$A$d(B *$ALX6($ND?5D$X$N$(GoK$A:OPT(B* $A$O!"QTMb$KJ>$5$l(B + $A$?$b$N$b:,$aH+$/4fTZ$7$^$;$s!#$(Gf[$A$7$/$O(B GNU $AR;0c9+$(I>j$A@{SC$(G]Br?$AFu$(GR|Us(B + $A$r$4$(IRf$A$/$@$5$$!#(B + + You should have received a copy of the GNU General Public License + along with this document; see the file COPYING. If not, write to + the Free Software Foundation, Inc., 51 Franklin Street, Fifth + Floor, Boston, MA 02110-1301, USA. + + $A$"$J$?$O$3$NND$(GUs$A$H92$K!"(BGNU $AR;0c9+$(I>j$A@{SC$(G]Br?$AFu$(GR|Us$A$N$(Gnoj{$ANo$rR;2?J\(B + $A$1H!$C$?$O$:$G$9!#(BCOPYING $A%U%!%$%k$r2NUU$7$F$/$@$5$$!#$b$7J\$1H!$C(B + $A$F$$$J$1$l$P!"%U%j$B!<$A%=%U%H%&%'%"$(GXB$(I#>$A$^$G$(Gny$AGs$7$F$/$@$5$$(B ($AMpOH$O(B + the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + Boston, MA 02111-1307 USA)$A!#(B + + + +* Menu: + +* Introduction:: $B$O$8$a$K(B +* Getting Started:: Emacs-w3m $B$r;H$$;O$a$k$N$O$H$C$F$b4JC1(B +* Basic Usage:: $B4pK\E*$J;H$$J}(B +* Pretty Good Features:: $B$?$/$5$s$N$9$0$l$b$N(B +* Customizable Variables:: $B%G%U%)%k%H$N$^$^$G$b7k9=NI$$$H;W$&$1$l$I(B +* Hooking into MUAs:: $B%a!<%k(B/$B%K%e!<%9%j!<%@!<$G;H$&(B +* Frequently Asked Questions:: $BI,$:Ez$,$"$k$H$O8B$i$J$$(B +* Known Problems:: $B$"$J$?$J$i$-$C$H2r7h$G$-$k(B +* Shimbun Library:: $B%&%'%V>e$N?7J9$rFI$`$?$a$NF;6q(B +* Tips:: Emacs-w3m $B$r;H$&^/Mn$?>.J*$?$A(B +* Mailing List:: $B%a!<%j%s%0%j%9%H!"%P%0%j%]!<%H(B +* Emacs-w3m Functions:: Emacs-w3m $B$N4X?t$N>\$7$$@bL@(B +* External Packages:: $B$*Cg4V$N%Q%C%1!<%8$?$A(B +* Authors:: $B$3$N%^%K%e%"%k$r=q$$$??M$?$A(B +* Index:: $B:w0z(B + + -- $B9`L\$N>\:Y$J%j%9%H(B --- + +Getting Started + +* Required Emacs Version:: $B$I$s$J%P!<%8%g%s$N(B Emacs $B$G;H$($k$N(B? +* You Need w3m:: w3m $B$r;H$$$^$9(B: emacs-w3m $B$,B.$$$o$1(B +* Other Requirements:: Emacs-w3m $B$rF0:n$5$;$k$N$KI,MW$J$b$N(B +* Installing Emacs-w3m:: Emacs-w3m $B$r%$%s%9%H!<%k$9$k(B +* Non-UNIX-like systems:: $BHs(B UNIX $B7O4D6-$G$N%$%s%9%H!<%k(B +* Minimal Settings:: $B@_Dj$7$J$1$l$P$J$i$J$$:GDc8B$N$b$N(B + +Basic Usage + +* Browsing Web Pages:: $B%M%C%H%5!<%U%#%s$7$h$&(B! +* Inline Images:: $B2hA|I=<($r(B ON/OFF $B$9$k(B +* Tracing History:: $B;~6u$rAL$k(B +* Managing Bookmarks:: $B$\$/$N(B/$B$o$?$7$N$*5$$KF~$j(B +* Using Tabs:: $B$_$s$J%?%V$,9%$-$@$h$M(B +* Working with buffers:: $B%P%C%U%!$r:n$k(B/$B>C$9(B/$B0\F0$9$k(B +* Downloading:: $B%U%!%$%k$r%@%&%s%m!<%I$9$k(B +* Submitting Forms:: HTML $B%U%)!<%`$K5-F~$9$k(B +* HTML File Information:: $B%&%'%V%Z!<%8:n$j$H%O%C%/$N$*<jEA$$(B + +Pretty Good Features + +* Using Search Engines:: $B;H$$$d$9$$%&%'%V8!:w(B +* Grouping URLs:: $B0l$D$N(B URL $B$GJ#?t$N%&%'%V%Z!<%8$r8+$k(B +* Weather Information:: $BL@F|$NE75$$O@2$l$G$7$g$&(B +* Using Antenna:: $B%"%s%F%J$rD%$j=d$i$=$&(B +* Showing Directory Tree:: $B%G%#%l%/%H%j$NLZ9=B$$rI=<($9$k(B +* Viewing Perl Documents:: Perl $B$N%I%-%e%a%s%H$r8+$k(B +* Using Namazu:: Namazu $B$G%U%!%$%k$r8!:w$9$k(B +* Octet:: application/octet-stream $B%G!<%?$r8+$k(B +* Frame Local Buffers:: $BB??t$N%;%C%7%g%s$r%U%l!<%`$G%0%k!<%WJ,$1$9$k(B +* Session Manager:: $B%;%C%7%g%s$NJ]B8$HFI$_$3$_(B + +Customizable Variables + +* General Variables:: $B0lHLE*$JJQ?t(B +* Image Variables:: $B2hA|$K4XO"$7$?JQ?t(B +* Form Variables:: $B%U%)!<%`$K4XO"$7$?JQ?t(B +* Cookie Variables:: $B%/%C%-!<$K4XO"$7$?JQ?t(B +* Bookmark Variables:: $B%V%C%/%^!<%/$K4XO"$7$?JQ?t(B +* Search Variables:: $B%&%'%V8!:w$K4XO"$7$?JQ?t(B +* Weather Variables:: $BE75$M=Js$K4XO"$7$?JQ?t(B +* Dtree Variables:: dtree $B$K4XO"$7$?JQ?t(B +* Antenna Variables:: $B%"%s%F%J$K4XO"$7$?JQ?t(B +* Perldoc Variables:: Perldoc $B$K4XO"$7$?JQ?t(B +* Namazu Variables:: Namazu $B$K4XO"$7$?JQ?t(B +* Octet Variables:: Octet $B$K4XO"$7$?JQ?t(B +* Session Manager Variables:: $B%;%C%7%g%s%^%M!<%8%c$K4XO"$7$?JQ?t(B +* Hooks:: $B%U%C%/(B +* Other Variables:: $B$=$NB>$NJQ?t(B + +Hooking into MUAs + +* Gnus:: Gnus $B$G(B HTML $B%a!<%k$rFI$`(B +* Mew:: Mew $B$G(B HTML $B%a!<%k$rFI$`(B +* SEMI MUAs:: SEMI MUA $B$G(B HTML $B%a!<%k$rFI$`(B +* VM:: VM (vieW maiL) $B$O(B Wanderlust $B$K$"$i$:(B + +Frequently Asked Questions + +* General FAQ:: $B0lHLE*$J<ALd(B +* Trouble FAQ:: $B%H%i%V%k(B +* Shimbun FAQ:: Shimbun $B$K4X$9$k<ALd(B + +Known Problems + +Shimbun Library + +* Nnshimbun:: Gnus $B$r%&%'%V%V%i%&%6$K$9$k(B! +* Mew Shimbun:: Mew $B$G?7J9$rFI$`(B +* Shimbun with Wanderlust:: Wanderlust $B$G?7J9$rFI$`(B +* Shimbun local mode:: $B?7J9$N<hF@$K%7%'%k%9%/%j%W%H$r;H$&(B +* Shimbun Sites:: $B?7J9$,FI$a$k%5%$%H(B +* Shimbun Basics:: $B?7J9%b%8%e!<%k$N:n$jJ}(B + +Tips + +Mailing List + +Emacs-w3m Functions + + + + +File: emacs-w3m-ja.info, Node: Introduction, Next: Getting Started, Prev: Top, Up: Top + +$A$O$8$a$K(B +******** + +Emacs/W3 (http://www.cs.indiana.edu/elisp/w3/docs.html) $B$O!"$+$D$F$O(B +Emacs $B>e$GF0:n$9$k:G$b%]%T%e%i!<$J(B web $B%V%i%&%6!<$G$7$?!#$7$+$7F0:n$,Hs(B +$B>o$KCY$+$C$?$N$G!";d$?$A$O$=$l$KBe$o$kB.$$$b$N$rM_$7$^$7$?!#0lJ}!"(Bw3m +(http://w3m.sourceforge.net/) $B$H$$$&%Z!<%8%c!<$,$"$j$^$7$?!#$=$l$O%Z!<(B +$B%8%c!<$G$7$?$,!"%F%-%9%H%b!<%I(B WWW $B%V%i%&%6!<$H$7$F;H$&$3$H$,$G$-$?$N$G!"(B +$B;d$?$A$O(B w3m $B$X$N(B Emacs $B%$%s%?!<%U%'!<%9$N3+H/$r;O$a$^$7$?!#(B + +$B$9$P$i$7$$(B w3m $B%W%m%0%i%`$r3+H/$7$F$/$l$?0KF#>4B'$5$s$H(B w3m $B%A!<%`$N$_(B +$B$J$5$s$K!"3JCJ$N46<U$rJ{$2$^$9!#$5$i$K%3%a%s%H!"Ds0F$*$h$S%P%0$N=$@5$r(B +$B$7$F$/$l$?$9$Y$F$N?M!9$K46<U$7$^$9!#$?$H$(LdBj$,$"$C$F$b!"@UG$$O$9$Y$F(B +$B;d$?$A(B (emacs-w3m $B3+H/%A!<%`(B) $B$K$"$j$^$9!#$b$C$H$b!"J]>Z$O$^$C$?$/$"$j(B +$B$^$;$s$,!#(BEmacs-w3m $B$O(B 2000$BG/(B6$B7n$KEZ202mL-$K$h$C$FAO;O$5$l$^$7$?!#(B + +Emacs-w3m $A$N9+J=%Z$B!<$A%8(B (http://emacs-w3m.namazu.org/) $B$bJ;$;$F$4Mw$/$@(B +$B$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Getting Started, Next: Basic Usage, Prev: Introduction, Up: Top + +Emacs-w3m $A$rJ9$$J<$a$k$N$O$H$C$F$b$(Gv|$(I+J(B +************************************** + +$B$R$g$C$H$9$k$H!"$"$J$?$N%7%9%F%`$K$O(B emacs-w3m $B$,$9$G$K%$%s%9%H!<%k$5$l(B +$B$F$$$k$+$b$7$l$^$;$s!#$=$N>l9g!"$"$J$?$O$3$N9`$rFI$_Ht$P$7$F!"D>$A$K;H(B +$B$$;O$a$k$3$H$,$G$-$^$9!#$=$s$J9,1?$K7C$^$l$J$+$C$?$J$i$P!"(Bemacs-w3m $B$N(B +$B%$%s%9%H!<%k$N;EJ}$r2qF@$9$k$?$a$K!"FI$_B3$1$F$/$@$5$$!#(B + +* Menu: + +* Required Emacs Version:: $B$I$s$J%P!<%8%g%s$N(B Emacs $B$G;H$($k$N(B? +* You Need w3m:: w3m $B$r;H$$$^$9(B: emacs-w3m $B$,B.$$$o$1(B +* Other Requirements:: Emacs-w3m $B$rF0:n$5$;$k$N$KI,MW$J$b$N(B +* Installing Emacs-w3m:: Emacs-w3m $B$r%$%s%9%H!<%k$9$k(B +* Non-UNIX-like systems:: $BHs(B UNIX $B7O4D6-$G$N%$%s%9%H!<%k(B +* Minimal Settings:: $B@_Dj$7$J$1$l$P$J$i$J$$:GDc8B$N$b$N(B + + + +File: emacs-w3m-ja.info, Node: Required Emacs Version, Next: You Need w3m, Prev: Getting Started, Up: Getting Started + +$A$I$s$J%P$B!<$A%8%g%s$N(B Emacs $A$GJ9$($k$N(B? +==================================== + +$B0J2<$K5s$2$?$$$m$$$m$J%P!<%8%g%s$N(B Emacsen $B$G(B emacs-w3m $B$rF0:n$5$;$k$3(B +$B$H$,$G$-$^$9!#(B + +`Emacs 21.1 $ARTIO(B' + $BDI2C$N%Q%C%1!<%8$OITMW$G$9!#(B + +`XEmacs 21.x' + $BBh0l$K!"(Bemacs-w3m $B$O(B XEmacs 21.4.17 $B0J>e!"$*$h$S(B XEmacs 21.5-b19 + $B0J>e$@$1$r%5%]!<%H$9$k$3$H$KCm0U$7$F$/$@$5$$!#2C$($F!"(B + `timer-funcs.el' $B$r4^$`:G?7$N(B xemacs-base $B%Q%C%1!<%8$r%$%s%9%H!<%k(B + $B$7$F$*$/I,MW$,$"$j$^$9!#(B + + APEL $B%Q%C%1!<%8$H(B `gifsicle' $B%W%m%0%i%`$,I,MW$G$9!#$5$i$K!"(B + `mailto' url $B$r2r@O$9$k$?$a$N(B `rfc2368.el' $B%b%8%e!<%k$r%$%s%9%H!<(B + $B%k$7$F$*$$$?J}$,NI$$$G$7$g$&(B (*Note Other Requirements::)$B!#(B + +`Emacs 20.x, Emacs 19.34 ($A:,(B Mule 2.3)' + $B$3$l$i$N(B Emacs $B$r(B emacs-w3m $B$O%5%]!<%H$7$^$;$s!#(B + +GNU Emacs $B$N3+H/HG$r;H$C$F$$$k$N$G$"$l$P!"$*$=$i$/(B CVS $BHG$N(B emacs-w3m +$B$r;H$o$J$1$l$P$J$i$J$$$G$7$g$&!#$=$N>l9g$K$O!"%a!<%j%s%0%j%9%H$K;22C$9(B +$B$k$3$H$r6/$/4+$a$^$9(B (*Note Mailing List::)$B!#(B + + + +File: emacs-w3m-ja.info, Node: You Need w3m, Next: Other Requirements, Prev: Required Emacs Version, Up: Getting Started + +w3m $A$rJ9$$$^$9(B: emacs-w3m $A$,KY$$$o$1(B +==================================== + +Emacs-w3m $B$O30It%3%^%s%I(B w3m $B$r!"%&%'%V%3%s%F%s%D$r<hF@$9$k$?$a$N%P%C%/(B +$B%(%s%I$H$7$F!"$^$?$O(B HTML $B$NIA2h%(%s%8%s$H$7$F;HMQ$7$^$9!#HsF14|F0:n$K(B +$B$h$C$F9bB.$J(B Emacs $B%&%'%V%V%i%&%6$r<B8=$9$k$3$H$,$G$-$?$N$O(B w3m $B$N$*$+(B +$B$2$G$9!#(B + +$B$"$J$?$O:G?7$N(B w3m $B$r%$%s%9%H!<%k$7$J$1$l$P$J$j$^$;$s!#$=$l$O0J2<$N>l=j(B +$B$G<hF@$G$-$^$9(B: + +`http://prdownloads.sourceforge.net/w3m/' + + + +File: emacs-w3m-ja.info, Node: Other Requirements, Next: Installing Emacs-w3m, Prev: You Need w3m, Up: Getting Started + +Emacs-w3m $A$r$(GY/$AWw$5$;$k$N$K1XR*$J$b$N(B +==================================== + +$B;HMQ$7$F$$$k(B Emacs $B$N%P!<%8%g%s$K$h$C$F$O!"%5!<%I%Q!<%F%#$N%Q%C%1!<%8$,(B +$BI,MW$K$J$k$3$H$,$"$j$^$9!#$3$N9`$G$O!"$=$l$i$r8+$D$1$F%$%s%9%H!<%k$9$k(B +$B$?$a$N;qNA$rDs6!$7$^$9!#(B + +`APEL' + XEmacs $B$KIT2D7g$G$9!#(BEmacs-w3m $B$r9=C[$9$kA0$K(B APEL $B$r%$%s%9%H!<%k(B + $B$7$J$1$l$P$J$j$^$;$s!#(BAPEL $B$O0J2<$N>l=j$K$"$j$^$9(B: + + `http://kanji.zinbun.kyoto-u.ac.jp/~tomo/lemi/dist/apel/' + + APEL XEmacs $B%Q%C%1!<%8(B (SUMO $B$K4^$^$l$F$$$^$9(B) $B$N%P!<%8%g%s(B 1.32 + $B$h$j8E$$$b$N$O;H$($J$$$3$H$KCm0U$7$F$/$@$5$$!#$b$7$9$G$K$=$N$h$&$J(B + $BHG$N%Q%C%1!<%8$,%$%s%9%H!<%k$5$l$F$$$k$J$i$P!"$=$l$r99?7$9$k$+!"$^(B + $B$?$O>e5-$N%j%s%/$G<($7$?(B APEL $B$GCV$-49$($k$?$a$K!"0J2<$NL?Na$r;H$C(B + $B$F$/$@$5$$(B ($B?75,$K(B APEL $B$r%$%s%9%H!<%k$9$k>l9g$bF1$8L?Na$r;H$&$3$H(B + $B$,$G$-$^$9(B): + + % rm -fr /usr/local/lib/xemacs/xemacs-packages/lisp/apel + % cd apel-10.7 + % make install-package XEMACS=xemacs-21.4.x\ + PACKAGEDIR=/usr/local/lib/xemacs/xemacs-packages + +`gifsicle' + XEmacs $B$KIT2D7g$G$9!#$9$Y$F$N(B XEmacs 21.x $B$K$O!"%*%W%F%#%^%$%:$5$l(B + $B$?%"%K%a!<%7%g%s(B gif $B$,@5>o$KI=<($5$l$J$+$C$?$j!"$"$k<o$N%$%s%?!<(B + $B%l!<%9(B gif $B$rI=<($7$h$&$H$9$k$H%/%i%C%7%e$7$F$7$^$&4{CN$N%P%0$,$"(B + $B$j$^$9!#(BEmacs-w3m $B$O(B gif $B%G!<%?$r(B XEmacs 21.x $B$G07$($k7A<0$KJQ49$9(B + $B$k$?$a$K!"(B`gifsicle' $B%W%m%0%i%`$r;H$$$^$9!#$3$l$O<!$N>l=j$+$iF~<j(B + $B$9$k$3$H$,$G$-$^$9(B: + + `http://www.lcdf.org/gifsicle/' + +`ImageMagick' + ImageMagick $B%Q%C%1!<%8$K4^$^$l$F$$$k(B `convert' $B%W%m%0%i%`$,$"$l$P!"(B + emacs-w3m $B$O2hA|%5%$%:$NJQ99$d(B `favicon' $B2hA|$r(B Emacs $B$,07$($k%U%)!<(B + $B%^%C%H$KJQ49$9$k$?$a$K$=$l$r;H$$$^$9!#(BEmacs-w3m $B$O(B ImageMagick $B$,(B + $BL5$/$F$bF0:n$9$k$G$7$g$&$,!"%$%s%9%H!<%k$9$k$3$H$K$h$C$F$"$J$?$N%M%C(B + $B%H%5!<%U%#%s$,K-$+$J$b$N$K$J$k$G$7$g$&!#(BImageMagick $B%Q%C%1!<%8$O!"(B + $B0J2<$N>l=j$+$i<j$KF~$l$k$3$H$,$G$-$^$9(B: + + `ftp://ftp.imagemagick.org/pub/ImageMagick/' + + `favicon' $B2hA|$rA`:n$9$k$?$a$K!"%P!<%8%g%s(B 5.4.0-5 $B0J9_$N$b$N$r;H(B + $B$&$3$H$r?d>)$7$^$9!#0JA0$N%P!<%8%g%s$bF0$/$+$b$7$l$^$;$s$,!"$=$l$i(B + $B$O40A4$K%A%'%C%/$5$l$F$$$^$;$s!#(B + +`FLIM' + `Shimbun' $B%i%$%V%i%j$r;H$&$?$a$K$O(B FLIM $B%Q%C%1!<%8$,I,MW$G$9!#(B + `Shimbun' $B%i%$%V%i%j$O%&%'%V>e$N?7J9$rFI$`$?$a$NF;6qN`$N%3%l%/%7%g(B + $B%s$G!"(BGnus$B!"(BMew $B$^$?$O(B Wanderlust $B$H$H$b$K;H$&$3$H$,$G$-$^$9!#(B + *Note Shimbun Library::. + + $B;H$C$F$$$k(B Emacs $B$N%P!<%8%g%s$K$+$+$o$i$:!"(BFLIM $B%Q%C%1!<%8$K$O(B + APEL $B%Q%C%1!<%8$,I,MW$G$"$k$3$H$KCm0U$7$F$/$@$5$$!#$7$?$,$C$F(B + `shimbun' $B%i%$%V%i%j$r;H$&$K$O!"(BAPEL $B$H(B FLIM $B$NN>J}$r%$%s%9%H!<%k(B + $B$7$J$1$l$P$J$j$^$;$s!#(BFLIM $B%Q%C%1!<%8$O0J2<$N>l=j$K$"$j$^$9(B: + + `http://kanji.zinbun.kyoto-u.ac.jp/~tomo/lemi/dist/flim/flim-1.14/' + +`Mule-UCS' + XEmacs 21.4 $B$r;H$&$+!"$^$?$O(B Emacs 21 $B$r;H$C$FCf9q8l!"F|K\8l!"4Z9q(B + $B8l$J$I$N%F%-%9%H$rFI$`I,MW$,$"$k$J$i$P!"(Bemacs-w3m $B$,(B (Unicode $B%7%9(B + $B%F%`$NBeI=E*$J(B coding system $B$G$"$k(B) UTF-8 $B$G%(%s%3!<%I$5$l$?%Z!<(B + $B%8$rI=<($G$-$k$h$&$K$9$k$?$a$K!"(BMule-UCS Emacs Lisp $B%Q%C%1!<%8$r%$(B + $B%s%9%H!<%k$9$k$3$H$r4+$a$^$9!#(BEmacs 21 $B$,(B Unicode $B%7%9%F%`$rItJ,E*(B + $B$K(B ($BNc$($P%i%F%s!&%F%-%9%H$N$?$a$K(B) $B%5%]!<%H$7!"(BEmacs 22 $B0J>e$,$=(B + $B$l$r40A4$K%5%]!<%H$9$k$3$H$KCm0U$7$F$/$@$5$$!#(BMule-UCS Emacs Lisp + $B%Q%C%1!<%8$O0J2<$N>l=j$+$i<hF@$7$F$/$@$5$$(B: + + `http://unit.aist.go.jp/itri/itri-gist/ftp.m17n.org/pub/mule/Mule-UCS/test/Mule-UCS-current.tar.gz' + + (Mule-UCS $B$N8x<0%Z!<%8$O6a$$>-Mh(B `http://www.meadowy.org/' $B$G%*!<(B + $B%W%s$7$^$9!#(B) + + Emacs-21.2 $B$GMxMQ$9$k>l9g$O!"(BMule-UCS $B$K(B $A$3$N%Q%C%A(B + (http://www.m17n.org/mlarchive/mule/200203/msg00000.html) $B$rE,MQ$7(B + $B$?$[$&$,$$$$$G$7$g$&!#(B + + XEmacs 21.4 $B%f!<%68~$1$K$O!"$3$3$K%3%s%Q%$%k:Q$_$N%Q%C%1!<%8$,$"$j(B + $B$^$9(B: + + `ftp://ftp.xemacs.org/xemacs/packages/mule-ucs-1.14-pkg.tar.gz' + + (Mule SUMO $B$K4^$^$l$F$$$k$N$G!"2C$($F$5$i$K$3$l$r%$%s%9%H!<%k$9$k(B + $BI,MW$O$"$j$^$;$s!#(B) + +`codepage-ex' + $B%h!<%m%C%Q$N$$$/$D$+$N(B web $B%5%$%H$O!"(B`charset=ISO-8859-1' $B$r%F%-%9(B + $B%H$N%(%s%3!<%I$K;XDj$7$F$$$k$N$K$b$+$+$o$i$:!"<B:]$K$O(B + `windows-1252' $B$r;H$$$^$9!#$=$l$i$r%G%3!<%I$9$k$N$K(B `iso-8859-1' + $B$OIT==J,$J$N$G!"(Bemacs-w3m $B$OMxMQ2DG=$J$i(B `windows-1252' $B$r(B + `iso-8859-1' $B$N%9!<%Q!<%;%C%H$H$7$F;HMQ$7$^$9!#(BEmacs 22 $B$+$i(B + `windows-1252' coding system $B$OAH$_9~$^$l$F$$$^$9$,!"(B + `codepage-ex' $B$H$$$&%b%8%e!<%k$r;H$&$3$H$K$h$C$F!"(BEmacs 21 $B$G$b$=(B + $B$l$r;H$($k$h$&$K$9$k$3$H$,$G$-$^$9!#0J2<$N%Z!<%8$r;2>H$7$F$/$@$5$$!#(B + + `http://nijino.homelinux.net/emacs/codepage-ex.html' + +`rfc2368.el' + XEmacs $B>e$GF0:n$5$;$k(B emacs-w3m $B$,!"E,@Z$K(B `mailto' url $B$r2r@O$G$-(B + $B$k$h$&$K$7$?$$>l9g$K%$%s%9%H!<%k$7$F$/$@$5$$!#(BXEmacs $B$G;H$&$3$H$,(B + $B$G$-$k(B `rfc2368.el' $B%b%8%e!<%k$O!"(Bemacs-w3m $B$NG[I[$N(B `attic' $B%G%#(B + $B%l%/%H%j$K$"$j$^$9!#%$%s%9%H!<%k$9$k$K$O(B `rfc2368.el' $B%U%!%$%k$r(B + `load-path' $B$,DL$C$F$$$k%G%#%l%/%H%j$K%3%T!<$7$F!"0J2<$N%3%^%s%I$r(B + $B<B9T$7$F$/$@$5$$(B: + + % xemacs -batch -vanilla -f batch-byte-compile rfc2368.el + + + +File: emacs-w3m-ja.info, Node: Installing Emacs-w3m, Next: Non-UNIX-like systems, Prev: Other Requirements, Up: Getting Started + +Emacs-w3m $A$r%$%s%9%H$B!<$A%k$9$k(B +============================ + +Emacs-w3m $B$N<hF@$K4X$7$F$O8x<0%Z!<%8(B `http://emacs-w3m.namazu.org/' $B$r(B +$B;2>H$7$F$/$@$5$$!#$9$Y$F=`Hw$G$-$^$7$?$+(B? $B$G$O;O$a$^$7$g$&!#(B + +$BHs(B UNIX $B7O$N%7%9%F%`(B (`configure' $B$r<B9T$G$-$J$$$+(B `make' $B%3%^%s%I$,L5(B +$B$$!"2?$i$+$N%7%9%F%`(B) $B$K(B emacs-w3m $B$r%$%s%9%H!<%k$9$k$K$O!"$3$N9`$rHt$P(B +$B$7$F<!$N9`(B *Note Non-UNIX-like systems:: $B$K9T$C$F$/$@$5$$!#(B + + 1. $B:G=i$K!"G[I[$5$l$?(B emacs-w3m $B$N(B tarball $B$r0J2<$N$h$&$KE,Ev$J>l=j$G(B + $BE83+$7$F!"@hF,$N%G%#%l%/%H%j$KF~$C$F$/$@$5$$(B: + + % tar zxf emacs-w3m-1.4.385.tar.gz + % cd emacs-w3m-1.4.385 + + Emacs-w3m $B$r(B CVS $B$G<hF@$7$?$N$J$i$P!"(B`configure' $B%9%/%j%W%H$r@8@.(B + $B$9$k$?$a$K(B ($B0z?tL5$7$G(B) `autoconf' $B$r<B9T$7$J$1$l$P$J$j$^$;$s!#(B + + 2. `configure' $B%9%/%j%W%H$r<B9T$7$^$9!#(B + + % ./configure + + *Gnus $A%f$B!<$A%6$X$NVXR*$J$*V*$i$;(B*: + + $BJ#?t$N%P!<%8%g%s$N(B Gnus $B$,%$%s%9%H!<%k$5$l$F$$$k>l9g(B ($B%j%j!<%9HG$H(B + $B3+H/HG$N(B Gnus $B$,$"$k$+$b$7$l$^$;$s(B) $B$O!"(B`load-path' $B$K$"$J$?$,;H$&(B + $B%P!<%8%g%s$,%$%s%9%H!<%k$5$l$F$$$k%G%#%l%/%H%j(B (`gnus.elc' $B%U%!%$(B + $B%k$rD4$Y$^$7$g$&(B) $B$r4^$`$h$&$K$7$F$/$@$5$$!#0J2<$N$h$&$K(B + `--with-addpath' $B%*%W%7%g%s$r;H$&$3$H$K$h$C$F!"$3$l$r3N<B$K9T$J$&(B + $B$3$H$,$G$-$^$9(B: + + % ./configure --with-addpath=/usr/local/share/emacs/site-lisp/gnus + + APEL$B!"(BFLIM $B$^$?$OB>$N2?$+$r!"%G%U%)%k%H$N(B `load-path' $B0J30$NI8=`$G(B + $B$O$J$$%G%#%l%/%H%j$K%$%s%9%H!<%k$7$F$"$k>l9g$O!"0J2<$N$h$&$K(B + `--with-addpath' $B%*%W%7%g%s$r;H$C$F$=$l$i$r;XDj$7$J$1$l$P$J$j$^$;(B + $B$s(B ($B$5$i$K!"$=$l$K(B `:' $B$GJ,$1$i$l$?(B Gnus $B$N%G%#%l%/%H%j$r4^$a$F$b(B + $B9=$$$^$;$s(B): + + % ./configure --with-addpath=/opt/share/apel:/opt/share/flim + + 3. $BC1$K(B `make' $B$H(B `make install' $B$r<B9T$7$^$9!#(BXEmacs $B$r;H$C$F$$$k>l(B + $B9g$O!"$5$i$K<!$NCJMn$b8+$F$/$@$5$$!#(B + + % make + % make install + + $B$9$Y$F$N(B Lisp $B%U%!%$%k$H(B info $B%U%!%$%k$,E,@Z$J%G%#%l%/%H%j$K%$%s%9(B + $B%H!<%k$5$l$k$G$7$g$&!#(B + + $B$5$F!"$"$J$?$O$I$s$J%U%!%$%k$,$I$3$K9T$/$+J,$+$j$^$9$+(B? $B$=$l$rA0(B + $B$b$C$FCN$k$?$a$K$O!"$3$l$r;H$C$F$/$@$5$$(B: + + % make what-where + + $B2hA|$rI=<($9$k$3$H$,$G$-$k(B Emacs $B$^$?$O(B XEmacs $B$r;H$C$F$$$k$J$i$P!"(B + $B%"%$%3%s2hA|$N%U%!%$%k$r%$%s%9%H!<%k$7$?J}$,NI$$$G$7$g$&!#$=$l$r9T(B + $B$J$&$K$O(B: + + % make install-icons + + $B$^$?$O(B + + % make install-icons30 + + $B8e<T$O$A$g$C$HBg$-$J%"%$%3%s2hA|$r;H$&$?$a$N$b$N$G$9!#(B + + 4. $B0J2<$N$h$&$K(B `make install' $B$NBe$o$j$K(B `make install-package' $B$r;H(B + $B$&$3$H$K$h$C$F!"(Bemacs-w3m $B$r(B XEmacs $B%Q%C%1!<%8$H$7$F%$%s%9%H!<%k$9(B + $B$k$3$H$b$G$-$^$9(B: + + % make + % make install-package + + $B$3$N>l9g(B `make install-icons' $B$^$?$O(B `make install-icons30' $B$r<B9T(B + $B$9$kI,MW$O$"$j$^$;$s!#(B + + $B%Q%C%1!<%8!&%G%#%l%/%H%j$r;XDj$9$k$K$OFs$D$NJ}K!$,$"$j$^$9(B: + + * `configure' $B%*%W%7%g%s$N(B `--with-packagedir=' $B$r;H$$$^$9!#Nc(B + $B$G$9(B: + + % ./configure --with-packagedir=/opt/xemacs/xemacs-packages + % make what-where + % make + % make install-package + + * $BJQ?t(B `PACKAGEDIR' $B$r;H$$$^$9!#Nc$G$9(B: + + % ./configure + % make what-where PACKAGEDIR=/opt/xemacs/xemacs-packages + % make + % make install-package PACKAGEDIR=/opt/xemacs/xemacs-packages + + + +File: emacs-w3m-ja.info, Node: Non-UNIX-like systems, Next: Minimal Settings, Prev: Installing Emacs-w3m, Up: Getting Started + +$A7G(B UNIX $AO5$(Gt?$A>3$G$N%$%s%9%H$B!<$A%k(B +============================== + +$B$"$J$?$N%7%9%F%`$G(B `configure' $B%9%/%j%W%H$r<B9T$9$k$3$H$,$G$-$J$$$+!"(B +`make' $B%3%^%s%I$,MxMQ$G$-$J$$>l9g$O!"0J2<$NJ86g$r>'$($F$/$@$5$$!#(B + + % emacs -batch -q -no-site-file -l w3mhack.el NONE -f w3mhack-nonunix-install + +APEL$B!"(BFLIM ($B$^$?$OB>$N2?$+(B) $B$,IaDL$N>l=j$K%$%s%9%H!<%k$5$l$F$$$J$$$H!"(B +$B%$%s%9%H!<%i$O$=$l$i$rL5;k$7$F$7$^$&$G$7$g$&!#$=$s$J>l9g$O!"0J2<$K<($9(B +$B$h$&$K!"$=$l$i$N>l=j$r%$%s%9%H!<%i$K9p$2$kI,MW$,$"$j$^$9(B: + + % emacs -batch -q -no-site-file -l w3mhack.el //c/share/apel://c/share/flim -f w3mhack-nonunix-install + + + +File: emacs-w3m-ja.info, Node: Minimal Settings, Prev: Non-UNIX-like systems, Up: Getting Started + +$(G]C$A6($7$J$1$l$P$J$i$J$$Wn5MO^$N$b$N(B +================================== + +$B$3$N9`$G$O4pK\E*$J(B emacs-w3m $B$N@_Dj$N$$$/$D$+$r@bL@$7$^$9!#$-$a:Y$+$J@_(B +$BDj$r$7$?$$$J$i$P!"$?$/$5$s$N%+%9%?%^%$%:2DG=$JJQ?t$r(B *Note +Customizable Variables:: $B$G8+$D$1$k$3$H$,$G$-$k$G$7$g$&!#(B + +`Autoloads' + Emacs-w3m $B$r(B XEmacs $B%Q%C%1!<%8$H$7$F%$%s%9%H!<%k(B (*Note + Installing Emacs-w3m::) $B$7$F$"$l$P(B `w3m/auto-autoloads.el' $B%U%!%$(B + $B%k$,<+F0%m!<%I(B (autoload) $B$NLLE]$r8+$F$/$l$k$N$G!"$3$l$OI,MW$"$j$^(B + $B$;$s!#(B + + $B$=$l0J30$N$9$Y$F$N>l9g!"0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$KF~$l$F$/$@(B + $B$5$$(B: + + (require 'w3m-load) + +`Startup File' + Emacs-w3m $B$N$$$m$s$JJQ?t$r$$$8$kI,MW$,$"$k$H$-$O!"(B`~/.emacs-w3m' + $B%U%!%$%k(B ($B$3$l$O(B `w3m-init-file' $B$H$$$&JQ?t$N%G%U%)%k%HCM$G$9(B) $B$N(B + $BMxMQ$r?d>)$7$^$9!#$3$N%U%!%$%k$O(B `~/.emacs' $B$H;w$F$$$^$9$,!"$3$A$i(B + $B$O(B emacs-w3m $B$,5/F0$9$k$H$-$KFI$_9~$^$l$^$9!#(B`w3m-command' $B$J$I4v(B + $B$D$+$N%*%W%7%g%s$O!"$3$N%U%!%$%k$G$OJQ99$G$-$J$$$3$H$KCm0U$7$F$/$@(B + $B$5$$!#(B + +`Proxy Gateway' + $B$"$J$?$,KI2PJI(B (firewall) $B$NCf$+$i(B proxy $B%2!<%H%&%'%$$rDL$7$F%$%s(B + $B%?!<%M%C%H$K@\B3$7$F$$$k>l9g$O!"$=$l$r;H$&$h$&$K(B w3m $B$K;X<($9$kI,(B + $BMW$,$"$j$^$9!#(B + + $B$3$l$K$O$$$/$D$+$NJ}K!$,$"$j$^$9!#0l$D$O4D6-JQ?t(B `http_proxy' $B$r(B + shell $B>e$G!"$3$s$J$U$&$K%0%m!<%P%k$K@_Dj$9$k$3$H$G$9(B: + + setenv http_proxy http://proxy.hogege.com:8000/ + + $BB>$K!"JQ?t(B `w3m-command-arguments' $B$r%+%9%?%^%$%:$7$F!"(B`-o' $B$*$h$S(B + `http_proxy=http://PROXY_SERVER_NAME:PORT/' $B$rDI2C$9$kJ}K!$,$"$j$^(B + $B$9!#$3$l$O(B `~/.emacs-w3m' $B%U%!%$%k$G0J2<$N$h$&$K9T$J$&$3$H$b$G$-$^(B + $B$9!#(B + + (setq w3m-command-arguments + (nconc w3m-command-arguments + '("-o" "http_proxy=http://proxy.hogege.com:8000/"))) + + Proxy $B%2!<%H%&%'%$$rDL$9$Y$-$G$O$J$$%[%9%H(B ($B%$%s%H%i%M%C%H$N%5%$%H(B + $B$J$I(B) $B$r;XDj$9$k$K$O!"4D6-JQ?t(B `no_proxy' (`no-proxy' $B$G$O$J$$$3$H(B + $B$K$4Cm0U(B) $B$K%3%s%^$G6hJ,$1$5$l$?%[%9%HL>$N%j%9%H$r@_Dj$7$F$/$@$5$$!#(B + $B$"$k$$$O0J2<$N$h$&$K!"JQ?t(B `w3m-no-proxy-domains' $B$K%I%a%$%sL>(B ($B%[(B + $B%9%HL>$G$O$J$$(B) $B$N%j%9%H$r@_Dj$9$k$3$H$b$G$-$^$9(B: + + (setq w3m-no-proxy-domains '("local.com" "neighbor.com")) + + `no_proxy' $B%[%9%H$N@_Dj$K$I$&$d$C$F@55,I=8=$r;H$&$+$N@bL@$O!"JQ?t(B + `w3m-command-arguments-alist' $B$N%I%-%e%a%s%H$r8+$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Basic Usage, Next: Pretty Good Features, Prev: Getting Started, Up: Top + +$A;y1>5D$JJ9$$7=(B +************** + +* Menu: + +* Browsing Web Pages:: $B%M%C%H%5!<%U%#%s$7$h$&(B! +* Inline Images:: $B2hA|I=<($r(B ON/OFF $B$9$k(B +* Tracing History:: $B;~6u$rAL$k(B +* Managing Bookmarks:: $B$\$/$N(B/$B$o$?$7$N$*5$$KF~$j(B +* Using Tabs:: $B$_$s$J%?%V$,9%$-$@$h$M(B +* Working with buffers:: $B%P%C%U%!$r:n$k(B/$B>C$9(B/$B0\F0$9$k(B +* Downloading:: $B%U%!%$%k$r%@%&%s%m!<%I$9$k(B +* Submitting Forms:: HTML $B%U%)!<%`$K5-F~$9$k(B +* HTML File Information:: $B%&%'%V%Z!<%8:n$j$H%O%C%/$N$*<jEA$$(B + + + +File: emacs-w3m-ja.info, Node: Browsing Web Pages, Next: Inline Images, Prev: Basic Usage, Up: Basic Usage + +$A%M%C%H%5$B!<$A%U%#%s$7$h$&(B! +======================= + +$B$9$Y$F$N%&%'%V!&%V%i%&%:$NA`:n$O!"%-!<$G9T$&$3$H$,$G$-$^$9!#(BEmacs-w3m +$B$O%G%U%)%k%H$G(B `Lynx-like' $B%-!<%^%C%W(B (*Note Key Binding::) $B$H$$$&$b$N(B +$B$r;H$$$^$9!#$b$A$m$s%^%&%9$r;H$&$3$H$b$G$-$^$9!#(B + +* Menu: + +* Key Binding:: $BFs$D$N%-!<%P%$%s%I(B +* Launching and Jumping:: $B$H$K$+$/F0$+$7$F$_$h$&(B +* Moving in a page:: $B%Z!<%8Fb$rHt$S$^$o$k(B +* Moving over pages:: $B%Z!<%84V$rEO$jJb$/(B +* Browsing With Mouse Operations:: $B%^%&%9$r;H$C$F%5!<%U%#%s(B +* Going back to daily hacking and/or daily writing:: $BIaCJ$N@83h$KLa$k$K$O(B + + + +File: emacs-w3m-ja.info, Node: Key Binding, Next: Launching and Jumping, Prev: Browsing Web Pages, Up: Browsing Web Pages + +$A6~$D$N%-$B!<$A%P%$%s%I(B +------------------ + +Emacs-w3m $B$O(B Emacs $B%&%'%V!&%V%i%&%6$NNr;K$NCf$G$O8eH/$N%V%i%&%6$J$N$G!"(B +$B%f!<%6$,?7$7$$%&%'%V!&%V%i%&%6$KMF0W$K47$l$k$3$H$,$G$-$k$h$&$K$9$k$?$a(B +$B$K!"Fs<oN`$N%-!<%P%$%s%I$rMQ0U$7$^$7$?!#0l$D$O(B `Lynx-like' $B%-!<%^%C%W$H(B +$B8F$P$l!"$b$&0l$D$O(B `Info-like' $B%-!<%^%C%W$G$9!#$3$l$i$NL>A0$+$i!"$=$l$i(B +$B$,2?$r0UL#$9$k$+$OJ,$+$j$^$9$M(B? $BA0<T$O%F%-%9%HHG$N%&%'%V!&%V%i%&%6$G$"(B +$B$k(B `Lynx' $B$N$b$N$K;w$F$$$^$9!#$=$7$F8e<T$O(B GNU $B$N8x<0%I%-%e%a%s%H!&%V%i(B +$B%&%6$G$"$k(B `Info' $B$N$b$N$K;w$F$$$^$9!#%G%U%)%k%H$G$O(B `Lynx-like' $B%-!<%^%C(B +$B%W$,;H$o$l$^$9!#(B`Info-like' $B%-!<%^%C%W$r;H$$$?$$$N$J$i$P!"(B + + M-x customize-option <RET> w3m-key-binding <RET> + +$B$H%?%$%W$7$F(B `Info-like' $B%-!<%^%C%W$rA*$S!"JQ99$r%;!<%V$7$F$/$@$5$$!#$"(B +$B$k$$$O0J2<$NCGJR$r(B `~/.emacs' $B%U%!%$%k(B (`~/.emacs-w3m.el' $B%U%!%$%k$G$O(B +$B$"$j$^$;$s(B) $B$K2C$($F$/$@$5$$(B: + + (setq w3m-key-binding 'info) + +$B%-!<%P%$%s%I$r0l$D$:$DJQ99$9$k$K$O!"(B`~/.emacs-w3m.el' $B%U%!%$%k$G0J2<$N(B +$B$h$&$K(B `w3m-mode-map' $BJQ?t$r$$$8$C$F$/$@$5$$(B: + + (define-key w3m-mode-map [up] 'previous-line) + (define-key w3m-mode-map [down] 'next-line) + (define-key w3m-mode-map [left] 'backward-char) + (define-key w3m-mode-map [right] 'forward-char) + + + +File: emacs-w3m-ja.info, Node: Launching and Jumping, Next: Moving in a page, Prev: Key Binding, Up: Browsing Web Pages + +$A$H$K$+$/$(GY/$A$+$7$F$_$h$&(B +---------------------- + +$B0J2<$K5s$2$k;0$D$N0c$&%3%^%s%I$r;H$C$F(B emacs-w3m $B$r5/F0$9$k$3$H$,$G$-$^(B +$B$9!#$=$l$i$N%3%^%s%I$N0l$D$r;n$7$F$/$@$5$$!#%&%'%V%Z!<%8$,(B "*w3m*" $B$H$$(B +$B$&L>A0$N(B Emacs $B$N%P%C%U%!(B (emacs-w3m $B$N%P%C%U%!$N$3$H(B) $B$KI=<($5$l$^$9!#(B +$B$*$=$i$/5$IU$/$G$7$g$&$1$l$I$b!"(Bemacs-w3m $B$N%P%C%U%!$N%a%8%c!<%b!<%I$O(B +`w3m-mode' $B$G$9!#B>$K%^%$%J!<%b!<%I(B (*Note Managing Bookmarks::) $B$b$"$j(B +$B$^$9!#(B + +$B$3$3$G$O!"$=$l$i$N%3%^%s%I$N:G$b4pK\E*$J;H$$J}$@$1$r@bL@$7$^$9!#$=$l$i(B +$B$K$D$$$F$b$C$H>\$7$/CN$j$?$$>l9g$O!"(B*Note Emacs-w3m Functions:: $B$r;2>H(B +$B$7$F$/$@$5$$!#$^$?!"(Bemacs-w3m $B$NF0:n$r%+%9%?%^%$%:$9$k$?$a$K;H$&$3$H$,(B +$B$G$-$kJQ?t72$r!"(B*Note Customizable Variables:: $B$G;2>H$7$F$/$@$5$$!#(B + +`w3m' + Emacs-w3m $B$r5/F0$7$F!"(B`w3m-home-page' $B$H$$$&JQ?t$G;XDj$5$l$?%[!<%`(B + $B%Z!<%8$rI=<($7$^$9!#(B`w3m-home-page' $B$N%G%U%)%k%H$NCM$O(B "about:" $B$G(B + $B$9!#(BEmacs-w3m $B$r5/F0$7$?$H$-$KKh2s(B URL $B$rF~NO$G$-$k$h$&$K$7$?$$>l(B + $B9g$O!"JQ?t(B `w3m-quick-start' $B$NCM$r(B `nil' $B$K$7$F$/$@$5$$(B (*Note + Customizable Variables::)$B!#(B + + $B$3$l$O(B Emacs $B$r5/F0$9$k$H$-$K0z?t$H$7$F;H$&$3$H$b$G$-$^$9!#Nc$G$9(B: + + % emacs -f w3m + + URL $B$r;XDj$7$F!"$3$N$h$&$K;H$&$3$H$b$G$-$^$9(B: + + % emacs -f w3m http://emacs-w3m.namazu.org/ + +`w3m-find-file' + $B%m!<%+%k%U%!%$%kL>$r%_%K%P%C%U%!$GF~NO$7$F!"$=$l$r(B emacs-w3m $B$GI=(B + $B<($7$^$9!#(B + +`w3m-browse-url' + URL $B$r%_%K%P%C%U%!$GF~NO$7$F!"$=$l$r(B emacs-w3m $B$GI=<($7$^$9!#$3$N(B + $B%3%^%s%I$O!"$I$A$i$+$H8@$($PB>$N%"%W%j%1!<%7%g%s%W%m%0%i%`$+$i(B + emacs-w3m $B$r5/F0$9$k$?$a$KMQ0U$5$l$F$$$^$9!#(B + +$B$"$J$?$,$9$G$K(B Emacs $B$N%f!<%6$J$i$P!"(Bemacs-w3m $B$N%P%C%U%!$NCf$G0\F0$9$k(B +$B$N$K6lO+$OL5$$$G$7$g$&!#B?$/$NI8=`$N%-!<$,$=$N$^$^;H$($k$N$G$9$+$i!#Nc(B +$B$($P(B `C-n'$B!"(B`C-v' $B$=$l$K(B `C-s' $B$O(B emacs-w3m $B%P%C%U%!$GM-8z$J%-!<$G$9(B +($B$3$l$i$O0l9T2<9_!"0l%Z!<%8Aw$j!"$^$?$O8eJ}C18l8!:w$H$7$F6&DL$K;H$o$l$^(B +$B$9(B)$B!#(B + +$B%j%s%/$r$?$I$k$K$O(B `<RET>' $B%-!<$r;H$C$F$/$@$5$$!#$=$l$K$O%]%$%s%H$r%j%s(B +$B%/$N>l=j$K0\F0$7$J$1$l$P$J$j$^$;$s!#%j%s%/$OIaDL$N%F%-%9%H$H$O0c$C$FI=(B +$B<($5$l$F$$$k$N$G!"4JC1$K8+J,$1$k$3$H$,$G$-$^$9!#$=$l$i$O2<@~IU$-!"$^$?(B +$B$O0c$&?'$K$J$C$F$$$k$O$:$G$9!#$=$l$i$N8+1I$($O(B `w3m-anchor' $B$H$$$&%U%'!<(B +$B%9$K$h$C$F7h$^$j$^$9(B (*Note Customizable Variables::)$B!#(B + +`<RET>' +`<right>' (Lynx-like $A%-$B!<$A%^%C%W$N$_(B) + $B8=:_0LCV$N%j%s%/$,;X$7<($9%Z!<%8$rI=<($7$^$9(B + (`w3m-view-this-url')$B!#(B + + $B$3$N%3%^%s%I$N?6$kIq$$$O!"87L)$K$O8=:_0LCV$N%j%s%/$N@-<A$K$h$C$F!"(B + $B$^$?$O@\F,0z?t$rM?$($k$+$I$&$+$K0MB8$7$^$9!#>\:Y$O(B *Note + Emacs-w3m Functions:: $B$r;2>H$7$F$/$@$5$$!#(B + +$BA0=R$N$h$&$K!"JQ?t(B `w3m-quick-start' $B$NCM$r(B `nil' $B$K@_Dj$9$k$3(B +$B$H$K$h$C$F!"(B`M-x w3m' $B%3%^%s%I$r;H$C$?$H$-$K(B URL $B$r;XDj$9$k$3$H(B +$B$,2DG=$G$9!#(BEmacs-w3m $B$N%P%C%U%!$G$O!"F~NO$7$??7$7$$(B URL $B$N%Z!<%8$K9T$/(B +$B$?$a$N0lHLE*$JJ}K!$,!"$5$i$K0J2<$NFs$D$"$j$^$9!#(B + +`<RET>' + Emacs-w3m $B$N%P%C%U%!$K$*$$$F!"%X%C%@%i%$%s$KI=<($5$l$F$$$k(B URL $B$N(B + $B0LCV$K%]%$%s%H$r0\F0$5$;$F$+$i(B `<RET>' $B$rC!$/$3$H$K$h$C$F!"%_%K%P%C(B + $B%U%!$+$i(B URL $B$rF~NO$7$F!"$=$N%Z!<%8$rI=<($5$;$k$3$H$,$G$-$^$9!#(B + Mozilla $B$J$I$N(B GUI $B%Y!<%9$N%&%'%V%V%i%&%6$K47$l$F$$$k?M$K$H$C$F!"(B + $B$3$N5!G=$O$*$J$8$_$G$9$h$M!#$3$l$K4X$9$k>\$7$$@bL@$,(B *Note + Emacs-w3m Functions:: $B$G8+$D$+$k$O$:$G$9(B (`w3m-view-this-url')$B!#(B + +`g' + $B%_%K%P%C%U%!$G(B URL $B$NF~NO$r$&$J$,$7$F!"(Bemacs-w3m $B$K$=$N%Z!<%8$rI=(B + $B<($5$;$k$3$H$,$G$-$^$9(B ($B%]%$%s%H$N0LCV$H$OL54X78$G$9(B)$B!#$3$N%-!<$N(B + $B3d$jEv$F$O!"$9$G$K(B Gnus $B$d(B Mew $B$rMxMQ$7$F$$$k?M$K$O$*$J$8$_$G$7$g(B + $B$&(B (`w3m-goto-url')$B!#(B + +`G' + $B%_%K%P%C%U%!$G(B URL $B$NF~NO$r$&$J$,$7$F!"$=$l$r?7$7$$%;%C%7%g%s$GI=<($7$^(B + $B$9!#$3$l$O$A$g$&$I(B `g' (<M-x w3m-goto-url>) $B$N$h$&$KF0:n$7$^(B + $B$9$,!"?7$7$$%;%C%7%g%s$r3+$/$H$3$m$,0c$$$^$9!#J8;zC<Kv$G(B emacs-w3m $B$r;H$C(B + $B$F$$$k$N$G$J$$8B$j!"?7$7$$%;%C%7%g%s$r3+$/$H$$$&$3$H$O!"$=$N%Z!<%8$r?7$7(B + $B$$%?%V$GI=<($9$k$3$H$r0UL#$7$^$9!#%?%V$K$D$$$F$N$b$C$H>\$7$$$3$H$O!"(B + *Note Using Tabs:: $B$r;2>H$7$F$/$@$5$$(B (`w3m-goto-url-new-session')$B!#(B + +`c' (Lynx-like $A%-$B!<$A%^%C%W(B) +`y' (Info-like $A%-$B!<$A%^%C%W(B) + $BI=<($7$F$$$k%Z!<%8$N(B URL $B$r%(%3!<%(%j%"$KI=<($9$k$H$H$b$K!"(B + `kill-ring' $B$K(B URL $B$rA^F~$7$^$9(B (`w3m-print-current-url')$B!#(B + +`u' (Lynx-like $A%-$B!<$A%^%C%W(B) +`Y' (Info-like $A%-$B!<$A%^%C%W(B) + $B8=:_0LCV$N%j%s%/$,;X$7<($9BP>]$N(B URL $B$r%(%3!<%(%j%"$KI=<($9$k$H$H$b$K!"(B + `kill-ring' $B$K(B URL $B$rA^F~$7$^$9(B (`w3m-print-this-url')$B!#(B + +$B$5$F!"$"$J$?$,FI$s$G$$$k%Z!<%8$,:#F|$N;~;v%K%e!<%9$+$@$l$+$NF|5-$@$C$?(B +$B$i!"$=$l$r<h$j9~$s$@8e$G?7$7$$FbMF$GCV$-49$($i$l$F$$$k$+$b$7$l$^$;$s!#(B +$B<!$N%3%^%s%I$r;H$&$H!"F1$8%Z!<%8$N:G?7$NFbMF$K99?7$9$k$3$H$,$G$-$^$9!#(B +($B$3$N%3%^%s%I$O!"%Z!<%8$,2u$l$F$$$k$h$&$K8+$($k>l9g$K!"A42hLL$N:FIA2h$r(B +$B6/@)$5$;$k$?$a$K$bLrN)$F$k$3$H$,$G$-$^$9!#(B) + +`R' +`C-S-l' (Info-like $A%-$B!<$A%^%C%W$N$_(B) + $B%Z!<%8$rFI$_9~$_D>$7$^$9(B (`w3m-reload-this-page')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Moving in a page, Next: Moving over pages, Prev: Launching and Jumping, Up: Browsing Web Pages + +$A%Z$B!<$A%8DZ$r$(GSy$A$S$^$o$k(B +-------------------- + +Emacs $B$G0\F0MQ$K3d$jEv$F$i$l$F$$$kFk@w$_?<$$%-!<$,%&%'%V%Z!<%8$N1\MwCf(B +$B$K;H$($k$3$H$O!"$*$=$i$/$9$G$K$"$J$?$rL%N;$7$F$$$k$G$7$g$&!#?.$8$F$b$i(B +$B$($J$$$+$b$7$l$^$;$s$,!"$b$C$H$"$k$N$G$9(B! $B;d$?$A$O$"$J$?$N;~4V$rBg@Z$K(B +$B$7$?$$$N$G!"%]%$%s%H$N0\F0!"%Z!<%8$N%9%/%m!<%k!"$"$k$$$O$H$F$bB.$$$d$j(B +$BJ}$G%j%s%/$r8+$D$1$k$?$a$N%-!<$rDI2C$7$^$7$?!#$=$l$i$r%^%9%?!<$9$l$P!"(B +$B$=$l$i$,$I$s$J$KJXMx$+$rJ,$+$C$F$b$i$($k$G$7$g$&!#(B + +Emacs $B$NI8=`%-!<%P%$%s%I$KHf$Y$F(B `w3m-mode' $B$G$O!"$h$jC;$$%-!<%9%H%m!<(B +$B%/$G%9%/%m!<%k%3%^%s%I72$r8F$S=P$;$k$h$&$K%-!<$,3d$jEv$F$i$l$F$$$^$9!#(B +$B%&%'%V%Z!<%8Fb$G%F%-%9%H$rF~NO$G$-$k8D=j$O$+$J$jFCJL$J$N$G(B (*Note +Submitting Forms::)$B!"$?$$$F$$$N%-!<$OFCJL$J0UL#$r;}$C$F$$$F!"$=$3$G$O(B +`self-insert-command' $B$K3d$jEv$F$i$l$F$$$^$;$s!#(B + +`<SPC>' + $B2<$K8~$+$C$F%9%/%m!<%k$7$^$9!#(B`more' $B$d(B `less' $B%3%^%s%I!"$"$k$$$O(B + Emacs $B$N(B `view-mode' $B$r;H$C$?$3$H$,$"$l$P!"3P$($k$^$G$b$J$$%-!<$G(B + $B$9$h$M(B (`w3m-scroll-up-or-next-url')$B!#(B + +`<DEL>' +`b' +`<backspace>' +`S-<SPC>' +`C-?' + $B>e$K8~$+$C$F%9%/%m!<%k$7$^$9!#(B`less' $B%3%^%s%I$d(B Emacs $B$N(B + `view-mode' $B$KFk$l?F$7$s$G$$$k$"$J$?$N<j$O!"<+A3$K$3$N%-!<$rC!$/$G(B + $B$7$g$&(B (`w3m-scroll-down-or-previous-url')$B!#(B + +`>' + $B:8$K%9%/%m!<%k$7$^$9!#%9%/%m!<%k$NNL$O(B + `w3m-horizontal-scroll-columns' $B$GM?$(!"%G%U%)%k%HCM$O(B 10 $B$G$9(B + (`w3m-scroll-left')$B!#(B + +`<' + $B1&$K%9%/%m!<%k$7$^$9!#%9%/%m!<%k$NNL$O(B + `w3m-horizontal-scroll-columns' $B$GM?$(!"%G%U%)%k%HCM$O(B 10 $B$G$9(B + (`w3m-scroll-right')$B!#(B + +`.' (Lynx-like $A%-$B!<$A%^%C%W(B) +`S-<left>' (Info-like $A%-$B!<$A%^%C%W(B) + $B:8$K%7%U%H$7$^$9(B ($B>.9o$_$J?eJ?%9%/%m!<%k(B)$B!#%7%U%H$NNL$O(B + `w3m-horizontal-shift-columns' $B$GM?$(!"%G%U%)%k%HCM$O(B 2 $B$G$9(B + (`w3m-shift-left')$B!#(B + +`,' (Lynx-like $A%-$B!<$A%^%C%W(B) +`S-<right>' (Info-like $A%-$B!<$A%^%C%W(B) + $B1&$K%7%U%H$7$^$9(B ($B>.9o$_$K?eJ?%9%/%m!<%k$G$9(B)$B!#%7%U%H$NNL$O(B + `w3m-horizontal-shift-columns' $B$GM?$(!"%G%U%)%k%HCM$O(B 2 $B$G$9(B + (`w3m-shift-right')$B!#(B + +`M-l' + $B8=:_%]%$%s%H$,$"$k0LCV$N%F%-%9%H$,!"?eJ?J}8~$K4X$7$FCf?4$K$J$k$h$&(B + $B$K%9%/%m!<%k$7$^$9(B (`w3m-horizontal-recenter')$B!#(B + +`w3m-mode' $B%a%8%c!<%b!<%I$G$O!"$$$m$$$m$J<oN`$N0\F0%3%^%s%I$,Dj5A$5$l$F(B +$B$$$^$9!#$9$J$o$A!"%j%s%/!"%U%)!<%`!"$=$l$K2hA|(B ($B$=$l$,I=<($5$l$F$$$F$b(B +$B$$$J$/$F$b(B) $B$G$9!#(B + +$B4JC1$JNc$r5s$2$F$_$^$9!#9-$/CN$i$l$F$$$k(B Google $B8!:w%(%s%8%s$GC18l$rD4(B +$B$Y$?$$$N$@$H$7$^$7$g$&!#%9%F%C%W#1(B: emacs-w3m $B$G(B +`http://www.google.com' $B$r3+$-$^$9!#%9%F%C%W#2(B: $B$$$C$?$s%Z!<%8$,FI$_9~(B +$B$^$l$?$i(B `]' $B$rC!$$$F$/$@$5$$!#$0$o$7$C(B! (1) (*Note Moving in a +page-Footnotes::) $B%]%$%s%H$,%Z!<%8$N:G=i$NF~NO%U%)!<%`$K0\F0$7$^$7$?$M!#(B +$B:#$d(B `<RET>' $B$rC!$$$F$=$3$K2?$+$rF~NO$7$F!"(B`C-c C-c' $B$GAw$k(B +$B$3$H$,$G$-$^$9!#$3$N%3%^%s%IL5$7$G$O!"$=$N%Z!<%8$K(B `C-n' $B$d(B +`C-f' $B$J$I$rBG$A9~$s$G0\F0$7$J$1$l$P$J$i$J$/$F!"$^$C$?$/9|@^$j$J$3(B +$B$H$@$C$?$G$7$g$&!#(B + +`<TAB>' +`<down>' (Lynx-like $A%-$B!<$A%^%C%W$N$_(B) + $B<!$N%j%s%/(B (emacs-w3m $B$NMQ8l$G$O(B "$B%"%s%+!<(B") $B$X%]%$%s%H$r0\F0$7$^(B + $B$9!#$h$j87L)$K$O!"=gJ}8~$G:G$b6a$$%"%s%+!<$X0\F0$7$^$9!#(B + +`M-<TAB>' +`S-<TAB>' +`<backtab>' +`<up>' (Lynx-like $A%-$B!<$A%^%C%W$N$_(B) + $BA0$N%"%s%+!<$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"5UJ}8~$G:G$b6a$$(B + $B%"%s%+!<$X0\F0$7$^$9(B (`w3m-previous-anchor')$B!#(B + +`]' + $B<!$N%U%)!<%`$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"=gJ}8~$G:G$b6a$$(B + $B%U%)!<%`$X0\F0$7$^$9(B (`w3m-next-form')$B!#(B + +`[' + $BA0$N%U%)!<%`$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"5UJ}8~$G:G$b6a$$(B + $B%U%)!<%`$X0\F0$7$^$9(B (`w3m-previous-form')$B!#(B + +`}' + $B<!$N2hA|$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"=gJ}8~$G:G$b6a$$2hA|(B + $B$X0\F0$7$^$9(B (`w3m-next-image')$B!#(B + +`{' + $BA0$N2hA|$X%]%$%s%H$r0\F0$7$^$9!#$h$j87L)$K$O!"5UJ}8~$G:G$b6a$$2hA|(B + $B$X0\F0$7$^$9(B (`w3m-previous-image')$B!#(B + + +File: emacs-w3m-ja.info Node: Moving in a page-Footnotes, Up: Moving in a page + +(1) $AFUM($=$s$JRt$O$7$J$$$1$l$I$M!#S"$(Gk#$A0f$N(B Tadaa! $A$OB~;-$J$I$GJ9$o$l$k(B +$(Gsi$ARt$G!"$=$NW4$(GNS$A$K$(I%w$A$8$F$$$m$$$m$K$BLu$A$5$l$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Moving over pages, Next: Browsing With Mouse Operations, Prev: Moving in a page, Up: Browsing Web Pages + +$A%Z$B!<$A%8$(Gbf$A$r6I$j$(I)V$A$/(B +------------------ + +$B$3$N9`$G$O%Z!<%8$+$i%Z!<%8$K0\F0$9$k$d$jJ}$r@bL@$7$^$9!#%j%s%/$r$?$I$C(B +$B$?$j(B URL $B$rF~NO$9$kJ}K!$O$3$3$K$O$"$j$^$;$s(B ($B$=$l$iFs$D$NJ}K!$O(B *Note +Launching and Jumping:: $B$G@bL@$5$l$F$$$^$9(B)$B!#(B + +$B$3$3$K$O!"0JA0$KK,Ld$7$?%Z!<%8$NMzNr$r8e$m$K!"$*$h$SA0$K0\F0$9$k(B ($BB>$N(B +$B%V%i%&%6$G$O!VLa$k!W!V?J$`!W$H$7$F$*$J$8$_$N(B) $B%3%^%s%I$H!"2>$K$b%V%i%&(B +$B%6$?$k$b$N$,5AL3$H$7$FDs6!$9$Y$-!V%[!<%`%Z!<%8$X0\F0$9$k!W5!G=$,$"$j$^(B +$B$9!#$"$i$+$8$a(B *Note Tracing History:: $B$N9`$rFI$s$G$*$$$?J}$,!"$?$V$sM}(B +$B2r$7$d$9$$$G$7$g$&!#(B + +`B' (Lynx-like $A%-$B!<$A%^%C%W(B) +`<left>' (Lynx-like $A%-$B!<$A%^%C%W(B) +`l' (Info-like $A%-$B!<$A%^%C%W(B) +`p' (Info-like $A%-$B!<$A%^%C%W(B) + $B0JA0$KK,Ld$7$?%Z!<%8$NMzNr$r#1%Z!<%8La$j$^$9(B + (`w3m-view-previous-page')$B!#?t$N0z?t(B N $B$,M?$($i$l$k$H(B N $B%Z!<%8La$j(B + $B$^$9!#$3$l$O2a5n$KLa$k$?$a$N$*4+$a$NJ}K!$G$9!#(B + +`N' (Lynx-like $A%-$B!<$A%^%C%W(B) +`n' (Info-like $A%-$B!<$A%^%C%W(B) + $B0JA0$KK,Ld$7$?%Z!<%8$NMzNr$r#1%Z!<%8?J$_$^$9(B + (`w3m-view-next-page')$B!#$b$A$m$s(B `B' (`Info-like' $B%-!<%^%C%W$N>l9g(B + $B$O(B `l') $B$GMzNr$rLa$C$?8e$G$J$1$l$PF/$-$^$;$s!#?t$N0z?t(B N $B$,M?$($i(B + $B$l$k$H(B N $B%Z!<%8?J$_$^$9!#$3$N%3%^%s%I$O!"$^$5$K(B back to the + future $B$r<B8=$7$^$9(B! + +`H' + $B%[!<%`%Z!<%8$X0\F0$7$^$9(B (`w3m-gohome')$B!#%[!<%`%Z!<%8$N(B URL $B$O(B + `w3m-home-page' $B$H$$$&JQ?t$G;XDj$7$^$9(B (*Note Customizable + Variables::)$B!#(B`w3m-home-page' $B$N%G%U%)%k%H$NCM$O(B "about:" $B$G$9!#(B + +$B0J2<$N%3%^%s%I$O!"B>$K$OL5$$(B emacs-w3m $B$NFCD9$G$9!#;d$?$A$O$=$l$i$NFC5v(B +$B$rF@$k$3$H$,$G$-$^$7$?!#=>$C$F!"B>$N$$$+$J$k>l=j$G$b8+$D$+$i$J$$$G$7$g(B +$B$&!#$=$N$?$a!":#F|$=$l$i$r;H$&$3$H$r3X$P$J$1$l$P$J$j$^$;$s(B! ($B??$K<u$1$J(B +$B$$$G$/$@$5$$$M!#$?$@$N>iCL$G$9$+$i!#(B) + +`^' +`u' (Info-like $A%-$B!<$A%^%C%W$N$_(B) + $B8=:_I=<($5$l$F$$$k%Z!<%8$N?F%G%#%l%/%H%j$X$N0\F0$r;n$_$^$9!#Nc$($P!"(B + http://foo/bar/baz" $B$,I=<($5$l$F$$$k>l9g$O(B "http://foo/bar/" $B$K0\(B + $BF0$7$h$&$H$7$^$9!#$3$N5!G=$O<!$N4Q;!$K4p$E$$$F<BAu$5$l$^$7$?(B: $B%&%'(B + $B%V%V%i%&%6$N%f!<%6$O!"$7$P$7$P0lCJ3,>e$N%G%#%l%/%H%j$K0\F0$7$J$1$l(B + $B$P$J$j$^$;$s!#H`$i$,A\$7$F$$$k>pJs$,!"8=:_$N%Z!<%8$KI=<($5$l$J$$$+(B + $B$i(B ($B$=$l$,:o=|$5$l$?$N$G!"$"$k$$$O8!:w%(%s%8%s$,4V0c$C$F$$$k%Z!<%8(B + $B$KO"$l$F9T$C$?$?$a(B) $B$G$9!#(B + + $BB>$N%&%'%V%V%i%&%6$r;H$&>l9g!"0lHL$K$O!"(BURL $B$+$i(B `<DEL>' $B%-!<Ey$r(B + $BJ#?t2s;H$C$F!"<j:n6H$GKvHx$N%3%s%]!<%M%s%H$r:o=|$9$k<j4V$,I,MW$G$9!#(B + Emacs-w3m $B$G$O!"$3$NA`:n$r(B `^' $B$N$?$C$?0l2!$7(B! $B$G9T$J$&$3$H$,$G$-(B + $B$^$9!#(B + + $B$^$?!"(B"2 ^" $B$H?t;z$rIU$1$F%3%^%s%I$r<B9T$9$k$H!"$=$N?t;z$NJ,$@$1?F(B + $B$N%G%#%l%/%H%j$K0\F0$7$^$9!#(B"0 ^" $B$H(B "0" $B$rIU$1$F<B9T$9$k$H$=$N%5(B + $B%$%H$N:G>e0L$^$G0\F0$7$^$9!#(B + +`<SPC>' + $B8=:_$N%]%$%s%H0LCV$,%P%C%U%!$NKvHxIU6a$K$"$j!"2<J}8~$K%9%/%m!<%k$G(B + $B$-$J$$>l9g$K(B `<SPC>' $B$r2!$9$H!V<!!W$N%Z!<%8$X0\F0$7$^$9(B + (`w3m-scroll-up-or-next-url')$B!#$3$3$G!V<!$N%Z!<%8!W$H$O!"8=:_FI$s(B + $B$G$$$k%Z!<%8$N%X%C%@Fb$NFCJL$J(B "next" $B%U%#!<%k%I$,;X$7<($7$F$$$k%Z!<(B + $B%8$N$3$H$G$9!#$3$N5!G=$OK,Ld$7$?%Z!<%8$NMzNr$H$O4X78$"$j$^$;$s!#(B + + $B0lEY$K5pBg$J%3%s%F%s%D$rE>Aw$9$k$N$rBT$D$3$H$,!"%f!<%6$K$H$C$F2wE,(B + $B$G$O$J$$$J$I$NM}M3$G!"$$$/$D$+$N%&%'%V%5%$%H$,$=$l$i$N%3%s%F%s%D$r(B + $B>.$5$JJ#?t$N%Z!<%8$KJ,3d$7$F$$$k$3$H$K!"$*$=$i$/5$IU$$$F$$$k$G$7$g(B + $B$&!#Nc$($P!"8!:w%(%s%8%s$N8!:w7k2L$O!"$7$P$7$P$=$N$h$&$K8=$o$l$^$9!#(B + $B$=$s$J%5%$%H$G$O!"%f!<%6$O$9$Y$F$N>pJs$K%"%/%;%9$9$k$?$a$K!"$7$P$7(B + $B$P0l$D$N%Z!<%8$+$i<!$N%Z!<%8$K!"<jF0$G%j%s%/$r$?$I$i$J$1$l$P$J$j$^(B + $B$;$s!#(B + + Emacs-w3m $B$O!"2DG=$G$"$l$P$3$N%j%s%/$rL@<(E*$K$?$I$kA`:n$r%9%/%m!<(B + $B%kA`:n$HE}9g$7$F!"J#?t$N%Z!<%8$KJ,3d$5$l$FDs6!$5$l$k%3%s%F%s%D$r!"(B + $B$G$-$l$P0lKg$N%&%'%V%Z!<%8$H$7$F1\Mw$G$-$k$h$&;n$_$^$9!#(B + + $B$=$l$O$3$&$7$FF/$-$^$9(B: $B$=$N$h$&$J%&%'%V%5%$%H$G$O!"J,3d$7$?%&%'%V(B + $B%Z!<%84V$N$D$J$,$j$r%Z!<%8$N%X%C%@Fb$N(B "next"$B!"(B"prev" $B$"$k$$$O(B + previous" $B%U%#!<%k%I$K5-:\$7$F$"$k>l9g$,$"$j$^$9!#(BEmacs-w3m $B$O2?$r(B + $B$?$I$k$+$rCN$k$?$a$K!"$3$N%U%#!<%k%I$rMxMQ$7$F$$$^$9!#(B + + $BFs$D$NA`:n(B ($B%j%s%/$r$?$I$k(B + $B%9%/%m!<%k(B) $B$,(B Emacs-w3m $B>e$G$I$N$h$&(B + $B$KE}9g$5$l$F$$$k$N$+$r!":F$S(B Google $B$rNc$K@bL@$7$^$7$g$&!#(B + `http://www.google.com' $B$r3+$-!"$"$kC18l$r8!:w$7$^$9!#$b$7!"$"$^$j(B + $B$K$b$"$j$U$l$?C18l(B ($BNc$($P!V5mP'!W(B) $B$r8!:w$9$k$H!"BgNL$N8!:w7k2L$r(B + $BF@$k$3$H$K$J$k$G$7$g$&!#(BGoogle $B$O!"$=$N4p=`$r;H$C$F%=!<%H$7$?8!:w(B + $B7k2L$rJ#?t$N%&%'%V%Z!<%8$KJ,3d$7$?>e$G!"$^$::G=i$N%Z!<%8$rJV$7$^$9!#(B + `<SPC>' $B$r;H$C$F:G=i$N%Z!<%8$r%9%/%m!<%k$5$;$J$,$iD/$a$F$/$@$5$$!#(B + $B$=$7$F!"$=$N%Z!<%8$N:G8e$,$=$N%&%#%s%I%&$G8+$($k$^$G!"%9%/%m!<%k$7(B + $BB3$1$F$/$@$5$$!#$=$3$G$O!"$"$J$?$r$S$C$/$j$5$;$k$7$+$1$,BT$C$F$$$^(B + $B$9!#(BEmacs-w3m $B0J30$N%V%i%&%6$r;H$C$F;D$j$N8!:w7k2L$r8+$?$$$H;W$C$?(B + $B$J$i$P!"(B + + Gooooooogle + + $B$N2<$K$J$i$V?t;z$N$I$l$+(B + + 1 2 3 4 5 6 7 8... + + $B$r%/%j%C%/$9$kI,MW$,$"$j$^$9!#$7$+$7(B emacs-w3m $B$J$i$P!"C1$K(B + `<SPC>' $B$r2!$9$H$$$&%9%/%m!<%k$HF1$8A`:n$G!"%j%s%/$r$?$I$k$3$H$,$G(B + $B$-$k$N$G$9!#(B + +`<DEL>' +`b' +`<backspace>' +`S-<SPC>' +`C-?' + $B%]%$%s%H0LCV$,%P%C%U%!$N@hF,IU6a$K$"$j!">eJ}8~$K%9%/%m!<%k$G$-$J$$(B + $B>l9g$K(B `<DEL>' $B$r2!$9$H!"!VA0!W$N%Z!<%8$X0\F0$7$^$9(B + (`w3m-scroll-down-or-previous-url')$B!#$3$3$G!VA0!W$N%Z!<%8$H$O!"8=(B + $B:_I=<($5$l$F$$$k%Z!<%8$N%X%C%@Fb$N(B "prev" $B$"$k$$$O(B "previous" $B%U%#!<(B + $B%k%I$K;XDj$5$l$F$$$k%Z!<%8$N$3$H$G$9!#$3$N5!G=$OK,Ld$7$?%Z!<%8$NMz(B + $BNr$H$O4X78$"$j$^$;$s!#(B`<SPC>' (`w3m-scroll-up-or-next-url') $B$HF1MM!"(B + $B$?$@$75U$NF0$-$K$J$j$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Browsing With Mouse Operations, Next: Going back to daily hacking and/or daily writing, Prev: Moving over pages, Up: Browsing Web Pages + +$A%^%&%9$rJ9$C$F%5$B!<$A%U%#%s(B +------------------------ + +Emacs-w3m $B$N3+H/<TC#$O!"(BEmacs $B%.!<%/(B (1) (*Note Browsing With Mouse +Operations-Footnotes::) $B$G$J$$IaDL$N?M$K$b(B emacs-w3m $B$r;H$C$F$b$i$($k$h(B +$B$&$K!">/$79|$r@^$j$^$7$?!#Nc$($P(B URL $B$d%U%)!<%`$N%F%-%9%H$NF~NO$r=|$/$[(B +$B$H$s$I$N%&%'%V%V%i%&%:A`:n$r!"%^%&%9$@$1$G9T$J$&$3$H$,$G$-$^$9!#$=$l$G(B +$B$b$J$*=$>~%-!<$H$7$F%7%U%H%-!<$,I,MW$K$J$k>l9g$,$"$k$3$H$KCm0U$7$F$/$@(B +$B$5$$!#(BEmacs-w3m $B$N3+H/<T$,$_$s$J(B Emacs $B%.!<%/$J$N$G(B... + +$B%&%'%V1\Mw$N:G=i$N4pK\$H$J$k!V%j%s%/$r$?$I$kA`:n!W$K$O(B `mouse-2' $B$r;H$C(B +$B$F$/$@$5$$!#(BEmacs 22.1 $B0J>e$G$O!"(B`mouse-1' $B$G$b(B +`mouse-1-click-follows-link' $B$NCM$K1~$8$?!"%j%s%/$r$?$I$kA`:n$r9T$J$&$3(B +$B$H$,$G$-$^$9!#(B + +`mouse-2' + $B%^%&%9%+!<%=%k$N2<$K$"$k%j%s%/$r$?$I$j$^$9(B + (`w3m-mouse-view-this-url')$B!#(B + +`S-<mouse-2>' + $B?7$7$$%;%C%7%g%s(B (*Note Tracing History::) $B$N$b$H$G%^%&%9%+!<%=%k(B + $B$N2<$K$"$k%j%s%/$r$?$I$j$^$9(B + (`w3m-mouse-view-this-url-new-session')$B!#(B + +Emacs-w3m $B$N%9%/%m!<%k%P!<!"%a%K%e!<5Z$S%D!<%k%P!<$O!"%^%&%9$r;H$&>l9g(B +$B$KLrN)$A$^$9!#$?$@$7(B Emacs $B$,$=$l$i$r%5%]!<%H$7$F$$$k$3$H$,I,MW$G!"$+$D(B +$B$=$l$i$rM-8z$K$7$F$$$J$1$l$P$J$j$^$;$s!#8@$&$^$G$b$J$$$G$9$,!"%9%/%m!<(B +$B%k%P!<$rF0$+$7$FI=<($r%9%/%m!<%k$5$;$k$3$H$,$G$-$^$9!#(BEmacs $B%U%l!<%`$N(B +$B0lHV>e$K$"$k!V(Bw3m$B!W%a%K%e!<$+$i!"$3$N(B info $B%I%-%e%a%s%H$G>R2p$7$F$$$k(B +emacs-w3m $B$NMM!9$J5!G=$r8F$S=P$9$3$H$,$G$-$^$9!#<gMW$J5!G=$K$D$$$F$O%a(B +$B%K%e!<%"%$%F%`$rA*$V$^$G$b$J$$$3$H$KCm0U$7$F$/$@$5$$!#Be$o$j$K%D!<%k(B +$B%P!<!&%"%$%3%s$r;H$&$3$H$,$G$-$^$9!#(B + +$B%?%V(B (*Note Using Tabs::) $B$r;H$C$F(B emacs-w3m $B$N%P%C%U%!$r@Z$jBX$($k$K$O!"(B +$B%&%#%s%I%&$N$F$C$Z$s$N9T$r(B `mouse-2' $B$GD>@\%/%j%C%/$9$k$+!"$^$?$O!V(Bw3m$B!W(B +$B%a%K%e!<$N0l$D$*$$$FNY$K$"$k!V(BTab$B!W%a%K%e!<$+$i0l$D$rA*$s$G$/$@$5$$!#(B + + +File: emacs-w3m-ja.info Node: Browsing With Mouse Operations-Footnotes, Up: Browsing With Mouse Operations + +(1) $AS"$(Gk#$A0f$N(B Info $A$G$O(B Emacs otaku + + + +File: emacs-w3m-ja.info, Node: Going back to daily hacking and/or daily writing, Prev: Browsing With Mouse Operations, Up: Browsing Web Pages + +$AFU6N$NIz;n$K$(I&($A$k$K$O(B +-------------------- + +$B;W$$=P$7$F$/$@$5$$!#$*$=$i$/$"$J$?$O%&%'%V$r8+$k$?$a$K(B Emacs $B$r;O$a$?$N(B +$B$G$O$"$j$^$;$s!#%(%G%#%?$NFbB"%$%s%?!<%W%j%?$r(B scheme $B$KCV$-49$($?$j!"(B +$B%=%U%H%&%'%"$N(B info $B%I%-%e%a%s%H$r:n@.$7$?$j!"%=%U%H%&%'%"$NFC5v$KBP$9(B +$B$k<+J,$N9M$($r0u:~$7$?$j(B...$B$9$k$?$a$@$C$?$N$G$O$"$j$^$;$s$+(B? Emacs $B$r(B +$B;H$C$F$$$?4V$K!";E;v$N$?$a$K%&%'%V$r8+$kI,MW$KGw$i$l!"$7$+$7$?$^$?$^(B +Emacs $B$+$iN%$l$:$K%&%'%V$r8+$k$3$H$,$G$-$F$7$^$C$?$N$G$9!#(B + +$B$5$!!"K\Mh$N:n6H$KLa$k;~$,Mh$^$7$?!#$"$J$?$,$,$s$P$i$J$$$H@$3&$OJQ$j$^(B +$B$;$s(B! $B$9$0$K$^$?%&%'%V$r1\Mw$9$kI,MW$,$"$k$+$b$7$l$J$$$J$i(B `q' $B$r!"$7(B +$B$P$i$/(B emacs-w3m $B$KLa$C$F$/$k$D$b$j$,$J$$$J$i(B `Q' $B$r;H$C$F$/$@$5$$!#(B + +`q' + Emacs-w3m $B$N%&%#%s%I%&$HJD$8$F!"B>$N%P%C%U%!$rA*Br$7$^$9(B + (`w3m-close-window')$B!#(B + +`Q' + Arrived URLs ($B1\MwMzNr(B, *Note Tracing History:: $B;2>H(B) $B$N%j%9%H$H%/%C(B + $B%-!<(B (*Note Cookie Variables::) $B$r%G%#%9%/$KJ]B8$7$F!"K\Ev$K(B + emacs-w3m $B$r=*N;$7$^$9(B (`w3m-quit')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Inline Images, Next: Tracing History, Prev: Browsing Web Pages, Up: Basic Usage + +$A;-Oq1mJ>$r(B ON/OFF $A$9$k(B +====================== + +$B$"$J$?$,;H$C$F$$$k%P!<%8%g%s$N(B Emacs $B$,%P%C%U%!$K2hA|$rI=<($9$k$3$H$,$G(B +$B$-$k$J$i$P!"$"$?$+$b(B Mozilla $B$N$h$&$J!V%0%i%U%#%+%k!W%V%i%&%6$N$h$&$K!"(B +emacs-w3m $B$O%&%'%V%Z!<%8$K$=$l$i$rI=<($9$k$3$H$,$G$-$^$9!#2<5-$N%3%^%s(B +$B%I$N$I$l$+$r;H$*$&$H$9$kA0$K!"$"$J$?$N(B Emacs $B$,@5$7$/2hA|I=<($K;H$($k$3(B +$B$H$r3N$+$a$F$/$@$5$$(B (*Note Required Emacs Version::)$B!#(B + +$B8=:_$N%P%C%U%!$K$*$1$k2hA|$NI=<($r@Z$jBX$($k$K$O(B `T' (`Info-like' $B%-!<(B +$B%^%C%W$N>l9g$O(B `I') $B$r;H$C$F$/$@$5$$!#$=$l$K$h$C$F(B emacs-w3m $B$O%5!<%P$+(B +$B$i2hA|$r<h$C$F$-$F!"$7$+$k8e$K$=$l$i$r!V%0%i%U%#%+%k!W%V%i%&%6$H$7$F$=(B +$B$&$J$k$G$"$m$&%P%C%U%!$N0LCV$KI=<($7$^$9!#$b$&0lEY%-!<$rC!$/$H!"2hA|$O(B +$B%P%C%U%!$+$i>C$(5n$j$^$9!#(B + +$B%G%U%)%k%H$G$O(B emacs-w3m $B$O2hA|$rI=<($7$^$;$s$,!"$=$N?6$kIq$$$rJQ99$7$F(B +$B>o$K2hA|I=<($9$k$3$H$rA*$V$N$O2DG=$G!"$=$l$K$OJQ(B +$B?t(B `w3m-default-display-inline-images' $B$r%+%9%?%^%$%:$7$F!"$=$NCM(B +$B$r(B `nil' $B$+$i(B `t' $B$KJQ99$9$kI,MW$,$"$j$^$9!#(B +*Note Customizable Variables::. + +$B$5$i$K(B emacs-w3m $B$K$O!"2hA|$N3HBg=L>.!"%U%!%$%k$X$N%;!<%V!"$^$?$O30It(B +$B%S%e!<%o$G8+$k!"$H$$$C$?5$$NMx$$$?5!G=$,IUB0$7$F$$$^$9!#(B + +`T' (Lynx-like $A%-$B!<$A%^%C%W(B) +`I' (Info-like $A%-$B!<$A%^%C%W(B) + $B8=:_$N%P%C%U%!$K$"$k$9$Y$F$N%$%s%i%$%s2hA|$NI=<($r%H%0%k$G@Z$jBX$((B + $B$^$9(B (`w3m-toggle-inline-images')$B!#(B`transient-mark-mode' $B$,(B on $B$G!"(B + $B$+$DNN0h$,@_Dj$5$l$F$$$k>l9g$K8B$C$F!"$=$NNN0hFb$K$"$k2hA|$@$1$,(B + on $B$K$J$j$^$9!#(B + + $BCm(B1: $B=i$a$FK,$l$?%Z!<%8$G:G=i$+$i%$%s%i%$%s2hA|$rI=<($9$k$+$I$&$+(B + $B$O!"A0=R$NDL$jJQ?t(B `w3m-default-display-inline-images' $B$NCM$G@)8f(B + $B$5$l$^$9(B ($B%G%U%)%k%H$O(B off $B$G$9(B)$B!#$7$+$7!"$=$N%P%C%U%!$r5/E@$K$7$F(B + $BK,$l$k%P%C%U%!$G2hA|$rI=<($9$k$+$I$&$+$O!"(B + `w3m-toggle-inline-images-permanently' $B$,(B `nil' $B$G$O$J$$CM(B ($B%G%U%)(B + $B%k%H$O(B `t') $B$@$C$?>l9g$O!"$=$N%P%C%U%!$G2hA|$rI=<($7$F$$$?$+$I$&$+(B + $B$N:G8e$N>uBV$r7Q>5$7$^$9!#(B`w3m-toggle-inline-images-permanently' + $B$,(B `nil' $B$@$C$?$i!">o$K(B `w3m-default-display-inline-images' $B$,$=$l(B + $B$r@)8f$7$^$9!#(B + + $BCm(B2: $B$3$N%3%^%s%I$ONN0h$rIT3h@-$K$7$^$9!#$7$?$,$C$F!":F$SFCDj$NNN(B + $B0h$K$"$k2hA|$@$1$rI=<($7$?$$$J$i$P!"$b$&0lEY$=$NNN0h$r@_Dj$7$J$1$l(B + $B$P$J$j$^$;$s!#(B + +`t' (Lynx-like $A%-$B!<$A%^%C%W(B) +`i' (Info-like $A%-$B!<$A%^%C%W(B) + $B%+!<%=%k$N>l=j$K$"$kC10l$N2hA|$NI=<($r%H%0%k$G@Z$jBX$($^$9(B + (`w3m-toggle-inline-image')$B!#(B`transient-mark-mode' $B$,(B on $B$G!"$+$D(B + $BNN0h$,@_Dj$5$l$F$$$k>l9g$K8B$C$F!"$=$NNN0hFb$K$"$k2hA|$@$1$,(B on $B$K(B + $B$J$j$^$9!#(B`Info-like' $B%-!<%^%C%W$K$D$$$F$O!"$b$7(B Emacs $B$,2hA|I=<((B + $B$r%5%]!<%H$7$J$$$J$i$P!"$3$N%-!<$O30It%S%e!<%o$r5/F0$9$k%3%^%s%I(B + (`w3m-view-image') $B$K%P%$%s%I$5$l$^$9!#(B + +`M-S-t' (Lynx-like $A%-$B!<$A%^%C%W(B) +`M-S-i' (Info-like $A%-$B!<$A%^%C%W(B) + $B8=:_$N%P%C%U%!$K$"$k$9$Y$F$N%$%s%i%$%s2hA|$NI=<($r<h$j;_$a$^$9!#(B + (`w3m-turnoff-inline-images')$B!#(B + +`I' (Lynx-like $A%-$B!<$A%^%C%W(B) + $B%]%$%s%H$N2<$K$"$k2hA|$r30It%S%e!<%o$G8+$^$9(B (`w3m-view-image')$B!#(B + +`M-i' + $B%]%$%s%H$N2<$K$"$k2hA|$r30It%U%!%$%k$K%;!<%V$7$^$9!#%G%U%)%k%H$NL>A0$O$=(B + $B$N2hA|$N85$NL>A0$G$9!#$=$l8N$K!"$[$H$s$I$N>l9g(B + $B$K(B `M-i <RET>' $B$O@5$7$$L>A0$G2hA|$r%;!<%V$9$k$G$7$g(B + $B$&(B (`w3m-save-image')$B!#(B + +`M-[' + $B%]%$%s%H$N2<$K$"$k2hA|$r=L>.(B (zoom out) $B$7$^$9(B + (`w3m-zoom-out-image')$B!#(B + +`M-]' + $B%]%$%s%H$N2<$K$"$k2hA|$r3HBg(B (zoom in) $B$7$^$9(B + (`w3m-zoom-in-image')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Tracing History, Next: Managing Bookmarks, Prev: Inline Images, Up: Basic Usage + +$(GUk$A?U$r$(IJ&$A$k(B +========== + +Emacs-w3m $B$K$O!"0JA0$KK,Ld$7$?$9$Y$F$N%Z!<%8$N%j%9%H$rDs<($9$k$?$a$N!"(B +2$B$D$NJ}K!$,$"$j$^$9!#Bh0l$NJ}K!$O!V(Bemacs-w3m $B$NMzNr!W(B(emacs-w3m +history) $B$HC1=c$K8F$P$l$k$b$N$G!"$=$N%;%C%7%g%s(B ($BCm(B: $B$=$N%P%C%U%!Fb$G9T(B +$B$J$&A`:n$H$=$l$KBP$9$kH?1~(B) $B$K$*$$$FK,Ld$7$?%Z!<%8$N%j%9%H$r3,AXE*$KDs(B +$B<($7$^$9!#$9$J$o$A!"$"$k%j%s%/$r$?$I$k$H!"$=$l$^$G$N%Z!<%8$O9T$-@h$N(B +$B!V?F!W$K$J$j$^$9!#$=$l$O!"K,$l$?%Z!<%8$N@W$r$?$I$C$?$j!"MzNr$,D9$/$J$C(B +$B$F$7$^$C$?>l9g$K$I$3$+$iCe$?$+$r;W$$=P$9$?$a$K$O!"$?$$$X$sET9g$NNI$$$b(B +$B$N$G$9!#(B + +$B$3$l$O!"(BGNU $B%W%m%8%'%/%H$N%[!<%`%Z!<%8$r$A$g$C$HK,$M$?8e$K$*$1$k!"$3$N(B +$B5!G=$NF0:n$NNc$G$9(B: + + GNU's Not Unix! - the GNU Project and the Free Software Foundation (FSF) + Philosophy of the GNU Project - Free Software Foundation (FSF) + GNU Emacs - GNU Project - Free Software Foundation (FSF) + Order from the Free Software Foundation (FSF) + Links to Other Free Software Sites - GNU Project - Free Software Fo... + EFF: Homepage + +($B<B:]$K$O!"$3$NNc$O(B 72 $B7e$K<}$^$k$h$&$K!">/$7$P$+$jJT=8$5$l$F$$$^$9!#8=(B +$B<B$N(B emacs-w3m $B%P%C%U%!$G$O(B URLs $B$O@Z$j5M$a$i$l$^$;$s!#(B) + +$B$I$N(B emacs-w3m $B%P%C%U%!$+$i$G$b(B `s' $B%-!<(B (`Info-like' $B%-!<%^%C%W$N>l9g(B +$B$O(B `o' $B%-!<(B) $B$r;H$&$3$H$K$h$C$F!"$3$N$h$&$JMzNr$rDs<($5$;$k$3$H$,2DG=$G(B +$B$9!#(B + +$B$3$NMzNr$O%P%C%U%!!&%m!<%+%k!"$9$J$o$A!"$"$k(B emacs-w3m $B$N%P%C%U%!$K8GM-(B +$B$N$b$N$G$"$k$3$H$KCm0U$7$F$/$@$5$$!#$G$b(B emacs-w3m $B$K$O%f%K!<%/$J5!G=$,(B +$B$"$j$^$9(B: $B$"$J$?$,?7$7$$%Z!<%8$rK,Ld$9$k>l9g!"MzNr$O?7$7$$%P%C%U%!$K%3(B +$B%T!<$5$l$^$9!#$=$N7k2L!"$=$l$^$G$KK,$l$?%Z!<%8$K:#$^$GDL$j%"%/%;%9$9$k(B +$B$3$H$,$G$-$^$9!#$3$l$O!"(BMozilla $B$J$I$N!"?7$7$$%P%C%U%!$G$OMzNr$,>o$K%<(B +$B%m$+$i%9%?!<%H$9$k%V%i%&%6$H$O0[$J$j$^$9!#(B + +Emacs-w3m $B$OC1$K$"$J$?$,K,$l$?%Z!<%8$r5-O?$9$k$@$1$G$J$/!"$"$J$?$,%Z!<%8(B +$B$N@53N$JF1$8>l=j$XLa$j$?$$>l9g$K!"$=$l$i$N%Z!<%8$NCf$NFCDj$N0LCV$r5-O?$9(B +$B$k$3$H$b$G$-$^$9!#(B`C-c C-@' $B$r2!$9$H!"%+!<%=%k$N0LCV$,MzNr$KEP(B +$BO?$5$l$^$9!#0JA0$K5-O?$7$?0LCV$X0\F0$9$k$K$O!"$=$N%Z!<%8$r3+$$(B +$B$?(B emacs-w3m $B$N%P%C%U%!$G(B `C-c C-v' $B$r2!$7$F$/$@$5$$!#(B + +`s' (Lynx-like $A%-$B!<$A%^%C%W(B) +`C-u s' (Lynx-like $A%-$B!<$A%^%C%W(B) +`o' (Info-like $A%-$B!<$A%^%C%W(B) +`C-u o' (Info-like $A%-$B!<$A%^%C%W(B) + $B$3$N%;%C%7%g%s$K$*$$$FK,Ld$7$?(B URLs $B$N%j%9%H$rI=<($7$^$9!#@\F,0z?t(B + $BIU$-$G8F$P$l$k$H(B ($B8e=R(B)$B!"Be$o$j$K(B arrived URLs $B$rI=<($7$^$9(B + (`w3m-history')$B!#(B + +`C-c C-@' +`C-c C-<SPC>' + $B$=$N%Z!<%8$NCf$N%+!<%=%k$N0LCV$rMzNr$K5-O?$7$^$9!#(B + +`C-c C-v' + $B8=:_I=<($7$F$$$k%Z!<%8$K$*$$(B + $B$F!"(B`C-c C-@' (`w3m-history-store-position') $B$G5-21$7$?0L(B + $BCV$X0\F0$7$^$9!#(B + +$B$b$&0l$D$N2a5n$KK,$l$?%Z!<%8$K4X$9$k>pJs$r<j$KF~$l$kJ}K!$O!"!V(Barrived +URLs$B!W$G$9!#$3$l$O$"$J$?$,(B emacs-w3m $B$GK,Ld$7$?!":G8e$N(B 500$B8D(B! $B$N(B URL +$B$N%j%9%H$G$9!#%j%9%H$OF|IU=g$G!":G$b:G6a$N$b$N$r@hF,$K!"$=$l$>$l$N%Z!<(B +$B%8$NK,Ld;~9o$,I=<($5$l$^$9!#$3$l$ONc$G$9(B (info $B$NI=<($,3H$,$j2a$.$J$$$h(B +$B$&$KJT=8$5$l$F$$$^$9(B): + + Order from the Free Software Foundation (FSF) 22:53:25 + GNU Emacs - GNU Project - Free Software Foundation (FS 22:53:05 + Philosophy of the GNU Project - Free Software Foundati... 22:52:46 + Philosophy of the GNU Project - Free Software Foundati... 22:52:39 + EFF: Homepage 22:52:18 + Links to Other Free Software Sites - GNU Project - Fre... 22:52:07 + Links to Other Free Software Sites - GNU Project - Fre... 22:52:07 + GNU's Not Unix! - the GNU Project and the Free Softwar... 22:51:32 + Bookmarks 22:51:02 + The DICT Development Group- upwards 2003-01-08 + the monkey puzzle: new debian packages as an rss feed 2003-01-08 + new-debian-packages.rss 2003-01-07 + it's a miracle 2003-01-06 + +$BA0$N%3%^%s%I$K@\F,0z?t$rEO$9!"$9$J$o$A(B `C-u s' +(`Info-like' $B%-!<%^%C%W$N>l9g$O(B `C-u o') $B$r;H$&$3$H$K$h$C$F!"(B +$B$3$NMzNr$rF@$k$3$H$,$G$-$^$9!#$3$N%Z!<%8$KI=<($5$l$k(B URLs $B$N?t$O%+%9%?%^(B +$B%$%:$G$-$^$9!#JQ?t(B `w3m-keep-arrived-urls' $B$r;2>H$7$F$/$@$5$$!#$=$l(B +$B$O%G%U%)%k%H$G$O(B 500 $B$r1[$($k$3$H$O$G$-$^$;$s!#(B*Note Customizable Variables::. + +$B$b$A$m$s!"$9$Y$F$N>l9g$K!"Nc$K<($5$l$F$$$k$9$Y$F$N9T$O%j%s%/$G$9!#$=$N(B +$B%j%s%/$r$?$I$k$3$H$K$h$C$F!"DL>o$N%Z!<%8$rK,Ld$7$F$$$?$i$A$g$&$I$=$&$J(B +$B$k$h$&$K!"0JA0$KK,$M$?$I$N%Z!<%8$K$b9T$/$3$H$,$G$-$^$9!#(B + +*Note Moving over pages:: $B$N9`$b8+$F$/$@$5$$!#$=$3$G$O!VLa$k!W!V?J$`!W(B +$B$J$I$N5!G=$K3d$jEv$F$i$l$?C1=c$J%-!<$G!"MzNr$NCf$r0\F0$9$k$d$jJ}$r@bL@(B +$B$7$F$$$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Managing Bookmarks, Next: Using Tabs, Prev: Tracing History, Up: Basic Usage + +$A$\$/$N(B/$A$o$?$7$N$*$B5$$A$KHk$j(B +========================= + +$B8=BeE*$J$"$^$?$N%V%i%&%6$NNc$KO3$l$:!"(Bemacs-w3m $B$K$O@h?J$N%V%C%/%^!<%/(B +$B$N5!G=$,$"$j$^$9!#$=$l$K$h$C$F%+%F%4%j!<Kh$KJ,N`$7!"$=$l$i$rJT=8$7!"$"(B +$B$"!"$b$A$m$s4JC1$K1\Mw$9$k$3$H$,$G$-$^$9!#(B + +$BF|K\8lHGCm<a(B: $B%V%C%/%^!<%/$N8l8;$O!"K\$K64$`[Y(B ($B$7$*$j(B) $B$N$3$H$G$9!#(B + +* Menu: + +* Adding Bookmarks:: $B$*5$$KF~$j$K(B URL $B$r2C$($k(B +* Consulting Bookmarks:: $B%V%C%/%^!<%/$r1\Mw$9$k(B +* Editing Bookmarks:: $B%V%C%/%^!<%/$rJQ99$9$k$K$O(B? + + + +File: emacs-w3m-ja.info, Node: Adding Bookmarks, Next: Consulting Bookmarks, Prev: Managing Bookmarks, Up: Managing Bookmarks + +$A$*$B5$$A$KHk$j$K(B URL $A$r<S$($k(B +------------------------- + +$B%V%C%/%^!<%/$K(B URL $B$r2C$($k$K$O!"$$$/$D$+$N$d$jJ}$,$"$j$^$9!#:G=i$N0l$D(B +$B$O!"(B`a' $B%-!<$r;H$C$F(B ($B$^$?$O(B `w3m-bookmark-add-current-url' $B%3%^%s%I$r(B +$B8F$s$G(B) $B:#8=:_1\Mw$7$F$$$k%Z!<%8$r2C$($k$3$H$G$9!#$9$k$H!"$=$N%V%C%/%^!<(B +$B%/$r$I$N9`L\$KF~$l$k$+$r?R$M$i$l(B (`<TAB>' $B%-!<$K$h$kJd40$,8z$-$^$9(B)$B!"%?(B +$B%$%H%k$N=q$-49$($,B%$5$l$^$9(B ($B%G%U%)%k%H$O!"$=$N%Z!<%8$N%?%$%H%k$K$J$C(B +$B$F$$$^$9(B)$B!#$3$l$i$NFs$D$r$3$J$7$?$i!"$=$l$i$rM-8z$K$9$k$?$a$K(B `<RET>' +$B$rC!$$$F$/$@$5$$!#$9$k$H(B "Added" $B$H$$$&%a%C%;!<%8$,%_%K%P%C%U%!$K8=$l$F!"(B +($B6C$/$J$+$l(B!) $B$=$N%Z!<%8$,%V%C%/%^!<%/$K5-O?$5$l$^$9!#(B + +$B%V%C%/%^!<%/$r2C$($k$b$&0l$D$NJ}K!$O!"(B`M-a' $B$r;H$&(B ($B$^$?$O(B +`w3m-bookmark-add-this-url' $B%3%^%s%I$r8F$V(B) $B$3$H$G$9!#$3$l$O!"8=:_0LCV(B +$B$N(B URL ($B$b$7$=$N%j%s%/$r$?$I$k$H!"1\Mw$9$k$3$H$,$G$-$k(B URL) $B$r%V%C%/%^!<(B +$B%/$K2C$($^$9!#$=$N>l9g$G$b:G=i$K@bL@$7$?J}K!$HF1MM$K!"9`L\$NL>A0$H%?%$(B +$B%H%k$rF~NO$7$J$1$l$P$J$j$^$;$s!#$=$N$H$-!"$=$l$i$N%G%U%)%k%H$O%j%s%/<+(B +$BBN$NL>A0$K$J$C$F$$$^$9!#(B + +$B:G8e$K!";0HVL\$NJ}K!$O(B `C-u a' $B$rC!$/$3$H$G$9!#$3$N$H$-$O!"%V%C(B +$B%/%^!<%/$K2C$($k(B URL$B!"$=$N9`L\!"$*$h$S%?%$%H%k$NF~NO$,B%$5$l$^$9!#(B + +`a' + $B8=:_$N%Z!<%8$r%V%C%/%^!<%/$K2C$($^$9!#@\F,0z?tIU$-$G8F$P$l$?>l9g$O!"(B + $B2C$($k(B URL $B$NF~NO$,5a$a$i$l$^$9(B (`w3m-bookmark-add-current-url')$B!#(B + +`M-a' + $B8=:_0LCV$N(B URL $B$r%V%C%/%^!<%/$K2C$($^$9(B + (`w3m-bookmark-add-this-url')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Consulting Bookmarks, Next: Editing Bookmarks, Prev: Adding Bookmarks, Up: Managing Bookmarks + +$A%V%C%/%^$B!<$A%/$r$(IOURf$A$9$k(B +---------------------- + +$B%V%C%/%^!<%/$5$l$?%Z!<%8$r1\Mw$9$k:G$b4JC1$JJ}K!$O!"(Bemacs-w3m $B$N%P%C%U%!(B +$B$G(B `v' $B%-!<$rC!$/$3$H$G$9!#$G$9$,$b$&0l$D!"FCJL$J(B URL $B$G$"$k(B +`about://bookmark/' $B$K9T$/$3$H$K$h$C$F$b2DG=$G$9!#$9$k$H0l9T$"$?$j0l$D(B +$B$:$D$N%V%C%/%^!<%/$,!"9`L\$4$H$K$^$H$a$i$l$FI=<($5$l$k$G$7$g$&!#$=$3$G(B +$B$O!"B>$N%Z!<%8$r1\Mw$9$k$N$HF1$8$h$&$K!"$=$l$i$r3N<B$K1\Mw$9$k$3$H$,$G(B +$B$-$^$9!#(B + +$B%V%C%/%^!<%/$N%Z!<%8$G$O(B bookmark $B%^%$%J!<%b!<%I$,F/$$$F$$$^$9!#$=$l$O!"(B +$B%V%C%/%^!<%/$rJT=8$9$k$?$a$N%-!<%P%$%s%I$rDI2C$7$^$9!#(B*Note Editing +Bookmarks::. + +`v' + $B%V%C%/%^!<%/$N%Z!<%8$r8F$S=P$7$^$9(B (`w3m-bookmark-view')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Editing Bookmarks, Prev: Consulting Bookmarks, Up: Managing Bookmarks + +$A%V%C%/%^$B!<$A%/$r$(I+y$A8|$9$k$K$O(B? +--------------------------- + +Bookmark $B%^%$%J!<%b!<%I(B (*Note Consulting Bookmarks::) $B$O!"%V%C%/%^!<%/(B +$B$rJT=8$9$k$?$a$K$$$/$D$+$N%-!<%P%$%s%I$r@_$1$F$$$^$9!#Cf$G$b%V%C%/%^!<(B +$B%/$r(B kill ($B$9$J$o$A>C5n(B) $B$9$k$?$a$N(B `C-k' $B$H%V%C%/%^!<%/!&%U%!%$%k$rJT(B +$B=8$9$k$?$a$N(B `E' (`Info-like' $B%-!<%^%C%W$N>l9g$O(B `e') $B$O!":G$bCmL\$KCM(B +$B$7$^$9!#(B + +$B%V%C%/%^!<%/$O(B HTML $B%U%!%$%k$K<}$a$i$l$F$$$^$9!#$7$?$,$C$F$=$N%U%!%$%k(B +$B$O<j$GJT=8$9$k$3$H$,$G$-$^$9$,!"==J,$KCm0U$7$F$/$@$5$$!#(Bemacs-w3m $B$,9`(B +$BL\L>$rG'<1$9$k$?$a$KI,MW$J%3%a%s%H$r>C$7$F$7$^$&$3$H$K$h$C$F!"$b$N$4$H(B +$B$O4JC1$KBfL5$7$K$J$j$^$9!#$"$J$?$,(B HTML $B$N4pK\$rCN$C$F$$$l$P!"$`$7$m$=(B +$B$N%U%!%$%k$NCf?H$O6K$a$FJ,$+$j0W$$$b$N$G$7$g$&!#(B + +`C-k' + $B8=:_0LCV$N%V%C%/%^!<%/$r(B kill $B$7$^$9(B (`w3m-bookmark-kill-entry')$B!#(B + +`E' + $B%V%C%/%^!<%/!&%U%!%$%k$rFI$_9~$s$G!"JT=82DG=$J>uBV$K$7$^$9(B + (`w3m-bookmark-edit')$B!#(B + +`C-_' + $B$d$jD>$7$r$7$^$9(B (`w3m-bookmark-undo')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Using Tabs, Next: Working with buffers, Prev: Managing Bookmarks, Up: Basic Usage + +$A$_$s$J%?%V$,:C$-$@$h$M(B +====================== + +$B$[$H$s$I$NB>$N%F%-%9%H%Y!<%9$N%V%i%&%6!<$H0[$J$j!"(Bemacs-w3m $B$O%?%V$K$h(B +$B$k1\Mw$r%5%]!<%H$7$F$$$^$9!#%?%V$K$h$k1\Mw$C$F2?(B? $B$H?R$M$i$l$=$&$G$9$M!#(B +$B$=$l$O$H$F$bC1=c$G!"%&%#%s%I%&$N$F$C$Z$s$N9T$K$9$Y$F$N%P%C%U%!$rC1=c$+(B +$B$DJ,$+$j$d$9$$$d$jJ}$GI=<($9$k$3$H$K$h$C$F!"C10l$N%&%#%s%I%%$G$9$Y$F$N(B +emacs-w3m $B$N%P%C%U%!$rI=8=$9$kJ}K!$G$9!#$=$l$>$l$N%P%C%U%!$O!V%?%V!W$H(B +$B$7$FI=<($5$l$^$9!#$3$N9T$O!"B>$N%P%C%U%!$K0\F0$7$?$j!"%Z!<%8$N>uBV$rCN(B +$B$k$3$H$,$G$-$k$h$&$K$9$k$?$a$K>o$K8+$($?$^$^$K$J$C$F$$$F!"%P%C%U%!$K$D(B +$B$i$l$F%9%/%m!<%k$7$^$;$s!#(B + +$B$=$N46?($r$D$+$`:G$b4JC1$JJ}K!$O!"C1$K;n$7$F$_$k$3$H$G$9!#$G$9$+$i!"0z(B +$B$-B3$$$F(B emacs-w3m $B$N%;%C%7%g%s$r;O$a$F$/$@$5$$!#2?$b@_DjJQ99$r$7$F$$$J(B +$B$1$l$P!"%G%U%)%k%H$G%?%V$N9T$,8=$l$^$9!#$F$C$Z$s$G!">.$5$J;M3Q$K8=:_$N(B +$B%Z!<%8$N%?%$%H%k$rI=<($7$F$$$kL@$k$$9T$,$=$l$G$9!#$G$O(B ($BNc$($P(B `G' $B$G(B) +$BJL$N(B w3m $B%P%C%U%!$r:n$C$F$_$^$7$g$&!#$9$k$H;M3Q$,Fs$D$K$J$C$?$G$7$g$&!#(B +$B$=$l$i$,%?%V$G$9!#(B + +$B$b$C$H$bJ,$+$j$d$9$$%?%V$N;H$$F;$O@Z$jBX$($G$9(B: $B%?%V$N>e$G(B `mouse-1' $B%\(B +$B%?%s$r%/%j%C%/$9$k$3$H$K$h$C$F!"$=$N%P%C%U%!$rI=<($5$;$k$3$H$,$G$-$^$9!#(B +$B$5$i$K(B `mouse-2' $B%\%?%s$G$b!"$^$?$O(B GNU Emacs $B$G$O%^%&%9%[%$!<%k$G$bF0(B +$B:n$7$^$9!#$3$l$O!"J#?t$N(B emacs-w3m $B%P%C%U%!$r;H$&$?$a$N!"Hs>o$KB.$/$F4J(B +$BC1$JJ}K!$G$9!#C1$K;X$7<($7$F%/%j%C%/$9$k$+!"%^%&%9%[%$!<%k$r%/%k%/%k$9(B +$B$l$PNI$$$N$G$9$+$i!#(B($B$O$$$O$$!"$"$J$?$rL5;k$7$F$$$^$;$s$h!#$"$J$?$O%-!<(B +$B%\!<%I$r;H$C$F@Z$jBX$($?$$$N$G$9$M!#$4?4G[L5$/!#$=$l$b2DG=$G$9!#<!$N@a(B +$B$G@bL@$7$^$9$+$i!"L[$C$FFI$_B3$1$F$/$@$5$$(B!) + +$B$b$&0l$D$N5$$,Mx$$$?5!G=$O!"%Z!<%8$N>uBV$rCN$i$;$k$3$H$G$9!#%+%i!<C<Kv(B +$B$+%&%#%s%I%%%7%9%F%`$r;H$C$F$$$l$P!"%Z!<%8$N>uBV$rCN$i$;$k$?$a$K(B +emacs-w3m $B$O0c$&?'$G%F%-%9%H$r%?%V$KI=<($7$^$9(B (1) (*Note Using +Tabs-Footnotes::)$B!#Nc$($P%Y!<%8$r<h$j9~$s$G$$$k:GCf$O%F%-%9%H$O@V$/$J$C(B +$B$F$$$F!"<h$j9~$_$,40N;$9$k$H%G%U%)%k%H$N?'(B ($BDL>o$O9u(B) $B$KLa$j$^$9!#$3$l(B +$B$K$h$j!"8+$h$&$H;W$C$FBT$C$F$$$k%Z!<%8$,E~Ce$7$?$+$I$&$+$,!"%?%V9T$r0l(B +$BL\8+$?$@$1$GJ,$+$j$^$9!#(B + +$B:G8e$K!"$b$7%&%'%V%Z!<%8$,(B favicon $B$r;}$C$F$$$l$P!"$=$l$b%?%V$KI=<($5$l(B +$B$^$9(B (2) (*Note Using Tabs-Footnotes::)$B!#(BEmacs-w3m $B%f!<%6$K$b$C$H;k3P8z(B +$B2L$r(B! + +$B%f!<%6%*%W%7%g%s(B: + +`w3m-use-tab' + $B%?%V$K$h$k1\Mw$r3h$+$9$+$I$&$+!#(B + +$B$"$J$?$,(B GNU Emacs $B$N%f!<%6!<$J$i$P!"%^%&%9%[%$!<%k$r;H$&$H!"NY$N%P%C%U%!(B +$B$K9T$/$@$1$G$J$/!"%P%C%U%!$rNY$N>l=j$K0\F0$5$;$k$3$H$b$G$-$^$9!#$=$l$K(B +$B$O%?%V9T$N>e$G%^%&%9%[%$!<%k$r2s$94V!"%3%s%H%m!<%k!&%-!<$r2!$72<$2$F$*(B +$B$$$F$/$@$5$$!#%^%&%9%[%$!<%k$K$h$C$F(B emacs-w3m $B$,$I$N$h$&$KF0:n$9$k$+$r(B +$B@)8f$9$kFs$D$NJQ?t$,$"$j$^$9(B: + +`w3m-tab-track-mouse' + $B$3$NJQ?t$O!"%^%&%9$,A*Br$7$?%?%V$rDI$$$+$1$F0\F0$9$k$+$I$&$+$r@)8f(B + $B$7$^$9!#%G%U%)%k%HCM$O(B `t' $B$G$9!#$b$7%W%m%]!<%7%g%J%k$J%U%)%s%H$r(B + $B%?%V$N%U%'!<%9$K;H$C$F$$$k$J$i$P!"$3$l$r(B `nil' $B$K@_Dj$9$kI,MW$,$"(B + $B$k$+$b$7$l$^$;$s!#(B`w3m-tab-mouse-position-adjuster' $B$b8+$F$/$@$5$$!#(B + +`w3m-tab-mouse-position-adjuster' + $B$3$NJQ?t$O!"%^%&%9%]%$%s%?!<$,A*Br$7$?%?%V$rDI$$$+$1$F0\F0$9$k$H$-(B + $B$N%^%&%9$N0LCV$rD4@0$9$k$?$a$NCM$r4^$s$G$$$^$9!#%G%U%)%k%HCM$O(B + `(0.5 . -4)' $B$G$9!#$3$l$OIbF0>/?t(B M $B$H@0?t(B N $B$N%3%s%9!&%;%k$G!"%^(B + $B%&%9$N0LCV(B ($B%T%/%;%k?t$GM?$($i$l$^$9(B) $B$N7W;;$K0J2<$N$h$&$KE,MQ$5$l(B + $B$^$9(B: + + (TAB_WIDTH + M) * ORDER + N + + $B$3$3$G(B TAB_WIDTH $B$O0l$D$N%?%V$N%T%/%;%kI}!"(BORDER $B$O2?HVL\$N%?%V$+(B + $B$rI=$7$^$9!#7k2L$N>/?t0J2<$O@Z$j<N$F$i$l$^$9!#(B + + $B$b$7%?%V$N%U%'!<%9$K%W%m%]!<%7%g%J%k$J%U%)%s%H$r;H$C$F$$$k$H!"$3$N(B + $B7W;;$O>o$K<:GT$9$k$G$7$g$&!#(B`w3m-tab-track-mouse' $B$b;2>H$7$F$/$@$5(B + $B$$!#(B + + +File: emacs-w3m-ja.info Node: Using Tabs-Footnotes, Up: Using Tabs + +(1) XEmacs $A$O$9$Y$F$N%?%V$r$$$D$bM,$8I+$G1mJ>$7$^$9$,!"$(GrY$(I&1$A$5$l$?%?%V$H(B +$AK{$N$b$N$rGx$(GI1$A$7$?$j!"%b$B!<$A%I%i%$%s$G$(G\"$ATZ$N%Z$B!<$A%8$NW4$(Ghh$A$rV*$k$3$H$O$(Gv|$(I+J(B +$A$G$9!#(B + +(2) XEmacs $A$G$O=q$N$H$3$m%?%VPP$K(B favicon $A$O1mJ>$5$l$^$;$s!#(B + + + +File: emacs-w3m-ja.info, Node: Working with buffers, Next: Downloading, Prev: Using Tabs, Up: Basic Usage + +$A%P%C%U%!$rWw$k(B/$AO{$9(B/$ARF$(GY/$A$9$k(B +============================ + +$BCY$+$lAa$+$l$"$J$?$O(B emacs-w3m $BCfFG$K$J$C$F!"$9$Y$F$N%&%'%V$N1\Mw$r$=$l(B +$B$GOE$o$J$1$l$P$J$i$J$/$J$k$G$7$g$&!#$"$J$?$,$a$2$F$7$^$$$=$&$J$3$NG$L3(B +$B$r<jEA$&$?$a$K!"(Bemacs-w3m $B$N%P%C%U%!$GF0:n$9$k$?$/$5$s$N0c$&<jCJ$r9M$((B +$B$^$7$?!#(B + +* Menu: + +* Creating and killing buffers:: $B%P%C%U%!$r:n$C$?$j>C$7$?$j(B +* Moving across buffers:: $B%P%C%U%!4V$N0\F0(B +* Selecting buffers:: $B%j%9%H$+$i%P%C%U%!$rA*$V(B + + + +File: emacs-w3m-ja.info, Node: Creating and killing buffers, Next: Moving across buffers, Prev: Working with buffers, Up: Working with buffers + +$A%P%C%U%!$rWw$C$?$jO{$7$?$j(B +-------------------------- + +$B;~$K!"%&%'%V%Z!<%8$r3+$+$J$$$GC1$K?7$7$$%P%C%U%!$r:n$k$3$H$,Lr$KN)$D$3(B +$B$H$,$"$j$^$9!#$3$NA`:n$r(B emacs-w3m $B$NMQ8l$G$O!V$U$?$4$N%3%T!<$r:n$k!W(B +(creating a twin copy) $B$H8@$$$^$9!#$3$l$OC1$K!"$=$NFbMF$,8=:_$N%P%C%U%!(B +$B$HF10l$J?7$7$$%P%C%U%!$r:n$j$^$9!#(B + +$B$3$NH?BP$O%P%C%U%!$rJD$8$k$3$H$G!":#$O$=$NFbMF$K6=L#$,L5$$0l$D$N%P%C%U%!(B +$B$r!"C1$KJD$8$k$3$H$,$G$-$^$9!#$"$k$$$O!"8=:_$N%P%C%U%!0J30$N$9$Y$F$rJD(B +$B$8$k$3$H$r7hCG$7$F$bNI$$$G$9!#0J2<$N%3%^%s%I$G$=$l$r9T$J$C$F$/$@$5$$(B: + +`C-c C-t' +`M-n' + $B8=:_$N%P%C%U%!$HF10l$N%3%T!<$r?7$7$$L>A0$G:n$j$^$9!#$3$l$O?7$7$$%P%C(B + $B%U%!$K%&%'%V%Z!<%8$r<h$j9~$^$:$K!"?7$7$$%;%C%7%g%s$r;O$a$k$N$K;H$$(B + $B$^$9(B (`w3m-copy-buffer')$B!#(B + +`C-c C-w' + $B8=:_$N(B emacs-w3m $B$N%P%C%U%!$rJD$8$^$9(B (`w3m-delete-buffer')$B!#(B + +`C-c M-w' + $B8=:_$N$b$N0J30$N$9$Y$F$N(B emacs-w3m $B$N%P%C%U%!$rJD$8$^$9(B + (`w3m-delete-other-buffers')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Moving across buffers, Next: Selecting buffers, Prev: Creating and killing buffers, Up: Working with buffers + +$A%P%C%U%!$(Gbf$A$NRF$(GY/(B +---------------- + +$B:G$bIQHK$K;H$&%3%^%s%I$,$?$V$sNY$N%P%C%U%!$K9T$/$b$N$G$"$m$&$3$H$O!"@$4V(B +$B$NG'$a$k$H$3$m$G$7$g$&!#$=$l$O!"8=:_$N!V8e!W$+!VA0!W$N%P%C%U%!$G$9!#$3$N(B +$B0UL#$O%?%V$r;H$C$F$_$l$P$h$/$o$+$j$^$9!#<!$N%P%C%U%!$O8=:_$N1&B&$N0l$D8e!"(B +$BA0$N%P%C%U%!$O:8B&$G$9!#$7$+$7!";DG0$J$,$i(B XEmacs $B$O%?%V$r=gITF1$KI=<($9(B +$B$k$N$G!"$I$l$,NY$N%P%C%U%!$+$rCN$k$K$O!"3F%?%V$KI=<($5$l$F$$$k?t;z$KCmL\(B +$B$9$kI,MW$,$"$j$^$9!#$3$l$i$N%3%^%s%I$K3d$jEv$F$i$l$F$$$k%-!<(B +$B$O(B `C-c C-p' $B$H(B `C-c C-n' $B$G$9!#(B + +$B$3$l$i$N%3%^%s%I$O?t;z@\F,0z?t$N=,47$rM}2r$7$^$9!#$9$J$o$A!"$=$l$i$r?t(B +N $B$r0z?t$H$7$F8F$V$H!"8=:_$N%P%C%U%!$+$i(B N $B8DN%$l$?%P%C%U%!$K9T$-$^$9!#(B +$BNc$($P!"8=:_0LCV$+$i1&$K%P%C%U%!$rFs8DJ,(B ($B$9$J$o$A%P%C%U%!Fs8DJ,$@$1<!(B +$B$K(B) $B0\F0$9$k$K$O!"(B`2 C-c C-n' $B$r;H$C$F$/$@$5$$(B (1) (*Note Moving +across buffers-Footnotes::)$B!#(B + +`C-c C-p' + $BA0$N(B emacs-w3m $B%P%C%U%!$K0\F0$7$^$9!#$3$l$ODL>o%?%V9T$K$*$$$F:8J}(B + $B8~$K<!$G$9!#?t$N0z?t(B N $B$rIU$1$F;H$&$H!"%P%C%U%!$r(B N $B8DJ,A0$K0\F0$7(B + $B$^$9(B (`w3m-previous-buffer')$B!#(B + +`C-c C-n' + $B<!$N(B emacs-w3m $B%P%C%U%!$K0\F0$7$^$9!#$3$l$ODL>o%?%V9T$K$*$$$F1&J}(B + $B8~$K<!$G$9!#?t$N0z?t(B N $B$rIU$1$F;H$&$H!"%P%C%U%!$r(B N $B8DJ,<!$K0\F0$7(B + $B$^$9(B (`w3m-next-buffer')$B!#(B + +$B$"$J$?$,(B GNU Emacs $B$N%f!<%6!<$J$i$P!"0J2<$N%3%^%s%I$r;H$C$F(B emacs-w3m +$B%P%C%U%!$r%?%V9T$NNY$N>l=j$K0\F0$5$;$k$3$H$b$G$-$^$9(B: + +`C-c C-.' +`C-c C->' + $BA*Br$5$l$F$$$k(B emacs-w3m $B%P%C%U%!$r!"%?%V9T$N1&NY$N>l=j$K0\F0$5$;(B + $B$^$9!#?t$N0z?t(B N $B$rIU$1$F;H$&$H!"%?%V$N(B N $B8DJ,1&$K0\F0$5$;$^$9(B + (`w3m-tab-move-right')$B!#(B + +`C-c C-,' +`C-c C-<' + $BA*Br$5$l$F$$$k(B emacs-w3m $B%P%C%U%!$r!"%?%V9T$N:8NY$N>l=j$K0\F0$5$;(B + $B$^$9!#?t$N0z?t(B N $B$rIU$1$F;H$&$H!"%?%V$N(B N $B8DJ,:8$K0\F0$5$;$^$9(B + (`w3m-tab-move-left')$B!#(B + +$B;d$?$A$,9|$r@^$C$?$K$b$+$+$o$i$:!"$3$l$i$N%3%^%s%I$,$*5$$K>$$5$J$$$J$i(B +$B$P!"$"$J$?$,M_$7$$$b$N$,(B ibuffer $B$d(B iswitchb $B$N$h$&$JK|G=;V8~$N?M(B +(generalist) $B8~$1$N%P%C%U%!4IM}%Q%C%1!<%8$NCf$K$"$k$+$I$&$+$rC5$7$F$_$k(B +$B$N$bNI$$$+$b$7$l$^$;$s!#(Bemacs-w3m $B%P%C%U%!$O(B Emacs $B$N@55,$N%P%C%U%!$G$9(B +$B$+$i!"$=$l$i$b$^$?NI9%$KF0:n$9$k$G$7$g$&!#(B + + +File: emacs-w3m-ja.info Node: Moving across buffers-Footnotes, Up: Moving across buffers + +(1) $A$$$D$b$N$h$&$K!"(B`2 C-c C-n' $A$N4z$o$j$K(B `C-u 2 C-c +C-n' $A$rJ9$C$F$bA<$$$N$G$9$,!"(Bemacs-w3m $A$N%P%C%U%!$G$O$9$Y$F$NJ}WV%-$B!<(B +$A$H%^%$%J%9$(GX4$A:E$,J}$N=S$(Gs$$AR}J}$K8n$j51$F$i$l$F$$$k$3$H$r$(I>t$A$($F$*$$$F$/$@(B +$A$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Selecting buffers, Prev: Moving across buffers, Up: Working with buffers + +$A%j%9%H$+$i%P%C%U%!$r$(GrY$A$V(B +------------------------ + +$B%j%9%H$+$i(B emacs-w3m $B$N%P%C%U%!$rA*$V$?$a$NFs$D$N$d$jJ}$,$"$j$^$9!#0l$D(B +$BL\$O!"(B`C-c C-a' $B$G8F$S=P$5$l$k%_%K%P%C%U%!!&%Y!<%9$N%$%s%?!<%U%'!<(B +$B%9$G$9!#I=<($7$?$$%P%C%U%!$r!"(B`M-p' $B$H(B `M-n' $B%-!<(B ($B$^$?(B +$B$O(B <$A!|(B> $B$H(B <$A!}(B> $B%-!<(B) $B$r;H$C$FA*$V$3$H$,$G$-!"$=$l$i$O%j%9%H$NCf(B +$B$G=[4D$7$^$9!#$^$?!"%W%m%s%W%H$rJT=8$7$F!"(B`<TAB>' $B$NJd40$r;H$C$F(B +$B4{B8$N%&%'%V%Z!<%8$N%?%$%H%k$r=q$-9~$`$3$H$b$G$-$^$9!#Nc$($P!"(B"Google +Search" $B$N%Z!<%8$r3+$$$F$"$k$J$i$P!"(B"Goo" $B$KB3$1$F(B `<TAB>' $B$r(B +$BC!$/$3$H$K$h$C$F!"$=$N%Z!<%8$N%?%$%H%k$,40@.$7$^$9!#%Z!<%8$NL>A0$N8e$m$K(B +$B$O!"(B($B803g8L$G64$^$l$?(B) $B%P%C%U%!$NL>A0$,IU$-$^$9!#$=$7(B +$B$F(B `<RET>' $B$r;H$&$H!"$"$J$?$,A*$s$@%P%C%U%!$K@Z$jBX$o$j$^$9!#(B + +$BFs$DL\$N$b$C$H@vN}$5$l$?%$%s%?!<%U%'!<%9$O(B emacs-w3m $B%P%C%U%!%j%9%H$H8@(B +$B$$!"(B`C-c C-s' $B$G5/F0$5$l$^$9!#$=$l$OJ,3d$5$l$?%&%#%s%I%%$K$9$Y$F(B +$B$N3+$$$F$$$k%P%C%U%!$rI=<($7(B (`C-c C-s' $B$GI=<(7A<0$,@Z$jBX$o$j$^(B +$B$9(B)$B!"<B;~4V$G%P%C%U%!$r8+$k$3$H$,$G$-$k$h$&$K$J$j$^$9!#$=$N%P%C%U%!%j%9(B +$B%H$NCf$G%]%$%s%H$r0\F0$9$k$H!"%]%$%s%H$N$H$3$m$K$"$k%P%C%U%!$,<g%&%#%s%I%%(B +$B$KI=<($5$l!"%P%C%U%!$N@Z$jBX$($,D>@\L\$K8+$($k7A$GJV$C$F$/$k$N$G$9!#(B + +$B%P%C%U%!%j%9%H$NCf$r0\F0$9$k$K$O(B `p' $B$H(B `n' $B%-!<(B ($B$^$?$OLp0u%-!<(B) $B$r;H$C(B +$B$F$/$@$5$$!#%P%C%U%!%j%9%H$G$O(B `<DEL>' $B$H(B `<SPC>' $B$G!"<g%&%#%s%I%%$KI=(B +$B<($5$l$F$$$k%P%C%U%!$r%9%/%m!<%k$5$;$k$3$H$,2DG=$G!"$3$l$O@5$7$$%P%C%U%!(B +$B$r8+$F$$$k$+$I$&$+$r%A%'%C%/$7$?$$$H$-$KJXMx$G$9!#%]%$%s%H$N$H$3$m$K$"(B +$B$k%P%C%U%!$rA*$S$?$$$H$-$O(B `<RET>' $B%-!<$r;H$C$F$/$@$5$$!#$3$N>l9g$O%P%C(B +$B%U%!%j%9%H$,1#$5$l$^$9!#$"$k$$$O!"(B`w' $B%-!<$r;H$C$?>l9g$O%P%C%U%!%j%9%H(B +$B$OI=<($5$l$?$^$^$G!"<g%&%#%s%I%%$K%U%)!<%+%9$7$^$9!#(B + +$B$^$?!"$3$N%a%K%e!<$GIaDL$N%P%C%U%!$G;H$o$l$k$N$HF1$8%-!<3d$jEv$F(B +(*Note Creating and killing buffers::) $B$G!"%P%C%U%!$rJD$8$?$j:n$k$3$H$b(B +$B$G$-$^$9!#(B + +$B:G8e$K!"(B`?' $B$O%X%k%W$NI=<(!"(B`g' $B$O%j%9%H$N:n$jD>$7!"$=$7$F(B `q' $B$O%P%C%U%!(B +$B%j%9%H$N=*N;$r<g%&%#%s%I%%$N%P%C%U%!$OJQ99$;$:$K!"$=$l$>$l<B9T$7$^$9!#(B + +`C-c C-a' + $B%_%K%P%C%U%!$G%P%C%U%!L>$NF~NO$r5a$a$^$9!#(B`M-p' $B$H(B `M-n' $B$G4{B8$N(B + $B%P%C%U%!$,=[4D$7!"(B`<TAB>' $B$GJd40$G$-$^$9(B (`w3m-switch-buffer')$B!#(B + +`C-c C-s' + $BJ,3d$5$l$?%&%#%s%I%%$K%P%C%U%!%j%9%H$rI=<($7$^(B + $B$9(B (`w3m-select-buffer')$B!#$3$N%&%#%s%I%%$G$O(B `C-c C-s' $B$G?e(B + $BJ?$H?bD>%b!<%I$,@Z$jBX$o$j!"(B`<RET>' $B$G%]%$%s%H$N$H$3$m$K$"$k%P%C(B + $B%U%!$rA*$s$G%P%C%U%!%j%9%H$O1#JC!"(B`w' $B$G%]%$%s%H$N$H$3$m$K$"$k%P%C%U%!(B + $B$rA*$s$G$=$l$K%U%)!<%+%9!"(B`n' $B$H(B `p' $B$=$l$KLp0u%-!<$,>e2<$N0\F0(B + $B$K;H$($^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Downloading, Next: Submitting Forms, Prev: Working with buffers, Up: Basic Usage + +$A%U%!%$%k$r%@%&%s%m$B!<$A%I$9$k(B +========================== + +$B$I$s$J%&%'%V%Z!<%8$d%U%!%$%k$b(B emacs-w3m $B$G%@%&%s%m!<%I(B ($B$9$J$o$A<hF@!"(B +$BI=<($G$O$"$j$^$;$s(B) $B$G$-$^$9!#C1$K%@%&%s%m!<%I$7$?$$%j%s%/$K%]%$%s%H$r(B +$BCV$$$F(B `d' $B$rC!$$$F$/$@$5$$!#%m!<%+%k$K%;!<%V$9$k%U%!%$%kL>$,?R$M$i$l$^(B +$B$9!#%G%U%)%k%H$G$O1s3V%5!<%P!<$K$*$1$k%U%!%$%k$NL>A0$K$J$j$^$9!#$=$l$G(B +$BNI$1$l$P(B `<RET>' $B$r2!$7$F$/$@$5$$!#%@%&%s%m!<%I$OHsF14|$K<B9T$5$l!"(B +Emacs $B$G9T$J$C$F$$$kB>$N;E;v$N<YKb$r$7$J$$$N$G!"$=$&$7$?$1$l$PB>$N%P%C(B +$B%U%!$G(B emacs-w3m $B$K$h$k1\Mw$rB3$1$k$3$H$,$G$-$^$9!#(B + +$B$3$N%@%&%s%m!<%I$N;EAH$_$O(B w3m $B$r;H$&$N$G$9$,!"Be$o$j$K$b$C$H6/NO$J(B +wget $B$r;H$&$3$H$b9MN8$7$F$_$F$/$@$5$$!#;d$?$A$N$*M'$@$A%W%m%8%'%/%H$G$"(B +$B$k(B "emacs-wget" $B$rGA$$$F$_$^$7$g$&!#$=$N%[!<%`%Z!<%8$O$3$3(B +`http://pop-club.hp.infoseek.co.jp/emacs/emacs-wget/' $B$G$9!#(B + +`d' (Lynx-like $A%-$B!<$A%^%C%W(B) +`D' (Info-like $A%-$B!<$A%^%C%W(B) + $B%]%$%s%H$N$H$3$m$K$"$k%j%s%/$,;X$7<($9%U%!%$%k$+%Z!<%8$r%@%&%s%m!<(B + $B%I$7$^$9(B (`w3m-download-this-url')$B!#(B + +`M-d' (Lynx-like $A%-$B!<$A%^%C%W(B) +`d' (Info-like $A%-$B!<$A%^%C%W(B) + URL $B$NFbMF$r%m!<%+%k%U%!%$%k$K%@%&%s%m!<%I$7$^$9(B (`w3m-download')$B!#(B + $B$=$N(B URL $B$H%m!<%+%k%U%!%$%k$NL>A0$NF~NO$r5a$a$i$l$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Submitting Forms, Next: HTML File Information, Prev: Downloading, Up: Basic Usage + +HTML $A%U%)$B!<$A%`$K$(GX4$AHk$9$k(B +======================= + +$B$3$l$i$N(B emacs-w3m $B%3%^%s%I$O!"C1=c$J%-!<%P%$%s%I$H@lMQ$N(B Emacs $B$N%&%#(B +$B%s%I%%$+%_%K%P%C%U%!$r;H$C$F!"%U%)!<%`$+$i%U%)!<%`$X$N0\F0$H%U%#!<%k%I(B +$B$KF~NO$9$k$?$a$N5!G=$rDs6!$7$^$9!#(B + +$B3P$($F$*$$$FM_$7$$Bg;v$J%-!<%P%$%s%I$O(B `<RET>' $B$G$9!#$3$l$O8=:_0LCV$K$"(B +$B$k$b$N$K$h$C$F0[$J$k0UL#$r;}$A$^$9!#%F%-%9%HNN0h(B (textarea) $B$G$O!"%_%K(B +$B%P%C%U%!$GCM$rF~NO$9$k$3$H$,B%$5$l$^$9!#A*BrMQ$N%?%0$G$O!"A*Br;h$N%j%9(B +$B%H$,(B Emacs $B$N%(%l%/%H%j%C%/(B (electric == $B<+8JA^F~(B) $B%&%#%s%I%%$K8=$l$^$9(B +($B$=$3$G$OLp0u%-!<$G0\F0$7$F!"(B`<RET>' $B%-!<$G0l$D$rA*$V$3$H$,$G$-$^$9(B)$B!#(B +$B%i%8%*%\%?%s$*$h$S%A%'%C%/%\%C%/%9$G$O(B `<RET>' $B%-!<$G$=$l$i$N$&$A$N0l$D(B +$B$rA*$S$^$9!#(B + +$B%_%K%P%C%U%!$+%(%l%/%H%j%C%/!&%&%#%s%I%%$K$$$k$H$-$O!"(B +`C-c C-q' $B%-!<$G<h$j>C$9$3$H$,$G$-$^$9!#%U%)!<%`$K5-F~$7$?$b$N$r(B +$BAw$j=P$9$K$O(B `C-c C-c' $B$r;H$C$F$/$@$5$$!#(B + +`]' + $B<!$N%U%)!<%`$K%8%c%s%W$7$^$9(B (`w3m-next-form')$B!#(B + +`[' + $BA0$N%U%)!<%`$K%8%c%s%W$7$^$9(B (`w3m-previous-form')$B!#(B + +`C-c C-c' + $B8=:_0LCV$N%U%)!<%`$K5-F~$7$?$b$N$rAw$j=P$7$^$9(B + (`w3m-submit-form')$B!#(B + +`<RET>' + $B8=:_0LCV$K$"$k$N%U%)!<%`CM$r=q$-49$($^$9!#(B + +`<RET>' (w3m-form-*-keymap) + $B$=$NCM$rA*Br$7$^$9!#(B + +`C-c C-q' (w3m-form-*-keymap) + $B%U%)!<%`$NJT=8$rCfCG$7$F!"JQ99$r<h$j;_$a$^$9!#(B + +`w3m-form-use-textarea-backup' $B$,(B `nil' $B$K@_Dj$5$l$F$$$J$+$C$?$i!"(B +textarea $B$GF~NO$7$?%F%-%9%H$r8e$G:FMxMQ$G$-$k$h$&$K!"%P%C%/%"%C%W!&%U%!(B +$B%$%k$K5-O?$7$^$9!#%U%)!<%`$NJT=8$r;O$a$k$H$-$K%P%C%/%"%C%W$5$l$?%F%-%9(B +$B%H$,$"$C$?$i!"$=$l$r;H$&$+$I$&$+$r?R$M$i$l$k$G$7$g$&!#%F%-%9%H$rJ]B8$9(B +$B$k$?$a$N%U%!%$%k$O!"JQ?t(B `w3m-form-textarea-directory' $B$G;XDj$5$l$k%G%#(B +$B%l%/%H%j$K3JG<$5$l$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: HTML File Information, Prev: Submitting Forms, Up: Basic Usage + +$A%&%'%V%Z$B!<$A%8Ww$j$H%O%C%/$N$*JV$(H!s$A$$(B +================================== + +$B$$$D$b%I%-%e%a%s%H$N<9I.4D6-$H$7$F!"$"$k$$$O%=%U%H%&%'%"$N3+H/4D6-$H$7(B +$B$F(B Emacs $B$r;H$C$F$$$k?M$K$O!"F1$8$=$N4D6-$NCf$G%&%'%V$r1\Mw$G$-$k$3$H$O(B +$BK\Ev$KJXMx$G$7$g$&!#Nc$($P(B HTML $B%U%!%$%k$r<9I.$7$F$$$k$N$G$"$l$P!"30It(B +$B$N%&%'%V%V%i%&%6$r5/F0$9$kI,MW$J$/!"(BEmasc $B$NCf$G:n@.$7$?(B HTML $B%U%!%$%k(B +$B$r%W%l%S%e!<$G$-$^$9!#%W%m%0%i%_%s%0!&%^%i%=%s$N:GCf$K!"?WB.$K5;=QJ88%(B +$B$+$i%5%s%W%k%3!<%I$r@Z$jE=$j$9$k$H$$$C$?$3$H$@$C$F(B... + +$B5U$O$I$&$G$7$g$&!#(B($B$9$J$o$A%&%'%V1\Mw$N4D6-$G!"$=$N%=!<%9$G$"$k(B HTML $B%U%!(B +$B%$%k$rJT=8$7$?$j!";2>H$7$?$j$G$-$?$i(B) $B$+$C$3$$$$$H;W$$$^$;$s$+!)(B $B%I%-%e(B +$B%a%s%H$r<9I.Cf$K(B emacs-w3m $B$G2<8+(B (preview) $B$7$F8m;z$rH/8+$7$?$HA[A|$7(B +$B$F$_$F$/$@$5$$!#$=$N(B HTML $B%U%!%$%k$r$?$A$I$3$m$K=$@5$7$?$/$J$k$O$:$G$9!#(B +$B$"$J$?$,%&%'%V%F%/%N%m%8!<$K7H$o$k%W%m%0%i%^$J$i!"1\MwCf$N%&%'%V%Z!<%8(B +$B$r(B HTML $B7A<0$G1\Mw$7$?$/$J$k$3$H$,$"$k$G$7$g$&!"FC$K!"?7J9%b%8%e!<%k$N(B +$B:n<T$NJ}(B (*Note Shimbun Basics::)$B!#(B + +HTML $B%U%!%$%k$r3+$$$F$$$k(B Emacs $B$N%P%C%U%!$NL>A0$rL@<(E*$K;XDj$7$F%P%C(B +$B%U%!$r@Z$jBX$($k$3$H$bIaDL$K$G$-$^$9$,!"(Bemacs-w3m $B$G$O$=$&$$$C$?L\E*$N(B +$B$?$a$K@lMQ$N%-!<$,3dEv$F$i$l$F$$$^$9!#(BEmacs-w3m $B$O<+J,$,8=:_I=<($7$F$$(B +$B$k%&%'%V%Z!<%8$N(B URL $B$rCN$C$F$k$s$G$9!#$=$N>pJs$r;H$o$J$$<j$O$"$j$^$;$s!#(B + +`\' + $BI=<(Cf$N%&%'%V%Z!<%8$r(B HTML $B7A<0$G$=$N$^$^I=<($7$^$9(B + (`w3m-view-source')$B!#(B + +`=' + $BI=<(Cf$N%&%'%V%Z!<%8$N>pJs$rI=<($7$^$9!#>pJs$K$O!"%?%$%H%k!"(BURL$B!"(B + $B%I%-%e%a%s%H%?%$%W!":G=*JQ99F|;~$,4^$^$l$^$9(B (`w3m-view-header')$B!#(B + +`E' (Lynx-like $A%-$B!<$A%^%C%W(B) +`e' (Info-like $A%-$B!<$A%^%C%W(B) + $B8=:_1\MwCf$N%m!<%+%k%U%!%$%k$rJT=8$7$^$9(B (`w3m-edit-current-url')$B!#(B + +`e' (Lynx-like $A%-$B!<$A%^%C%W(B) +`E' (Info-like $A%-$B!<$A%^%C%W(B) + $B8=:_%]%$%s%H$N2<$K$"$k%j%s%/@h$N%m!<%+%k%U%!%$%k$rJT=8$7$^$9(B + (`w3m-edit-this-url')$B!#(B + +`M' + (Emacs-w3m $B0J30$N(B) $B30It%V%i%&%6$r?7$?$K5/F0$7$F!"8=:_(B emacs-w3m $B$G(B + $B1\Mw$7$F$$$k%Z!<%8$rI=<($7$^$9(B + (`w3m-view-url-with-external-browser')$B!#$I$N30It%V%i%&%6$r;H$&$+$O!"(B + $BJQ?t(B `w3m-content-type-alist' $B$K$h$C$F(B URL $B$N<oN`Kh$KDj5A$5$l$^$9!#(B + +$B$3$3$G>R2p$7$?0J30$K$b!"B>$N%3%^%s%I$d(B Emacs $B$N%5%V%7%9%F%`$H(B +emacs-w3m $B$rO"7H$5$;$kJ}K!$r(B *Note Tips:: $B$K$F>R2p$7$F$$$k$N$G!";29M$K(B +$B$7$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Pretty Good Features, Next: Customizable Variables, Prev: Basic Usage, Up: Top + +$A$?$/$5$s$N$9$0$l$b$N(B +******************** + +* Menu: + +* Using Search Engines:: $B;H$$$d$9$$%&%'%V8!:w(B +* Grouping URLs:: $B0l$D$N(B URL $B$GJ#?t$N%&%'%V%Z!<%8$r8+$k(B +* Weather Information:: $BL@F|$NE75$$O@2$l$G$7$g$&(B +* Using Antenna:: $B%"%s%F%J$rD%$j=d$i$=$&(B +* Showing Directory Tree:: $B%G%#%l%/%H%j$NLZ9=B$$rI=<($9$k(B +* Viewing Perl Documents:: Perl $B$N%I%-%e%a%s%H$r8+$k(B +* Using Namazu:: Namazu $B$G%U%!%$%k$r8!:w$9$k(B +* Octet:: application/octet-stream $B%G!<%?$r8+$k(B +* Frame Local Buffers:: $BB??t$N%;%C%7%g%s$r%U%l!<%`$G%0%k!<%WJ,$1$9$k(B +* Session Manager:: $B%;%C%7%g%s$NJ]B8$HFI$_$3$_(B + + + +File: emacs-w3m-ja.info, Node: Using Search Engines, Next: Grouping URLs, Prev: Pretty Good Features, Up: Pretty Good Features + +$AJ9$$$d$9$$%&%'%V$(I<D$AKw(B +==================== + +Emacs-w3m $B$K$O8!:w%(%s%8%s$rMxMQ$9$k$?$a$N@h?J$N5!G=$,$"$j!";0$D$N%$%s(B +$B%?!<%U%'!<%9$rDL$7$FMxMQ$9$k$3$H$,$G$-$^$9(B: + + * $BI8=`$N8!:w%$%s%?!<%U%'!<%9$G$9!#(B`S' $B%-!<(B (`Info-like' $B%-!<%^%C%W$N(B + $B>l9g$O(B `s' $B%-!<(B) $B$G!"$$$:$l$+$N(B emacs-w3m $B%P%C%U%!$+$i5/F0$5$l$^$9!#(B + $B$3$l$O8!:w%(%s%8%s$r;XDj$7$F8!:w8l$rF~NO$9$k!"C1=c$JBPOC7?$N$d$jJ}(B + $B$G$9!#(B*Note The Search Interface:: $B$r;2>H$7$F$/$@$5$$!#(B + + * $B%/%$%C%/%5!<%A!&%$%s%?!<%U%'!<%9$G$9!#$3$l$O5;9*E*$K:n$i$l$?(B URL + $B$K9T$/$3$H$K$h$C$F8!:w%(%s%8%s$rMxMQ$9$k$?$a$N!"$h$jB.$$(B ($B$5$i$K!"(B + $B$h$jJ#;($J(B) $BJ}K!$G$9!#$3$N5!G=$K4X$9$k>\:Y$O(B *Note Quick + Searching:: $B$r;2>H$7$F$/$@$5$$!#(B + + * "I'm feeling lucky" $B5!G=$,M-8z$K$J$C$F$$$k(B + (`w3m-enable-google-feeling-lucky') $B$H!"(BURL $B$rF~NO$9$k$H$-$KDL>o$N(B + URL $B$NBe$o$j$K2?$+$N8l6g$r;XDj$9$k$3$H$K$h$C$F!"$=$N8l6g$N(B Google + $B8!:w$r<+F0E*$K3+;O$7$F!":G$b4X78$,$"$j$=$&$J7k2L$rI=<($5$;$k$3$H$,(B + $B$G$-$^$9!#$3$l$O:G$b4X78$,$"$j$=$&$J%Z!<%8$r$9$0$K8+$?$$>l9g$KJXMx(B + $B$G$9$,!"8!:w7k2L$N%j%9%H$OI=<($5$l$^$;$s!#(B + +* Menu: + +* The Search Interface:: Emacs-w3m $B$K$h$k8!:w$N$d$jJ}(B +* Quick Searching:: $B$b$&0l$D$N(B ($B$=$7$FB.$$(B) $B%&%'%V8!:w(B +* Adding New Search Engines:: $B$*5$$KF~$j$N%(%s%8%s$r;H$&$K$O(B? + + + +File: emacs-w3m-ja.info, Node: The Search Interface, Next: Quick Searching, Prev: Using Search Engines, Up: Using Search Engines + +Emacs-w3m $A$K$h$k$(I<D$AKw$N$d$j7=(B +---------------------------- + +Emacs-w3m $B$N%P%C%U%!$G(B `S' $B%-!<(B (`Info-like' $B%-!<%^%C%W$N>l9g$O(B `s' +$B%-!<(B) $B$r;H$&$3$H$K$h$j!"I8=`$N8!:w%$%s%?!<%U%'!<%9$rN)$A>e$2$k$3$H$,$G(B +$B$-$^$9!#$9$k$H!"%_%K%P%C%U%!$G8!:w8l$NF~NO$r5a$a$k%W%m%s%W%H$,8=$l$k$N(B +$B$G!"0l$D$^$?$OJ#?t$N8l$rF~$l$F!"(B`<RET>' $B$rC!$$$F$/$@$5$$!#$=$N%(%s%8%s(B +$B$N8!:w7k2L$N%Z!<%8$,8=$l!"$=$N8e!"$"$?$+$b8!:w%(%s%8%s$KDL>o$N%&%'%V$N(B +$BN.57$K$h$kF~NO$r9T$J$C$?$H$-$N$h$&$K!"7k2L$r1\Mw$9$k$3$H$,$G$-$^$9!#(B + +$B$*$=$i$/!"$"$J$?$O$I$N%(%s%8%s$GC5:w$7$?$$$+$r7h$a$k5!2q$,M?$($i$l$F$$(B +$B$J$$$3$H$K5$IU$/$G$7$g$&!#(BEmacs-w3m $B$O%G%U%)%k%H$G(B Google $B8!:w%(%s%8%s(B +$B$r;H$$$^$9$,!"JQ?t(B `w3m-search-default-engine' (*Note Customizable +Variables:: $B;2>H(B) $B$r%+%9%?%^%$%:$9$k$3$H$K$h$C$F!"$3$N?6$kIq$$$rJQ99$9(B +$B$k$3$H$,$G$-$^$9!#$"$k$$$O!"$3$N%3%^%s%I$r;H$&$?$S$K8!:w%(%s%8%s$r;XDj(B +$B$9$k$3$H$,$G$-$^$9!#(B + +$B$I$N%(%s%8%s$r;HMQ$9$k$+$rL@<($9$k$?$a$K$O!"%3%^%s%I$K@\F,0z?t$rM?$($J$1(B +$B$l$P$J$j$^$;$s(B ($BDL>o$3$l$O(B `C-u S' (`Info-like' $B%-!<%^%C%W(B +$B$N>l9g$O(B `C-u s') $B$N$h$&$K!"%3%^%s%I$NA0$K(B `C-u' $B$rC!$/$3$H(B +$B$r0UL#$7$^$9(B)$B!#$9$k$H(B emacs-w3m $B$O%(%s%8%s$NF~NO$rB%$9$N$G!"$=$NL>A0$r0l(B +$B$DA*$V$3$H$,$G$-$^$9(B (<TAB> $B%-!<$GJd40$,$G$-$^$9(B)$B!#$$$C$?$sA*(B +$BBr$7$?$i(B `<RET>' $B%-!<$rC!$$$F$/$@$5$$!#$=$N8e$G8!:w8l$rF~NO$9$k(B +$B$3$H$,$G$-!"(B`<RET>' $B$r%?%$%W$9$l$P8!:w7k2L$,8=$l$k$G$7$g$&!#(B + +`S' (Lynx-like $A%-$B!<$A%^%C%W(B) +`s' (Info-like $A%-$B!<$A%^%C%W(B) + $B?7$7$$8!:w$r;O$a$^$9!#@\F,0z?tIU$-$G8F$P$l$?>l9g$O!"$I$N%(%s%8%s$r(B + $B;H$&$+$r?R$M$^$9(B (`w3m-search')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Quick Searching, Next: Adding New Search Engines, Prev: The Search Interface, Up: Using Search Engines + +$A$b$&R;$D$N(B ($A$=$7$FKY$$(B) $A%&%'%V$(I<D$AKw(B +---------------------------------- + +$B%&%'%V!&%Q%o!<%f!<%6(B ($B$3$l$rFI$s$G$$$k$"$J$?(B) $B$K$O!"?WB.$G8zN(E*$J8!:w(B +$B$NJ}K!$,I,MW$G$9!#%/%$%C%/%5!<%A$O$=$N0l$D$G$9!#(B + +$B$=$l$O2?$r$9$k$N$+$C$F(B? $B$=$l$O(B `gg:emacs' $B$N$h$&$JFCJL$N(B URL $B$K9T$/$@(B +$B$1$G!"%&%'%V8!:w$r;O$a$5$;$k$N$G$9!#$3$N%b!<%I$NF0:n$ND9=j$O!"<!$NDL$j(B +$B$G$9(B: + + * $BB.$$!#%(%s%8%s$H8!:w8l$rA*$V$N$K!"0l$D$N(B URL $B$r%?%$%W$9$k$@$1$G$9!#(B + + * $BJXMx!#$3$N5!G=$K$h$C$F!"MF0W$K(B emacs-w3m $B$N%?%V$+%&%#%s%I%%$r3+$$(B + $B$F!"8!:w$r;O$a$k$3$H$,$G$-$^$9!#Nc$($P!"(B`G' $B%-!<$G?7$7$$%&%#%s%I%&(B + $B$r3+$$$F%/%$%C%/%5!<%A(B URL $B$K9T$/$h$&$K!#$=$7$F!"FCJL$N%/%$%C%/%5!<(B + $B%A(B URL $B$=$N$b$N$K$b!"%V%C%/%^!<%/$rIU$1$k$3$H$,$G$-$^$9!#(B + + * $B%0%k!<%T%s%05!G=$b;H$($k!#Nc$($P(B `group:gg:emacs&ya:w3m' $B$N$h$&(B + $B$J(B URL $B$K$h$C$F!"F1;~$KFs$D$N8!:w$r;O$a$k$3$H$,$G$-$^$9!#Nc$($P$3$N>l9g(B + $B$O!"(BGoogle $B$G(B "emacs" $B$N!"(BYahoo! $B$G(B "w3m" $B$N8!:w$r$=$l$>$l;O$a$^$9!#(B + *Note Grouping URLs::. + +$B$3$l$r;H$&$N$O$H$F$b4JC1$G$9!#(B"gnu" $B$H$$$&C18l$r(B Google $B$GC5$7$F7k2L$N(B +$B%j%9%H$rF@$?$$$N$G$"$l$P!"(B`g' $B$rC!$$$F$+$i(B "gg:gnu" $B$H$$$&(B URL $B$r(B +$B%?%$%W$7$F$/$@$5$$!#$3$NI=8=$NBh0l$NItJ,(B "gg" $B$O!"(BGoogle $B8!:w%(%s%8%s$r(B +$B;HMQ$7$?$$$3$H$r<($7$^$9!#BhFs$NItJ,$O8!:w8l$G$9!#%(%s%8%s$H8!:w8l$O!"%3(B +$B%m%s$GJ,$1$J$1$l$P$J$j$^$;$s!#$=$7$F(B `<RET>' $B$rC!$1$P8!:w7k2L$r(B +$B8+$k$3$H$,$G$-$^$9!#%9%Z!<%9$GJ,N%$7$?J#?t$N8l$rF~NO$G$-$k$3$H$r!"?4$KN1(B +$B$a$F$*$$$F$/$@$5$$!#(B"Feeling Lucky" $B5!G=$,M-8z$K$J$C$F$$$l$P!"%_%K%P%C(B +$B%U%!$G(B `<SPC>' $B$O(B self-insert $B%-!<$K$J$C$F$$$^$9(B ($B$3$l$,%G%U%)%k(B +$B%H$G$9!#(B`w3m-enable-google-feeling-lucky' $B$r;2>H$7$F$/$@$5$$!#(B) $BL5(B +$B8z$K$7$F$"$k>l9g$O!":G=i$K(B `C-q' $B$rC!$$$F$/$@$5$$!#$D$^(B +$B$j(B `C-q <SPC>' $B$G$9!#(B + +Emacs-w3m $B$N%G%U%)%k%H$G$O!"MxMQ2DG=$J$$$/$D$+$N8!:w%(%s%8%s$NC;=L7A$,(B +$B$"$j!"$=$l$i$OJQ?t(B `w3m-uri-replace-alist' $B$GDj5A$5$l$F$$$^$9!#Nc$($P(B +Google $B$K$O(B "gg"$B!"(BGoogle Groups $BMQ$K$O(B "ggg"$B!"(BYahoo! $B$N$?$a$N(B "ya"$B!"(B +Altavista $B$KBP$9$k(B "al" $B$*$h$S(B $B1Q<-O/(B on the WEB $B$N(B "alc" $B$J$I$NC;$$L>(B +$BA0$G$9!#$5$i$K8!:w%(%s%8%s$NC;=L7A$rDI2C$9$k$K$O(B *Note Adding New +Search Engines:: $B$r;2>H$7$F$/$@$5$$!#(B + +$BC;=L7A$NBe$o$j$K!"(B"google" $B$d(B "yahoo" $B$N$h$&$J40A4$J%(%s%8%s$NL>A0$r!"(B +$B%/%$%C%/%5!<%A(B URL $B$K;H$&$3$H$b$G$-$^$9!#$=$l$i$NL>A0$O!"JQ?t(B +`w3m-search-engine-alist' $B$GDj5A$5$l$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Adding New Search Engines, Prev: Quick Searching, Up: Using Search Engines + +$A$*$B5$$A$KHk$j$N%(%s%8%s$rJ9$&$K$O(B? +------------------------------- + +Emacs-w3m $B$OMxMQ2DG=$JB?$/$N8!:w%(%s%8%s$r;}$C$F$$$^$9!#$"$J$?$N$*5$$K(B +$BF~$j$N8!:w%(%s%8%s$r;H$$$?$$$N$K!"K|$,0l$K$b$=$l$,4{CN$N8!:w%(%s%8%s$N(B +$B%j%9%H$K:\$C$F$$$J$+$C$?$i$I$&$7$^$7$g$&(B? $B$=$l$r8!:w%(%s%8%s$N%j%9%H$K(B +$B2C$($l$PNI$$$N$G$9!#$=$7$F$=$l$O6K$a$F4JC1$G$9(B: + + 1. $B:G=i$K!"$"$J$?$,2C$($?$$8!:w%(%s%8%s$N%(%s%H%j!<!&%]%$%s%H$,2?$+$r(B + $BCN$i$J$1$l$P$J$j$^$;$s!#Nc$($P(B: + + `http://my.searchengine.com/?query=foobar' + + $B$3$3$G(B foobar $B$O$"$J$?$,8!:w$7$?$$8l$G$9!#(B + + 2. $B$3$N>pJs$,<j$KF~$C$?$i!"(B`~/.emacs-w3m' $B%U%!%$%k$K2C$($F$/$@$5$$(B: + + (eval-after-load "w3m-search" + '(add-to-list 'w3m-search-engine-alist + '("My engine" + "http://my.searchengine.com/?query=%s" + nil))) + + $BBh0l%U%#!<%k%I$N(B "My engine" $B$r$"$J$?$N%(%s%8%s$N@bL@$G!"BhFs%U%#!<(B + $B%k%I$r%(%s%H%j!<!&%]%$%s%H$GCV$-49$($F$/$@$5$$(B (`%s' $B$O=EMW$G$9!#(B + $B$3$l$O8!:w$r9T$J$&$H$-$K!"8!:w8l$GCV$-49$($i$l$^$9(B)$B!#$=$7$FBh;0(B + $B%U%#!<%k%I$O;HMQ$9$k%(%s%3!<%G%#%s%0$r0UL#$7!"(B`nil' $B$^$?$O$=$l$,>J(B + $BN,$5$l$?>l9g$OJQ?t(B `w3m-default-coding-system' $B$NCM$,I8=`$N%(%s%3!<(B + $B%G%#%s%0$H$7$F;H$o$l$^$9!#(B + + $B1Q8l$N8!:w%(%s%8%s$G$OLGB?$K5$$K$9$kI,MW$,L5$$$3$H$J$N$G$9$,!"$$$/(B + $B$D$+$NF|K\$N8!:w%(%s%8%s$G$O!"$=$l$K2?$+(B ($BNc$($P(B `euc-japan') $B$r;X(B + $BDj$9$kI,MW$,$"$k$+$b$7$l$^$;$s!#(B + + 3. $B:#$d$3$N8!:w%(%s%8%s$O!"(Bemacs-w3m $B$GDL>o$N(B `S' $B%-!<(B (`Info-like' + $B%-!<%^%C%W$N>l9g$O(B `s' $B%-!<(B) $B$G;H$&$3$H$,$G$-$^$9!#$3$N%(%s%8%s$r(B + $BIQHK$K;H$&$N$J$i$P!"C;$$%(%s%8%s$NL>A0$r%/%$%C%/%5!<%A%(%s%8%s(B + (*Note Quick Searching:: $B$r;2>H(B) $B$K2C$($k$3$H$b$G$-$^$9!#$=$l$K$O!"(B + $B0J2<$N%3!<%I$r(B `~/.emacs-w3m' $B%U%!%$%k$KDI2C$7$F$/$@$5$$(B: + + (eval-after-load "w3m-search" + '(progn + (add-to-list 'w3m-search-engine-alist + '("My engine" + "http://my.searchengine.com/?query=%s" + nil)) + (add-to-list 'w3m-uri-replace-alist + '("\\`my:" w3m-search-uri-replace "My engine")))) + + $B$3$l$K$h$j!"(B`my:foobar' $B$N$h$&$J(B URL $B$r;H$C$F!"$"$J$?$N8!:w%(%s%8(B + $B%s$G(B "foobar" $B$H$$$&8l$r8!:w$9$k$3$H$,$G$-$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Grouping URLs, Next: Weather Information, Prev: Using Search Engines, Up: Pretty Good Features + +$AR;$D$N(B URL $A$G$(Gno$AJ}$N%&%'%V%Z$B!<$A%8$r$(GKD$A$k(B +===================================== + +Emacs-w3m $B$O(B "group URLs" $B$H$$$&!"J#?t$N<B:]$N(B URL $B$r0l$D$K$^$H$a$?FCJL(B +$B$J(B URL $B$r07$&$3$H$,$G$-$^$9!#$=$N$h$&$J%0%k!<%W(B URL $B$r3+$/$H!"(B +emacs-w3m $B$O0lEY$KJ#?t$N%Z!<%8$r3+$/$?$a$K!"$=$N%0%k!<%W$K4^$^$l$k$=$l(B +$B$>$l$N(B URL $B$KBP$7$F0l$D$N%P%C%U%!$r3+$-$^$9!#(B + +$B%0%k!<%W(B URL $B$r:n$k$K$O!"3+$-$?$$$9$Y$F$N%Z!<%8$N%"%I%l%9$rC1$K%"%s%Q%5(B +$B%s%I5-9f(B ("&") $B$G0l=o$K$7$F(B ($B$9$J$o$A7k9g$7$F(B)$B!"%0%k!<%W(B URL $B$rI=$9@\F,(B +$B<-$N(B "group:" $B$rIU$1$l$PNI$$$N$G$9!#Nc$r5s$2$k$H!"(BGNU $B%W%m%8%'%/%H$N%[!<(B +$B%`%Z!<%8(B `http://www.gnu.org/' $B$H(B Savannah $B%[!<%`%Z!<%8(B +`http://savannah.nongnu.org/' $B$r8+$?$$$b$N$H$9$l$P!"%0%k!<%W(B URL $B$O<!$N(B +$B$h$&$J$b$N$K$J$k$G$7$g$&!#(B + +`group:http://www.gnu.org/&http://savannah.nongnu.org/' + +$B$3$N9=J8$rF|>oE*$K;H$&$N$O$+$J$j?I$$$b$N$,$"$j$^$9$,!"Hs>o$KC;$$(B URL +($BNc$($P%/%$%C%/%5!<%A(B URL$B!"(B*Note Quick Searching:: $B$r;2>H(B) $B$dHsBPOC7?$G(B +$B;H$&>u67$G$O!"$3$N5!G=$O$*$*$$$KLrN)$D$G$7$g$&!#(B + + + +File: emacs-w3m-ja.info, Node: Weather Information, Next: Using Antenna, Prev: Grouping URLs, Up: Pretty Good Features + +$ACwHU$NLl$B5$$A$OGg$l$G$7$g$&(B +======================== + + + + +File: emacs-w3m-ja.info, Node: Using Antenna, Next: Showing Directory Tree, Prev: Weather Information, Up: Pretty Good Features + +$A%"%s%F%J$r$(GZ/$A$jQ2$i$=$&(B +====================== + +$B%"%s%F%J$O%&%'%V%Z!<%8$NJQ2=$rDI@W$9$k$?$a$NF;6q$G$9!#%"%s%F%J$r;H$&$H!"(B +$BFCDj$N%Z!<%8$,!"0JA0$K8+$?$H$-$+$i99?7$5$l$?$+$5$l$J$+$C$?$+$r!"<~4|E*(B +$B$K%A%'%C%/$9$k$3$H$,$G$-$^$9!#(B + +$B$$$:$l$+$N(B emacs-w3m $B%P%C%U%!$G(B `A' $B$r;H$&$3$H$K$h$C$F!"%"%s%F%J$r;O$a(B +$B$k$3$H$,$G$-$^$9!#$"$k$$$O!"FCJL$N(B URL `about://antenna/' $B$K9T$/$3$H$K(B +$B$h$C$F$bF1$8$3$H$,$G$-$^$9!#(B + +* Menu: + +* Setting up Antenna:: $B%&%'%V%5%$%H$r%"%s%F%J$K2C$($k$K$O(B? +* Daily web tracking:: $B%"%s%F%J$GJQ2=$rDI@W$9$k(B + + + +File: emacs-w3m-ja.info, Node: Setting up Antenna, Next: Daily web tracking, Prev: Using Antenna, Up: Using Antenna + +$A%&%'%V%5%$%H$r%"%s%F%J$K<S$($k$K$O(B? +----------------------------------- + +$B8=$KI=<(Cf$N%&%'%V%Z!<%8$r%"%s%F%J$K2C$($k$K$O!"C1=c$K(B `+' $B%-!<$r2!$7$F(B +$B$/$@$5$$!#$9$Y$F$N%U%#!<%k%I$,$9$G$K=q$-$3$^$l$F$$$k(B +`w3m-antenna-sites' $B$r%+%9%?%^%$%:$9$k$?$a$N%P%C%U%!$,8=$l$k$G$7$g$&!#(B +$B$"$J$?$OC1$K(B "Save for future sessions" $B$H(B "Finish" $B$N%\%?%s$r2!$;$PNI(B +$B$$$N$G$9!#(B + +`+' + URL $B$r%"%s%F%J!&%G!<%?%Y!<%9$K2C$($^$9!#@\F,0z?tIU$-$G8F$P$l$?>l9g(B + $B$O!"8=:_$N%Z!<%8$rDI2C$9$k$N$G$O$J$/$F!"2C$($k(B URL $B$r?R$M$^$9(B + (`w3m-antenna-add-current-url')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Daily web tracking, Prev: Setting up Antenna, Up: Using Antenna + +$A%"%s%F%J$G$(I+y$A;/$rW7$(Gfx$A$9$k(B +------------------------ + +$B%"%s%F%J!&%Z!<%8$K$OFs$D$N9`L\$,8=$l$^$9!#0l$D$O(B "Updated" $B$H8F$P$l!"$b(B +$B$&0l$D$O(B "Visited" $B$H8F$P$l$^$9!#(B"Updated" $B$N9`L\$G$O:G8e$K%"%s%F%J$r99(B +$B?7$7$?8e$GJQ2=$7$?%&%'%V%5%$%H$,!"$=$7$F(B "Visited" $B$N9`L\$G$OJQ2=$7$J$+$C(B +$B$?%&%'%V%5%$%H$,8+$D$+$j$^$9!#$=$l$>$l$N9`L\$G!"3F9T$O%"%s%F%J!&%G!<%?(B +$B%Y!<%9$N0l$D$N%&%'%V%5%$%H$rI=$7!"0J2<$N9=B$$K$J$C$F$$$^$9(B: + +` * 2002/12/15 16:43 (T) My website' + +$B:G=i$NItJ,$O!"%"%s%F%J$,:G8e$K$=$N%Z!<%8$NJQ2=$rJs9p$7$?!"$=$N%&%'%V%5(B +$B%$%H$,99?7$5$l$?:G=*;~9o$G$9!#$^$?$O$=$N>pJs$,F@$i$l$J$$$3$H$b$"$j$^$9!#(B + +`(T)' $B$O(B "Time" $B$rI=$7!":G8e$K%"%s%F%J$r99?7$7$?8e$G!"$=$N%Z!<%8$NJQ99(B +$B;~9o$,JQ2=$7$?$N$G!"JQ2=$,8!=P$5$l$?$3$H$r0UL#$7$^$9!#$b$&0l$D$N2DG=@-(B +$B$,$"$kCM$O(B `S' ("Size" $B$N$3$H(B) $B$G!"$=$N%Z!<%8$N%5%$%:$,JQ2=$7$?$N$G!"JQ(B +$B2=$,8!=P$5$l$?$3$H$r0UL#$7$^$9!#(B + +$B9T$N:G8e$NItJ,$O!"%G!<%?%Y!<%9$KDI2C$7$?$H$-$KM?$($?!"$3$N%&%'%V%5%$%H(B +$B$N%?%$%H%k$G$9!#(B + +$B$I$&$+!"%"%s%F%J!&%G!<%?%Y!<%9$O<+F0E*$K99?7$5$l$J$$$3$H$KCm0U$7$F$/$@$5(B +$B$$!#%"%s%F%J!&%Z!<%8$G(B `R' $B$rC!$/$+!"$^$?$O@\F,0z?t$r%3%^%s%I$KEO(B +$B$9(B ($BNc$($P(B `C-u A' $B$G%"%s%F%J$r;O$a$k(B) $B$3$H$K$h$C$F!"%5%$%H$,JQ(B +$B2=$7$?$+$I$&$+$r%A%'%C%/$7$?$$Kh$K!"$=$l$r99?7$7$J$1$l$P$J$j$^$;$s!#(B + +$B$b$7!"<+F0$G99?7$5$;$?$$$J$i!"JQ?t(B `w3m-antenna-refresh-interval' $B$K99(B +$B?74V3V$rIC$G@_Dj$7$F$/$@$5$$!#(B + +`A' + $B%"%s%F%J$N%Z!<%8$K9T$-$^$9!#@\F,0z?tIU$-$G8F$P$l$?>l9g$O!"I=<($9$k(B + $BA0$K%"%s%F%J!&%G!<%?%Y!<%9$r99?7$7$^$9(B (`w3m-antenna')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Showing Directory Tree, Next: Viewing Perl Documents, Prev: Using Antenna, Up: Pretty Good Features + +$A%G%#%l%/%H%j$ND>$(Gi,$ATl$r1mJ>$9$k(B +============================== + +`w3m-dtree' $B%3%^%s%I$r;H$&$H!"%m!<%+%k%G%#%l%/%H%j$N$9$Y$F$N%5%V%G%#%l(B +$B%/%H%j$NLZ9=B$$rI=<($7$F!"IaDL$N%&%'%V%Z!<%8$N$h$&$K1\Mw$9$k$3$H$,$G$-(B +$B$^$9!#$3$N5!G=$r;H$C$?$H$-$K8=$l$k(B emacs-w3m $B$N%P%C%U%!$O!"$=$NL>A0$f$((B +$B$K30It$N(B "tree" $B%W%m%0%i%`$N=PNO$KHs>o$KN`;w$7$?$b$N$K$J$j$^$9!#$5$i$K(B +emacs-w3m $B$+$i$N%\!<%J%9(B: $B$3$N%3%^%s%I$r@\F,0z?tIU$-$G8F$V$H%U%!%$%k$b(B +$BI=<($7!"(Bemacs-w3m $B$O40A4AuHw$N%U%!%$%k1\Mw4o$KJQ?H$7$^$9!#(B + +Emacs-w3m dtree $B$,$I$s$J$U$&$KF0:n$9$k$+$NNc$G$9(B: + + /home/romain/.elisp/emacs-w3m/ + |-CVS/ + |-attic/ + | +-CVS/ + |-autom4te.cache/ + |-doc/ + | |-CVS/ + | +-emacs-w3m/ + |-icons/ + | +-CVS/ + |-patches/ + | +-CVS/ + +-shimbun/ + +-CVS/ + +$B@\F,0z?t$rIU$1$k$H!"Be$o$j$K$3$s$J$U$&$K$J$j$^$9(B: + + /home/romain/.elisp/emacs-w3m/ (allfiles) + |-(f).cvsignore + |-(f)BUGS.ja + |-(f)COPYING + |-[d]CVS/ + | |-(f)Entries + | |-(f)Repository + | +-(f)Root + |-(f)ChangeLog + |-(f)ChangeLog.1 + |-(f)Makefile + |-(f)Makefile.in + |-(f)README + |-(f)README.ja + +`D' (Lynx-like $A%-$B!<$A%^%C%W(B) +`T' (Info-like $A%-$B!<$A%^%C%W(B) + $B%_%K%P%C%U%!$G%m!<%+%k%G%#%l%/%H%j$NF~NO$r5a$a!"$=$NLZ9=B$$rI=<($7$^$9!#(B + $B@\F,0z?tIU$-$G8F$P$l$k$H(B ($BNc(B: `C-u D'$B!"$?$@(B + $B$7(B `Info-like' $B%-!<%^%C%W$N>l9g$O(B `C-u T')$B!"$=$N%G%#%l%/%H(B + $B%j$K$"$k%U%!%$%k$bI=<($7$^$9(B (`w3m-dtree')$B!#(B + + + +File: emacs-w3m-ja.info, Node: Viewing Perl Documents, Next: Using Namazu, Prev: Showing Directory Tree, Up: Pretty Good Features + +Perl $A$N%I%-%e%a%s%H$r$(GKD$A$k(B +========================= + + + + +File: emacs-w3m-ja.info, Node: Using Namazu, Next: Octet, Prev: Viewing Perl Documents, Up: Pretty Good Features + +Namazu $A$G%U%!%$%k$r$(I<D$AKw$9$k(B +=========================== + +emacs-w3m $B$O!"A4J88!:w%=%U%H(B Namazu $B$r;H$C$F%U%!%$%k$r8!:w$9$k$3$H$b$G(B +$B$-$^$9(B (`w3m-namazu')$B!#$3$N5!G=$r;H$&$?$a$K$O!"(BNamazu $B$r0J2<$N>l=j$+$i(B +$B<hF@$7$F!"%$%s%9%H!<%k$7$F$*$/I,MW$,$"$j$^$9(B: + +`http://namazu.org/' + +Namazu $B$r;H$&$?$a$K$O!"<B:]$K8!:w$r9T$&A0$K!"8!:wBP>]$H$J$k%U%!%$%k$K4^(B +$B$^$l$F$$$kC18l$N:w0z(B ($B%$%s%G%C%/%9(B) $B$r:n@.$7$F$*$/I,MW$,$"$j$^$9!#$b$C(B +$B$H$bE57?E*$J%3%^%s%I$O0J2<$NDL$j$G$9!#(B + + % mknmz -O <$B%$%s%G%C%/%9$rCV$/%G%#%l%/%H%j(B> <$B%I%-%e%a%s%H$N$"$k%G%#%l%/%H%j(B> + +`w3m-namazu' $B$rF0$+$9A0$K!"$$$/$D$+$NJQ?t$r@_Dj$7$F$*$/I,MW$,$"$j$^$9!#(B +$B0J2<$NJQ?t$r!";H$C$F$$$k4D6-$K$"$o$;$F@_Dj$7$F$/$@$5$$!#(B + +`w3m-namazu-index-alist' + $B%$%s%G%C%/%9$NJ]B8$5$l$F$$$k%G%#%l%/%H%j$NO"A[G[Ns$r@_Dj$7$^$9!#(B + `w3m-namazu' $B$G$O!"%$%s%G%C%/%9$NJ]B8$5$l$F$$$k%G%#%l%/%H%j$KBP$7(B + $B$F!"%G%#%l%/%H%jL>$h$j$bJ,$+$j$d$9$$JLL>$rDj5A$9$k$3$H$,$G$-$^$9!#(B + $B$^$?!"4v$D$+$NJL!9$N%$%s%G%C%/%9$r!"$"$?$+$bC10l$N%$%s%G%C%/%9$G$"(B + $B$k$+$N$h$&$K07$&$3$H$b$G$-$^$9!#$=$N$?$a$K$O!"<!$N$h$&$KJLL>$r%-!<(B + $B$H$7!"%$%s%G%C%/%9$NJ]B8$5$l$F$$$k%G%#%l%/%H%j(B ($B$N%j%9%H(B) $B$rCM$H$9(B + $B$kO"A[G[Ns$r(B `w3m-namazu-index-alist' $B$K@_Dj$7$^$9!#(B + + (setq w3m-namazu-index-alist + '(("alias1" "Path/to/the/index/directory1") + ("alias2" "Path/to/the/index/dir2" + "Path/to/the/index/dir3"))) + +`w3m-namazu-default-index' + $B8!:wBP>]$H$9$k%$%s%G%C%/%9$r;XDj$7$^$9!#<B:]$K%$%s%G%C%/%9$,J]B8$5$l$F$$(B + $B$k%G%#%l%/%H%j$d!"(B`w3m-namazu-index-alist' $B$r@_Dj$9$k$H$-$K;H$C$?JL(B + $BL>$,;H$($^$9!#CM$,(B `nil' $B$N>l9g$O!"(B + `M-x w3m-namazu <RET>' $B$H<B9T$9$k$?$S$K!"8!:wBP>]$H$9$k%$%s(B + $B%G%C%/%9$rLd$$9g$o$;$^$9!#(B + +$B$3$l$G=`Hw$,@0$$$^$7$?$+$i!"(B +`M-x w3m-namazu <RET> query <RET>' $B$H$9$k$H!"J8;zNs(B query $B$r(B +$B8!:w$9$k$3$H$,$G$-$^$9!#%G%U%)%k%H0J30$N%$%s%G%C%/%9$rBP>]$H$7$F8!:w$r9T(B +$B$&>l9g$O!"(B`C-u M-x w3m-namazu' $B$H$$$&$h$&$KA0CV0z?t$r;XDj$7$F<B(B +$B9T$7$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Octet, Next: Frame Local Buffers, Prev: Using Namazu, Up: Pretty Good Features + +application/octet-stream $A%G$B!<$A%?$r$(GKD$A$k(B +===================================== + +($B:n@.Cf(B) + +$B0J2<$N@_Dj$r(B `~/.emacs' $B$K=q$$$F$*$/$H!"(B`octet-find-file' $B$G%U%!%$%k$r(B +$B3+$$$?$H$-$KJXMx$+$bCN$l$^$;$s!#(B + + (add-hook 'octet-find-file-hook 'view-mode) + (add-hook 'octet-find-file-hook 'w3m-minor-mode) + + + +File: emacs-w3m-ja.info, Node: Frame Local Buffers, Next: Session Manager, Prev: Octet, Up: Pretty Good Features + +$A6`J}$N%;%C%7%g%s$r%U%l$B!<$A%`$G%0%k$B!<$A%W7V$1$9$k(B +============================================ + +$BB??t$N(B emacs-w3m $B$N%;%C%7%g%s$r%0%k!<%WKh$KJL!9$N%U%l!<%`$KJ,3d$9$k$3$H(B +$B$,$G$-$^$9!#Nc$($PFs$D$N(B emacs-w3m $B$N%U%l!<%`$rMQ0U$7$F!"0l$D$O8!:w%(%s(B +$B%8%s72$r07$$!"$b$&0lJ}$G$O%K%e!<%9%5%$%H72$r07$&$h$&$J;H$$J}$G$9!#(B + +Emacs-w3m $B$O$?$/$5$s$N%Z!<%8$rF1;~$K8+$k$?$a$N$$$/$D$+$N5!G=$rDs6!$7$^(B +$B$9!#Nc$($P!"$?$/$5$s$N%Z!<%8$r$=$l$>$l?7$7$$%;%C%7%g%s$H$7$FN)$A>e$2$k(B +$B$?$a$K%?%V$r;H$C$?$j(B (*Note Using Tabs::)$B!"$^$?$O(B `group:' $B$G;O$^$kFCJL(B +$B$J(B URL (*Note Grouping URLs::) $B$r;H$&$3$H$,$G$-$^$9!#$7$+$7!"$"$^$j$K$?(B +$B$/$5$s$N%Z!<%8$,$"$k>l9g$O!"$=$l$i$rJL!9$N%U%l!<%`$G%0%k!<%WJ,$1$r$7$?(B +$B$$$H;W$&$+$b$7$l$^$;$s!#$=$&$G$"$l$P!"(B`w3m-fb-mode' $B%3%^%s%I$O$"$J$?$N(B +$B$?$a$N$b$N$G$9!#$?$@$7$=$l$r;H$&$?$a$K$O(B `w3m-use-tab' $BJQ?t$rHs(B-`nil' +($B%G%U%)%k%H$G(B `t') $B$K!"(B`w3m-pop-up-frames' $BJQ?t$r(B `nil' ($B$=$l$,%G%U%)%k(B +$B%H(B) $B$K@_Dj$7$F$*$+$J$1$l$P$J$j$^$;$s(B (*Note General Variables::)$B!#(B + +`M-x w3m-fb-mode' $B$r%?%$%W$9$k$H%b!<%I$,%H%0%k$K@Z$jBX$o$j$^$9$,!"(B +$B@\F,0z?t$H$7$F$=$N%3%^%s%I$K@5$N@0?t$rM?$($k$3$H$K$h$C$F!"%b!<%I$r(B on $B$K(B +$B$9$k$3$H$,$G$-$^$9(B ($B%<%m0J2<$G$O(B off $B$K$J$j$^$9(B)$B!#(B + +`w3m-fb-mode' $B$,(B on $B$K$J$C$F$$$k$H!"8=:_$N%U%l!<%`$G3+;O$7$?%;%C%7%g%s(B +$B$O$=$N%U%l!<%`$@$1$K4XO"IU$1$i$l$^$9!#$=$7$FB>$N%U%l!<%`$G3+$$$?B>$N%;%C(B +$B%7%g%s$O!"F1MM$K$=$l$i$N%U%l!<%`$@$1$K8=$l$^$9!#8@$$49$($k$H!"$"$k%U%l!<(B +$B%`$K4XO"IU$1$i$l$?%;%C%7%g%s$OB>$N%U%l!<%`$K$O8=$l$^$;$s!#(B +`w3m-fb-mode' $B$O?7$7$$%U%l!<%`$r:n$i$J$$$N$G!"$=$l$i$O2?$i$+$NJ}K!$G$"(B +$B$J$?<+?H$,:n$kI,MW$,$"$j$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Session Manager, Prev: Frame Local Buffers, Up: Pretty Good Features + +$A%;%C%7%g%s$N1#4f$H$BFI$A$_$3$_(B +========================== + +emacs-w3m $B$G$O%;%C%7%g%sAH$rJ]B8$7$?$jFI$_$3$s$@$j$9$k$3$H$,$G$-$^$9!#(B + +$B>-Mh;H$&$?$a$K!":#3+$$$F$$$k%;%C%7%g%sAH$rJ]B8$G$-$^$9!#(B`M-S' $B$r2!$7$F!"(B +$B$=$N%;%C%7%g%s>pJs$KL>A0$r$D$1$F$/$@$5$$!#(B + +$B$=$&$9$k$H<!$O!"J]B8$7$?%;%C%7%g%sAH$rI|5"$7$?$/$J$k$H;W$$$^$9!#(B`M-s' +$B$r2!$9$H%;%C%7%g%sA*Br%a%K%e!<$,3+$-$^$9!#$3$N%a%K%e!<$N%-!<%P%$%s%I$O(B +$B0J2<$N$h$&$K$J$C$F$$$^$9!#(B + +`<RET>' + $BA*Br$5$l$F$$$k%;%C%7%g%sAH$K4^$^$l$k$9$Y$F$N%;%C%7%g%s$r3+$-$^$9!#(B + +`M-s' + $BA*Br$5$l$F$$$k%;%C%7%g%sAH$N>\:Y$J%a%K%e!<$r3+$-$^$9!#$3$l$r;H$C$F(B + $B%;%C%7%g%sAH$NCf$N%;%C%7%g%s$r0l$D$:$D3+$/$3$H$,$G$-$^$9!#(B + +`d' + $BA*Br$5$l$F$$$k%;%C%7%g%sAH!"$^$?$O%;%C%7%g%s$r:o=|$7$^$9!#(B + +`r' + $BA*Br$5$l$F$$$k%;%C%7%g%sAH$NL>A0$rJQ99$7$^$9!#(B + +`s' + $B8=:_3+$$$F$$$k$9$Y$F$N%;%C%7%g%s$rJ]B8$7$^$9!#(B`M-S' $B$HF1$8$G$9!#(B + +`n' + $B%+!<%=%k$r<!$N%;%C%7%g%sAH$KF0$+$7$^$9!#(B + +`p' + $B%+!<%=%k$rA0$N%;%C%7%g%sAH$KF0$+$7$^$9!#(B + +`q' + $B%;%C%7%g%sA*Br%a%K%e!<$r=*N;$7$^$9!#(B + +emacs-w3m $B$O%;%C%7%g%sAH$r<+F0E*$KJ]B8$9$k$3$H$,$G$-$^$9!#(B +`w3m-session-deleted-save' $B$,(B non-`nil' $B$N;~!"(Bemacs-w3m $B$OJD$8$i$l$?%;%C(B +$B%7%g%s$r<+F0E*$KJ]B8$7$^$9!#$3$l$O!"$&$C$+$j%;%C%7%g%s$rJD$8$F$7$^$C$?(B +$B;~$J$I$KJXMx$G$7$g$&!#(B`w3m-session-automatic-save' $B$,(B non-`nil' $B$J$i$P!"(B +emacs-w3m $B=*N;;~$K3+$$$F$$$?$9$Y$F$N%;%C%7%g%s$r<+F0E*$KJ]B8$7$^$9!#(B + +$B<+F0E*$KJ]B8$5$l$F$$$k%;%C%7%g%sAH$N$3$H$rK:$l$F$7$^$C$F!"$J$K$+$*$b$7(B +$B$m$$%Z!<%8$N(B URL $B$rK:$l$F$7$^$&$H$$$&$3$H$,;~!9$"$j$^$9!#(Bemacs-w3m $B$O$3(B +$B$&$$$&$3$H$rKI;_$9$k$3$H$,$G$-$^$9!#(B`w3m-session-load-last-sessions' $B$,(B +`auto' $B$G$"$l$P!"(Bemacs-w3m $B$O<+F0E*$KA02s3+$$$F$$$?%;%C%7%g%s$?$A$rI|5"(B +$B$7$^$9!#(B`w3m-session-load-last-sessions' $B$,(B `ask' $B$G$"$l$P!"(Bemacs-w3m +$B$O$=$l$rI|5"$9$k$+$I$&$+$r$?$:$M$^$9!#(B($B%G%U%)%k%H$O(B `nil' $B$K$J$C$F$$$^(B +$B$9!#(B) + +$B%/%i%C%7%e$G6l$$7P83$r$7$?$3$H$,$"$k$H;W$$$^$9!#(B $B%/%i%C%7%e$K$"$&$H$,$C(B +$B$+$j$7$^$9$7!"8+$F$$$?%Z!<%8$,$I$3$+$bK:$l$F$7$^$$$^$9!#(B emacs-w3m $B$O$3(B +$B$s$J>u67$G$b=u$1$F$/$l$^$9!#(B `w3m-session-crash-recovery' $B$,(Bnon-`nil' +$B$J$i$P!"(B emacs-w3m $B$OI=<($7$F$$$k%;%C%7%g%sAH$r%/%i%C%7%eI|85MQ$K<+F0E*(B +$B$KJ]B8$7!"%/%i%C%7%e$,5/$3$C$?;~$KJ]B8$7$F$$$?%;%C%7%g%sAH$rI|85$7$^$9!#(B +($B%G%U%)%k%H$O(B `t' $B$K$J$C$F$$$^$9!#(B) +`w3m-session-load-crashed-sessions' $B$,(Bnon-`nil' $B$G$"$l$P!"(Bemacs-w3m $B$O(B +$B$3$NI|85$r<+F0E*$K9T$J$$$^$9!#(B`w3m-session-load-crashed-sessions' $B$,(B +`ask' $B$G$"$l$P!"(Bemacs-w3m $B$OI|85$9$k$+$I$&$+$r$?$:$M$^$9!#(B ($B%G%U%)%k%H(B +$B$O(B `ask' $B$K$J$C$F$$$^$9!#(B) + + + +File: emacs-w3m-ja.info, Node: Customizable Variables, Next: Hooking into MUAs, Prev: Pretty Good Features, Up: Top + +$A%G%U%)%k%H$N$^$^$G$b$(Ga8i,$AA<$$$HK<$&$1$l$I(B +**************************************** + +$B$?$/$5$s$N(B emacs-w3m $B$NJQ?t$,!"(BCustom $B$N;E3]$1$K$h$C$F%+%9%?%^%$%:$9$k$3(B +$B$H$,$G$-$^$9!#(BCustom $B$OJQ?t$rDj5A$9$k$?$a$N!"(BEmacs $B$N%0%i%U%#%C%/!&%$%s(B +$B%?!<%U%'!<%9$G$9!#(BCustom $B$K$O$$$/$D$+$N%+%9%?%^%$%:$N$?$a$N<jCJ$,$"$j!"(B +$BNc$($PC10l$N%*%W%7%g%s(B ($B$9$J$o$A!"(BEmacs Lisp $BJQ?t(B) $B$N$?$a(B +$B$N(B `M-x customize-option'$B!"$^$?$O$"$k(B "group" ($B$3$N>l9g$N%0%k!<(B +$B%W$O(B `w3m') $B$KB0$9$k$9$Y$F$N%*%W%7%g%s(B ($BJQ?t$H%U%'!<%9(B) $B$r8+$F!"$+(B +$B$DJQ99$9$k$?$a$N(B `M-x customize-group' $B$,;H$($^$9!#(B + +$B$"$k$$$O(B ($B$b$7(B Custom $B$r;H$$$?$/$J$$$N$G$"$l$P(B)$B!"G$0U$N(B Emacs Lisp $B<0$r(B +emacs-w3m $B=i4|@_Dj%U%!%$%k$K=q$-9~$`$3$H$,$G$-$^$9!#%G%U%)%k%H$N%U%!%$(B +$B%k$O(B `~/.emacs-w3m' $B$G$9!#Nc$($P!"(B + + (setq w3m-home-page "http://emacs-w3m.namazu.org/") + +$B$3$l$O%G%U%)%k%H$N%[!<%`%Z!<%8$r(B `http://emacs-w3m.namazu.org/' $B$K@_Dj(B +$B$7$^$9!#%7%s%?%C%/%9$O(B `.emacs' $B%U%!%$%k$HF1$8$G$9(B (*Note Init File: +(emacs)Init File.)$B!#(B + +$B5$$rIU$1$J$1$l$P$$$1$J$$$N$O!"30It%b%8%e!<%k$GDj5A$5$l$F$$$k$$$/$D$+$N(B +$BJQ?t$,(B `~/.emacs-w3m' $B%U%!%$%k$,FI$_9~$^$l$k$H$-$K$OL$Dj5A$G!"$=$l$i$r(B +$BJQ99$G$-$J$$$+$b$7$l$J$$$3$H$G$9(B ($B$b$A$m$s!"%G%U%)%k%H$NCM$r5$$K$7$J$$(B +$B$N$G$"$l$P!"(B`~/.emacs-w3m' $B%U%!%$%k$G40`z$K>e=q$-$7$F$7$^$&$3$H$O2DG=$J(B +$B$N$G$9$1$l$I$M(B)$B!#JQ?t(B `w3m-search-engine-alist' $B$OE57?E*$JNc$G$9(B +(*Note Search Variables::)$B!#(B + +`w3m-init-file' + Emacs-w3m $B$,5/F0$9$k$H!"(B`w3m-init-file' $B%U%!%$%k$rFI$_9~$_$^$9!#%G(B + $B%U%)%k%HCM$O(B `~/.emacs-w3m' $B$G$9!#$?$V$s!"$"$J$?$O$3$l$rJQ99$9$kI,(B + $BMW$OL5$$$G$7$g$&!#$3$l$OIaDL$N(B Emacs Lisp $B%U%!%$%k$G!"(B`~/.emacs' + $B$d(B `site-init' $B%U%!%$%k$r(B emacs-w3m $B4X78$N$b$N$GMp;($K$7$J$$$h$&$K(B + $B$9$k$?$a$K;H$&$3$H$,$G$-$^$9!#(BEmacs-w3m $B$O$3$l$HF1$8L>A0$K!"3HD%;R(B + `.elc' $B$H(B `.el' $B$,IU$$$F$$$k$b$N$b(B ($B8@$$49$($l$P!"(B + `~/.emacs-w3m.elc'$B!"(B`~/.emacs-w3m.el' $B$*$h$S(B `~/.emacs-w3m' $B$N=g$K(B) + $BD4$Y$^$9!#(B + +* Menu: + +* General Variables:: $B0lHLE*$JJQ?t(B +* Image Variables:: $B2hA|$K4XO"$7$?JQ?t(B +* Form Variables:: $B%U%)!<%`$K4XO"$7$?JQ?t(B +* Cookie Variables:: $B%/%C%-!<$K4XO"$7$?JQ?t(B +* Bookmark Variables:: $B%V%C%/%^!<%/$K4XO"$7$?JQ?t(B +* Search Variables:: $B%&%'%V8!:w$K4XO"$7$?JQ?t(B +* Weather Variables:: $BE75$M=Js$K4XO"$7$?JQ?t(B +* Dtree Variables:: dtree $B$K4XO"$7$?JQ?t(B +* Antenna Variables:: $B%"%s%F%J$K4XO"$7$?JQ?t(B +* Perldoc Variables:: Perldoc $B$K4XO"$7$?JQ?t(B +* Namazu Variables:: Namazu $B$K4XO"$7$?JQ?t(B +* Octet Variables:: Octet $B$K4XO"$7$?JQ?t(B +* Session Manager Variables:: $B%;%C%7%g%s%^%M!<%8%c$K4XO"$7$?JQ?t(B +* Hooks:: $B%U%C%/(B +* Other Variables:: $B$=$NB>$NJQ?t(B + + + +File: emacs-w3m-ja.info, Node: General Variables, Next: Image Variables, Prev: Customizable Variables, Up: Customizable Variables + +$AR;0c5D$J$(I+y$AJ}(B +============ + +`w3m-accept-languages' + $B<u$1F~$l2DG=$J8@8l$rM%@hEY$K$h$j9_=g$KJB$Y$?$b%j%9%H!#%G%U%)%k%HCM(B + $B$O(B `w3m' $B$N@_Dj%U%!%$%k(B ($BDL>o$O(B `~/.w3m/config') $B$N(B + `accept_language' $B$N%(%s%H%j$K$h$C$F@_Dj$5$l$k!#(B + +`w3m-add-referer' + + $B%j%U%!%i$NAw$j$+$?!#(B5$B$D$NA*Br;R$,$"$k!#(B + + 1. `nil': $B7h$7$F%j%U%!%i$rAw$i$J$$!#(B + + 2. `t': $B>o$K%j%U%!%i$rAw$k!#(B + + 3. `lambda': $B0\F085$N%Z!<%8$H0\F0@h$N%Z!<%8$NN>J}$,F1$8%5!<%P$K(B + $B$h$jDs6!$5$l$F$$$k;~$N$_%j%U%!%i$rAw$k!#(B + + 4. $BFs$D$N@55,I=8=$N%3%s%9!&%;%k(B: $B0\F085$N%Z!<%8$N(B URL $B$,(B 1$B$D$a$N@55,I=8=$K(B + $B%^%C%A$7!"$+$D!"(B2$B$D$a$N@55,I=8=$K%^%C%A$7$J$$>l9g$N$_%j%U%!%i$rAw$k!#(B + `nil' $B$,;XDj$5$l$k$H$9$Y$F$N(B URL $B$K%^%C%A$9$k!#(B + + 5. $B4X?t(B: URL $B$H%j%U%!%i$N(B 2$B$D$r0z?t$K$H$k4X?t$,(B non-`nil' $B$rJV$;(B + $B$P%j%U%!%i$rAw$k!#(B + + $B%V%i%&%8%s%0MzNr$,1L$l$k$N$r?4G[$9$k$N$J$i!"(B`nil' $B$+(B `lambda' $B$K@_(B + $BDj$7$F$/$@$5$$!#$"$J$?$N%3%s%T%e!<%?$,HkL)$N%M%C%H%o!<%/$KB0$7$F$$(B + $B$k$N$J$i!"0J2<$N$h$&$K(B 2$B$D$N@55,I=8=$r@_Dj$7$F!"8D?M>pJs$,1L$l$k$N(B + $B$rKI$0$H$$$$$G$7$g$&(B: + + (setq w3m-add-referer + '("\\`http:\" + . "\\`http://\\([^./]+\\.\\)*example\\.net/")) + +`w3m-add-user-agent' + non-`nil' $B$J$i$P!"%j%/%(%9%H%X%C%@$K(B User-Agent $B$r4^$a$^$9!#(B + `w3m-user-agent' $B$NCM$,(B User-Agent $B$H$7$F;H$o$l$^$9!#(B + +`w3m-arrived-file' + $B1\Mw$7$?(B URL $B$N%G!<%?%Y!<%9$rJ]B8$9$k%U%!%$%kL>!#(B + +`w3m-auto-show' + non-`nil' $B$J$i$P%&%#%s%I%&$N?eJ?%9%/%m!<%k$rM-8z$K$9$k!#(Bpoint $B$,%&%#(B + $B%s%I%&$NN>C<$N30$K=P$?>l9g$K<+F0E*$K?eJ?%9%/%m!<%k$9$k$,!"(B + `truncate-lines' $B$,(B `nil' $B$J$i$P2?$b5/$3$i$J$$!#(B + + $B$3$N5!G=$OFCDj$N(B emacs-w3m $B$N%3!<%I$N$_$G;H$o$l$k!#$9$J$o$A!"DL>o(B + `auto-hscroll-mode'$B!"(B`automatic-hscrolling'$B!"(B`auto-show-mode' $B$*$h(B + $B$S(B `hscroll-mode' $B$O$9$Y$F(B emacs-w3m $B$N%P%C%U%!$G$OL58z$K$J$k$@$m(B + $B$&!#(B + +`w3m-charset-coding-system-alist' + MIME charset $B$H%3!<%G%#%s%0%7%9%F%`$NO"A[G[Ns!#(Bcharset $B$H%3!<%G%#(B + $B%s%0%7%9%F%`$NN>J}$,%7%s%\%k$G$J$1$l$P$J$i$J$$!#(B + +`w3m-coding-system' + `w3m' $B%3%^%s%I$HDL?.$9$k$?$a$K;H$&%3!<%G%#%s%0%7%9%F%`$N%G%U%)%k%H(B + $BCM!#(B + +`w3m-coding-system-priority-list' + emacs-w3m $B$G;H$o$l$k%3!<%G%#%s%0%7%9%F%`$rM%@hEY$K$h$jJB$Y$?%j%9%H!#(B + +`w3m-command' + `w3m' $B%3%^%s%I$N<B9T%U%!%$%kL>!#$3$NCM$,(B nil $B$J$i$P:G=i$K(B + emacs-w3m $B$,B8:_$9$k(B `w3m'$B!"(B`w3mmee' $B$^$?$O(B `w3m-m17n' $B$r(B ($B$3$N=g(B + $BHV$K(B) `exec-path' $B%G%#%l%/%H%j$+$iC5:w$7$F$/$l$k$N$G!"DL>o$O$3$NCM(B + $B$r@_Dj$9$kI,MW$O$J$$!#(B + + $BB>$N(B `w3m' $B%3%^%s%I$r;H$$$?$1$l$P!"(B.emacs $B$G$3$NCM$rL@<(E*$K@_Dj$9(B + $B$k$+!"%+%9%?%^%$%:$7$FJ]B8$7$F$/$@$5$$!#$3$N>l9g!"(BEmacs $B$H(B + emacs-w3m $B$r:F5/F0$7$J$1$l$P$$$1$^$;$s!#:#$N$H$3$m!"(B`w3m.elc' $B$rFI(B + $B$_$3$s$@8e$K(B `w3m' $B%3%^%s%I$NJQ99$r0BA4$K$9$Y$F$N(B emacs-w3m $B%W%m%0(B + $B%i%`$K9T$J$&$3$H$O$G$-$J$$$+$i$G$9!#(B + +`w3m-command-arguments' + `w3m' $B%3%^%s%I$N0z?t$N%G%U%)%k%HCM!#(B + `w3m-command-arguments-alist' $B$b;2>H$9$k$H$h$$!#(B + +`w3m-command-arguments-alist' + URL $B$K%^%C%A$9$k@55,I=8=$H(B `w3m' $B$KDI2C$GEO$5$l$k0z?t$H$NO"A[G[Ns!#(B + $B$3$NJQ?t$OFCDj$N%[%9%H$X$N@\B3$K%W%m%-%7$rMQ$$$k$J$I$N$3$H$K;H$o$l(B + $B$^$9!#:G=i$K%^%C%A$7$?MWAG$,E,MQ$5$l$^$9!#0J2<$K$I$N$h$&$K$3$NJQ?t(B + $B$r@_Dj$9$k$+$NNc$r<($7$^$9!#(B + + (setq w3m-command-arguments-alist + '(;; Don't use the proxy server to visit local web pages. + ("^http://\\([^/]*\\.\\)*your-company\\.com\\(/\\|$\\)" + "-no-proxy") + ;; Use the proxy server to visit any foreign urls. + ("" + "-o" "http_proxy=http://proxy.your-company.com:8080/"))) + + $B$3$N(B 1$B$D$a$NMWAG$O!"%9%-!<%`$,(B `http' $B$G$"$j!"%[%9%HL>(B + $B$,(B `your-company.com' $B$G$"$k$+!"(B`.your-company.com' $B$G=*$o$k(B + $B$9$Y$F$N(B URL $B$K%^%C%A$7$^$9!#$3$l$i$N%[%9%H$K@\B3$9$k$N$K%W%m%-%7$OMQ$$$i(B + $B$l$^$;$s!#$"$J$?$,@55,I=8=$N=i?4<T$G$"$k$N$J$i!"(B + `w3m-no-proxy-domains' $B$rBe$o$j$K;H$C$F$/$@$5$$!#(B + +`w3m-command-environment' + $B%5%V%W%m%;%9$,7Q>5$9$k4D6-JQ?t$NO"A[G[Ns!#(B + +`w3m-confirm-leaving-secure-page' + non-`nil' $B$J$i$P!"%;%-%e%"$J%Z!<%8$r5n$k;~$K(B emacs-w3m $B$O3NG'$r5a(B + $B$a$^$9!#$3$NJQ?t$K$O(B non-nil $B$NCM$r(B *$(GZ0$A$/(B* $B$*$9$9$a$7$^$9!#$3$N%*(B + $B%W%7%g%s$r@Z$kA0$K(B *$A1X$:(B* $B$I$&$$$&$3$H$r$7$?$$$N$+$r40A4$KM}2r$7$F(B + $B$/$@$5$$!#%G%U%)%k%H$G$O!"(B`t' $B$K$J$C$F$$$^$9!#(B + +`w3m-content-type-alist' + $B%3%s%F%s%H%?%$%W$H@55,I=8=$HI=<($9$k$?$a$N%3%^%s%I$H%U%#%k%?$H$NO"(B + $BA[G[Ns!#$=$l$>$l$NMWAG$O!"0J2<$N%G!<%?$,9=@.$9$k%j%9%H$G$"$k!#(B + + 1. $B%3%s%F%s%H%?%$%W!#(B + + 2. URL $B$^$?$O%U%!%$%kL>$K%^%C%A$9$k@55,I=8=!#(B + + 3. $B%U%!%$%k$r1\Mw$9$k$?$a$NJ}K!!#0J2<$N;0$D$N<oN`$,;H$o$l$k$G$7$g(B + $B$&!#(B + + a. $B1\Mw$9$k(B URL $B$r0z?t$K$H$k(B lisp $B$N4X?t!#(B + b. ("COMMAND" [ARG...]) -- "COMMAND" $B$O30It%3%^%s%I$G$"$j!"(B + ARG $B$O(B ($B$"$k$J$i$P(B) $B%3%^%s%I$KEO$90z?t$G$"$k!#(B`file' $B$H(B + `url' $B$N%7%s%\%k$r(B ARG $B$H$7$F;XDj$9$k$H!"$=$l$>$l1\Mw$9(B + $B$k%U%!%$%k$NFbMF$r4^$s$@%F%s%]%i%j%U%!%$%k$N%U%!%$%kL>$H!"(B + $B1\Mw$9$k(B URL $B$H$KCV49$($i$l$k!#(B + c. `nil' $B$J$i$P!"(BURL $B$r%m!<%+%k$N%U%!%$%k$K%@%&%s%m!<%I$7$^$9!#(B + + 4. `1. $A%3%s%F%s%H%?%$%W(B' $B$G;XDj$5$l$?$b$N$r>e=q$-$9$k%3%s%F%s%H(B + $B%?%$%W!#0J2<$NCM$bM-8z$G$9!#(B + + a. URL $B$H(B CONTENT-TYPE $B$H(B CHARSET $B$N(B 3$B$D$N0z?t$r$H$j!"%3%s(B + $B%F%s%H%?%$%W$rJV$9(B Lisp $B4X?t!#(B + b. $B%3%s%F%s%H%?%$%W$r<($9J8;zNs!#(B + c. `nil' $B$J$i$P!"%3%s%F%s%H%?%$%W$r>e=q$-$7$J$$!#(B + +`w3m-correct-charset-alist' + $BFC<l$J(B MIME $BJ8;z%;%C%H$HI8=`$N(B MIME $BJ8;z%;%C%H$H$NO"A[G[Ns!#(B + +`w3m-db-history-display-size' + about://arived-db/ $B$G0lEY$KI=<($9$k(B URL $B$N:GBg?t!#(B + +`w3m-decoder-alist' + $B%(%s%3!<%I$N<oN`$H%G%3!<%@$H0z?t$H$NO"A[G[Ns!#(B + +`w3m-default-coding-system' + URL $BJ8;zNs$H(B POST $B$5$l$k%G!<%?$H$r%(%s%3!<%I$9$k$N$K%G%U%)%k%H$G;H(B + $B$o$l$k%3!<%G%#%s%0%7%9%F%`!#(B + +`w3m-default-content-type' + $B%m!<%+%k$N%U%!%$%k$r;2>H$9$k;~$K%G%U%)%k%H$G;H$o$l$k%3%s%F%s%H%?%$(B + $B%W!#(B + +`w3m-default-directory' + emacs-w3m $B$N%P%C%U%!$K$*$$$F!"8=:_$N%G%#%l%/%H%j$H$7$F;H$o$l$k%G%#(B + $B%l%/%H%j!#B8:_$9$k%G%#%l%/%H%j$r<($9J8;zNs!"$=$NCM$,B8:_$9$k%G%#%l(B + $B%/%H%j$r<($9%7%s%\%k!"(Burl $B$r0z?t$K$H$j%G%#%l%/%H%j$rJV$94X?t!"$b$7(B + $B$/$O(B `nil' ($B%G%U%)%k%HCM(B)$B$,M-8z$JCM$H$J$j$^$9!#;XDj$5$l$?%G%#%l%/(B + $B%H%j$,B8:_$7$J$$>l9g$d!"(B`nil' $B$,;XDj$5$l$?>l9g$O(B + `w3m-profile-directory' $B$NCM$,;H$o$l$^$9!#(B + + $BNc30(B: $B%m!<%+%k$N%U%!%$%k$d!"%j%b!<%H$N%U%!%$%k$r(B ftp $B$G%"%/%;%9$7(B + $B$F$$$k>l9g$O$=$N%U%!%$%k$N%G%#%l%/%H%j$,8=:_$N%G%#%l%/%H%j$H$7$F;H(B + $B$o$l$^$9!#(B + +`w3m-default-save-directory' + $B%@%&%s%m!<%I$7$?%U%!%$%k$,%G%U%)%k%H$GJ]B8$5$l$k%G%#%l%/%H%j!#(B + +`w3m-delete-duplicated-empty-lines' + non-`nil' $B$J$i$PFs9T0J>e$NO"B3$7$?6uGr9T$r0l9T$K$^$H$a$k!#(B + +`w3m-dirlist-cgi-program' + $B%m!<%+%k$N%G%#%l%/%H%jNs5s$9$k$N$K;H$o$l$k(B CGI $B%W%m%0%i%`$NL>A0!#(B + `nil' $B$J$i$P!"(B`w3m' $B%3%^%s%I$N(B dirlist.cgi $B$N%b%8%e!<%k$,;H$o$l$k!#(B + +`w3m-doc-view-content-types' + $B%U%!%$%k$r1\Mw$9$k$N$K(B `doc-view-mode' $B$r;H$&%3%s%F%s%H%?%$%W$N%j(B + $B%9%H!#$3$NJQ?t$O(B `w3m-content-type-alist' $B$NCM$r>e=q$-$9$k!#(B + +`w3m-edit-function' + $B%m!<%+%k$N%U%!%$%k$rJT=8$9$k$?$a$N4X?t!#(B`w3m-edit-current-url' $B$^(B + $B$?$O(B `w3m-edit-this-url' $B$N%3%^%s%I$,8F$P$l$?;~$K;H$o$l$^$9!#(B + +`w3m-edit-function-alist' + $B%Z!<%8$rJT=8$9$k$?$a$K;H$&4X?t$NO"A[G[Ns!#$3$N%*%W%7%g%s$O!"(B + `w3m-edit-current-url' $B$d(B `w3m-edit-this-url' $B$N%3%^%s%I$,8F$P$l$?(B + $B;~$K$I$N4X?t$G$=$N%Z!<%8$rJT=8$9$k$+$r7h$a$k$N$K;H$o$l$^$9!#$3$NO"(B + $BA[G[Ns$+$iE,Ev$J4X?t$,8+$D$+$i$J$1$l$P!"(B`w3m-edit-function' $B$,;H$o(B + $B$l$^$9!#(B + +`w3m-enable-google-feeling-lucky' + non-`nil' $B$J$i$P!"(Burl $B$H$7$F$I$s$JC18l$bF~NO$9$k$3$H$,$G$-$k$h$&$K(B + $B$J$j$^$9!#$=$N>l9g!"(Bemacs-w3m $B$O(B Google $B$r;H$C$F$=$N8@MU$r8!:w$7$^(B + $B$9!#%G%U%)%k%H$G$O(B `t' $B$G$9!#(B + +`w3m-encoding-type-alist' + $B%U%!%$%k$N3HD%;R$H%U%!%$%k$N%(%s%3!<%I$N<oN`$H$NO"A[G[Ns!#(B + +`w3m-file-coding-system' + $B@_Dj%U%!%$%k$r=q$/$?$a$K;H$o$l$k%3!<%G%#%s%0%7%9%F%`!#$3$NJQ?t$O(B + `w3m-save-list' $B4X?t$G;H$o$l$^$9!#(B + +`w3m-file-name-coding-system' + emacs-w3m $B$,%U%!%$%k$K%"%/%;%9$9$k;~$K!"%Q%9L>$rJQ49$9$k@h$N%3!<%G%#(B + $B%s%0%7%9%F%`!#(B + +`w3m-fill-column' + emacs-w3m $B$N%P%C%U%!$G(B `fill-column' $B$H$7$F;H$o$l$k?t;z!#@5$NCM$J(B + $B$i$P!"%Z!<%8$,$=$N7e?t$GI=<($5$l$k!#(B0 $B$+Ii$NCM$J$i$P!"%&%#%s%I%&$N(B + $BI}$+$i$=$N?t;z$r$,%Z!<%8$N:GBgI}$H$7$F;H$o$l$k!#(BXEmacs $B$G$O$3$N@_(B + $BDj$,>o$KF/$/$o$1$G$O$J$$$H$$$&$3$H$KCm0U$7$F$/$@$5$$!#(B + +`w3m-follow-redirection' + emacs-w3m $B$,%j%@%$%l%/%H$rB:=E$7%j%@%$%l%/%H@h$rDI$$$+$1$k:GBg?t!#(B + `nil' $B$J$i$P!"(B`w3m' $B%3%^%s%I$,%j%@%$%l%/%H$r=hM}$7$^$9!#%/%C%-!<$,(B + $B%j%@%$%l%/%H$5$l$k%Z!<%84V$G6&M-$5$l$k$3$H$,$"$j$&$k$N$G!"%/%C%-!<(B + $B$r5v2D$9$k$J$i$P(B ($B$D$^$j!"(B`w3m-use-cookies' $B$r(B non-`nil' $B$K$7$F$$(B + $B$k$J$i$P(B)$B!"$3$NJQ?t$r(B `nil' $B$K$7$J$$$G$/$@$5$$!#(B + +`w3m-home-page' + emacs-w3m $B$,5/F0$7$?;~$K3+$/(B URL $B$NJ8;zNs$r;XDj$7$^$9!#K?2q<R$NN,(B + $B>N$K$J$C$A$c$$$^$9$+$i(B HP $B$H$O8@$o$J$$$G$/$@$5$$$M!#(B + +`w3m-horizontal-scroll-columns' + $B%&%#%s%I%&$r?eJ?%9%/%m!<%k$9$k;~$K!"%9%/%m!<%k$9$kJ8;z?t!#(B + +`w3m-horizontal-scroll-division' + $B%+!<%=%k0LCV$,$-$A$s$HI=<($5$l$k$h$&$K$9$k$N$K;H$o$l$k?t;z!#(B + emacs-w3m $B$N%P%C%U%!$G%"%s%+!<$d%U%)!<%`$r0\F0$7$F$$$F%+!<%=%k$,%&%#(B + $B%s%I%&$N30$K=P$F$7$^$C$F$b%+!<%=%k$,8+$D$+$i$J$/$J$k$3$H$O7h$7$F$"(B + $B$j$^$;$s!#(B + + $B$3$NJQ?t$NCM$r(B N $B$H$7$^$9!#%+!<%=%k$,%&%#%s%I%&$N:8$K=P$F$7$^$&$H(B + emacs-w3m $B$O%&%#%s%I%&$r%9%/%m!<%k$7!"%+!<%=%k$,%&%#%s%I%&$N:8$+$i(B + $B%&%#%s%I%&$NI}$N(B 1/N $B$N=j$KCV$+$l$k$h$&$K$7$^$9!#F1MM$K%+!<%=%k$,(B + $B%&%#%s%I%&$N1&$+$i=P$F$7$^$&$H!"(Bemacs-w3m $B$O%&%#%s%I%&$r%9%/%m!<%k(B + $B$7!"%+!<%=%k$,%&%#%s%I%&$N1&$+$i%&%#%s%I%&$NI}$N(B 1/N $B$N=j$KCV$+$l(B + $B$k$h$&$K$7$^$9!#(B + + `w3m-auto-show' $B$,(B `nil' $B$J$i$P$3$N5!G=$OF0$-$^$;$s!#CM$O(B 1 $B$h$j$b(B + $BBg$-$$@0?t$G$J$1$l$P$$$1$^$;$s!#(B + +`w3m-horizontal-shift-columns' + $B%&%#%s%I%&$r(B shifting $B$9$k;~$K!"%9%/%m!<%k$9$kJ8;z?t!#(B`shifting' + $B$H$$$&$N$O!"%9%`!<%:$J%9%/%m!<%k$r0UL#$7$^$9!#(B + +`w3m-imitate-widget-button' + non-`nil' $B$J$i$P!"%j%s%/(B ($B%"%s%+!<(B) $B%\%?%s$G%&%#%8%'%C%H$N%\%?%s$N(B + $BF0:n$r$7$^$9!#$3$l$O(B `<TAB>' $B$r;H$C$F(B Gnus $B$N5-;v%P%C%U%!$NCf$r0\(B + $BF0$9$k$N$KJXMx$G$9!#??56CM$rJV$9(B Lisp $B4X?t$r@_Dj$9$k$3$H$b$G$-$^$9!#(B + +`w3m-init-file' + Your emacs-w3m startup file name. If a file with the `.el' or + `.elc' suffixes exists, it will be read instead. + + Note: This file is used as the startup configuration *NOT* for + the `w3m' command but for emacs-w3m. In order to modify + configurations for the `w3m' command, edit the file named + `~/.w3m/config' normally. + +`w3m-input-coding-system' + Coding system used when writing to `w3m' processes. It overrides + `coding-system-for-write' if it is not `binary'. Otherwise, the + value of the `w3m-current-coding-system' variable is used + instead. + +`w3m-keep-arrived-urls' + Maximum number of URLs which the arrived URLs database keeps. + +`w3m-keep-cache-size' + Maximum number of pages to be cached in emacs-w3m. + +`w3m-key-binding' + Type of key binding set used in emacs-w3m sessions. The valid + values include `info' which provides `Info-like' keys, and `nil' + which provides `Lynx-like' keys. + +`w3m-language' + Your preferred language used in emacs-w3m sessions. + +`w3m-local-directory-view-method' + Symbol of the method to view a local directory tree. The valid values + include `w3m-cgi' using the CGI program specified by the + `w3m-dirlist-cgi-program' variable (which see), and + `w3m-dtree' using the w3m-dtree Lisp module. + +`w3m-local-find-file-function' + Function used to open local files. If a url of the `file:' + scheme in which you entered agrees with the rule of the + `w3m-local-find-file-regexps' variable (which see), it is used to + open the file. + + Function should take one argument, the string naming the local + file. It can also be any Lisp form returning a function. Set + this to `nil' if you want to always use emacs-w3m to see local + files. + +`w3m-local-find-file-regexps' + `Cons' of two regexps matching and not matching with local file + names. If a url of the `file:' scheme in which you entered + matches the first form and does not match the latter form, it + will be opened by the function specified by the + `w3m-local-find-file-function' variable. `Nil' for the regexp + matches any file names. + + For instance, the value `(nil . "\\.html?\\'")' allows + `file:///some/where/w3m.el', not `file:///any/where/index.html', + to open by the function specified by + `w3m-local-find-file-function'. The latter will be opened as a + normal web page. Furthermore, if you would like to view some + types of contents in the local system using the viewers specified + by the `w3m-content-type-alist' variable, you can add regexps + matching those file names to the second element of this variable. + For example: + + (setq w3m-local-find-file-regexps + '(nil . "\\.\\(?:[sx]?html?\\|dvi\\|ps\\|pdf\\)\\'")) + + It is effective only when the `w3m-local-find-file-function' + variable is set properly. + +`w3m-mailto-url-function' + Function used to handle the `mailto' urls. Function is called + with one argument, just a url. If it is `nil', a function + specified by the `mail-user-agent' variable will be used for + composing mail messages. + +`w3m-mailto-url-popup-function-alist' + Alist of `(MAJOR-MODE . FUNCTION)' pairs used to pop a mail + buffer up. If a user clicks on a `mailto' url and a mail buffer + is composed by `mail-user-agent' with the `MAJOR-MODE', + `FUNCTION' will be called with a mail buffer as an argument. + Note that the variables `special-display-buffer-names', + `special-display-regexps', `same-window-buffer-names' and + `same-window-regexps' will be bound to `nil' while popping to a + buffer up. + +`w3m-make-new-session' + Non-`nil' means making new emacs-w3m buffers when visiting new + pages. If it is non-`nil' and there are already emacs-w3m + buffers, the `w3m' command makes a new emacs-w3m buffer if a user + specifies a url string in the minibuffer, and the + `w3m-safe-view-this-url' command also makes a new buffer if a + user invokes it in a buffer not being running the `w3m-mode'. + The default value is `nil'. + +`w3m-mbconv-command' + Name of the `mbconv' command provided by the `libmoe' package. + The `libmoe' package is used when you use the `w3mmee' command + instead of the `w3m' command. See also `w3m-command'. + +`w3m-no-proxy-domains' + List of domain names for which emacs-w3m will not use a proxy + server. Each element should be exactly a domain name which means + the latter common part of the host names, not a regexp. + +`w3m-output-coding-system' + Coding system used when reading from `w3m' processes. + +`w3m-pop-up-frames' + Non-`nil' means pop to a new frame up for an emacs-w3m session. + This variable is similar to `pop-up-frames' and does override + `w3m-pop-up-windows'. If `w3m-use-tab' is non-`nil' or there is + the buffers selection window (for the `w3m-select-buffer' + feature), this variable is ignored when creating the second or + more emacs-w3m session. + +`w3m-pop-up-windows' + Non-`nil' means split the windows when a new emacs-w3m session is + created. This variable is similar to `pop-up-windows' and quite + overridden by `w3m-pop-up-frames' as if `pop-up-frames' + influences. Furthermore, if `w3m-use-tab' is non-`nil' or there + is the buffers selection window (for the `w3m-select-buffer' + feature), this variable is ignored when creating the second or + more emacs-w3m session. + +`w3m-popup-frame-parameters' + Alist of frame parameters used when creating a new emacs-w3m + frame. It allows not only the alist form but also XEmacs' plist + form. + +`w3m-prefer-cache' + Non-`nil' means that cached contents are used without checking + headers. + +`w3m-profile-directory' + Directory where emacs-w3m config files are loaded from or saved + to. + +`w3m-quick-start' + Non-`nil' means let emacs-w3m start quickly w/o requiring + confirmation. When you invoke the `w3m' command, it attempts to + visit the page of a string like url around the cursor or the + value of `w3m-home-page'. You won't be asked for the + confirmation then if this value is non-`nil'. Otherwise, you + will be prompted for that url with the editing form. + +`w3m-redirect-with-get' + If non-`nil', use the GET method after redirection. It controls + how emacs-w3m works when a server responds the code 301 or 302. + Here is an extract from RFC2616: + + Note: RFC 1945 and RFC 2068 specify that the client is not + allowed to change the method on the redirected request. However, + most existing user agent implementations treat 302 as if it were + a 303 response, performing a GET on the Location field-value + regardless of the original request method. + +`w3m-relationship-estimate-rules' + Rules to estimate relationships between a retrieved page and + others. + +`w3m-select-buffer-horizontal-window' + Non-`nil' means split windows horizontally to open the selection + window. + +`w3m-select-buffer-window-ratio' + The percentage of the selection window to the whole frame. The + car is used when splitting windows horizontally and the cdr is + for splitting windows vertically. + +`w3m-show-decoded-url' + Non-`nil' means show decoded URIs in the echo area, the balloon, + etc. This variable can take one of the following five kinds of + forms: + + 1. t + + Decode URIs using the encoding guessed from the value of + `w3m-coding-system-priority-list'. + + 2. Coding system + + Decode URIs using this value. + + 3. List of coding systems + + Decode URIs using the encoding assumed based on this list. + + 4. Alist of predicates and forms described below: + + Each element looks like the `(PREDICATE . ENCODING)' form. + `PREDICATE' should be a regexp, a function or a Lisp form, + and `ENCODING' should be one of the forms described here + excluding this form. If `PREDICATE' is a regexp, it will be + tested whether it matches to the target url. If it is a + function, it will be called with the target url. If it is a + Lisp form, it will be simply evaluated. Elements are tested + in turn until the result of the test of the predicate is + true and the encoding which is associated to the predicate + is used for decoding URIs. + + 5. nil + + Don't decode URIs. + +`w3m-use-title-buffer-name' + Non-`nil' means use name of buffer included current title. + +`w3m-show-error-information' + Non-`nil' means show an error information as a web page. Page is + made when the foreign server doesn't respond to a request to + retrieve data. + +`w3m-space-before-favicon' + String of space char(s) to be put in front of favicon in the + mode-line. It may be better to use two or more spaces if you are + using oblique or italic font in the modeline. + +`w3m-space-before-modeline-icon' + String of space character(s) to be put in front of the modeline + icon. It may be better to use one or more spaces if you are + using oblique or italic font in the modeline. + +`w3m-terminal-coding-system' + Default coding system used when writing to `w3m' processes. It + is just a default value to set process' coding system initially. + (This variable name is analogically derived from the behavior of + the `w3m' command which accepts data from Emacs just like reads + from the terminal.) + +`w3m-touch-command' + Name of the executable file of the touch command. Note that the + command is required to be able to modify file's timestamp with + the `-t' option. + +`w3m-track-mouse' + Whether to track the mouse and message the url under the mouse. + See also `show-help-function' if you are using GNU Emacs. + + A tip for XEmacs users: + + You can also use the `balloon-help' feature by the + `M-x balloon-help-mode' command with arg 1. If the window + manager decorates the balloon-help frame, and that is not to your taste, + you may strip it off with the following directives: + + For ol[v]wm use this in .Xdefaults: + olvwm.NoDecor: balloon-help + or + olwm.MinimalDecor: balloon-help + + For fvwm version 1 use this in your .fvwmrc: + NoTitle balloon-help + or + Style "balloon-help" NoTitle, NoHandles, BorderWidth 0 + + For twm use this in your .twmrc: + NoTitle { "balloon-help" } + + See the `balloon-help.el' file for more information. + +`w3m-uri-replace-alist' + Alist of regexps matching URIs, and some types of replacements. + It can be used universally to replace URI strings in the local + rule to the valid forms in the Internet. + + Each element looks like the `(REGEXP FUNCTION OPTIONS...)' form. + `FUNCTION' takes one or more arguments, a uri and `OPTIONS'. You + can use the grouping constructs `\\(...\\)' in `REGEXP', and they + can be referred by the `\N' forms in a replacement (which is one + of `OPTIONS'). + + Here are some predefined functions which can be used for those + ways: + + `w3m-pattern-uri-replace' + Replace a URI using PATTERN (which is just an `OPTION'). It + is allowed that PATTERN contains the `\N' forms in the same + manner of `replace-match'. + + `w3m-search-uri-replace' + Generate valid URLs to query words on some specified search + engines. For example, the element + + ("\\`gg:" w3m-search-uri-replace "google") + + makes it possible to replace the URI `gg:emacs' to a query + for the word `emacs' on the Google search engine. + +`w3m-url-local-directory-alist' + Alist of URLs and local directories. If directory names of a + given URL and the car of an element are the same, emacs-w3m + assumes that the file exists in the local directory where the cdr + of an element points to. The default value will be set to a + value of the `yahtml-path-url-alist' variable which exchanged the + car and the cdr in each element if it is available. + +`w3m-use-ange-ftp' + Non-`nil' means that `ange-ftp' or `efs' is used to access FTP + servers. + +`w3m-use-cygdrive' + If non-`nil', use the `/cygdrive/' rule when performing + `expand-file-name'. + +`w3m-use-filter' + Non-`nil' means use filter programs to convert web contents. See + also `w3m-filter-rules' (the `w3m-filter.elc' module provides + it but might have never been loaded. In that case, to see the default + value and the documentation of `w3m-filter-rules', type + `M-x load-library <RET> w3m-filter <RET>'). + +`w3m-use-form' + Non-`nil' means make it possible to use form + extensions. *(EXPERIMENTAL)* + +`w3m-submit-form-safety-check' + Non-`nil' means ask you for confirmation when submitting a form. + The default value is `nil'. + +`w3m-use-header-line' + Non-`nil' means display the header line. + +`w3m-use-header-line-title' + Non-`nil' means display the current title at the header + line. This variable is effective only when `w3m-use-tab' is + `nil'. + +`w3m-use-mule-ucs' + Non-`nil' means use the multi-script support with Mule-UCS. + +`w3m-use-refresh' + Non-`nil' means honor the REFRESH attribute in META tags. + Emacs-w3m arbitrarily takes you to a url specified by that + attribute. Note that they may be malicious traps. + +`w3m-refresh-minimum-interval' + history-back, history-next $B$G%Z!<%8$r8+$?;~$K:GDc8B(B refresh $B$rBT$D(B + $BIC?t!#(B + +`w3m-use-symbol' + Non-`nil' means replace symbols that the `<_SYMBOL>' tags lead + into. It is meaningful only when the `w3m-m17n' command is used + and (X)Emacs handles unicode charsets. + +`w3m-menu-on-forefront' + Non-`nil' means place the emacs-w3m menus on the forefront of the + menu bar. The default value is `nil'. + +`w3m-use-tab' + Non-`nil' means make emacs-w3m a tab browser. It makes it possible + to show all emacs-w3m buffers in a single window with the tabs line, and + you can choose one by clicking a mouse on it. See also + `w3m-use-tab-menubar'. + +`w3m-use-tab-menubar' + Non-`nil' means use the TAB pull-down menu in the menubar. It + makes it possible to show all emacs-w3m buffers in a single + window, and you can choose one by clicking a mouse on it. This + feature requires that Emacs has been built to be able to display + multilingual text in the menubar if you often visit web sites + written in non-ascii text. See also `w3m-use-tab'. + +`w3m-use-toolbar' + Non-`nil' activates toolbar of `w3m'. + +`w3m-user-agent' + String used for the User-Agent field. See also + `w3m-add-user-agent'. + +`w3m-new-session-in-background' + Say whether not to focus on a new tab or a new session in target. + It influences only when a new emacs-w3m buffer is created. + +`w3m-do-cleanup-temp-files' + $BHs(B`nil' $B$J$i$P!"(B emacs-w3m $B$O<+F0E*$K:o=|$7$=$3$J$C$?0l;~%U%!%$%k(B + $B$r:o=|$7$^$9!#(B $B%G%U%)%k%H$O(B `nil' $B$G$9!#(B + + + +File: emacs-w3m-ja.info, Node: Image Variables, Next: Form Variables, Prev: General Variables, Up: Customizable Variables + +$A;-Oq$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +================== + +`w3m-default-display-inline-images' + $BHs(B`nil' $B$J$i$P!"%$%s%i%$%s2hA|$r(B emacs-w3m $B$N%P%C%U%!$KI=<($7$^$9!#(B + $B2hA|I=<($N(B ON/OFF $B$O(B `w3m-toggle-inline-images' $B$G@Z$jBX$($i$l$^$9!#(B + `w3m-toggle-inline-images-permanently' $B$b;2>H$7$F$/$@$5$$!#(B + +`w3m-favicon-cache-expire-wait' + $B<hF@$+$i$3$NJQ?t$G;XDj$5$l$?IC?t0J>e7P2a$7$?%-%c%C%7%e$O:o=|$5$l$^(B + $B$9!#$3$NJQ?t$,(B `nil' $B$J$i$P!":o=|$5$l$k$3$H$O$"$j$^$;$s!#(B + +`w3m-favicon-cache-file' + favicon $B$N%-%c%C%7%e$rJ]B8$9$k%U%!%$%kL>!#%G%U%)%k%H$O!"JQ?t(B + `w3m-profile-directory' $B$G;XDj$5$l$?%G%#%l%/%H%j2<$N(B `.favicon' $B$H(B + $B$$$&L>A0$N%U%!%$%k$G$9!#(B + +`w3m-favicon-size' + favicon $B$N%5%$%:!#$3$NCM$O!"(B`convert' $B$X$N(B geometry $B0z?t$H$7$F;H$o(B + $B$l$^$9!#(B + +`w3m-favicon-type' + favicon $B$rI=<($9$k$N$K;H$o$l$k2hA|$N<oN`!#(B + +`w3m-favicon-use-cache-file' + $BHs(B`nil' $B$J$i$P!"(Bfavicon $B$N%-%c%C%7%e%U%!%$%k$r;H$$$^$9!#(B + +`w3m-favicon-default-background' + favicon $B2hA|$NF)2a?'$H$7$F;H$o$l$k?'$NL>A0!#(B`nil' $B$G$"$l$P!"(BEmacs + $B$N%U%l!<%`$NGX7J?'$r;H$&!#6uJ8;z$OFCJL$G!"%X%C%@%i%$%s$+%b!<%I%i%$(B + $B%s$+$N(B favicon $B$,I=<($5$l$F$$$k$[$&$NGX7J?'$KCV49$($i$l$k!#$3$NJQ(B + $B?t$O!"(BEmacs 22 $B0J>e$G$7$+8zNO$r;}$?$J$$$3$H$KCm0U!#(B + +`w3m-icon-directory' + emacs-w3m $B$,%"%$%3%s$rC5$9%G%#%l%/%H%j!#(B + +`w3m-imagick-convert-program' + ImageMagick $B$N(B `convert' $B$N%W%m%0%i%`L>!#(B + +`w3m-treat-image-size' + $BHs(B`nil' $B$J$i$P!"(B`w3m' $B$,2hA|$H%F%-%9%H$NHfN($r9MN8$7$^$9!#%G%U%)%k(B + $B%H$O(B `t' $B$G$9!#(B + + $BHs(B-`nil' $B$J$i$P!"(B`w3m' $B2hA|$,CV$+$l$k>l=j$r3NJ]$7$?(B `halfdump' $B$r(B + $B@8@.$7!"(B`alt' $B%F%-%9%H$O2hA|$NI=<(I}$KEy$7$/$J$k$h$&$K@Z$j5M$a$i$l(B + $B$k!"$"$k$$$O%9$Z!<%9$r5M$a$i$l$^$9!#(B + + `w3m-pixels-per-character' $B$H(B `w3m-pixels-per-line' $B$b;2>H$7$F$/$@(B + $B$5$$!#$3$l$i$NCM$,2hA|$,@j$a$k7e$H9T$H$r7W;;$9$k$?$a$K(B `w3m' $B%3%^(B + $B%s%I$KEO$5$l$^$9!#(B + +`w3m-pixels-per-character' + Integer used for the `-ppc' argument of the `w3m' command. If + `nil', the width of the default face is used. It is valid only + when `w3m-treat-image-size' is non-`nil'. The default value is + `nil'. If you want to use emacs-w3m in a character terminal and + make `w3m-treat-image-size' effective, you need to set this + variable properly. + +`w3m-pixels-per-line' + Integer used for the `-ppl' argument of the `w3m' command. If + `nil', the height of the default face is used. It is valid only + when `w3m-treat-image-size' is non-`nil'. Note that a small + value may not induce a good result. The default value is `64'. + If you want to use emacs-w3m in a character terminal and make + `w3m-treat-image-size' effective, you need to set this variable + properly. + +`w3m-resize-image-scale' + Number of steps in percent used when resizing images. + +`w3m-resize-images' + If non-`nil', resize images to the specified width and height. + +`w3m-show-graphic-icons-in-header-line' + Non-`nil' means show graphic status indicators in the + header-line. If it is `nil', also the favicon won't be shown in + the header-line even if `w3m-use-favicon' is non-`nil'. This + variable is currently meaningless under XEmacs. + +`w3m-show-graphic-icons-in-mode-line' + Non-`nil' means show graphic status indicators in the mode-line. + If it is `nil', also the favicon won't be shown in the mode-line + even if `w3m-use-favicon' is non-`nil'. + +`w3m-toggle-inline-images-permanently' + Non-`nil' means let the visibility of images continue + permanently. The visibility of images is initialized according + to `w3m-default-display-inline-images' at the first time, and + except that it may be toggled by the `w3m-toggle-inline-images' + command, it does not change hereafter, if it is non-`nil'. + Otherwise, whether images are visible is initialized according to + `w3m-default-display-inline-images' whenever you visit a new page + or reload the current page in an emacs-w3m buffer. + +`w3m-use-favicon' + Non-`nil' means show favicon images if they are available. It + will be set to `nil' automatically if ImageMagick's `convert' + program does not support the ico format. + +`w3m-image-default-background' + $B2hA|$NF)2a?'$H$7$F;H$o$l$k?'$NL>A0!#(B`nil' $B$J$i$P!"(BEmacs $B$N%U%l!<%`(B + $B$NGX7J?'$,;H$o$l$k!#6uJ8;z(B ("") $B$OFCJL$K!"%P%C%U%!$NGX7J?'$KCV$-49(B + $B$($i$l$k!#$3$NJQ?t$O(B Emacs 22 $B0J9_$G$N$_M-8z$G$"$k!#(B + + + +File: emacs-w3m-ja.info, Node: Form Variables, Next: Cookie Variables, Prev: Image Variables, Up: Customizable Variables + +$A%U%)$B!<$A%`$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +====================== + +`w3m-form-input-map-buffer-lines' + Buffer lines for form select map buffer. + +`w3m-form-input-select-buffer-lines' + Buffer lines for form select buffer. + +`w3m-form-input-textarea-buffer-lines' + Buffer lines for form textarea buffer. + +`w3m-form-mouse-face' + Mouse face to highlight selected value. + +`w3m-form-treat-textarea-size' + Non-`nil' means to process textarea size (treat textarea rows). + +`w3m-form-use-fancy-faces' + Use fancy faces to fontify `<form>' tags. + +`w3m-form-use-textarea-backup' + Non-`nil' means save and restore backup text saved when you last + edited this textarea. Files to save text are stored in the + directory specified by the `w3m-form-textarea-directory' + variable. + + + +File: emacs-w3m-ja.info, Node: Cookie Variables, Next: Bookmark Variables, Prev: Form Variables, Up: Customizable Variables + +$A%/%C%-$B!<$A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +====================== + +`w3m-cookie-accept-bad-cookies' + If `nil', don't accept bad cookies. If `t', accept bad cookies. + If ask, ask user whether accept bad cookies or not. + +`w3m-cookie-accept-domains' + A list of trusted domain name string. + +`w3m-cookie-file' + File in which cookies are kept. + +`w3m-cookie-reject-domains' + A list of untrusted domain name string. + +`w3m-use-cookies' + Non-`nil' means enable emacs-w3m to use cookies. + *(EXPERIMENTAL)* + + + +File: emacs-w3m-ja.info, Node: Bookmark Variables, Next: Search Variables, Prev: Cookie Variables, Up: Customizable Variables + +$A%V%C%/%^$B!<$A%/$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +========================== + +`w3m-bookmark-file' + Bookmark file of w3m. + +`w3m-bookmark-file-coding-system' + Coding system for a created bookmark file. This option is used + when a new bookmark file is created, or when an existing bookmark + file includes ASCII characters only. If the coding system which + is used to encode your using bookmark file is different from the + value of this option, emacs-w3m does not change the encoding of + your bookmark file. + +`w3m-bookmark-default-section' + Default section to add new entry. + +`w3m-bookmark-menu-open-new-session' + If non-`nil', "Bookmark" menu item open new session. + + + +File: emacs-w3m-ja.info, Node: Search Variables, Next: Weather Variables, Prev: Bookmark Variables, Up: Customizable Variables + +$A%&%'%V$(I<D$AKw$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +======================== + +`w3m-search-default-engine' + Name of the default search engine. The default is `google'. + +`w3m-search-engine-alist' + An alist of search engines. Each element looks like `(ENGINE + ACTION CODING POST-DATA)'. ENGINE is a string, the name of the + search engine. ACTION is a string, the URL that performs a + search. ACTION must contain a `"%s"', which is substituted by a + query string. CODING is optional value which is coding system + for query string. POST-DATA is optional value which is a string + for POST method search engine. If CODING is omitted, it defaults + to `w3m-default-coding-system'. + +`w3m-search-word-at-point' + Non-`nil' means that the word at point is used as an initial + string. If `transient-mark-mode', this option is ignored and the + region is used as an initial string. The default is `t'. + +`w3m-search-thing-at-point-arg' + `w3m-search-read-query' $B$G;H$o$l$k(B `thing-at-point' $B$X$N0z?t!#%G%U%)(B + $B%k%H$O(B `word'. + + + +File: emacs-w3m-ja.info, Node: Weather Variables, Next: Dtree Variables, Prev: Search Variables, Up: Customizable Variables + +$ALl$B5$$ASh$(G^^$A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +====================== + +`w3m-weather-default-area' + Default region to check weather. The default is the southern + part of Kyoto city. + +`w3m-weather-filter-functions' + Filter functions to remove useless tags. The default value is a + list that contains the following function symbols in this order: + + `w3m-weather-extract-contents' `w3m-weather-adjust-contents' + `w3m-weather-expand-anchors' `w3m-weather-insert-title' + + + +File: emacs-w3m-ja.info, Node: Dtree Variables, Next: Antenna Variables, Prev: Weather Variables, Up: Customizable Variables + +dtree $A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +==================== + +`w3m-dtree-default-allfiles' + If non-`nil', invert the meaning of the prefix argument given to + the `w3m-dtree' command, i.e., the command shows not only + directories but also files even if you don't give a prefix + argument. The default is `nil'. + +`w3m-dtree-directory-depth' + Integer that controls how deep `w3m-dtree' shows subdirectories. + If it is `nil', files in all subdirectories are shown. The + default is `8'. + +`w3m-dtree-indent-strings' + Vector containing strings used for the indentation. The default is + `["|-" "+-" "| " " "]'. + +`w3m-dtree-stop-strings' + Vector containing strings used to indent directories under which + there are subdirectories hidden because of + `w3m-dtree-directory-depth'. The default is `["|=" "+="]'. + + + +File: emacs-w3m-ja.info, Node: Antenna Variables, Next: Perldoc Variables, Prev: Dtree Variables, Up: Customizable Variables + +$A%"%s%F%J$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +====================== + +`w3m-antenna-file' + Name of the file containing antenna URLs. The default value is + `~/.w3m/.antenna', where `~/.w3m' is the default value of + `w3m-profile-directory' (*Note General Variables::). + +`w3m-antenna-html-skelton' + Skeleton used for making the html contents of antenna pages. + +`w3m-antenna-make-summary-function' + Function used to make the summary of the site information. The + default is `w3m-antenna-make-summary-like-natsumican'. The other + ready-made function is `w3m-antenna-make-summary'. + +`w3m-antenna-sites' + List of web sites that `w3m-antenna' watches. The default is + `nil'. + +`w3m-antenna-sort-changed-sites-function' + Function used to sort a list of sites having been changed. The + default is `w3m-antenna-sort-sites-by-time'. The other + ready-made function is `w3m-antenna-sort-sites-by-title'. + +`w3m-antenna-sort-unchanged-sites-function' + Function used to sort a list of sites having not been changed. + The default is `w3m-antenna-sort-sites-by-time'. The other + ready-made function is `w3m-antenna-sort-sites-by-title'. + + + +File: emacs-w3m-ja.info, Node: Perldoc Variables, Next: Namazu Variables, Prev: Antenna Variables, Up: Customizable Variables + +Perldoc $A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +====================== + +`w3m-perldoc-command' + Name of the executable file of `perldoc'. The default is + `"perldoc"'. + +`w3m-perldoc-input-coding-system' + Coding system used when writing to the `perldoc' command. The + default value is `euc-japan' if you are in the Japanese language + environment. Otherwise it is `utf-8' if it is available, or + `iso-latin-1'. + +`w3m-perldoc-output-coding-system' + Coding system used when reading from the `perldoc' command. The + default is `undecided'. + +`w3m-perldoc-pod2html-command' + Name of the executable file of `pod2html'. The default is + `"pod2html"'. + +`w3m-perldoc-pod2html-arguments' + Lisp of arguments passed to the `pod2html' command. The default is + `("--noindex")'. + + + +File: emacs-w3m-ja.info, Node: Namazu Variables, Next: Octet Variables, Prev: Perldoc Variables, Up: Customizable Variables + +Namazu $A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +===================== + +`w3m-namazu-command' + Name of the executable file of Namazu. The default is `namazu'. + +`w3m-namazu-arguments' + List of arguments passed to Namazu. The default value is `("-h" + -H" "-n" w3m-namazu-page-max "-w" whence)'. The symbols + `w3m-namazu-page-max' and `whence' will be replaced respectively + with the value of that variable and a proper value that the + program determines properly. + +`w3m-namazu-default-index' + An alias for the default index, or the directory name of it. If this is + `nil', you will be prompted for the directory name whenever you + invoke the `w3m-namazu' command with no prefix argument. The + default is the value of `namazu-default-dir' if it exists and + `namazu-always-query-index-directory' is `nil'. Otherwise + `nil'. + +`w3m-namazu-index-alist' + Alist of aliases and index directories. The default value is + determined due to `namazu-dir-alist' if any or `nil'. + +`w3m-namazu-input-coding-system' + Coding system used when reading from the namazu process. The + default is the value of `namazu-cs-read' if it exists, or + `undecided'. + +`w3m-namazu-output-coding-system' + Coding system used when writing to the namazu process. The default is + the value of `namazu-cs-write' if it exists, or is determined to + `shift_jis-dos' or `euc-japan-unix' due to the system type. + +`w3m-namazu-page-max' + The maximum number of documents retrieved in one search. The + default is the value of `namazu-search-num' if any, or `30'. + + + +File: emacs-w3m-ja.info, Node: Octet Variables, Next: Session Manager Variables, Prev: Namazu Variables, Up: Customizable Variables + +Octet $A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +==================== + +There is no user option for the moment. + +* Session Manager Variables:: + + +File: emacs-w3m-ja.info, Node: Session Manager Variables, Next: Hooks, Prev: Octet Variables, Up: Customizable Variables + +$A%;%C%7%g%s%^%M$B!<$A%8%c$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B +================================== + +`w3m-session-file' + $B%;%C%7%g%s$rJ]B8$9$k%U%!%$%kL>!#(B + +`w3m-session-time-format' + $BJ]B8;~4V$N7A<0!#(B + +`w3m-session-automatic-title' + emacs-w3m $B=*N;;~$N<+F0J]B8%;%C%7%g%s$N%?%$%H%k!#(B + +`w3m-session-crash-recovery-title' + $B%/%i%C%7%eI|85MQ%;%C%7%g%s$N%?%$%H%k!#(B + +`w3m-session-deleted-title' + $B%P%C%U%!$rJD$8$?;~$N<+F0J]B8%;%C%7%g%s$N%?%$%H%k!#(B + +`w3m-session-deleted-keep-number' + $B%P%C%U%!$rJD$8$?;~$N<+F0J]B8%;%C%7%g%s$r$$$/$DJ]B8$7$F$*$/$+!#(B + +`w3m-session-automatic-keep-number' + emacs-w3m $B=*N;;~$N<+F0J]B8%;%C%7%g%s$r$$$/$DJ]B8$7$F$*$/$+!#(B + +`w3m-session-unknown-title' + $B%?%$%H%k$,;XDj$5$l$J$+$C$?;~$K;H$o$l$kJ8;zNs!#(B + + + +File: emacs-w3m-ja.info, Node: Hooks, Next: Other Variables, Prev: Session Manager Variables, Up: Customizable Variables + +$A%U%C%/(B +====== + +`w3m-after-cursor-move-hook' + Hook run each time after the cursor moves in emacs-w3m buffers. + This hook is called by the `w3m-check-current-position' function + by way of `post-command-hook'. + +`w3m-delete-buffer-hook' + Hook run when every emacs-w3m buffer is deleted. + +`w3m-display-hook' + Hook run after displaying pages in emacs-w3m buffers. Each function is + called with a url string as the argument. This hook is evaluated by the + `w3m-goto-url' function. + +`w3m-fontify-after-hook' + Hook run after fontifying emacs-w3m buffers. This hook is + evaluated by the `w3m-fontify' function. + +`w3m-fontify-before-hook' + Hook run when starting to fontify emacs-w3m buffers. This hook + is evaluated by the `w3m-fontify' function. + +`w3m-form-input-map-mode-hook' + A hook called after w3m-form-input-map-mode. + +`w3m-form-input-map-set-hook' + A Hook called before w3m-form-input-map-set. + +`w3m-form-input-select-mode-hook' + A hook called after w3m-form-input-select-mode. + +`w3m-form-input-select-set-hook' + A Hook called before w3m-form-input-select-set. + +`w3m-form-input-textarea-mode-hook' + A hook called after w3m-form-input-textarea-mode. + +`w3m-form-input-textarea-set-hook' + A Hook called before w3m-form-input-textarea-set. + +`w3m-minor-mode-hook' + Hook run after `w3m-minor-mode' initialization. + +`w3m-mode-hook' + Hook run after `w3m-mode' initialization. This hook is evaluated + by the `w3m-mode' function. + +`w3m-select-buffer-hook' + Hook run when a different emacs-w3m buffer is selected. + +`w3m-bookmark-mode-hook' + Hook run at the end of function `w3m-bookmark-mode'. + + + +File: emacs-w3m-ja.info, Node: Other Variables, Prev: Hooks, Up: Customizable Variables + +$A$=$NK{$N$(I+y$AJ}(B +============ + +`w3m-async-exec' + Non-`nil' means execute the `w3m' command asynchronously in Emacs + process. + +`w3m-broken-proxy-cache' + Set it to `t' if the proxy server seems not to work properly in + caching. Note that this may be the double-edged sword; setting + it to `t' will likely be harmful if the proxy server sends bad + requests (e.g., not including the Host header, see RFC2616 + section 14.23) to foreign servers when the `w3m' command + specifies the `no-cache' directive. Also note that it may not be + effective if you are using old `w3m' command. + +`w3m-history-minimize-in-new-session' + Non-`nil' means minimize copied history so that there's only + current page. This variable is effective when creating of the new + session by copying (i.e., `w3m-copy-buffer'). The default value is + `nil'. + +`w3m-history-reuse-history-elements' + Non-`nil' means reuse the history element when re-visiting the + page. Otherwise, a new history element will be created even if + there are elements for the same url in the history. + + Emacs-w3m used to operate as the case in which it is non-`nil', + however it sometimes brought about users' dissatisfaction. For + example, if a user visited the pages A -> B -> C -> B in order, + performing BACK on the second B would let a user visit A. The + reason why a user was taken to A rather than C is that the + `w3m-history' variable only had the list `(A B C)' as a history + and B was the current position at that time. + + The default value for this variable is `nil' which allows the + `w3m-history' variable to have the list `(A B C B)'. Where + contents of two B's are the identical Lisp objects. So, too much + wasting the Lisp resources will be avoided. + + See the documentation for the variables `w3m-history' and + `w3m-history-flat' for more information. + +`w3m-process-connection-type' + Value for `process-connection-type' used when communicating with + `w3m'. + +`w3m-process-modeline-format' + Format used when displaying the progress of the external `w3m' + process. It shows a percentage of the data loaded from the web + server. + +`w3m-show-current-title-in-buffer-tab' + If non-`nil', show the title strings in the buffers tab. It has + no effect if your XEmacs does not support the gutter items. + + + +File: emacs-w3m-ja.info, Node: Hooking into MUAs, Next: Frequently Asked Questions, Prev: Customizable Variables, Up: Top + +$A%a$B!<$A%k(B/$A%K%e$B!<$A%9%j$B!<$A%@$B!<$A$GJ9$&(B +***************************** + +$B$3$3$G$O;0<oN`$N(B MUA (Message User Agent) $B$r>R2p$7$^$9!#$=$l$i$N(B MUA $B$O(B +$B$9$Y$F(B emacs-w3m $B$r;H$&$3$H$K$h$C$F(B HTML $B%a!<%k$rE,@Z$KI=<($9$k$3$H$,$G(B +$B$-$^$9!#$=$l$>$l$N(B MUA $B$H(B emacs-w3m $B$r@_Dj$7$F;H$&$?$a$N(B HowTo $B$H$$$/$D(B +$B$+$NCm0U$r!"$3$3$G8+$D$1$k$3$H$,$G$-$k$G$7$g$&!#(B + +$B0[$J$k=,47$K4X$9$kB(@J$NCm<a(B: `message' $B$C$F2?(B? $B!](B Gnus $B%f!<%6$,(B +`message' $B$H8@$&$H$-!"$=$l$O$7$P$7$P%a!<%k$^$?$O%K%e!<%9$H$7$FAw?.$9$k(B +$B%a%C%;!<%8$NAp9F$r0UL#$7$^$9!#$7$+$7!"$=$l$O(B Mew $B$d(B Wanderlust $B$N%f!<%6(B +$B$,!"<u?.$7$?%a%C%;!<%8$KBP$7$F;H$&MQ8l$G$9!#H`$i$OAw?.$9$k%a%C%;!<%8$K(B +`draft' $B$r;H$C$F$$$^$9!#0lJ}(B Gnus $B%f!<%6$O!"<u?.$7$?%a%C%;!<%8$r(B +`article' $B$H8F$S$^$9!#(B + +* Menu: + +* Gnus:: Gnus $B$G(B HTML $B%a!<%k$rFI$`(B +* Mew:: Mew $B$G(B HTML $B%a!<%k$rFI$`(B +* SEMI MUAs:: SEMI MUA $B$G(B HTML $B%a!<%k$rFI$`(B +* VM:: VM (vieW maiL) $B$O(B Wanderlust $B$K$"$i$:(B + + + +File: emacs-w3m-ja.info, Node: Gnus, Next: Mew, Prev: Hooking into MUAs, Up: Hooking into MUAs + +Gnus $A$G(B HTML $A%a$B!<$A%k$r$BFI$A$`(B +========================= + +Gnus (Emacs $B$N%K%e!<%:%j!<%@!<(B) $B$,(B emacs-w3m $B$r%5%]!<%H$7$F$$$k$C$F!"CN$C(B +$B$F$$$^$7$?$+(B? $B<B$O!"%P!<%8%g%s(B 22.1 $B0J>e$N(B Emacs $B$KF1:-$5$l$F$$$k(B +Gnus $B$O(B emacs-w3m $B$r%5%]!<%H$9$k$s$G$9!#$b$7$"$J$?$N(B Emacs $B$,$$$/$i$+8E(B +$B$$$N$J$i$P!":G?7HG$N(B Gnus $B$r;H$&$N$,NI$$$G$7$g$&!#$=$l$O0J2<$N>l=j$G<j(B +$B$KF~$j$^$9(B: + +`ftp://ftp.gnus.org/pub/gnus/gnus.tar.gz' + + * Emacs-w3m $B$G2?$,$G$-$k$N(B? + + HTML $B$N(B spam $B%a!<%k$r!"(Bemacs-w3m $B$r;H$C$F?M4V$,FI$a$k$h$&$KJQ49$9(B + $B$k$3$H$,$G$-$^$9!#$b$A$m$s(B HTML $B$N(B ham $B%a!<%k(B (spam $B$G$O$J$$%a!<%k(B) + $B$KBP$7$F$bF/$-!"$I$A$i$N>l9g$G$b(B emacs-w3m $B$O%G%U%)%k%H$NJQ494o$h(B + $B$j$b$?$V$sB.$$$G$7$g$&!#DI2C$NA`:n$OI,MW$"$j$^$;$s!#$=$l$OC1$KI=<((B + $B$5$l$^$9!#(B + + $B5-;v%P%C%U%!$N(B HTML $B$NItJ,$G$O(B `w3m-minor-mode' $B$,(B on $B$K$J$C$F!"(B + emacs-w3m $B$N$HF1$8<gMW$J%-!<$r;H$&$3$H$,$G$-$^$9!#Nc$($P(B `<RET>' + $B$O!"8=:_0LCV$N%j%s%/$,;X$7<($9%Z!<%8$K9T$-$^$9!#$=$l$i$N%-!<$OJQ?t(B + `w3m-minor-mode-command-alist' $B$GDj5A$5$l$F$$$^$9!#J]0B>e$NM}M3$+(B + $B$i!"$$$/$D$+$N%3%^%s%I$O$=$l$K;w$?JL$N%3%^%s%I$GCV$-49$($i$l$F$$$k(B + $B$3$H$r?4$KN1$a$F$*$$$F$/$@$5$$(B ($B2<5-;2>H(B)$B!#(B + + * $B2?$r$7$J$1$l$P$$$1$J$$$N(B? + + Gnus $B$N%^%K%e%"%k$rFI$s$G$/$@$5$$(B (*Note Display Customization: + (emacs-mime)Display Customization.)$B!#:G$b4JC1$JJ}K!$O!"0J2<$N9T$r(B + `~/.gnus.el' $B%U%!%$%k$KF~$l$k$3$H$G$9(B: + + (setq mm-text-html-renderer 'w3m) + + $B$5$i$K!"5-;v%P%C%U%!$G2hA|$rI=<($7$?$$>l9g$O!"0J2<$N9T$rF~$l$F$/$@(B + $B$5$$!#(B + + (setq mm-inline-text-html-with-images t) + + $B5-;v%P%C%U%!$G(B emacs-w3m $B$N%-!<$r;H$&I,MW$,L5$$$J$i$P!"0J2<$N9T$b(B + $BDI2C$7$F$/$@$5$$(B: + + (setq mm-inline-text-html-with-w3m-keymap nil) + + * $B$4Cm0U(B + + $BA0$K(B spam $B$H(B ham $B$N$3$H$r=q$$$?$N$O$U$6$1$F$$$k$o$1$G$O$J$/$F!"$"(B + $B$J$?$NCm0U$r4-5/$9$k$?$a$K$^$5$K$3$3$K$"$k$N$G$9!#(BHTML $B%a!<%k$K$O(B + `<img>' $B%?%0$r;H$C$?(B spammers (spam $B$r$P$i$^$/$d$+$i(B) $B$NH\Nt$J0-9*(B + $B$_$,4^$^$l$F$$$k$+$b$7$l$^$;$s!#$=$l$O(B `Click Here!' $B%\%?%s$h$j$O(B + $B$k$+$KM-32$G$9!#:G$b$"$j$=$&$J$N$O!"$=$s$J$?$A$N0-$$(B spam $B$,$"$J$?(B + $B$NL\$K;_$^$C$?$+$I$&$+$r8!::$9$k!"$9$J$o$A$3$N>l9g!"$"$J$?$N%a!<%k(B + $B%"%I%l%9$,M-8z$G$"$k$3$H$r3NG'$9$k$?$a$N(B spammer $B$N0U?^$,$"$k$3$H(B + $B$G$9!#$=$l$O!"2hA|$rI=<($9$k$H$-$K<+F0E*$K<hF@$7$K9T$/$G$"$m$&(B + URL $B$K!"<1JLJ8;zNs$rKd$a9~$`$3$H$K$h$C$F9T$J$o$l$^$9!#JQ?t(B + `mm-w3m-safe-url-regexp' $B$,%G%U%)%k%HCM$+$iJQ99$5$l$F$$$J$1$l$P!"(B + Gnus $B$,>!<j$K(B spammer $B$N%5%$%H$K@\B3$9$k$3$H$O$"$j$^$;$s!#(B + + `mm-inline-text-html-with-images' $B$r(B `t' $B$K$9$l$P!"5-;v%P%C%U%!$K(B + $B%$%s%i%$%s2hA|$rI=<($9$k$3$H$,$G$-$^$9$h$M(B? $B$$$$$(!"CG$8$F0c$$$^(B + $B$9!#$"$J$?$O$^$@<i$i$l$F$$$k$N$G$9!#$"$J$?$N%a!<%k%"%I%l%9$,E~C#2D(B + $BG=$@$H$$$&;v<B$,O3$l$k$3$H$r5$$K$7$J$$$N$G$"$l$P!"JQ?t(B + `mm-w3m-safe-url-regexp' $B$r(B `nil' $B$K$7$F$/$@$5$$!#(B + `mm-w3m-safe-url-regexp' $B$N%G%U%)%k%HCM$O(B `"\\`cid:"' $B$G!"$3$l$O;d(B + $B$?$A$,(B `cid:' URL $B$K$h$C$F%a!<%k$K4^$^$l$F$$$k2hA|$,0BA4$@$H9M$($F(B + $B$$$k$3$H$r0UL#$7$^$9(B ($B$9$J$o$A!"(B`mm-w3m-safe-url-regexp' $B$rJQ99$7(B + $B$J$/$F$b!"$=$N$h$&$J2hA|$OI=<($9$k$3$H$,$G$-$^$9(B)$B!#(B + + * $B$*$^$1(B + + $B35N,%P%C%U%!$K$$$k$H$-$G$b!"5-;v%P%C%U%!$N2hA|I=<($r%H%0%k$K@Z$j49(B + $B$($k$3$H$,$G$-$^$9!#$=$l$i$N2hA|$,(B emacs-w3m $B$K$h$C$FI=<($5$l$k>l(B + $B9g$@$1$G$9$1$l$I$M!#Nc$G$9(B: + + (defun gnus-summary-w3m-safe-toggle-inline-images (&optional arg) + "Toggle displaying of all images in the article buffer. + If the prefix arg is given, force displaying of images." + (interactive "P") + (with-current-buffer gnus-article-buffer + (let ((st (point-min)) + (nd (point-max)) + (w3m-async-exec w3m-async-exec)) + (save-restriction + (widen) + (if (or (> st (point-min)) (< nd (point-max))) + (setq w3m-async-exec nil)) + (article-goto-body) + (goto-char (or (text-property-not-all (point) (point-max) + 'w3m-safe-url-regexp nil) + (point))) + (if (interactive-p) + (call-interactively 'w3m-toggle-inline-images) + (w3m-toggle-inline-images arg)))))) + + (eval-after-load "gnus-sum" + '(define-key gnus-summary-mode-map + "\C-i" 'gnus-summary-w3m-safe-toggle-inline-images)) + +*Note Nnshimbun:: $B$b;2>H$7$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Mew, Next: SEMI MUAs, Prev: Gnus, Up: Hooking into MUAs + +Mew $A$G(B HTML $A%a$B!<$A%k$r$BFI$A$`(B +======================== + +Emacs-w3m $B$r;H$&$3$H$K$h$C$F!"(BText/Html $B$r(B Message $B%b!<%I$KI=<($G$-$k$h(B +$B$&$K$J$j$^$9!#0J2<$N@_Dj$r(B `~/.mew.el' $B%U%!%$%k$K2C$($F$/$@$5$$(B: + + (require 'mew-w3m) + +$B$3$l$G!"$"$?$+$b(B Text/Plain $B$G$"$k$+$N$h$&$K!"(BText/Html $B$r(B Message $B%b!<(B +$B%I$KI=<($G$-$k$h$&$K$J$j$^$9!#$3$N:]$b!"(B`C-c C-e' $B$NA`:n$OM-8z$G(B +$B$9!#(B + +$B$3$N$4$m!"F1$8>pJs$rFs$D4^$s$G$$$k%a!<%k$rHs>o$K$h$/8+$+$1$^$9!#$=$l$i(B +$B$O(B `text/plain' $B%Q!<%H$H(B `text/html' $B%Q!<%H$NN>J}$+$i@.$k(B ($B2?$A$e$&%P%s(B +$B%II}$NL5BL;H$$$@(B) `multipart/alternative' $B%U%)!<%^%C%H$r;H$C$F$$$^$9!#(B +Mew $B$O%G%U%)%k%H$G$O(B `text/plain' $B%Q!<%H$@$1$rI=<($7$^$9!#$"$J$?$O(B +emacs-w3m $B$r;H$C$F$$$k$N$G$9$+$i!"(B`text/html' $B%Q!<%H$NJ}$rM%@h$7$?$/$J(B +$B$k$+$b$7$l$^$;$s!#$=$l$J$i$P!"0J2<$N@_Dj$r(B `~/.mew.el' $B%U%!%$%k$K2C$($F(B +$B$/$@$5$$(B: + + (setq mew-mime-multipart-alternative-list + '("Text/Html" "Text/Plain" ".*")) + +Mew $B$K4XO"$9$k$$$/$D$+$N%+%9%?%^%$%:2DG=$JJQ?t$,$"$j$^$9(B: + +`mew-use-w3m-minor-mode' + $BHs(B-`nil' $B$K$9$k$H!"(Btext/html $B%Q!<%H$,I=<($5$l$F$$$k%a%C%;!<%8%P%C(B + $B%U%!$K$*$$$F(B `w3m-minor-mode' $B$,(B on $B$K$J$j!"(Bemacs-w3m $B$N$HF1$8<gMW(B + $B$J%-!<$r;H$&$3$H$,$G$-$^$9!#Nc$($P(B `<RET>' $B$O!"8=:_0LCV$N%j%s%/$,(B + $B;X$7<($9%Z!<%8$K9T$-$^$9!#$=$l$i$N%-!<$OJQ?t(B + `w3m-minor-mode-command-alist' $B$GDj5A$5$l$F$$$^$9!#J]0B>e$NM}M3$+(B + $B$i!"$$$/$D$+$N%3%^%s%I$O$=$l$K;w$?JL$N%3%^%s%I$GCV$-49$($i$l$F$$$k(B + $B$3$H$r?4$KN1$a$F$*$$$F$/$@$5$$!#%G%U%)%k%HCM$O(B `nil' $B$G$9!#(B + +`mew-w3m-auto-insert-image' + $BHs(B-`nil' $B$K$9$k$H!"(Bmultipart/related $B$J%a%C%;!<%8$rFI$s$G$$$k$H$-(B + $B$K!"%a%C%;!<%8%P%C%U%!$G2hA|$r%$%s%i%$%sI=<($5$;$k$3$H$,$G$-$^$9!#(B + mew-w3m $B$O!"I=<($9$k$?$a$K(B `cid:' URL $B$K$h$C$F%a!<%k$NK\J8$K4^$^$l(B + $B$F$$$k2hA|$@$1(B ($B;d$?$A$O$=$l$i$r0BA4$@$H9M$($F$$$^$9(B) $B$r5v2D$9$k$3(B + $B$H$KCm0U$7$F$/$@$5$$!#%G%U%)%k%HCM$O(B `nil' $B$G$9!#(B + + $B$3$3$G!"(B`~/.mew.el' $B$K(B + + (define-key mew-summary-mode-map "T" 'mew-w3m-view-inline-image) + + $B$H=q$/$H!"(B"T" $B$r2!$9$3$H$K$h$C$F!"2hA|I=<($N>uBV$r%H%0%k$9$k$3$H$,(B + $B$G$-$^$9!#$^$?!"(B"C-uT" $B$H(B prefix $B$r$D$1$k$H!"%a!<%kK\J8$K4^$^$l$F(B + $B$$$J$$2hA|$bI=<($7$^$9!#(B + +`mew-w3m-cid-retrieve-hook' + `cid:' URL $B$r<h$j=P$7$?8e$G<B9T$5$l$k%U%C%/$G$9!#%G%U%)%k%HCM$O(B + `nil' $B$G$9!#(B + +*Note Mew Shimbun:: $B$b;2>H$7$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: SEMI MUAs, Next: VM, Prev: Mew, Up: Hooking into MUAs + +SEMI MUA $A$G(B HTML $A%a$B!<$A%k$r$BFI$A$`(B +============================= + +Emacs-w3m $B$H(B SEMI MUA$B!"Nc$($P(B Wanderlust $B$r;H$&$3$H$K$h$C$F!"(BHTML $B%a!<(B +$B%k$r?M4V$,FI$a$k$h$&$KI=<($9$k$3$H$,$G$-$^$9!#$=$&$$$&(B MUA $B$O(B MIME $B$N5!(B +$BG=$r(B SEMI ($B$=$7$F$5$i$K(B FLIM) $B$KMj$C$F$$$k$N$G!"0lHL$K$=$l$r(B SEMI MUA +$B$H8F$s$G$$$^$9!#(BSEMI $B$O(B HTML $B%a!<%k$NIA2h$K%G%U%)%k%H$G(B Emacs/W3 $B$r;H$$(B +$B$^$9$,!"MF0W$K(B emacs-w3m $B$GCV$-49$($k$3$H$,2DG=$G$9!#$=$l$K$h$C$F$"$J$?(B +$B$NEEG>@83h$O$h$j2wE,$K$J$k$G$7$g$&!#(B + +$BC1$K0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$KF~$l$l$PNI$$$N$G$9(B: + + (require 'mime-w3m) + +`mime-w3m' $B%b%8%e!<%k$H(B `mime-w3' $B%b%8%e!<%k$O!"$4A[A|$NDL$j5!G=E*$K$[(B +$B$\F1$8$b$N$G$9(B ($BL>A0$b;w$F$$$k$G$7$g$&(B?)$B!#8e<T$O(B SEMI $B%Q%C%1!<%8$K4^$^(B +$B$l$F$$$^$9!#(B + +$B5-;v%P%C%U%!$N(B HTML $B$NItJ,$G$O(B `w3m-minor-mode' $B$,(B on $B$K$J$C$F!"(B +emacs-w3m $B$N$HF1$8<gMW$J%-!<$r;H$&$3$H$,$G$-$^$9!#Nc$($P(B `<RET>' $B$O!"8=(B +$B:_0LCV$N%j%s%/$,;X$7<($9%Z!<%8$K9T$-$^$9!#$=$l$i$N%-!<$OJQ?t(B +`w3m-minor-mode-command-alist' $B$GDj5A$5$l$F$$$^$9!#J]0B>e$NM}M3$+$i!"$$(B +$B$/$D$+$N%3%^%s%I$O$=$l$K;w$?JL$N%3%^%s%I$GCV$-49$($i$l$F$$$k$3$H$r?4$K(B +$BN1$a$F$*$$$F$/$@$5$$!#(B + +`mime-w3m' $B%b%8%e!<%k$K4XO"$9$k$$$/$D$+$N%+%9%?%^%$%:2DG=$JJQ?t$,$"$j$^(B +$B$9(B: + +`mime-w3m-display-inline-images' + $BHs(B-`nil' $B$@$C$?$i!"2hA|$,(B HTML $B%a!<%k$K%$%s%i%$%sI=<($5$l$^$9!#:G(B + $B=i$K(B `default' $B$H$$$&%7%s%\%k$@$C$?$i(B ($B$=$l$,%G%U%)%k%H$G$9(B)$B!"$3$N(B + $BJQ?t$NCM$O!"JQ?t(B `w3m-default-display-inline-images' $B$NCM$GCV$-49(B + $B$($i$l$^$9!#$?$V$s!"$"$J$?$O$3$l$rJQ99$9$kI,MW$OL5$$$G$7$g$&!#(B + +`mime-w3m-safe-url-regexp' + $B0BA4$G$"$k$H9M$($i$l$k(B URL $B$K%^%C%A$9$k@55,I=8=$G$9!#%G%U%)%k%HCM(B + $B$O(B `"\\`cid:"' $B$G!";d$?$A$O(B `cid:' URL $B$K$h$C$F%a!<%k$K4^$^$l$?2h(B + $BA|$,0BA4$@$H9M$($F$$$k$3$H$r0UL#$7$^$9!#0-4A$K$h$k967b$K$D$$$F$O(B + *Note Gnus:: $B$r;2>H$7$F$/$@$5$$!#(B + +`mime-w3m-setup-hook' + `mime-w3m' $B%b%8%e!<%k$H(B SEMI $B$N6(D4F0:n$r@_Dj$7$?D>8e$K<B9T$5$l$k(B + $B%U%C%/$G$9!#%G%U%)%k%HCM$O(B `nil' $B$G$9!#(B + +$B$H$3$m$G!"(Bsummary $B%P%C%U%!$K$$$k$H$-$G$b!"(Barticle $B%P%C%U%!(B (Wanderlust +$B$N%3%_%e%K%F%#$G$O(B message $B%P%C%U%!$H8F$P$l$F$$$k(B) $B$N2hA|I=<($r%H%0%k$K(B +$B@Z$j49$($k$3$H$,$G$-$^$9!#$=$l$i$N2hA|$,(B emacs-w3m $B$K$h$C$FI=<($5$l$k>l(B +$B9g$@$1$G$9$1$l$I$M!#(BWanderlust $BMQ$NNc$G$9(B: + + (defun wl-summary-w3m-safe-toggle-inline-images (&optional arg) + "Toggle displaying of all images in the message buffer. + If the prefix arg is given, all images are considered to be safe." + (interactive "P") + (with-current-buffer wl-message-buffer + (w3m-toggle-inline-images arg))) + + (eval-after-load "wl-summary" + '(define-key wl-summary-mode-map + "\M-i" 'wl-summary-w3m-safe-toggle-inline-images)) + + + +File: emacs-w3m-ja.info, Node: VM, Prev: SEMI MUAs, Up: Hooking into MUAs + +VM (vieW maiL) $A$O(B Wanderlust $A$K$"$i$:(B +===================================== + +VM $B$G(B html $B%a!<%k$rI=<($9$k5!G=$rDs6!$9$k(B vm-w3m.el $B%b%8%e!<%k$H%Q%C%A(B +$B$O(B VM $B$N?7$7$$%a%$%s%F%$%J!<$K0z$-7Q$,$l$^$7$?$,!"$^$@(B VM $B$N0BDjHG$K8=(B +$B$l$F$$$^$;$s!#(BVM $A%[$B!<$A%`%Z$B!<$A%8(B (http://www.nongnu.org/viewmail/) $B$rK,$M(B +$B$F$_$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Frequently Asked Questions, Next: Known Problems, Prev: Hooking into MUAs, Up: Top + +$A1X$:4p$,$"$k$H$OO^$i$J$$(B +************************ + +* Menu: + +* General FAQ:: $B0lHLE*$J<ALd(B +* Trouble FAQ:: $B%H%i%V%k(B +* Shimbun FAQ:: Shimbun $B$K4X$9$k<ALd(B + + + +File: emacs-w3m-ja.info, Node: General FAQ, Next: Trouble FAQ, Prev: Frequently Asked Questions, Up: Frequently Asked Questions + +$AR;0c5D$J$(Go3YB(B +============ + + * Q. emacs-w3m $B$C$F2?$G$9$+(B? + + w3m $B$r(B Emacs $B>e$GF0$+$9%$%s%?!<%U%'!<%9%W%m%0%i%`$G$9!#(BEmacs $B>e$G(B + $BF0$/%&%'%V%V%i%&%6$H$7$F;H$&$3$H$b$G$-$^$9!#$5$i$J$k>pJs$O(B *Note + Introduction:: $B$b;2>H$7$F$/$@$5$$!#(B + + * Q. $BF0:n$9$k(B Emacs $B$O(B? + + $B0J2<$N(B Emacsen $B$GF0:n$9$k$3$H$,3NG'$5$l$F$$$^$9!#(B + + * Emacs 21 + * Emacs 22 + * XEmacs 21.4.17 $B0J>e!"(BMule $BM-$j(B/$BL5$7(B + * XEmacs 21.5-b19 $B0J>e!"(BMule $BM-$j(B/$BL5$7(B + * Meadow + + $B$J$*!"(BXEmacs $B$G$O(B APEL $B$,I,MW$H$J$j$^$9!#>\$7$/$O(B *Note Other + Requirements:: $B$r3NG'$7$F$/$@$5$$!#(B + + * Q. $BF0:n$9$k(B w3m $B$O(B? + + $B0J2<$N(B w3m $B$GF0:n$9$k$3$H$,3NG'$5$l$F$$$^$9!#(B + + * w3m-0.3 + * w3mmee-p24-18 + moe-1.5.4 + + $BNc$K>e$2$?(B w3mmee $B$O(B `lang=many' $B$G(B configure $B$5$l$F$$$k(B ($B$=(B + $B$l$O(B `configure' $B%9%/%j%W%H$,(B `Which language do you + prefer?' $B$H?R$M$?$H$-$K(B 3 $B$rF~NO$9$k$3$H$K$h$C$F$G$-$^$9(B) $B$3(B + $B$H$KCm0U$7$F$/$@$5$$!#$5$i$K$=$l$O(B `libmoe' $B%Q%C%1!<%8$rI,MW(B + $B$H$7$^$9!#(B + + * Q. XEmacs $B$N(B SUMO $B%Q%C%1!<%8$K4^$^$l$F$$$k(B APEL $B$r%$%s%9%H!<%k$7$F(B + $B$"$k$N$G$9$,(B? + + XEmacs $B$N(B APEL $B%Q%C%1!<%8(B ($B$9$Y$F$N%b%8%e!<%k$,(B Mule $BIU$-$N(B + XEmacs $BMQ$K%3%s%Q%$%k$5$l$F$$$k(B) $B$K$O$$$m$$$mLdBj$,$"$j$^$9!#Nc$((B + $B$P(B `std11' $B%b%8%e!<%k$,(B FLIM $B$N$b$N$H$+$A9g$&!"$J$I!#$=$l$G$b(B + `apel-1.23-pkg.tar.gz' $B0J>e$N$b$N$@$C$?$i!"$=$7$F(B `shimbun' $B$N5!G=(B + $B$N$?$a$K(B FLIM $B$r;H$o$J$$$J$i$P!"(BMule $BIU$-$HL5$7N>J}$N(B XEmacs $B$G;H(B + $B$($k$N$G$9$,!"%*%j%8%J%k$N(B APEL $B$GCV$-49$($k$+?75,$K%$%s%9%H!<%k$9(B + $B$k$3$H$r4+$a$^$9!#<hF@>l=j$O(B *Note Other Requirements:: $B$r8+$F$/$@(B + $B$5$$!#(B + + * Q. CVS $B$G:G?7HG$r<hF@$7$?$N$G$9$,!"(B`configure' $B%9%/%j%W%H$,8+$D$+(B + $B$j$^$;$s!#(B + + `autoconf' $B$r<B9T$7$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Trouble FAQ, Next: Shimbun FAQ, Prev: General FAQ, Up: Frequently Asked Questions + +$A%H%i%V%k(B +======== + + * Q. $BG'>Z$NI,MW$J%Z!<%8$N%Q%9%o!<%I$,F~NO$G$-$^$;$s!#(B + + $BJQ?t(B `w3m-async-exec' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'(B + $B$7$F$/$@$5$$!#(B + + * Q. $BG'>Z$NI,MW$J(B proxy $B%5!<%P!<$N%Q%9%o!<%I$,F~NO$G$-$^$;$s!#(B + + $BJQ?t(B `w3m-async-exec' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'(B + $B$7$F$/$@$5$$!#(B + + * Q. $B%j%s%/$,$?$I$l$^$;$s!#(B + + `-header' $B%*%W%7%g%s$r<u$1IU$1$k(B w3m $B%3%^%s%I$,I,MW$G$9!#(Bw3m $B$N%P!<(B + $B%8%g%s$r3NG'$7$F$/$@$5$$!#(B + + * Q. $BJ8;z2=$1$7$^$9!#(B + + $B$$$/$D$+$N860x$,$"$j$^$9!#(B + + 1. HTML $B%U%!%$%k$NLdBj(B + + HTML $B%U%!%$%kCf$G(B `<meta>' $B%?%0$K$h$C$F;XDj$5$l$F$$$kJ8;z%3!<%I$H!"(B + $B<B:]$NJ8;z%3!<%I$,0[$J$k$H!"@5>o$KI=<($5$l$^$;$s!#(B + `M-x w3m-redisplay-with-charset <RET>' $B$^$?(B + $B$O(B `C c' $B%3%^%s%I$r;H$C$F!"@5$7$$J8;z%3!<%I$r;XDj$7$F:FIA2h$7$F(B + $B$/$@$5$$!#(B + + 2. $BJ8;z%3!<%I(B + + ISO-2022-JP(jis), EUC-JP $B$^$?$O(B SHIFT_JIS $B0J30$NJ8;z%3!<%I$G(B + $B5-=R$5$l$?%Z!<%8$K$D$$$F$O!"I=<($G$-$J$$>l9g$,$"$j$^$9!#<!$N(B + $B$$$:$l$+$NJ}K!$GBP=h$7$F$/$@$5$$!#(B + + a. Mule-UCS (*Note Other Requirements::) $B$r%$%s%9%H!<%k$9$k(B + $B$H!"(BUnicode $B$GDj5A$5$l$F$$$kHO0O$NJ8;z$OI=<($G$-$k$h$&$K(B + $B$J$j$^$9!#%$%s%9%H!<%k8e!"JQ?t(B `w3m-use-mule-ucs' $B$,(B + `nil' $B0J30$NCM$K@_Dj$5$l$F$$$k$3$H$r3NG'$7$F$/$@$5$$!#$J(B + $B$*!"(BEmacs ($B$=$l$K(B emacs-w3m $B$b(B) $B$,(B EUC-JISX0213 $B$*$h$S(B + ISO-2022-JP-3 $B$NJ8;z%3!<%I$r07$($k$h$&$K$9$k$K$O!"(B + Mule-UCS $B$KImB0$7$F$$$k(B `jisx0213' $B%b%8%e!<%k$r%$%s%9%H!<(B + $B%k$9$kI,MW$,$"$j$^$9(B ($B;DG0$J$,$i(B XEmacs $B$G$O;H$($^$;$s(B + $B$,(B)$B!#(B + + b. w3mmee $B$d(B w3m-m17n $B$r%$%s%9%H!<%k$7$F!"JQ?t(B + `w3m-command' $B$KE,@Z$JCM$r@_Dj$7$F$/$@$5$$!#$3$N$h$&$K@_(B + $BDj$9$k$H!"(Bemacs-w3m $B$O$3$l$i$N%W%m%0%i%`$,Ds6!$9$kB?8@8l(B + $B5!G=$rMxMQ$9$k$h$&$K$J$j$^$9!#$?$@$7!"(BEmacs $B$,07$($kJ8;z(B + $B%3!<%I$K8B$i$l$^$9$N$G!"I,MW$K1~$8$F(B Mule-UCS $B$b%$%s%9%H!<(B + $B%k$7$F$/$@$5$$!#(B + + 3. Emacsen $B$NLdBj(B + + XEmacs 21.1 $B$G$O(B SHIFT_JIS $B$N%Z!<%8$,2=$1$k$3$H$,$"$j$^$9!#$^(B + $B$?!"(BXEmacs 21.2 $B$G$b(B beta36 $B0JA0$G$OLdBj$,$"$j$^$9!#$=$&$$$&(B + $B$b$N$r;H$C$F$$$k>l9g$O(B XEmacs $B$r%"%C%W%0%l!<%I$7$F$/$@$5$$!#(B + + XEmacs 21.1 $B$H(B 21.2 $B$O!"$9$G$K8x<0$K$*Lr8fLH$K$J$C$?$3$H$rG'(B + $B<1$7$F$/$@$5$$!#(B + + 4. `standard-display-european' $B$r;H$o$J$$$G$/$@$5$$(B + + $B$=$l$O$7$P$7$P(B Latin $BJ8;z$r@5$7$/I=<($5$;$J$$$N$G!"35$7$FM-32(B + $B$G$9!#Nc$($P!"(B`’' $B$H$7$F%(%s%3!<%I$5$l$?%"%]%9%H%m%U%#J8(B + $B;z(B (`'') $B$O!"$=$l$,$"$?$+$b(B `ù' $B$H$7$F%(%s%3!<%I$5$l$?$+(B + $B$N$h$&$K!"Dc%"%/%;%s%H(B (a grave accent) $B$,IU$$$?J8;z(B `u' $B$H$7(B + $B$FI=<($5$l$k$G$7$g$&!#$"$J$?$N(B `~/.emacs' $B%U%!%$%k$+!"(BEmacs + $B$,5/F0;~$KFI$_9~$`(B site $B%U%!%$%k$K!"2?$+0J2<$N$h$&$J9T$,$"$k(B + $B$J$i$P!"$=$l$r<h$j=|$/$3$H$r6/$/4+$a$^$9!#(B + + (standard-display-european 1) + + $B$=$3$G$O!"0z?t$O(B `1' $B$G$O$J$/$F(B `t' $B$+$b$7$l$^$;$s!#(B + + * Q. $B2hA|I=<($G$-$^$;$s!#(B + + $B$$$/$D$+$N860x$,$"$j$^$9!#(B + + $B8E$$%P!<%8%g%s$N(B `libungif' $B%i%$%V%i%j$K$O%P%0$,$"$j$^$9!#(B + `libungif-4.1.0b1' $B0J9_$N$b$N$r%$%s%9%H!<%k$7$J$1$l$P$J$j$^$;$s!#(B + + XEmacs $B$G$OI,$:(B `gifsicle' $B%W%m%0%i%`$r%$%s%9%H!<%k$7$F$/$@$5$$!#(B + $B8=:_MxMQ$G$-$k$9$Y$F$N(B XEmacs 21.x $B$K$O%P%0$,$"$j!"(Bemacs-w3m $B$G$O(B + $B$3$l$r;H$C$FBP:v$7$F$$$^$9(B (*Note Other Requirements::)$B!#(B + + $B8E$$(B w3m $B%3%^%s%I$G$O@5>o$KI=<($G$-$^$;$s!#(Bw3m $B$N%P!<%8%g%s$r3NG'(B + $B$7$F$/$@$5$$!#(B + + * Q. Cookie $B$,I,MW$J%Z!<%8$r1\Mw$G$-$^$;$s!#(B + + ($B$^$@<B83E*$J5!G=$G$9!#(B) + + $BJQ?t(B `w3m-use-cookies' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'(B + $B$7$F$/$@$5$$!#(B + + * Q. $B%U%)!<%`$KF~NO$G$-$^$;$s!#(B + + ($B$^$@<B83E*$J5!G=$G$9!#(B) + + $BJQ?t(B `w3m-use-form' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'$7(B + $B$F$/$@$5$$!#(B + + * Q. $B%U%)!<%`$rAw?.$G$-$^$;$s!#(B + + ($B$^$@<B83E*$J5!G=$G$9!#(B) + + $BJQ?t(B `w3m-use-form' $B$K(B `nil' $B0J30$NCM$,@_Dj$5$l$F$$$k$3$H$r3NG'$7(B + $B$F$/$@$5$$!#$3$N5!G=$r;H$&$K$O!"(B`-post' $B%*%W%7%g%s$rG'<1$9$k(B w3m + $B%3%^%s%I$,I,MW$G$9!#(Bw3m $B$N%P!<%8%g%s$r3NG'$7$F$/$@$5$$!#(B + + * Q. $B%U%l!<%`$,%l%s%@%j%s%0$5$l$^$;$s!#(B + + w3mmee $B$r%$%s%9%H!<%k$7$F!"0J2<$N@_Dj$r(B `~/.emacs' $B%U%!%$%k$KF~$l(B + $B$F$/$@$5$$(B: + + (setq w3m-command "w3mmee") + + * Q. GNU Emacs $B$N(B tab $B9T$K(B favicon $B$,I=<($5$l$J$$$N$G$9$,!#(B + + Image Magick $B$K4^$^$l$F$$$k(B `convert' $B%W%m%0%i%`$r%$%s%9%H!<%k$7$F(B + $B$/$@$5$$!#(B`http://www.imagemagick.org/' $B$+$iF~<j$G$-$^$9!#(B + + * Q. GNU Emacs $B$G(B favicon $B$rI=<($7$h$&$H$7$?$N$G$9$,!"(BEmacs $B$,%m%C%/(B + $B$7$^$7$?!#(B + * Q. Emacs-w3m $B$rN)$A>e$2$h$&$H$7$?$i!"7c$7$/%G%#%9%/%"%/%;%9$7$?8e!"(B + `process convert exited abnormally with code 10' $B$J$I$HI=<($5$l$^(B + $B$7$?!#$I$&$J$C$F$$$k$s$G$7$g$&(B? + + $B8E$$%P!<%8%g%s$N(B Image Magick $B$r;H$C$F$$$^$;$s$+(B? + ImageMagick-5.2.1 $B$KIUB0$7$F$$$k(B `convert' $B$r;H$C$F$$$k$H!"$=$&$J(B + $B$k$3$H$,CN$i$l$F$$$^$9!#(BImageMagick-5.4.0-5 ($B0J>e(B) $B$KIUB0$7$F$$$k(B + `convert' $B$G$O!"@5>oF0:n$,3NG'$5$l$F$$$^$9!#(B + + $B$b$7(B ImageMagick $B$,;H$($J$$!"$^$?$O;H$$$?$/$J$$>l9g$O(B + `~/.emacs-w3m' $B%U%!%$%k$K(B + + (setq w3m-use-favicon nil) + + $B$N@_Dj$rDI2C$7$F$/$@$5$$!#(B + + * Q. $B$J$<(B emacs-w3m $B$,(B w3mmee $B$GF0:n$7$J$$$N$G$9$+(B? + + $B$b$7(B `lang=en' $B$^$?$O(B `lang=ja' $B$G(B configure $B$5$l$?(B w3mmee $B$r;H$C(B + $B$F$$$k$N$J$i$P!"(B`lang=many' $B$G(B configure $B$7D>$7$F(B ($B$=$l$O(B + `configure' $B%9%/%j%W%H$,(B `Which language do you prefer?' $B$H?R$M$?(B + $B$H$-$K(B 3 $B$rF~NO$9$k$3$H$K$h$C$F$G$-$^$9(B)$B!"(Bw3mmee $B$r:F9=C[$7$F$/$@(B + $B$5$$!#(B + + * Q. $B$J$<(B emacs-w3m $B$G(B web $B%Z!<%8$,8+$($J$$$N$G$7$g$&$+(B? $B%m!<%+%k$J(B + html $B%U%!%$%k$r8+$?$j!"AG$N(B w3m $B$r;H$&>l9g$OLdBjL5$$$N$G$9$,!#(B + + $B$"$k(B Linux $B$NG[I[(B ($BNc$($P(B Gentoo Linux) $B$,4^$s$G$$$k(B w3m $B%3%^%s%I(B + $B$K$O!"(Basync $B%Q%C%A(B (1) (*Note Trouble FAQ-Footnotes::) $B$H$$$&$b$N(B + $B$,Ev$?$C$F$$$^$9!#$=$l$OAG$N(B w3m $B%3%^%s%I$r;H$&$H$-$KM-MQ$J$N$G$9(B + $B$,!"(Bemacs-w3m $B$r%O%s%0$5$;$k$+$b$7$l$^$;$s!#$=$l$,5?$o$l$k$J$i$P!"(B + w3m $B%3%^%s%I$r%=!<%9$+$i:F%$%s%9%H!<%k$9$k$3$H$r4+$a$^$9!#(B + + * Q. $B$J$<(B emacs-w3m $B$N%U%l!<%`$,%]%C%W%"%C%W$7$J$$$N$G$9$+(B? + + Emacs-w3m $B$N%U%l!<%`$,B>$N%U%l!<%`$N2<$K1#$l$F$$$F$b!"$=$l(B + $B$,(B `M-x w3m <RET>' $B%3%^%s%I$G%]%C%W%"%C%W$9$k$N$O!"$+$J$jJX(B + $BMx$G$9!#$7$+$7!"(B`metacity' $B%&%#%s%I%&!&%^%M!<%8%c!<$,;H$o$l$k$$$/$D(B + $B$+$N%W%i%C%H%U%)!<%`(B ($BNc$($P(B Fedora Linux) $B>e$G:n$i$l$?(B Emacs $B$rAv$i$;$k(B + $B>l9g$K!"$=$l$,F/$+$J$$$H$$$&Js9p$,$"$j$^$7$?!#$=$l$i$N%7%9%F%`$G$O!"(B + Emacs $B$N%U%l!<%`$r%]%C%W%"%C%W$5$;$kB>$N5!G=$bF0$+$J$$$G$7$g$&!#$b$7$"$J(B + $B$?$,$=$s$J;4$a$J6-6x$K$"$k$J$i$P!"0J2<$N(B advice $B$r;n$92ACM$,$"$k$+$b$7$l(B + $B$^$;$s!#(B + + (if (or (not window-system) (featurep 'xemacs)) + nil + (defadvice raise-frame + (after make-it-work (&optional frame) activate) + "Make it work with the aid of wmctrl." + (call-process + "wmctrl" nil nil nil "-i" "-R" + (frame-parameter (or frame (selected-frame)) + 'outer-window-id)))) + + $B$3$3$G(B `wmctrl' $B$O!"0J2<$N>l=j$G<hF@$G$-$k30It%3%^%s%I$G$9!#(B + + `http://sweb.cz/tripie/utils/wmctrl/' + + Advice $B$r(B `~/.emacs' $B%U%!%$%k$K=q$-9~$`A0$K!"(B`wmctrl' $B%3%^%s%I$r%$(B + $B%s%9%H!<%k$7$J$1$l$P$J$i$J$$$3$H$K!"Cm0U$7$F$/$@$5$$!#(B + + $B<!$N$b$N$O:#$N$H$3$m(B emacs-w3m $B$G$OITMW$G$9$,!"$"$k<o$N%"%W%j%1!<(B + $B%7%g%s$,F0:n$9$k$?$a$KI,MW$G$9!#(B($BA0$N$b$N$,I,MW$J4D6-$G$O!"$3$l$r(B + $B2C$($F$b<:$&$b$N$O$"$j$^$;$s!#(B) + + (if (or (not window-system) (featurep 'xemacs)) + nil + (defadvice pop-to-buffer (after enable-it-to-forcus-frame + activate) + "Enable it to focus frame if `pop-up-frames' is non-nil." + (when pop-up-frames + (let ((id (condition-case nil + (frame-parameter + (window-frame + (get-buffer-window (ad-get-arg 0))) + 'outer-window-id) + (error nil)))) + (when id + (call-process + "wmctrl" nil nil nil "-i" "-R" id)))))) + + $B:G8e$N$b$N$O$?$V$sMW$i$J$$$G$7$g$&!#$7$+$7!"$$$/$D$+$N%W%i%C%H%U%)!<(B + $B%`$G$O;n$7$F$_$k2ACM$,$"$k$+$b$7$l$^$;$s!#(B + + (if (or (not window-system) (featurep 'xemacs)) + nil + (defadvice select-frame (around set-input-focus + (frame) activate) + "Run `select-frame-set-input-focus'." + (setq ad-return-value (and (framep frame) + (frame-live-p frame) + frame)) + (ad-deactivate 'select-frame) + (unwind-protect + (select-frame-set-input-focus frame) + (ad-activate 'select-frame)))) + + $B$3$l$i$NBP:v$O!"<!$N(B Emacs $B$N%j%j!<%9(B (22.2 $B$^$?$O(B 23.1) $B$G$OITMW(B + $B$K$J$k$G$7$g$&!#(B + + +File: emacs-w3m-ja.info Node: Trouble FAQ-Footnotes, Up: Trouble FAQ + +(1) w3m on cygwin (http://www.page.sannet.ne.jp/knabe/w3m/w3m.html) + + + +File: emacs-w3m-ja.info, Node: Shimbun FAQ, Prev: Trouble FAQ, Up: Frequently Asked Questions + +Shimbun $A$K$(IJ=$A$9$k$(Go3YB(B +==================== + + * Q. $B$J$<(B `shimbun' $B%b%8%e!<%k$,%$%s%9%H!<%k$5$l$J$$$N$G$9$+(B? + + FLIM $B%Q%C%1!<%8$,%$%s%9%H!<%k$5$l$F$$$J$$$H!"(B`shimbun' $B%b%8%e!<%k(B + (`shimbun/' $B%G%#%l%/%H%j$K$"$k%U%!%$%k72(B) $B$O%$%s%9%H!<%k$5$l$J$$$3(B + $B$H$KCm0U$7$F$/$@$5$$!#(B + + `configure' $B%9%/%j%W%H$O<+F0E*$K(B FLIM $B$NM-L5$rH=Dj$9$k$h$&@_7W$5$l(B + $B$F$$$^$9$,!"I8=`E*$G$O$J$$%G%#%l%/%H%j$K(B FLIM $B$,%$%s%9%H!<%k$5$l$F(B + $B$$$k$H!"H=Dj$K<:GT$7$^$9!#$=$N>l9g$O(B `--with-addpath' $B%*%W%7%g%s$r(B + $B;H$C$F!"(BFLIM $B$,%$%s%9%H!<%k$5$l$F$$$k%G%#%l%/%H%j$rL@<(E*$K;XDj$7(B + $B$F$/$@$5$$!#Nc$G$9(B: + + % ./configure --with-addpath=$HOME/share/emacs/site-lisp/flim + + + +File: emacs-w3m-ja.info, Node: Known Problems, Next: Shimbun Library, Prev: Frequently Asked Questions, Up: Top + +$A$"$J$?$J$i$-$C$H=b$(GJn$A$G$-$k(B +************************** + + + + +File: emacs-w3m-ja.info, Node: Shimbun Library, Next: Tips, Prev: Known Problems, Up: Top + +$A%&%'%VIO$NPB$(GjL$A$r$BFI$A$`$?$a$N5@>_(B +****************************** + +$B%&%'%V$G$O!"$^$9$^$9B?$/$N?7J9!"%a!<%j%s%0%j%9%H$N%"!<%+%$%V!"7G<(HD!"(B +$B$"$k$$$O8D?M$NF|5-(B (hyper nikki system$B!"(Bweblogs $B$^$?$O(B blogs) $B$,8x3+$5(B +$B$l$F$$$^$9!#(B`Shimbun' $B%i%$%V%i%j$O!"$=$l$i$N%3%s%F%s%D$r5.J}$N9%$_$N%a!<(B +$B%i!<$GFI$`$3$H$,$G$-$k$h$&$K$7$^$9!#6qBNE*$K$O!"$=$l$i$N%3%s%F%s%D$r!"(B +$B%a!<%k$N$h$&$K@07A!&@0M}$9$k5!G=$rDs6!$7$^$9!#(B + +$B$9$Y$F$N(B `shimbun' $B%b%8%e!<%k$O!"IaDL$N%a!<%k$d%K%e!<%9$N$h$&$KFI$`$3$H(B +$B$,$G$-$k5-;v$r@8@.$9$k$3$H$rL\I8$K$7$F$$$^$9!#$7$+$7$J$,$i!"%&%'%V%5%$(B +$B%H$,$=$l$i$N5-;v$N(B html $B$r$7$P$7$PJQ99$9$k$N$G!"$=$NEY$K;d$?$A$O:$Fq$K(B +$B$V$D$+$j$^$9!#(B + +$B$b$7!"L50UL#$J2hA|$d!"5-;v$H$O4X78$NL5$$%F%-%9%H$,8=$l$k$N$K5$$,$D$$$?(B +$B$i!"(B($B$?$H$(:3:Y$J$b$N$G$b(B) `report-emacs-w3m-bug' (*Note Mailing +List::) $B$r;H$C$FJs9p$7$F$/$@$5$$!#(B + +`Shimbun' $B%i%$%V%i%j$O!"8=:_!"D+F|?7J9!"FIGd%*%s%i%$%s!"(BEmacs Devel$B!"(B +XEmacs Beta$B!"(BGnus/Mew/Wanderlust $B$J$I$N%a!<%j%s%0%j%9%H!"(BSlashdot$B!"(B +Slashdot Japan$B!"$*$h$SB>$N$?$/$5$s$N$b$N$KBP1~$7$F$$$^$9!#6qBNE*$K$O!"(B +*Note Shimbun Sites:: $B$r;2>H$7$F$/$@$5$$!#(B + +$B$H$3$m$G!"(B`Shimbun' $B%i%$%V%i%j$rMxMQ$9$k;~$O!"Cx:n8"$K$D$$$FCm0U$,I,MW(B +$B$G$9!#(B`Shimbun' $B%i%$%V%i%j$K$h$C$F2C9)!&@8@.$5$l$?5-;v$NCx:n8"$O!"$=$N(B +$B5-;v$r@8@.$9$k85$K$J$C$?%G!<%?$NCx:n<T$K5"B0$7$^$9!#$7$?$,$C$F!"F@$i$l(B +$B$?5-;v$rMxMQ$9$k>l9g$O!"85$N%G!<%?$NCx:n<T$N8"Mx$r?/32$7$J$$HO0O$r<i$k(B +$BK!N'>e$N5AL3$,$"$j$^$9!#$D$^$j!"Cx:n8"K!$KDj$a$i$l$?!V;dE*MxMQ!W$NHO0O(B +$B$r<i$i$J$1$l$P$J$i$J$$!"$H$$$&$3$H$G$9!#(B + +`Shimbun' $B%i%$%V%i%j$rMxMQ$7$?$3$H$K$h$C$F!"K|$,0l$"$J$?$,ITMx1W$rHo$C(B +$B$?$j!"$"$J$?$,B><T$N8"Mx$r?/32$7$?$3$H$K$h$C$F$"$J$?$,AJ$($i$l$?$H$7$F(B +$B$b!"(Bemacs-w3m $B3+H/%A!<%`$O0l@Z$N@UG$$rIi$$$^$;$s!#(B + +`Shimbun' $B%i%$%V%i%j$O$?$/$5$s$N%b%8%e!<%k$N%3%l%/%7%g%s$G!"$=$l$i$N3F!9(B +$B$OC1FH$G$O2?$NLr$K$bN)$A$^$;$s!#$3$3$G$OBeI=E*$J;0$D$N(B `Shimbun' $B$N%"%W(B +$B%j%1!<%7%g%s%W%m%0%i%`(B ($B$=$l$i$N$&$A$NFs$D$O(B `Shimbun' $B%i%$%V%i%j$K4^$^(B +$B$l$F$$$^$9(B) $B$H!"$"$J$?$,<+J,$G(B `Shimbun' $B%b%8%e!<%k$r:n$kJ}K!$K$D$$$F@b(B +$BL@$7$^$9(B (Emacs Lisp $B%W%m%0%i%`$r=q$/$3$H$,$G$-$kI,MW$,$"$j$^$9(B)$B!#(B + +* Menu: + +* Nnshimbun:: Gnus $B$r%&%'%V%V%i%&%6$K$9$k(B! +* Mew Shimbun:: Mew $B$G?7J9$rFI$`(B +* Shimbun with Wanderlust:: Wanderlust $B$G?7J9$rFI$`(B +* Shimbun local mode:: $B?7J9$N<hF@$K%7%'%k%9%/%j%W%H$r;H$&(B +* Shimbun Sites:: $B?7J9$,FI$a$k%5%$%H(B +* Shimbun Basics:: $B?7J9%b%8%e!<%k$N:n$jJ}(B + +`Shimbun' $B%i%$%V%i%j$rMxMQ$9$k$?$a$K$O!"(Bemacs-w3m $B$r9=C[$7$F%$%s%9%H!<(B +$B%k$9$kA0$K(B FLIM $B%Q%C%1!<%8(B ($B2C$($F(B `nnshimbun' $B$r;H$$$?$1$l$P(B Gnus) $B$r(B +$B%$%s%9%H!<%k$9$kI,MW$,$"$k$3$H$KCm0U$7$F$/$@$5$$!#(BFLIM $B%Q%C%1!<%8$K$O(B +APEL $B%Q%C%1!<%8$,I,MW$G$9!#$"$J$?$O(B *Note Other Requirements:: $B$b8+$k$Y(B +$B$-$+$b$7$l$^$;$s!#(B + + + +File: emacs-w3m-ja.info, Node: Nnshimbun, Next: Mew Shimbun, Prev: Shimbun Library, Up: Shimbun Library + +Gnus $A$r%&%'%V%V%i%&%6$K$9$k(B! +============================ + +`Nnshimbun' $B$O(B Gnus $B$N%P%C%/%(%s%I$G$9!#$7$+$7$J$,$i!"Nc30E*$K(B Gnus $B$G(B +$B$O$J$/$F(B emacs-w3m $B$H$H$b$KG[I[$5$l$F$$$^$9!#(B`Nnshimbun' $B$O(B Gnus $B$rJB30(B +$B$l$FJXMx$J%&%'%V%V%i%&%6$K$9$k$3$H$,$G$-$^$9!#$9$Y$F$N9-9p$KHQ$o$5$l$:(B +$B$K?7J9<R$N%&%'%V%5!<%P$G5-;v$r=&$$FI$_$9$k$3$H$,$G$-$^$9!#%a!<%j%s%0%j(B +$B%9%H$N5-;v%"!<%+%$%V$r!"$=$N%j%9%H$K9VFIEPO?$7$F$$$k$h$&$KFI$`$3$H$,$G(B +$B$-$^$9!#7G<(HD$N=q$-9~$_$bFI$`$3$H$,$G$-$^$9!#Ey!9(B... $B$G$b(B Gnus $B$O(B +`nnshimbun' $B$G%&%'%V$r2p$7$?Ej9F$,$G$-$J$$$N$G!"%U%)%m!<$7$?$$$H$-$O(B +emacs-w3m $B$r;H$o$J$1$l$P$$$1$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B + +$B$5$i$K(B emacs-w3m $B$G(B HTML $B%a%C%;!<%8$r@07A$9$k$K$O(B *Note Gnus:: $B$b;2>H$7(B +$B$F$/$@$5$$!#(B + +`Nnshimbun' $B$r;O$a$k$?$a$N0lHV4JC1$JJ}K!$O!"%0%k!<%W%P%C%U%!$G0J2<$N$h(B +$B$&$J$3$H$r$9$k$3$H$G$9(B: + +`M-x gnus-group-make-shimbun-group <RET> asahi <RET> national <RET>' + +`asahi' $B$H(B `national' $B$O!"@\B3$7$?$$%5!<%P!<$KBP1~$7$?%-!<%o!<%I$H6=L#(B +$B$N$"$k%0%k!<%W$K!"$=$l$>$lCV$-49$($F$/$@$5$$!#(B`<TAB>' $B$+(B `<SPC>' $B$r%?%$(B +$B%W$9$k$3$H$K$h$C$F!"$=$l$i$NL>A0$rN>J}$H$bJd40$9$k$3$H$,$G$-$^$9!#(B + +$B$b$7(B `gnus-group-mode-map' $B$K==J,$J6u$-$,$"$k$J$i$P!"0J2<$N$h$&$J$b$N$r(B +`~/.gnus.el' $B%U%!%$%k$K2C$($F$/$@$5$$(B: + + (eval-after-load "gnus-group" + '(define-key gnus-group-mode-map "Gn" + 'gnus-group-make-shimbun-group)) + +$B$9$k$H!"(B`M-x gnus-group-make-shimbun-group' $B$NBe$o$j(B +$B$K(B `G n' $B$r;H$&$3$H$,$G$-$^$9!#(B + +*$(Go!$A$+$3$N%-$B!<$A$r(B Gnus $A%?%o$B!<$A$KSh$(GR|$A$7$F$/$l$^$;$s$+(B?* + + +$B$3$NB>$K!"(B`gnus-group-make-shimbun-groups' $B%3%^%s%I$r;H$C$F!";XDj$7$?%5!<(B +$B%P!<$N$9$Y$F$N%0%k!<%W$r:n$k$3$H$,$G$-$^$9!#(B + +`Nnshimbun' $B$OC1$K%&%'%V%5!<%P$+$i(B HTML $B%3%s%F%s%D$r<h$j4s$;$F!"$=$l$r(B +$B5-;v$H$7$FI=<($7$^$9$,!"1JB35-;v(B (*Note Persistent Articles: +(gnus)Persistent Articles.) $B$r:n$k>l9g$r=|$$$F!"%m!<%+%k%U%!%$%k$K5-;v(B +$B$r%;!<%V$9$k$3$H$O$"$j$^$;$s!#(B`Nnshimbun' $B$O(B NOV $B%U%!%$%k$r!"$=$l$>$l$N(B +`nnshimbun' $B%0%k!<%W$G;H$$$^$9!#$=$N%P%C%/%(%s%I$O(B `nnml' $B$H$[$\F1$8$G(B +$B$9!#(B + +$B0J2<$N(B `nnshimbun' $B$K4X$9$kJQ?t$r%+%9%?%^%$%:$9$k$3$H$,2DG=$G$9(B: + +`nnshimbun-keep-backlog' + $B$3$NJQ?t$O(B `nnshimbun' $B%0%k!<%W$G(B `gnus-keep-backlog' $BJQ?t(B (*Note + Article Backlog: (gnus)Article Backlog.) $B$r>e=q$-$7$^$9!#$b$7(B + `nnshimbun-keep-backlog' $B$r?t;z(B N $B$K@_Dj$9$k$H!"(B`nnshimbun' $B$O:GBg(B + $B$G(B N $B$N8E$$5-;v$r8e$N:F<hF@$N$?$a$K%P%C%U%!$KN/$a$F$*$-$^$9!#$3$N(B + $BJQ?t$,(B `nil' $B$G$O$J$/!"?t;z$G$b$J$$>l9g!"(B`nnshimbun' $B$O(B *$A$9$Y$F(B* + $B$N4{FI5-;v$rC_$($^$9(B ($B$3$l$ONI$$9M$($G$O$"$j$^$;$s(B)$B!#%G%U%)%k%HCM(B + $B$O(B 300 $B$G$9!#(B + + `Nnshimbun' $B$O$"$i$+$8$a<hF@$7$?(B (prefetched) $B5-;v$NJ]B8$K(B + backlog $B$r;H$&$N$G!">.$5$9$.$kCM$O(B `prefetch-articles' $B5!G=(B ($B2<5-(B + $B;2>H(B) $B$rB;$J$&$+$b$7$l$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B + +`nnshimbun-directory' + `Nnshimbun' $B$,(B NOV $B%U%!%$%k$H0u%U%!%$%k$rJ]B8$9$k%G%#%l%/%H%j$G$9!#(B + $B%G%U%)%k%HCM$O(B `~/News/shimbun/' $B$G$9!#$3$l$O%5!<%P!<JQ?t(B (*Note + Server Variables: (gnus)Server Variables.) $B$G$9!#(B + +`nnshimbun-default-group-level' + `gnus-level-default-subscribed' $B$r>e=q$-$9$k!"%G%U%)%k%H$N%0%k!<%W(B + $B%l%Y%k$G$9!#?7$?$K:n$i$l$?(B `nnshimbun' $B%0%k!<%W$KE,MQ$5$l$^$9!#%G(B + $B%U%)%k%HCM$O(B `nil' $B$G$9!#$3$l$O%5!<%P!<JQ?t(B (*Note Server + Variables: (gnus)Server Variables.) $B$G$9!#(B + +`nnshimbun-marks-is-evil' + $B$b$7(B `nil' $B$G$J$1$l$P!"(BGnus $B$O(B `shimbun' $B%9%W!<%k$N$?$a$K0u(B + (marks) $B%U%!%$%k$r:n$j$b;H$$$b$7$^$;$s!#0u%U%!%$%k$r;H$&$3$H$K$h$C(B + $B$F!"(B`shimbun' $B%0%k!<%W$r(B `.newsrc.eld' $B$+$i@Z$jJ|$7$F%P%C%/%"%C%W(B + $B$7!"I|85$9$k$3$H$,2DG=$K$J$j$^$9!#2?$i$+$NM}M3$G$3$l$r(B `t' $B$K@_Dj(B + $B$7$?8e$G!":F$S(B `nil' $B$K$9$k>l9g$O$$$D$b!"%0%k!<%W$N0u%U%!%$%k$r>C(B + $B$5$J$1$l$P$J$j$^$;$s(B ($BIaDL$=$l$O(B `shimbun' $B%0%k!<%W$N%G%#%l%/%H%j(B + $B$K$"$k(B `.marks' $B$H$$$&L>A0$N%U%!%$%k$G$9$,!"@53N$K$O(B + `nnshimbun-marks-file-name' $B$NCM$r;2>H$7$F$/$@$5$$(B)$B!#$=$&$9$l$P(B + Gnus $B$K$h$C$F0u%U%!%$%k$,:F@8@.$5$l$k$G$7$g$&!#%G%U%)%k%HCM$O(B + `nil' $B$G$9!#$3$l$O%5!<%P!<JQ?t(B (*Note Server Variables: + (gnus)Server Variables.) $B$G$9!#(B + +`Nnshimbun' $B$O(B Gnus $B$,Ds6!$9$kI8=`$N%0%k!<%W%Q%i%a!<%?(B (1) (*Note +Nnshimbun-Footnotes::) $B$K2C$($F!"(B`nnshimbun' $B@lMQ$K@_$1$i$l$?%0%k!<(B +$B%W%Q%i%a!<%?$rMxMQ$9$k$3$H$,$G$-$^$9!#J#?t$N(B `nnshimbun' $BMQ$N%Q%i(B +$B%a!<%?$,(B `nnshimbun-group-parameters' $B$H$$$&C10l$N%0%k!<%W%Q%i%a!<(B +$B%?(B ($B$9$Y$F$N%0%k!<%W$G0c$&CM$r;}$D$3$H$,$G$-$k(B) $B$K$^$H$a$i$l$F$$$^$9!#(B +$B$=$l$O%W%m%Q%F%#%j%9%H$G!"Nc$($P<!$N$h$&$JCM$G$9(B: + + '(index-range all prefetch-articles off encapsulate-images on + expiry-wait 6) + +$B0J9_$O$3$l$i$N%0%k!<%W%Q%i%a!<%?$H!"4XO"$9$kJQ?t$N@bL@$G$9!#(B + +`prefetch-articles' + $B$3$N%0%k!<%W%Q%i%a!<%?$,(B `off' $B$^$?$O(B `nil' $B0J30$N2?$+$K@_Dj$5$l$F(B + $B$$$k%0%k!<%W$G$O!"(B`nnshimbun' $B$O?7$7$$5-;v$rC5$9$@$1$G$O$J$/!"$=$l(B + $B$i$N5-;v$N%@%&%s%m!<%I$b9T$$$^$9!#$3$l$O?7$7$$5-;v$N8!:w$rCY$/$7$^(B + $B$9$,!"5-;v$r1\Mw$9$k$H$-$KBT$?$5$l$^$;$s!#$3$N%0%k!<%W%Q%i%a!<%?$,(B + $B@_Dj$5$l$F$$$J$$$+!"$=$NCM$,(B `nil' $B$K$J$C$F$$$k%0%k!<%W$G$O!"Be$o(B + $B$j$KJQ?t(B `nnshimbun-pre-fetch-article' $B$NCM(B ($B%G%U%)%k%H$O(B `off') + $B$,;H$o$l$^$9!#(B + +`encapsulate-images' + $B$3$N%0%k!<%W%Q%i%a!<%?$,(B `off' $B$^$?$O(B `nil' $B0J30$N2?$+$K@_Dj$5$l$F(B + $B$$$k%0%k!<%W$G$O!"(B`nnshimbun' $B$O85$N5-;v$KKd$a9~$^$l$F$$$k2hA|%G!<(B + $B%?$r(B MIME $B$N(B `multipart/related' $B%Q!<%H$H$7$F5-;v$K$O$a9~$_$^$9!#(B + $B$3$N%0%k!<%W%Q%i%a!<%?$,@_Dj$5$l$F$$$J$$$+!"$=$NCM$,(B `nil' $B$K$J$C(B + $B$F$$$k%0%k!<%W$G$O!"Be$o$j$KJQ?t(B `nnshimbun-encapsulate-images' $B$N(B + $BCM$,;H$o$l$^$9!#$3$NJQ?t(B `nnshimbun-encapsulate-images' $B$N%G%U%)%k(B + $B%HCM$O!"(B`shimbun' $B%i%$%V%i%j$K$h$C$FDs6!$5$l$kJQ?t(B + `shimbun-encapsulate-images' $B$NCM$G$9(B ($B$?$V$s%G%U%)%k%HCM$O(B `t' $B$G(B + $B$9(B)$B!#(B + +`index-range' + $B%0%k!<%W%Q%i%a!<%?(B `index-range' $B$G!"%&%'%V%5!<%P!<$+$i<hF@$5$l$k(B + $B5-;v$NHO0O$r;XDj$9$k$3$H$,$G$-$^$9!#HO0O$N;XDj$K$O0J2<$NCM$r;H$C$F(B + $B$/$@$5$$(B: + + `nil' + `all' + $B$9$Y$F$N%Z!<%8(B + + `last' + $B:G?7$N%Z!<%8$@$1(B + + `integer N' + $B:G?7$N(B N $B%Z!<%8(B + + `Nnshimbun' $B$O%5!<%P!<>e$KB8:_$9$kL\<!%Z!<%8$r2r@O$7$F?7$7$$5-;v$N(B + $BM-L5$rD4$Y$^$9!#%5!<%P!<$K$h$C$F$O$=$N$h$&$JL\<!%Z!<%8$,J#?tB8:_$9(B + $B$k>l9g$,$"$j$^$9!#Nc$($P!"%a!<%j%s%0%j%9%H$N5-;v$rDs6!$7$F$$$k%5!<(B + $B%P!<$N>l9g$O!"$=$N5-;v$,Ej9F$5$l$?F|IU$K$h$C$FJ,N`$5$l$?L\<!$K$J$C(B + $B$F$$$k$3$H$,0lHLE*$G$9!#FC$KCY$$2s@~$rMxMQ$7$F$$$k;~$K!"$=$l$i$9$Y(B + $B$F$N5pBg$JL\<!$rD4$Y$k$K$O!"AjEv$J;~4V$,$+$+$k$G$7$g$&!#(B + + `Nnshimbun' $B$OA02s$N@\B3;~$KD4$Y$?L\<!$K$D$$$F$O!"$J$k$Y$/D4$Y$:$K(B + $B:Q$^$;$k$h$&$K$J$C$F$$$^$9!#99$K;~4V$r@aLs$7$?$$>l9g$O(B `last' $B$r;H$C(B + $B$F$/$@$5$$!#$3$l$O(B `nnshimbun' $B$K!":G?7$NL\<!$@$1$r;2>H$7$F?7$7$$(B + $B5-;v$N8!::$r9T$J$o$;$^$9!#(B + + $B%0%k!<%W%Q%i%a!<%?(B `index-range' $B$,@_Dj$5$l$F$$$J$$$+!"CM$,(B `nil' + $B$K$J$C$F$$$k%0%k!<%W$G$O!"JQ?t(B `nnshimbun-index-range' $B$NCM(B ($B%G%U%)(B + $B%k%H$O(B `2') $B$,;H$o$l$^$9!#(B + +`nnshimbun-group-parameters-alist' + $B$3$l$O(B Emacs Lisp $BJQ?t$G!"%0%k!<%WL>$N@55,I=8=$H(B `nnshimbun' $BMQ%0(B + $B%k!<%W%Q%i%a!<%?$NO"A[%j%9%H$G$9!#%G%U%)%k%HCM$O(B `nil' $B$G$9!#3F!9(B + $B$NMWAG$O(B `(REGEXP KEYWORD VALUE KEYWORD VALUE...)' $B$N7A<0$r;}$A$^(B + $B$9!#Nc$($P(B: + + '("^nnshimbun\\+asahi:" index-range all prefetch-articles off + encapsulate-images on expiry-wait 6) + + $B;w$?L>A0$r;}$D(B ($B$9$J$o$A!"8_$$$K;w$?@-3J$r;}$C$F$$$=$&$J(B) $BJ#?t$N%0(B + $B%k!<%W$KBP$7$FF1$8(B `nnshimbun' $B%0%k!<%W%Q%i%a!<%?$r;XDj$9$k$3$H$,(B + $B$G$-$k$N$G!"8D!9$N%0%k!<%W$KBP$7$F$=$l$>$l%0%k!<%W%Q%i%a!<%?$r@_Dj(B + $B$9$kBe$o$j$K;H$&$3$H$,$G$-$FJXMx$G$9!#$b$7%0%k!<%W$G$9$G$K%0%k!<%W(B + $B%Q%i%a!<%?$N@_Dj$,9T$J$o$l$F$$$?>l9g$O!"$3$NJQ?t$h$j$b$=$A$i$,M%@h(B + $B$5$l$^$9!#(B + +`Nnshimbun' $B$K$O5-;v$N4|8B@Z$l>C5n$r9T$J$o$;$k$3$H$,$G$-$^$9(B (2) +(*Note Nnshimbun-Footnotes::)$B!#5-;v$,4|8B@Z$l>C5n$5$l$k$H8@$C$F$b!"$=$l(B +$B$,1s3V%5!<%P!<$+$i:o=|$5$l$k$o$1$G$O$J$/!"$=$l$O$:$C$H$=$3$+$i<hF@2DG=(B +$B$G$"$k$3$H$r3P$($F$*$$$F$/$@$5$$!#>C$($k$N$O$"$J$?<+?H$N(B `nnshimbun' $BMQ(B +$B$N(B NOV $B%U%!%$%k(B (3) (*Note Nnshimbun-Footnotes::) $B$N!">C5n$5$l$k5-;v$K(B +$B3:Ev$9$k9T$G$9!#$=$l$K$h$C$F$=$N5-;v$OFsEY$H35N,%P%C%U%!$K8=$l$J$/$J$j(B +$B$^$9!#(B + +`Nnshimbun' $B%0%k!<%W$G5-;v$N4|8B@Z$l>C5n$r9T$J$o$J$$$H(B NOV $B%U%!%$%k$,:](B +$B8BL5$/B@$jB3$1!"Hs>o$K8E$$5-;v$,$"$?$+$bB8:_$7$F$$$k$h$&$K8+$($k$+$b$7(B +$B$l$^$;$s(B ($B<B:]$K$O!"$=$l$i$O?7J9<R$N%5!<%P!<$G;0G/A0$K4|8B@Z$l>C5n$5$l(B +$B$F$7$^$C$F$$$k$+$b$7$l$J$$(B!)$B!#$=$l$rFI$b$&$H$7$F$b5-;v%P%C%U%!$K$O2?$b(B +$B8=$l$J$$$G$7$g$&!#0lJ}!"%a!<%j%s%0%j%9%H$N5-;v$rDs6!$7$F$$$k$?$$$F$$$N(B +$B%5!<%P!<$O!"0lHLE*$K2a5n$NA45-;v$rDs6!$7$F$$$^$9!#M+=%$NH`J}$K5n$j$78E(B +$B$-NI$-;~Be$K!"$"$J$?$,6=$8$?5-;v$r2{$+$7$/$&$k$&$k$7$FFI$_JV$9$3$H$,$G(B +$B$-$k$h$&$K!"$=$&$$$&%0%k!<%W$G$O4|8B@Z$l>C5n$O$5$;$?$/$J$$$H;W$&$+$b$7(B +$B$l$^$;$s!#(B + +$BB>$N%a!<%k%P%C%/%(%s%I$HF1MM$K!"(B`nnshimbun' $B$N%0%k!<%WKh$K5-;v$K<+F04|(B +$B8B@Z$l>C5n$N0u$rIU$1$F!";D$7$F$*$/4|4V$r@_Dj$9$k$3$H$,$G$-$^$9!#$?$@$7(B +`nnshimbun' $B%P%C%/%(%s%I$HB>$N%a!<%k%P%C%/%(%s%I$K$O!">/$70c$$$,$"$j$^(B +$B$9(B: + + * $BBh0l$K!";D$7$F$*$/4|4V$N%G%U%)%k%HCM$O0J2<$NM%@hEY$G7hDj$5$l$^$9!#(B + $B%0%k!<%W$K$h$C$F%G%U%)%k%HCM$,0[$J$k$+$b$7$l$J$$$3$H$KCm0U$7$F$/$@(B + $B$5$$!#(B + + 1. $B%0%k!<%W$K$*$1$k(B `expiry-wait' $B%0%k!<%W%Q%i%a!<%?$NCM!#(B + + 2. $B$=$N%0%k!<%W$rBP>]$H$7$F!"JQ?t(B `nnmail-expiry-wait-function' + $B$rI>2A$9$k$3$H$K$h$C$FF@$i$l$?CM!#(B + + 3. $B%0%k!<%W$KBP1~$9$k(B `shimbun' $B%b%8%e!<%k$,Ds6!$9$k%G%U%)%k%HCM!#(B + + 4. $BJQ?t(B `nnmail-expiry-wait' $B$NCM!#(B + + $BBhFs$K!"JQ?t(B `nnmail-expiry-wait-function' $B$K$h$C$F@_Dj$5$l$k4X?t(B + $B$KM?$($i$l$k0z?t$K!"(B"nnshimbun+asahi:national" $B$N$h$&$K%P%C%/%(%s(B + $B%I$H%5!<%P!<$NL>A0$,4^$^$l$k$3$H$G$9!#B>$N%a!<%k%P%C%/%(%s%I$N>l9g(B + $B$K$O%0%k!<%WL>$@$1$,M?$($i$l$k$N$K!"$G$9!#Nc$r5s$2$^$7$g$&(B: + + (setq nnmail-expiry-wait-function + (lambda (group) + (cond ((string-equal group "ding") 7) + ((string-equal group "nnshimbun+ding:ding") 'never)))) + + $B$3$l$O!"F1$8(B ding $B%a!<%j%s%0%j%9%HMQ$KFs$D$N%0%k!<%W$,$"$k$3$H$r0U(B + $BL#$7$^$9(B: $B0l$D$O%j%9%H$N%a%s%P!<$H$7$F9VFIEPO?$7$F$$$^$9!#$b$&0l$D(B + $B$O(B Gnus $B%?%o!<$N%a!<%j%s%0%j%9%H%"!<%+%$%V$+$iFI$`$?$a$N$b$N$G$9!#(B + $B$I$&$G$9!"$J$+$J$+8-$$$G$7$g(B? "ding" $B%0%k!<%W$N%m!<%+%k$J%a!<%k%U%!(B + $B%$%k$O<7F|$G4|8B@Z$l>C5n$5$l!"%m!<%+%k%G%#%9%/$NMFNL$,@aLs$5$l$^$9!#(B + $B$7$+$7Fs$DL\$N%0%k!<%W$G$O!"A0@$5*$N5-;v$G$5$(FI$`$3$H$,$G$-$^$9(B + ($B$=$l$,K\Ev$KI,MW$J$i$P!"$G$9$,(B)$B!#(B + + $BBh;0$K!"$3$l$O$"$J$?$K5?G0$,J($$$?$H$-$K;W$$=P$9$3$H$,$G$-$k$h$&$K(B + $B=q$-N1$a$i$l$F$$$^$9(B: `nnshimbun' $B%0%k!<%W$N$9$Y$F$N5-;v$,4|8B@Z$l(B + $B>C5n$5$l$k$Y$-$H$-$G$b!":G?7$N0lDL$@$1$O>C$5$:$K;D$7$F$*$-$^$9!#$3(B + $B$l$O$"$J$?$NL$N}?4$rK~B-$5$;$k$?$a$G$O$J$/!"<!2s$K$3$N%0%k!<%W$N?7(B + $B$7$$5-;v$r<hF@$7$h$&$H$7$?$H$-$K!"(B`nnshimbun' $B$,$I$3$+$i;O$a$k$+$r(B + $BCN$C$F!"$9$Y$F$N5-;v$r<hF@$7D>$5$J$$$h$&$K$9$k$?$a$G$9!#(B + +`Nnshimbun' $B$N4|8B@Z$l>C5n$K4X78$9$k%0%k!<%W%Q%i%a!<%?$HJQ?t$O0J2<$NDL(B +$B$j$G$9(B: + +`expiry-wait' + $B$I$&$+:.Mp$J$5$i$J$$$h$&$K!#(B`expiry-wait' $B%0%k!<%W%Q%i%a!<%?$,(B + `nnshimbun' $B@lMQ$K:n$i$l$?%0%k!<%W%Q%i%a!<%?(B + `nnshimbun-group-parameters' $B$NMWAG$N0l$D$H$7$FDs6!$5$l$^$9!#$=$l(B + $B$OI8=`$N%0%k!<%W%Q%i%a!<%?$HF1$8L>A0$r;}$A!"0UL#$bF1$8$G$9!#$"$J$?(B + $B$O$I$A$i$r;H$C$F$b9=$$$^$;$s!#$b$7(B `nnshimbun' $B@lMQ$N$b$N$,(B `nil' + $B0J30$NCM$K@_Dj$5$l$k$H!"I8=`$N$b$N$h$j$bM%@h$5$l$^$9!#$3$l$O(B + `nnshimbun' $B$K4X78$9$k$b$N$r(B "Gnus Customize" $B%P%C%U%!(B ($B%0%k!<%W%P%C(B + $B%U%!$G(B `G c' $B$r%?%$%W$9$k$H8=$l$k(B) $B$N0l2U=j$K=8$a$k$?$a$H!"JQ?t(B + `nnshimbun-group-parameters-alist' $B$G0l3g$7$F4IM}$G$-$k$h$&$K$9$k(B + $B$3$H$rL\E*$KMQ0U$7$?$b$N$G$9(B (4) (*Note Nnshimbun-Footnotes::)$B!#@_(B + $BDj$G$-$kCM$OI8=`$N%0%k!<%W%Q%i%a!<%?$HF1MM$K!";~8B>C5n$NF|?t!"(B + `never' $B$^$?$O(B `immediate' $B$G$9!#(B + +`nnshimbun-keep-unparsable-dated-articles' + $B$3$NJQ?t$NCM$,(B `nil' $B$G$J$$>l9g$O!":n@.$5$l$?(B ($B$^$?$OE~Ce$7$?(B) $B;~(B + $B9o$,$o$+$i$J$$5-;v$O4|8B@Z$l>C5n$5$l$^$;$s!#$J$K$7$m$I$N$/$i$$8E$$(B + $B$N$+$o$+$i$J$$$s$G$9$+$i!#%G%U%)%k%HCM$O(B `t' $B$G$9!#(B`nil' $B$K@_Dj$9(B + $B$k$H!"4|8B@Z$l>C5n$N=hM}$,9T$J$o$l$k$H$-$K!"4|8B$,$o$+$i$J$$5-;v$G(B + $B$bL5>r7o$G>C$5$l$F$7$^$$$^$9!#$^$"!"G/$NJk$l$NBgA]=|$NLr$K$ON)$D$3(B + $B$H$,H=L@$9$k$+$b$7$l$^$;$s!#(B + + +File: emacs-w3m-ja.info Node: Nnshimbun-Footnotes, Up: Nnshimbun + +(1) $A%0%k$B!<$A%W%Q%i%a$B!<$A%?$r$(G]C$A6($9$k$?$a$NWn$bJV$(I?I$A$J7=7($O!"%0%k$B!<$A%W%P%C%U%!(B +$A$G!"$(G]C$A6($7$?$$%0%k$B!<$A%W$N$(G^[$AKy$KRF$(GY/$A$7$F$+$i(B `G c' $A$r%?%$%W$9$k$3(B +$A$H$G$9(B (*Note Group Parameters: (gnus)Group Parameters.)$A!#(B + +(2) `Nnshimbun' $A%0%k$B!<$A%W$GWT$(GY/$AFZO^GP$lO{H%$rPP$J$&7=7($OVw$K6~$D$"(B +$A$j$^$9!#R;$D$O%0%k$B!<$A%WC{$NU}$(G]=$A1m$(G\"(B ("^nnshimbun\\+" $A$GJ<$^$i$J$1$l$P$J(B +$A$j$^$;$s(B) $A$r$(I+y$AJ}(B `gnus-auto-expirable-newsgroups' $A$KW7<S$7$F!"O{H%(B +$A$9$k$^$G$NHUJ}$r8w%0%k$B!<$A%W$(I#z$A$K(B `nnmail-expiry-wait-function' $A$GV8(B +$A6($9$k$3$H$G$9!#$b$&R;$D$O!"WT$(GY/$AFZO^GP$lO{H%$rPP$J$o$;$?$$$?$$$9$Y$F$N(B +`nnshimbun' $A%0%k$B!<$A%W$G!"%0%k$B!<$A%W%Q%i%a$B!<$A%?(B `auto-expire' $A$r(B +`t' $A$K$(G]C$A6($7$F!"%0%k$B!<$A%W%Q%i%a$B!<$A%?(B `expiry-wait' $A$GO{H%$9$k$^(B +$A$G$NFZO^$rV86($9$k$d$j7=$G$9!#$(Gf[$A$7$$$3$H$O(B *Note $A%a$B!<$A%k(B $A$NFZO^GP$lO{H%(B: (gnus-ja)Expiring Mail, $A$r2NUU$7$F$/$@$5$$!#(B +`expiry-wait' $A%0%k$B!<$A%W%Q%i%a$B!<$A%?$,$(G]C$A6($5$l$F$$$J$$%0%k$B!<$A%W$G$O!"%G(B +$A%U%)%k%H$N$(I/N$A$,$(GoK$ASC$5$l$^$9!#(B + +(3) `Nnshimbun'$ASC$N(B NOV $A%U%!%$%k(B +$A$O(B~/News/shimbun/asahi/national/.overview" $A$N$h$&$JC{G0$G$9!#(B + +(4) $A$J$<(B `auto-expire' $A$J$I$,(B `nnshimbun' $B@l$ASC$N%0%k$B!<$A%W(B +$A%Q%i%a$B!<$A%?$K:,$^$l$J$$$N(B? $A$H$$$&$(GYB$A$$$K$(I%\$A$9$k4p$($r$9$G$KSCRb$7$F$$(B +$A$^$9!#$=$N4p$($H$O!"(B`expiry-wait' $A$,(B `nnshimbun' $A%P%C%/(B +$A%(%s%I$K$h$C$FH!$j$(H$/$A$o$l$k$N$K$(I%\$A$7$F!"(B`auto-expire' $A$O(B Gnus +$A$NVPJ`$,H!$j$(H$/$A$$$^$9!#$7$?$,$C$F!"(BGnus $A$,R;$D$NLX6($N%P%C%/%(%s%I(B +$A$N$?$a$K$(I@>$A$/(B ($A$9$J$o$A!"(B`nnshimbun' $B@l$ASC$N%0%k$B!<$A%W%Q%i%a$B!<$A%?(B +$A$+$i$(I/N$A$r$BFI$A$`(B) $A$h$&$K(B Gnus $A$NVPJ`$(Gq"$AD\$r$(I)/$(GZ/$A$9$k$3$H$O!"(BGnus $A$N$(G]CSS(B +$A%]%j%7$B!<$A$K74$9$k$N$G$9!#(B + + + +File: emacs-w3m-ja.info, Node: Mew Shimbun, Next: Shimbun with Wanderlust, Prev: Nnshimbun, Up: Shimbun Library + +Mew $A$GPB$(GjL$A$r$BFI$A$`(B +================ + +Mew Shimbun $B$O(B `shimbun' $B$H(B Mew (version 2.1 $B0J9_(B) $B$H$H$b$K;H$&$3$H$r0U(B +$B?^$7$?(B Emacs Lisp $B%W%m%0%i%`$G$9!#(BMew, APEL $B$*$h$S(B FLIM $B$b%$%s%9%H!<%k(B +$B$5$l$F$$$l$P!"(Bemacs-w3m $B$r%$%s%9%H!<%k$9$k$H$-$K0l=o$K%$%s%9%H!<%k$5$l(B +$B$^$9!#(B + +*Note Mew:: $B$b;2>H$9$k$3$H$r$*4+$a$7$^$9!#(B + + 1. $B=t@_Dj(B + + $B0J2<$N3F9T$r(B `~/.mew.el' $B%U%!%$%k$N:G8e$K=q$$$F$/$@$5$$(B: + + ;;; mew-shimbun $B$N%m!<%I!"%-!<Dj5A(B + + ;; (setq mew-shimbun-use-unseen t) ;; (1) (*Note Mew + Shimbun-Footnotes::) + (require 'mew-shimbun) + (define-key mew-summary-mode-map "G" (make-sparse-keymap)) + (define-key mew-summary-mode-map "Gg" 'mew-shimbun-goto-folder) + (define-key mew-summary-mode-map "GG" 'mew-shimbun-goto-unseen-folder) + (define-key mew-summary-mode-map "Gi" 'mew-shimbun-retrieve) + (define-key mew-summary-mode-map "GI" 'mew-shimbun-retrieve-all) + (define-key mew-summary-mode-map "Gr" 'mew-shimbun-re-retrieve) + (define-key mew-summary-mode-map "GR" 'mew-shimbun-re-retrieve-all) + (define-key mew-summary-mode-map "Ge" 'mew-shimbun-expire) + (define-key mew-summary-mode-map "GE" 'mew-shimbun-expire-all) + + ;; `mew-shimbun-folder-groups' $B$K(B Mew $B$G9XFI$9$k(B `shimbun' servers $B5Z$S(B + ;; group $B$r@_Dj$7$^$9!#$=$l$>$l$NMWAG$O(B + ;; `("folder" ("server.group" . range) ...)' $B$N7A<0$G$9!#(B`range' $B$K$O(B + ;; `all', `last', $B$*$h$S?t;z$,;XDj$G$-$^$9!#(B + + (setq mew-shimbun-folder-groups + '(;; `+shimbun/yomiuri' $B$H$$$&(B folder $B$K(B `yomiuri.national', + ;; `yomiuri.sports' $B$J$I$r0l3g$7$F<hF@$7$^$9!#(B + ("yomiuri" + ("yomiuri.national" . 2) + ("yomiuri.sports". 2) + ("yomiuri.world". 2)) + ;; `+shimbun/security-memo' $B$K(B `security-memo.memo' $B$r<hF@$7$^$9!#(B + ("security-memo" + ("security-memo.memo" . 2)) + ("slashdot-jp" + ("slashdot-jp.story" . last)) + ;; $B$3$N$h$&$K!"0[$J$k(B server $B$N(B group $B$b0l$D$N(B folder + ;; (`+shimbun/emacs') $B$GFI$`$3$H$,$G$-$^$9!#(B + ("emacs" + ("airs.wl" . last) + ("emacs-w3m.emacs-w3m" . last)) + ;; `+shimbun/hns/arisawa', `+shimbun/hns/miyoshi' $B$K$=$l$>$l$N(B + ;; $BF|5-$r<hF@$7$^$9!#(B + ("hns/arisawa" + ("hns.arisawa" . last)) + ("hns/miyoshi" + ("hns.miyoshi" . last)))) + + $B0J>e$G4pK\E*$J@_Dj$O=*N;$G$9!#B>$N%f!<%6Dj5AJQ?t$O(B `mew-shimbun' $B%0(B + $B%k!<%W$r(B `M-x customize-group' $B$9$k$+!"%=!<%9$r8+$F$/$@$5$$!#(B + + 2. $B5-;v$N9XFI(B + + a. $B:G=i$N9XFI(B + + $B>e5-$N@_Dj$r$7$?$"$H!"$^$:(B `G I' $B$7$^$7$g(B + $B$&(B (`mew-shimbun-retrieve-all')$B!#(B + `mew-shimbun-folder-groups' $B$G<o!9$N@_Dj$r9T$J$C$?(B `shimbun' + folder $B$,(B `+shimbun' $B0J2<$K=PMh$^$9!#$^$?!"?7$?$K(B group $B$rDI2C$7$?(B + $B$H$-$b(B `G I' $B$9$k$HJXMx$G$9!#$J$*!"(B + `+shimbun' $B$O(B `mew-shimbun-folder' $B$H$$$&JQ?t$G9%$_$N$b$N$KJQ(B + $B99$G$-$^$9!#(B + + b. `shimbun' folder $B$X$N0\F0(B + + $BDL>o$N(B `g' (`mew-summary-goto-folder') $B$G$b(B `shimbun' + folder $B$X$N0\F0$O$G$-$^$9$,!"(B + `G g' (`mew-shimbun-goto-folder') $B$r;H$&$H(B `shimbun' + folder $B8BDj$G0\F0$G$-$^$9!#$^$?(B `C-u G g' $B$H(B prefix $B$r$D$1$?$H$-(B + $B$O!"?75,5-;v$N$"$k(B folder ($B$^$@(B scan $B$r$7$F$$$J$$(B folder) $B$N$_I=<($7$^$9!#(B + `G G' $B$G$bF1MM$G$9!#(B + + c. folder $BC10L$G$N5-;v$N<hF@(B + + `shimbun' folder $B$G(B `G i' (`mew-shimbun-retrieve') $B$9(B + $B$k$H!"8=:_$N(B `shimbun' folder $B$G?75,5-;v$r<hF@$7$^$9!#(B + + d. $B99?7$5$l$?5-;v$N<hF@(B + + $BFCDj$N5-;v$rI=<($7$?>uBV(B + $B$G(B `G r' (`mew-shimbun-re-retrieve') $B$9$k$H!"$=$N5-;v$,99?7(B + $B$5$l$F$$$?$i99?7$7!"F1;~$K?75,5-;v$b<hF@$7$^$9!#(B`C-u G r' $B$H$9$k(B + $B$H!"(B`mew-shimbun-mark-re-retrieve' $B$K;XDj$7$?%^!<%/(B ($B%G%U%)%k%HCM(B + $B$O(B `@') $B$N5-;v$N99?7$r;n$_$^$9!#(BCNET $B$J$I$G;H$&$HJXMx$G$7$g$&!#(B + + `G R' (`mew-shimbun-re-retrieve-all') $B$G$O!"$9$Y$F$N5-;v$N(B + $B?75,@-$rD4$Y<hF@$7$J$*$7$^$9!#(B`C-u G R' $B$G$O%j!<%8%g%s$G;XDj$7$?(B + $BHO0O$N5-;v$rBP>]$H$7$^$9!#$*$=$i$/%O%$%Q!<F|5-%7%9%F%`$,2TF/$7$F$$$kF|5-(B + $B%5%$%H$G$OM-0U5A$J%3%^%s%I$G$7$g$&!#(B + + 3. $BL$FI4IM}(B + + `~/.mew.el' $B%U%!%$%k$G0J2<$N@_Dj$r9T$J$C$F$$$k$H!"(B + + (setq mew-shimbun-use-unseen t) + + $B?75,$K<hF@$7$?5-;v$K(B `mew-shimbun-mark-unseen' $B$G@_Dj$7$?%^!<%/(B + ($B%G%U%)%k%H$O(B `*') $B$,$D$/$h$&$K$J$j!"FI$`$H<+F0E*$K>C$($^$9!#(B + + $BDL>o!"(BMew $B$N(B summary $B%b!<%I$G%^!<%/$r$D$1$k!"$"$k$$$O>C$7$?8e!"(B + scan $B$r$7$J$$$H(B `.mew-cache' $B%U%!%$%k$KH?1G$5$l$^$;$s$,!"(B + `~/.mew.el' $B%U%!%$%k$G0J2<$N@_Dj$r9T$J$&$3$H$K$h$j!"(B + + (setq mew-shimbun-use-unseen-cache-save t) + + Mew $B$N=*N;;~$d(B folder $B$N(B kill $B;~(B (`C-c C-q' $B$r;H$C$?$H$-(B) $B$K(B + `shimbun' folder $B$O<+F0E*$K(B `.mew-cache' $B%U%!%$%k$rJ]B8$9$k$h$&$K(B + $B$J$j$^$9!#$?$@$7!"3N<B(B (2) (*Note Mew Shimbun-Footnotes::)$B$KJ]B8$9(B + $B$k$o$1$G$O$"$j$^$;$s!#4{FI$K$J$C$?>pJs$r3N<B$K(B cache $B$KJ]B8$9$k$K(B + $B$O!"$=$N(B folder $B$rFI$_=*$o$C$?$H$-$K(B `scan update' $B$r$9$k=,47(B + $B$r$D$1$k$HNI$$$G$7$g$&!#(B + + $BL$FI$K;H$&%^!<%/$,(B `*' $B$8$c%@%a!"$H$$$&J}$O!"JQ(B + $B?t(B `mew-shimbun-mark-unseen' $B$r%+%9%?%^%$%:$7$F$/$@$5$$(B ($B>e=R(B)$B!#(B + `C-u N' $B$G$=$N%^!<%/$r;XDj$9$k$H3Z$7$$L$FI%i%$%U$r$*$/$k$3$H$,$G(B + $B$-$k$H;W$$$^$9!#(B + + 4. $B4|8B@Z$l5-;v$N>C5n(B + + $B;vA0$K(B `mew-shimbun-expires' $B$r@_Dj$7$F$*$/$H!"4|8B@Z$l5-;v$N>C5n(B + $B$r9T$J$&$3$H$,$G$-$^$9!#Nc$($P(B: + + (setq mew-shimbun-expires + '(("yomiuri" . 7) + ("asahi" . 1) + ("slashdot-jp" . 7) + ("emacs" . 7))) + + $B>e5-$N$h$&$K@_Dj$7$F$*$/$H!"(B`+shimbun/yomiuri' $B$O(B 7$BF|!"(B + `+shimbun/asahi' $B$O(B 1$BF|$H4|8B$r@_Dj$9$k$3$H$,$G$-$^$9!#;XDj$5$l$F$$(B + $B$J$$(B `shimbun' folder $B$O>C5n$7$^$;$s!#(B`G e' + (`mew-shimbun-expire') $B$G$=$N(B folder $B$N4|8B@Z$l5-;v$r>C5n$7$^$9!#(B + `G e' (`mew-shimbun-expire') $B$G@_Dj$7$?$9$Y$F$N(B folder $B$G5-(B + $B;v$N>C5n$r<B9T$7$^$9!#$J$*!"0lEY>C5n$7$?5-;v$OI|5l=PMh$^$;$s$N$GCm0U$7$F(B + $B$/$@$5$$!#(B + + 5. $BL$FI%^!<%/$H$7$F(B `$' $B$rDI2C$9$kJ}K!(B + + `$' $B%^!<%/$r?7$?$K:n@.$7!"(B`$' $B%^!<%/$rL$FI%^!<%/$H$7$F;H$&$K$O!"<!(B + $B$N5-=R$r(B `~/.mew.el' $B%U%!%$%k$K5-=R$7$F$/$@$5$$!#$J$*!"(B`$' $B0J30$N(B + $B5-9f$K$7$?$1$l$P!"(B + `http://www.mew.org/ml/mew-dist-2.0/msg01251.html' $B$r;2>H$7$F5-=R(B + $B$r@8@.$7$F$/$@$5$$!#(B + + ;;---------------------------------------------------------------------- + ;;; `$' $B$rL$FI%^!<%/$H$7$F;H$&$?$a$N5-=R(B + (setq mew-mark-unseen ?$) + (setq mew-shimbun-mark-unseen mew-mark-unseen) + (setq mew-mark-show-list (cons mew-mark-unseen mew-mark-show-list)) + (setq mew-mark-afterstep-spec + (cons (cons mew-mark-unseen '(1 0 1 0 0 0 0)) + mew-mark-afterstep-spec)) + (setq mew-mark-spec + (cons (list mew-mark-unseen "unseen" 0 nil nil nil nil nil) + mew-mark-spec)) + (setq mew-highlight-mark-keywords + (cons + (cons mew-mark-unseen 'mew-face-mark-unseen) + mew-highlight-mark-keywords)) + (defface mew-face-mark-unseen + '((((class color) (type tty)) + (:foreground "green")) + (((class color) (background light)) + (:foreground "deep pink" :bold t :italic t)) + (((class color) (background dark)) + (:foreground "thistle")) + (t (:bold t))) + "*Face to highlight the unseen mark" + :group 'mew-highlight) + (defun mew-summary-unseen (&optional count) + "Put the unseen mark(default is '$') in COUNT times." + (interactive "P") + (mew-mark-put-mark-loop (function mew-summary-unseen-one) count nil)) + (defun mew-summary-unseen-one (&optional no-msg) + "Put the unseen mark(default is '$') on this message." + (mew-mark-put-mark mew-mark-unseen no-msg)) + (defun mew-summary-mark-unseen () + "Change the '*' mark into the '$' mark." + (interactive) + (mew-summary-exchange-mark mew-mark-review mew-mark-unseen)) + (defun mew-thread-mark-unseen () + "Put the '$' mark on all messages of the current sub-thread." + (interactive) + (mew-thread-mark mew-mark-unseen)) + + (define-key mew-summary-mode-map "$" 'mew-summary-unseen) + (define-key mew-summary-mode-map "m$" 'mew-summary-mark-unseen) + (define-key mew-summary-mode-map "t$" 'mew-thread-mark-unseen) + ;;---------------------------------------------------------------------- + + +File: emacs-w3m-ja.info Node: Mew Shimbun-Footnotes, Up: Mew Shimbun + +(1) $AN4$BFI$A9\@m$r$9$k$H$-$O%3%a%s%H$rMb$7$F$/$@$5$$!#$3$N$(I+y$AJ}$O1X$:(B +`(require 'mew-shimbun)' $A$NG0$G$(G]C$A6($7$J$$$H$$$1$^$;$s!#(B + +(2) `mew-touch-folder-p' $A$,(B `t' $A$NHK$O$[$\(B 100% $A1#4f$G$-(B +$A$^$9$,!"(B`nil' $A$NHK$,1#4f$G$-$k?ID\PT$O$[$H$s$I(B 0% $A$@$HK<$o$l(B +$A$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Shimbun with Wanderlust, Next: Shimbun local mode, Prev: Mew Shimbun, Up: Shimbun Library + +Wanderlust $A$GPB$(GjL$A$r$BFI$A$`(B +======================= + +Wanderlust $B$K$O(B ELMO $B%b%8%e!<%k$N0l$D$H$7$F(B `elmo-shimbun' $B$,4^$^$l$F$$(B +$B$k$N$G!"L>A0$,(B `@' $B$G;O$^$k%U%)%k%@$K%"%/%;%9$9$k$@$1$G(B `shimbun' $B$rFI(B +$B$`$3$H$,$G$-$^$9(B (*Note Shimbun Folder: (wl-ja)Shimbun Folder.)$B!#(B + + + +File: emacs-w3m-ja.info, Node: Shimbun local mode, Next: Shimbun Sites, Prev: Shimbun with Wanderlust, Up: Shimbun Library + +$APB$(GjL$A$NH!5C$K%7%'%k%9%/%j%W%H$rJ9$&(B +================================== + +$B$?$/$5$s$N?7J9$rFI$s$G$$$k$H!"?7$7$$5-;v$r%A%'%C%/$9$k$N$K$$$/$i$+;~4V(B +$B$,$+$+$k$G$7$g$&!#$=$l$O(B emacs-w3m $B$,:w0z$r0l$D$:$D<hF@$9$k$+$i$G$9!#$3(B +$B$l$r9bB.$K9T$J$$$?$$$J$i!":w0z$N<hF@$K%7%'%k%9%/%j%W%H$r;H$&$3$H$,$G$-(B +$B$^$9!#%9%/%j%W%H$O<jF0$G(B ($BNc$($P(B Emacs $B$NCf$+$i(B) $B:nF0$5$;$F$bNI$$$7!"(B +cron $B$N$h$&$J%9%1%8%e!<%i$r2p$7$F<+F0$GAv$i$;$k$3$H$b$G$-$^$9!#:w0z$OFC(B +$BJL$JL>A0$N%U%!%$%k$K%;!<%V$5$l!"$=$N8e(B emacs-w3m $B$O(B w3m $B$r8F$VBe$o$j$K(B +$B$=$l$i$N%U%!%$%k$r;H$&$h$&$K$J$j$^$9!#(B + +$B0J2<$NJQ?t$G!"$=$N!V%m!<%+%k%b!<%I!W$r@)8f$7$^$9(B: + +`shimbun-use-local' + $B$3$l$r(B `t' $B$K@_Dj$9$k$3$H$K$h$C$F%m!<%+%k%b!<%I$rM-8z$K$7$^$9!#$=(B + $B$&$9$k$H!"$b$7%m!<%+%k%U%!%$%k$H$7$F:w0z$,MQ0U$G$-$F$$$l$P!"(B + emacs-w3m $B$O:G=i$K$=$l$r%A%'%C%/$7$^$9!#$b$7$=$l$,8+$D$+$i$J$+$C$?(B + $B$i!"DL>oDL$j(B w3m $B$rDL$7$F<hF@$7$^$9!#(B + +`shimbun-local-path' + $B?7J9$N(B ($B:w0z$N(B) $B%U%!%$%k$r3JG<$9$k%G%#%l%/%H%j$G$9!#%G%U%)%k%H$O(B + `w3m-default-save-directory' $B$G$9!#(B + +$B:w0z$N$?$a$N%U%!%$%k$NL>A0$O!"(BURL $B$N(B MD5 $B$r:G=i$N(B 10 $BJ8;z$K@Z$j5M$a$?$b(B +$B$N$N8e$m$K(B `_shimbun' $B$H$$$&J8;zNs$r$/$C$D$1$?$b$N$K$J$j$^$9!#<!$N$h$&(B +$B$K(B Emacs $B$G4JC1$K:w0z$N$?$a$N%U%!%$%k$r@8@.$9$k$3$H$,$G$-$^$9(B: + + (concat (substring (md5 "http://example/feed") 0 10) "_shimbun") + +Gnus $B$H(B `nnshimbun' $B$r;H$C$F$$$k?M$?$A$N$?$a$K!"%7%'%k%9%/%j%W%H$r@8@.(B +$B$9$k4X?t$,$9$G$K$"$j$^$9!#$=$l$r;H$C$F!"8=:_9VFI$7$F$$$k$9$Y$F$N(B +shimbun $B%0%k!<%W$N:w0z$r%@%&%s%m!<%I$9$k$3$H$,$G$-$^$9!#C1$K(B +`nnshimbun-generate-download-script' $B$r8F$s$G$/$@$5$$!#$9$k$H?7$7$$%P%C(B +$B%U%!$K%7%'%k%9%/%j%W%H$,@8@.$5$l$k$N$G!"8e$G%;!<%V$7$F$/$@$5$$!#@\F,0z(B +$B?t$rIU$1$F$=$N4X?t$r8F$V$H!":w0z$N<hF@$rJB9T$7$F9T$J$&$?$a$K!"$9$Y$F$N(B +w3m $B8F$S=P$7$K(B `&' $B$rIU$1$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Shimbun Sites, Next: Shimbun Basics, Prev: Shimbun local mode, Up: Shimbun Library + +$APB$(GjL$A$,$BFI$A$a$k%5%$%H(B +================== + +`Shimbun' $B%i%$%V%i%j$,BP1~$7$F$$$k%5%$%H$N0lMwI=$G$9!#(B + +* Menu: + +* Newspapers Supported by Shimbun:: $B?7J9<R(B +* News Sites Supported by Shimbun:: $B%K%e!<%9%5%$%H(B +* Mailing Lists Supported by Shimbun:: $B%a!<%j%s%0%j%9%H(B +* Sport Sites Supported by Shimbun:: $B%9%]!<%D(B +* Misc Sites Supported by Shimbun:: $B$=$NB>(B + + + +File: emacs-w3m-ja.info, Node: Newspapers Supported by Shimbun, Next: News Sites Supported by Shimbun, Prev: Shimbun Sites, Up: Shimbun Sites + +$APB$(GjL$AIg(B +------ + +`Shimbun' $B%i%$%V%i%j$,BP1~$7$F$$$k?7J9<R$G$9!#(B + +$A3/HUPB$(GjL(B (http://www.asahi.com/) + asahi.book asahi.book.column asahi.book.news asahi.book.paperback + asahi.book.review asahi.book.special asahi.business asahi.car + asahi.culture asahi.digital asahi.editorial asahi.edu + asahi.english asahi.food asahi.health asahi.housing asahi.igo + asahi.international asahi.international.asia + asahi.international.column asahi.international.special + asahi.international.world asahi.job asahi.kansai + asahi.kansai.entertainment asahi.kansai.kokoro asahi.kansai.sumai + asahi.kansai.taberu asahi.komimi asahi.life asahi.life.column + asahi.national asahi.politics asahi.rss asahi.science + asahi.shopping asahi.shopping.column asahi.shopping.yakimono + asahi.shougi asahi.sports asahi.sports.baseball + asahi.sports.battle asahi.sports.etc asahi.sports.football + asahi.sports.golf asahi.sports.rugby asahi.sports.usa + asahi.sports.winter asahi.tenjin asahi.travel asahi.wakata + + $B$3$l$i$N%0%k!<%W$O!"%G%U%)%k%H$G%F%-%9%H$@$1$N5-;v$r:n$j$^$9!#$=$l(B + $B$i$K!"%F%-%9%H$@$1$G$J$/<L??$r$b4^$`(B HTML $B$N5-;v$r@8@.$5$;$?$$$J$i(B + $B$P!"0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$K2C$($F$/$@$5$$!#(B + + (setq shimbun-asahi-prefer-text-plain nil) + + $B0lJ}!"(BHTML $B$N5-;v$r:n$k$?$a$K(B `asahi-html' $B%P%C%/%(%s%I$r;H$&$3$H(B + $B$b$G$-$^$9!#$=$l$r;H$&$K$O!"Nc$($P%0%k!<%WL>$H$7$F(B + `asahi.business' $B$NBe$o$j$K(B `asahi-html.business' $B$r;XDj$7$F$/$@$5(B + $B$$!#(B + +$A3/HUPB$(GjL(B (http://mytown.asahi.com/) + asahi-mytown.(hokkaido...okinawa) + + $BF|K\$NA4ETF;I\8)$rLVMe$9$kD+F|?7J9$NCOJ}HG$G$9!#(B + +BBC (http://www.bbc.co.uk/) + bbc.news + +$A%G%#$B!<$A!$%t%'%k%H(B (http://www.welt.de/) + welt-de.news + +$A%G%#$B!<$A!$%D%!%$%H(B (http://www.zeit.de/) + zeit-de.auto zeit-de.computer zeit-de.deutschland + zeit-de.feuilleton zeit-de.gesundheit zeit-de.international + zeit-de.leben zeit-de.literatur zeit-de.musik zeit-de.news + zeit-de.reisen zeit-de.schule zeit-de.sport zeit-de.studium + zeit-de.wirtschaft zeit-de.wissen zeit-de.zuender + +$A%2%s%@%$%M%C%H(B (http://gendai.net/) + gendai-net.today gendai-net.syakai gendai-net.sports + gendai-net.geino gendai-net.wadai gendai-net.kenko + gendai-net.syoku gendai-net.book + +$(I#z$AHU(Bjp (http://mainichi.jp/) +(2007$ADj(B10$ATB$K(B MSN $A$+$iWTIg%5%$%H$KRFPP(B) + mainichi.flash mainichi.sports mainichi.entertainment + mainichi.entertainment.art mainichi.mantan mainichi.electronics + mainichi.weekly mainichi.opinion.editorial + mainichi.opinion.yoroku mainichi.opinion.hasshinbako + mainichi.opinion.eye mainichi.opinion.hito mainichi.opinion.kinji + mainichi.opinion.yuraku mainichi.opinion.closeup + mainichi.opinion.kaisetsu mainichi.opinion.newsup + + $B$3$l$i$N%0%k!<%W$O!"%G%U%)%k%H$G<L??$r$b4^$`(B HTML $B$N5-;v$r:n$j$^$9!#(B + $B$=$l$i$K!"%F%-%9%H$@$1$N5-;v$r@8@.$5$;$?$$$J$i$P!"0J2<$N9T$r(B + `~/.emacs' $B%U%!%$%k$K2C$($F$/$@$5$$!#(B + + (setq shimbun-mainichi-prefer-text-plain t) + +$A%K%e$B!<$A%h$B!<$A%/%?%$%`%:(B (http://www.nytimes.com/) + nytimes.homepage nytimes.news.business + nytimes.news.business.media&advertising + nytimes.news.business.worldbusiness + nytimes.news.business.smallbusiness + nytimes.news.business.yourmoney nytimes.news.business.dealbook + nytimes.news.education nytimes.news.health + nytimes.news.health.policy nytimes.news.health.psychology + nytimes.news.world nytimes.news.world.africa + nytimes.news.world.americas nytimes.news.world.asia + nytimes.news.world.europe nytimes.news.world.middleeast + nytimes.news.us nytimes.news.newyork nytimes.news.newyork.thecity + nytimes.news.newyork.metro nytimes.news.obituaries + nytimes.news.science nytimes.news.science.earth + nytimes.news.science.nutrition nytimes.news.science.space + nytimes.news.sports nytimes.news.sports.basketball.college + nytimes.news.sports.football.college nytimes.news.sports.golf + nytimes.news.sports.hockey nytimes.news.sports.other + nytimes.news.sports.baseball.pro + nytimes.news.sports.basketball.pro + nytimes.news.sports.football.pro nytimes.news.sports.soccer + nytimes.news.technology nytimes.news.technology.bits + nytimes.news.technology.circuits nytimes.news.technology.pogue + nytimes.news.washington nytimes.features.arts + nytimes.features.arts.design nytimes.features.arts.music + nytimes.features.arts.television nytimes.features.automobiles + nytimes.features.books nytimes.features.books.review + nytimes.features.dining&wine nytimes.features.fashion + nytimes.features.fashion.thursdaystyles + nytimes.features.fashion.weddings nytimes.features.home&garden + nytimes.features.jobs nytimes.features.magazine + nytimes.features.movie.news nytimes.features.movie.reviews + nytimes.features.realestate nytimes.features.theater + nytimes.features.travel nytimes.features.travel.escapes + nytimes.features.week_in_review nytimes.additional.pop_top + nytimes.opinion.editorial + + 2007$BG/(B9$B7n(B19$BF|!"%K%e!<%h!<%/%?%$%`%:$OL5NA$G%K%e!<%95-;v$rDs6!$7;O(B + $B$a$^$7$?!#(B`charset=iso-8859-1' $B$H8@$C$?$N$K$b$+$+$o$i$:!"$3$N%5%$(B + $B%H$O$7$P$7$P(B `iso-8859-1' $B$N>e0L8_49J8;z%;%C%H$G$"$k(B + `windows-1252' $B$r;H$$$^$9!#;HMQ$7$F$$$k(B (X)Emacs $B$K(B + `windows-1252' coding system $B$,$"$l$P!"(B`shimbun' $B$O(B ($B$=$7$F(B + emacs-w3m $B$b(B) $B$=$N$h$&$J>l9g$G$bF0:n$7$^$9!#(B + +$AHU?/%9%]$B!<$A%D(B (http://www.nikkansports.com/) + nikkansports.flash nikkansports.baseball + nikkansports.baseball.highschool nikkansports.baseball.amateur + nikkansports.baseball.mlb nikkansports.soccer + nikkansports.soccer.japan nikkansports.soccer.world + nikkansports.sports nikkansports.sumo nikkansports.nba + nikkansports.nfl nikkansports.nhl nikkansports.rugby + nikkansports.golf nikkansports.motor nikkansports.battle + nikkansports.race nikkansports.race.kka + nikkansports.entertainment nikkansports.cinema + nikkansports.general + +$AHU1>$(I8+6v$APB$(GjL(B (http://www.nikkei.co.jp/) + nikkei.top nikkei.main nikkei.keizai nikkei.sangyo nikkei.tento + nikkei.kansai nikkei.it.business nikkei.it.busi_gyoukai + nikkei.it.biz-system nikkei.it.sox nikkei.it.data + nikkei.it.taidan nikkei.it.internet nikkei.it.broad + nikkei.it.net_gyoukai nikkei.it.iptel nikkei.it.tele + nikkei.it.broadcast nikkei.it.internet-column nikkei.it.contents + nikkei.it.ec nikkei.it.policy nikkei.it.e-gov nikkei.it.mobile + nikkei.it.mob_gyoukai nikkei.it.mobsoft nikkei.it.mobcon + nikkei.it.money nikkei.it.one nikkei.it.security + nikkei.it.net_crime nikkei.it.digital nikkei.it.pc nikkei.kokunai + nikkei.markets nikkei.kawase nikkei.kinri nikkei.ft nikkei.dj + nikkei.ngyoseki nikkei.gyosuuchi nikkei.gyoseki nikkei.china + nikkei.market nikkei.kaigai nikkei.seiji nikkei.shakai + nikkei.retto nikkei.sports nikkei.newpro nikkei.release + nikkei.release.it.comp nikkei.release.it.peri + nikkei.release.it.sys nikkei.release.it.cont + nikkei.release.it.net nikkei.release.it.lsi + nikkei.release.it.game nikkei.release.it.etc + nikkei.release.dist.depart nikkei.release.dist.ryohan + nikkei.release.dist.zakka nikkei.release.dist.cosme + nikkei.release.dist.car nikkei.release.dist.book + nikkei.release.dist.record nikkei.release.dist.food + nikkei.release.dist.mercha nikkei.release.dist.mail + nikkei.release.dist.netshop nikkei.release.dist.etc + nikkei.release.money.bank nikkei.release.money.sec + nikkei.release.money.am nikkei.release.money.insu + nikkei.release.money.etc nikkei.release.maker.chemi + nikkei.release.maker.mecha nikkei.release.maker.car + nikkei.release.maker.elec nikkei.release.maker.food + nikkei.release.maker.sports nikkei.release.maker.apparel + nikkei.release.maker.commu nikkei.release.maker.etc + nikkei.release.service.medic nikkei.release.service.rest + nikkei.release.service.trans nikkei.release.service.energy + nikkei.release.service.enter nikkei.release.service.env + nikkei.release.service.consul nikkei.release.service.edu + nikkei.release.service.haken nikkei.release.service.life + nikkei.release.service.media nikkei.release.service.lease + nikkei.release.service.travel nikkei.release.service.etc + nikkei.release.const.const nikkei.release.const.house + nikkei.release.const.etc nikkei.shasetsu + +MSN $(I7E8+$A%K%e$B!<$A%9(B (http://sankei.jp.msn.com/) +(2007$ADj(B10$ATB$+$i(B MSN $A$KRFPP(B) + sankei.points sankei.affairs sankei.politics sankei.economy + sankei.world sankei.sports sankei.entertainments sankei.life + sankei.culture sankei.release sankei.region sankei.usatoday + sankei.usatoday.ja sankei.column.sankeisho sankei.column.shucho + sankei.column.seiron + +Spiegel Online (http://www.spiegel.de/) + spiegel.news + +$A%9%]%K%A(B (http://www.sponichi.co.jp/) + sponichi.baseball sponichi.soccer sponichi.usa sponichi.others + sponichi.society sponichi.entertainment sponichi.horseracing + +$ADO%I%$%DPB$(GjL(B (http://www.sueddeutsche.de/) + sueddeutsche-de.alles sueddeutsche-de.nachrichten + sueddeutsche-de.politik sueddeutsche-de.wirtschaft + sueddeutsche-de.finanzen sueddeutsche-de.kino + sueddeutsche-de.kultur sueddeutsche-de.sport + sueddeutsche-de.muenchen sueddeutsche-de.panorama + sueddeutsche-de.leben sueddeutsche-de.gesundheit + sueddeutsche-de.computer + +$(G{t$(I%D$APB$(GjL(B (http://www.yomiuri.co.jp/) + yomiuri.atmoney yomiuri.editorial yomiuri.entertainment + yomiuri.iryou yomiuri.kyoiku yomiuri.kyoiku.children + yomiuri.kyoiku.english yomiuri.kyoiku.qanda + yomiuri.kyoiku.renaissance yomiuri.kyoiku.special + yomiuri.national yomiuri.politics yomiuri.science yomiuri.sports + yomiuri.world + + $B$3$l$i$N%0%k!<%W$O!"%G%U%)%k%H$G%F%-%9%H$@$1$N5-;v$r:n$j$^$9!#$=$l(B + $B$i$K!"%F%-%9%H$@$1$G$J$/<L??$r$b4^$`(B HTML $B$N5-;v$r@8@.$5$;$?$$$J$i(B + $B$P!"0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$K2C$($F$/$@$5$$!#(B + + (setq shimbun-yomiuri-prefer-text-plain nil) + + $B0lJ}!"(BHTML $B$N5-;v$r:n$k$?$a$K(B `yomiuri-html' $B%P%C%/%(%s%I$r;H$&$3(B + $B$H$b$G$-$^$9!#$=$l$r;H$&$K$O!"Nc$($P%0%k!<%WL>$H$7$F(B + `yomiuri.atmoney' $B$NBe$o$j$K(B `yomiuri-html.atmoney' $B$r;XDj$7$F$/$@(B + $B$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: News Sites Supported by Shimbun, Next: Mailing Lists Supported by Shimbun, Prev: Newspapers Supported by Shimbun, Up: Shimbun Sites + +$A%K%e$B!<$A%9%5%$%H(B +-------------- + +`Shimbun' $B%i%$%V%i%j$,BP1~$7$F$$$k%K%e!<%9%5%$%H$G$9!#(B + +Al Jazeera (http://english.aljazeera.net/) + aljazeera.news aljazeera.africa aljazeera.america + aljazeera.asia-pacific aljazeera.central-asia aljazeera.europe + aljazeera.middle-east aljazeera.focus aljazeera.business + aljazeera.sport aljazeera.programmes + +CNET (http://news.com.com/) + cnet.news cnet.enterprise.software cnet.enterprise.hardware + cnet.security cnet.networking cnet.personal.technology + cnet.newsmakers cnet.perspectives + +CNET Japan (http://japan.cnet.com/) + cnet-jp.general cnet-jp.news cnet-jp.special cnet-jp.opinion + cnet-jp.blog.geetstate cnet-jp.blog.kenn cnet-jp.blog.lessig + cnet-jp.blog.matsumura cnet-jp.blog.nakajima cnet-jp.blog.saeki + cnet-jp.blog.sakamoto cnet-jp.blog.sasaki cnet-jp.blog.sentan + cnet-jp.blog.staff cnet-jp.blog.takawata cnet-jp.blog.watanabe + +CNN Japan (http://www.cnn.co.jp/) + cnn-jp.business cnn-jp.fringe cnn-jp.science cnn-jp.showbiz + cnn-jp.sports cnn-jp.top cnn-jp.usa cnn-jp.world + +De-Bug Magazine (http://www.de-bug.de/) + debugmagazin-de.frontpage debugmagazin-de.musik + debugmagazin-de.reviews debugmagazin-de.magazin + debugmagazin-de.medien debugmagazin-de.podcast + debugmagazin-de.musiktechnik debugmagazin-de.screen + debugmagazin-de.gadgets debugmagazin-de.games + debugmagazin-de.mode + +Engadget Japanese (http://japanese.engadget.com/) + engadget-ja.top + +$A%(%-%5%$%H(B $A%K%e$B!<$A%9(B (http://www.excite.co.jp/) + excite.bit-koneta excite.world-odd + +$AWTSI$(I$b@>$AU_M,CK%I%$%D(B (http://www.fau.org/) + fau.news + +$A%O%$%<!$%*%s%i%$%s(B (http://www.heise.de/) + heise.news heise.telepolis + +Infoshop News (http://news.infoshop.org/) + infoshop.news + +$A%$%s%W%l%9(B (http://www.watch.impress.co.jp/) + impress.enterprise impress.pc impress.dc impress.akiba impress.av + impress.game impress.k-tai impress.internet impress.bb + impress.forest impress.robot impress.kaden impress.car + +ITmedia (http://www.itmedia.co.jp/) + itmedia.news.bursts itmedia.news.domestic itmedia.news.foreign + itmedia.news.products itmedia.news.technology itmedia.news.web20 + itmedia.news.nettopics itmedia.news.society itmedia.news.security + itmedia.news.industry itmedia.news.research itmedia.news.sp_amd + itmedia.anchordesk itmedia.bizid itmedia.enterprise + itmedia.+D.plusd itmedia.+D.mobile itmedia.+D.pcupdate + itmedia.+D.lifestyle itmedia.+D.games itmedia.+D.docomo + itmedia.+D.au_kddi itmedia.+D.vodafone itmedia.+D.shopping + itmedia.+D.lifestyle.column.asakura + itmedia.+D.lifestyle.column.honda + itmedia.+D.lifestyle.column.kobayashi + itmedia.+D.lifestyle.column.kodera + itmedia.+D.lifestyle.column.nishi + itmedia.+D.lifestyle.column.ogikubo + itmedia.+D.lifestyle.column.tachibana + itmedia.+D.lifestyle.column.takemura + itmedia.+D.lifestyle.column.unakami + +Japan Times (http://www.japantimes.co.jp/) + japantimes.general japantimes.business + +LAUT AG (http://www.laut.de/) + laut-de.news laut-de.platten laut-de.platten_alternative + laut-de.platten_dance laut-de.platten_hiphop platten_jazz + laut-de.platten_metal laut-de.platten_pop laut-de.platten_rnb + laut-de.platten_rock + +N24 (http://www.n24.de/) + n24-de.boerse n24-de.boulevard n24-de.nachrichten n24-de.netnews + n24-de.politik n24-de.sport n24-de.wirtschaft + +Open Tech Press (http://opentechpress.jp/) + opentechpress-jp.general opentechpress-jp.enterprise + opentechpress-jp.opensource opentechpress-jp.security + opentechpress-jp.news opentechpress-jp.pr + +Perlentaucher ($AUfVi$(GZh$A$j(B) (http://www.perlentaucher.de/) + perlentaucher-de.aktuell + +Rediff.com (http://www.rediff.com/) + rediff.news + +Slashdot (http://www.slashdot.org/) + slashdot.frontpage slashdot.apple slashdot.askslashdot + slashdot.books slashdot.developers slashdot.games + slashdot.hardware slashdot.interviews slashdot.IT slashdot.linux + slashdot.mobile slashdot.politics slashdot.science + + Slashdot shimbun $B$N%3%a%s%H$NItJ,$r@_Dj$9$k$?$a$N0J2<$NJQ?t$,$"$j(B + $B$^$9(B: + + `shimbun-slashdot-get-comments' + $B$b$7(B `t' $B$K@_Dj$5$l$F$$$k$H(B ($B$=$l$,%G%U%)%k%H$G$9(B)$B!"$9$Y$F$N(B + $B5-;v$N%3%a%s%H$r<hF@$7$^$9!#$=$l$i$O%U%)!<%`%U%#!<%IJ8;z(B + ("^L" $B$N$3$H(B) $B$G%$%s%H%m!&%F%-%9%H$+$iJ,N%$5$l$^$9!#$=$l$i$r(B + $B8+$k$K$O!"$$$D$b$N$h$&$K5-;v%P%C%U%!$r%9%/%m!<%k$7$F$/$@$5$$(B + (Gnus $B$G$O(B "Next page" $B%\%?%s$H(B "Previous page" $B%\%?%s$r;H$&(B + $B$3$H$,$G$-$^$9(B)$B!#$3$NJQ?t$r(B `nil' $B$K@_Dj$9$k$H!"5-;v$N%3%a%s(B + $B%H$r<hF@$7$J$/$J$j$^$9!#(B + + `shimbun-slashdot-comment-threshold' + $BI=<($5$l$k%3%a%s%H$NogCM$G$9(B ($B%G%U%)%k%H$O(B 3)$B!#(B-1 ($B$9$Y$F$N%3(B + $B%a%s%H(B) $B$+$i(B 5 ($B:G9b%l!<%H(B) $B$^$G$N4V$N?t$K$7$F$/$@$5$$!#(B + + `shimbun-slashdot-comment-display' + $B%3%a%s%H$rI=<($9$k7A<0$G$9(B ($B%G%U%)%k%H$O(B "flat")$B!#(B"flat"$B!"(B + thread" $B$^$?$O(B "nested" $B$N$I$l$+$K$7$F$/$@$5$$!#$3$l$O%7%s%\(B + $B%k$G$O$J$/J8;zNs$G$J$1$l$P$J$j$^$;$s!#(B + +Slashdot Japan (http://slashdot.jp/) + slashdot-jp.story slashdot-jp.askslashdot slashdot-jp.bookreview + slashdot-jp.bsd slashdot-jp.developers slashdot-jp.interview + slashdot-jp.linux slashdot-jp.mac slashdot-jp.mobile + slashdot-jp.science slashdot-jp.security slashdot-jp.slash + slashdot-jp.it slashdot-jp.hardware slashdot-jp.diary.oliver + + $BJQ?t(B `shimbun-slashdot-jp-group-alist' $B$KE,@Z$J@_Dj$r2C$($k$H!"$=(B + $B$NB>$N%f!<%6!<$NF|5-$b1\Mw$G$-$^$9!#(B + +Tech-On! $AHU$(I8+(BBP$AIg(B (http://techon.nikkeibp.co.jp/) + tech-on.latestnews tech-on.mobile tech-on.bbint tech-on.d-ce + tech-on.AT tech-on.edaonline tech-on.device tech-on.lsi + tech-on.silicon tech-on.observer tech-on.fpd tech-on.mono + tech-on.embedded tech-on.mecha tech-on.MEMS tech-on.nano + tech-on.carele tech-on.board tech-on.mcu tech-on.PLM + tech-on.memory tech-on.measurement tech-on.column.mot + + Tech-On! $B$OF|7P(BBP$B<R$,Ds6!$9$k5;=Q%K%e!<%9%5%$%H$G$9!#0JA0$O5-;v$N(B + $BFbMF$rA4ItFI$`$?$a$K%m%0%$%s!&%"%+%&%s%H(B ($BL5NA(B) $B$,I,MW$G$7$?$,!">/(B + $B$J$/$H$b(B 2007$BG/$N=)$K$*$$$F$OMW$i$J$$$h$&$K8+$($^$9!#>-Mh$b$7:F$S(B + $BI,MW$K$J$C$?$i(B $A5G$(IS:$A%Z$B!<$A%8(B + (http://techon.nikkeibp.co.jp/guide/inf_regi.html) $B$K9T$C$F<hF@$7(B + $B$F$/$@$5$$!#<!$NFs$D$NJQ?t$G!"$I$&$d$C$F%m%0%$%s$9$k$+$r@)8f$7$^$9(B: + + `shimbun-tech-on-user-name' + Tech-On! $B$K%m%0%$%s$9$k$?$a$N%f!<%6!<L>$G$9!#(B`nil' $B$@$H(B + Tech-On! $B$K%m%0%$%s$9$k$H$-$K!"%f!<%6!<L>$NF~NO$rMW5a$5$l$^$9!#(B + $BJ8;zNs$@$C$?$i$=$l$,%f!<%6!<L>$H$7$F;H$o$l!"F~NO$rMW5a$5$l$k(B + $B$3$H$O$"$j$^$;$s!#(B`nil' $B$G$bJ8;zNs$G$b$J$$>l9g(B ($B$3$l$,%G%U%)(B + $B%k%H$G$9(B)$B!"%m%0%$%s$r9T$J$$$^$;$s!#(B + + `shimbun-tech-on-password' + Tech-On! $B$K%m%0%$%s$9$k$?$a$N%Q%9%o!<%I$G$9!#(B`nil' $B$@$H(B + Tech-On! $B$K%m%0%$%s$9$k$H$-$K!"%Q%9%o!<%I$NF~NO$rMW5a$5$l$^$9!#(B + $BJ8;zNs$@$C$?$i$=$l$,%Q%9%o!<%I$H$7$F;H$o$l!"F~NO$rMW5a$5$l$k(B + $B$3$H$O$"$j$^$;$s!#(B`nil' $B$G$bJ8;zNs$G$b$J$$>l9g(B ($B$3$l$,%G%U%)(B + $B%k%H$G$9(B)$B!"%m%0%$%s$r9T$J$$$^$;$s!#(B + + $B$3$l$i$NF~NO$O!"$=$N(B Emacs $B%;%C%7%g%s$G:G=i$K(B Tech-On! $B$N5-;v$rFI(B + $B$_;O$a$k$H$-$K0l2s$@$1MW5a$5$l$^$9!#(B + +HotWired Japan (http://hotwired.goo.ne.jp/) + wired-jp.news wired-jp.business wired-jp.culture + wired-jp.technology wired-jp.blog.ogura wired-jp.blog.sasaki + wired-jp.blog.takahashi + +Yahoo! Japan (http://headlines.yahoo.co.jp/) + yahoo.topnews yahoo.news yahoo.politics yahoo.society + yahoo.people yahoo.business-all yahoo.market yahoo.stock + yahoo.industry yahoo.international yahoo.entertainment + yahoo.sports yahoo.computer yahoo.zenkoku yahoo.hokkaido + yahoo.aomori yahoo.iwate yahoo.miyagi yahoo.akita yahoo.yamagata + yahoo.fukushima yahoo.tokyo yahoo.kanagawa yahoo.chiba + yahoo.saitama yahoo.ibaraki yahoo.tochigi yahoo.gunma + yahoo.yamanashi yahoo.nagano yahoo.niigata yahoo.toyama + yahoo.ishikawa yahoo.fukui yahoo.aichi yahoo.gifu yahoo.shizuoka + yahoo.mie yahoo.osaka yahoo.hyogo yahoo.kyoto yahoo.shiga + yahoo.nara yahoo.wakayama yahoo.tottori yahoo.shimane + yahoo.okayama yahoo.hiroshima yahoo.yamaguchi yahoo.tokushima + yahoo.kagawa yahoo.ehime yahoo.kochi yahoo.fukuoka yahoo.saga + yahoo.nagasaki yahoo.kumamoto yahoo.oita yahoo.miyazaki + yahoo.kagoshima yahoo.okinawa + + yahoo.news $B%0%k!<%W$O<gMW$J5-;v$H!"$5$i$KB.Js5-;v$r8!:w$7$^$9!#$3(B + $B$l$i$N%0%k!<%W$O!"%G%U%)%k%H$G(B HTML $B$N5-;v$r:n$j$^$9!#$=$l$i$K%F%-(B + $B%9%H$@$1$N5-;v$r@8@.$5$;$?$$$J$i$P!"0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k(B + $B$K2C$($F$/$@$5$$!#(B + + (setq shimbun-yahoo-prefer-text-plain t) + +ZDNet Japan (http://japan.zdnet.com/) + zdnet-jp.news zdnet-jp.news.network zdnet-jp.news.hardware + zdnet-jp.news.software zdnet-jp.news.manage + zdnet-jp.news.security zdnet-jp.news.internet zdnet-jp.news.os + zdnet-jp.news.db zdnet-jp.news.system zdnet-jp.column + zdnet-jp.column.sp1 zdnet-jp.column.netsecurity1 + zdnet-jp.column.ea1 zdnet-jp.column.btl + zdnet-jp.column.solutionIT zdnet-jp.channel.security + zdnet-jp.channel.ilm zdnet-jp.blog.iida zdnet-jp.blog.mhatta + zdnet-jp.blog.kurei zdnet-jp.blog.opensource zdnet-jp.blog.soa + zdnet-jp.blog.dp + +The Onion (http://www.theonion.com/) + the-onion.news + + + +File: emacs-w3m-ja.info, Node: Mailing Lists Supported by Shimbun, Next: Sport Sites Supported by Shimbun, Prev: News Sites Supported by Shimbun, Up: Shimbun Sites + +$A%a$B!<$A%j%s%0%j%9%H(B +---------------- + +$B:G6a$G$O!"%a!<%j%s%0%j%9%H$KEj9F$5$l$?2a5n5-;v$N%"!<%+%$%V$,(B WEB $B>e$K4v(B +$B$D$b8x3+$5$l$F$$$^$9!#(B`Shimbun' $B%i%$%V%i%j$O!"0J2<$N%"!<%+%$%V$r07$&$3(B +$B$H$,$G$-$^$9!#(B + +Semi-gnus Mailing List in Japan (http://lists.airs.net/semi-gnus/archive/) + airs.semi-gnus-ja + +Wanderlust Mailing List (http://lists.airs.net/) + airs.wl airs.wl-en + +Big Brother DataBase Mailing List (http://www.rc.tutrp.tut.ac.jp/bbdb-ml/) + bbdb-ml.bbdb-ml + +GNOME Mailing List (http://mail.gnome.org/archives/) + gnome.balsa-list gnome.calendar-list gnome.cvs-commits-list + gnome.foundation-announce gnome.foundation-list gnome.fplan-list + gnome.gconf-list gnome.gdome gnome.gnome-1.4-list + gnome.gnome-announce-list gnome.gnome-components-list + gnome.gnome-db-list gnome.gnome-de gnome.gnome-debugger-list + gnome.gnome-devel-list gnome.gnome-doc-list gnome.gnome-gui-list + gnome.gnome-hackers gnome.gnome-hackers-readonly + gnome.gnome-hackers-test gnome.gnome-i18n gnome.gnome-i18n-tools + gnome.gnome-kde-list gnome.gnome-list gnome.gnome-office-list + gnome.gnome-pilot-list gnome.gnome-sound-list + gnome.gnome-themes-list gnome.gnome-ui-hackers + gnome.gnome-web-list gnome.gnome-webmaster-list + gnome.gnome-workshop-list gnome.gnomecc-list gnome.gnumeric-list + gnome.gtk-app-devel-list gnome.gtk-devel-list gnome.gtk-doc-list + gnome.gtk-i18n-list gnome.gtk-list gnome.gtk-perl-list + gnome.guppi-list gnome.libart gnome.libart-hackers + gnome.orbit-list gnome.vote gnome.wm-spec-list gnome.xml + gnome.xslt + +Java $A%+%s%U%!%l%s%9(B Mailing List (http://www.java-conf.gr.jp/archives/) + javaconf.servlet-ml javaconf.business-ml + javaconf.duke-in-the-box-ml javaconf.jfriends-ml javaconf.JGT-ml + javaconf.jini-ml javaconf.ejb-ml javaconf.cm-ml javaconf.horb-ml + javaconf.talk-ml + +LinuxCE JP Mailing List (http://www.peanuts.gr.jp/~kei/ml-archive/) + linuxce-jp.users + +Mule Mailing List (http://www.m17n.org/) + m17n.mule-ja m17n.mule + +Meadow Mailing List (http://www.ysnb.net/meadow/) + meadow.meadow-develop meadow.meadow-users-jp + +Mew Mailing List (http://www.mew.org/ml/) + mew.mew-dist mew.mew-win32 mew.mew-int + +MagicPoint Mailing List (http://www.mew.org/ml/) + mew.mgp-users mew.mgp-users-jp + +www.namazu.org Mailing Lists (http://www.namazu.org/cgi-bin/mailman/listinfo) + namazu.kakasi-commits namazu.kakasi-dev namazu.migemo + namazu.namazu-users-en namazu.namazu-users-ja + namazu.namazu-devel-ja namazu.namazu-devel-en + namazu.namazu-win32-users-ja namazu.sary + +emacs-w3m Mailing List (http://emacs-w3m.namazu.org/ml/) + emacs-w3m.emacs-w3m + +NetBSD JP Mailing List (http://www.jp.netbsd.org/ja/JP/ml/) + netbsd.announce-ja netbsd.junk-ja netbsd.tech-misc-ja + netbsd.tech-pkg-ja netbsd.port-arm32-ja netbsd.port-hpcmips-ja + netbsd.port-mac68k-ja netbsd.port-mips-ja netbsd.port-powerpc-ja + netbsd.hpcmips-changes-ja netbsd.members-ja netbsd.admin-ja + netbsd.www-changes-ja + +Ruby Mailing List (http://blade.nagaokaut.ac.jp/) + ruby.comp.lang.ruby ruby.fj.comp.lang.ruby ruby.ruby-dev + ruby.ruby-ext ruby.ruby-list ruby.ruby-math ruby.ruby-talk + +Toshiba Linux Users JP Mailing List (http://linux.toshiba-dme.co.jp/ML/tlinux-users-j/) + toshiba.linux-users-j + +w3m-dev Mailing List (http://mi.med.tohoku.ac.jp/~satodai/w3m-dev/) + w3m-dev.w3m-dev w3m-dev.w3m-dev-en + +digiko Mailing List (http://yar-3.net/digiko/) + digiko.digiko + +XEmacs Mailing List (http://list-archive.xemacs.org/) + xemacs.xemacs-announce xemacs.xemacs-beta-ja xemacs.xemacs-beta + xemacs.xemacs-build-reports xemacs.xemacs-cvs + xemacs.xemacs-design xemacs.xemacs-mule xemacs.xemacs-nt + xemacs.xemacs-patches xemacs.xemacs-users-ja xemacs.xemacs + +$A%;%-%e%j%F%#$B!<(BMEMO Mailing List (http://memo.st.ryukoku.ac.jp/archive/) + security-memo.memo security-memo.free-memo + security-memo.social-memo + + $B$J$*!"(B`security-memo.*' $B$O%"%I%l%92s<}%m%\%C%HBP:v$G(B userid $B$H(B + passowrd $B$r5a$a$i$l$k$N$G(B `~/.w3m/passwd' $B$K(B + + machine memo.st.ryukoku.ac.jp + realm input username/password = archives/archives + login archives + passwd archives + + machine memo.st.ryukoku.ac.jp + realm input user: archives / password: archives + login archives + passwd archives + + $B$H=q$-!">e5-%U%!%$%k$+$i(B group, others $B$N%"%/%;%98"$r<h$j=|$$$F$*(B + $B$/I,MW$,$"$j$^$9!#(B + +Debian JP Mailing List (http://lists.debian.or.jp/) + debian-jp.debian-announce debian-jp.debian-devel + debian-jp.debian-www debian-jp.debian-users + debian-jp.debian-policy debian-jp.jp-qa + +Debian Mailing List (http://lists.debian.org/) + debian.debian-announce debian.debian-commercial + debian.debian-firewall debian.debian-french debian.debian-isp + debian.debian-italian debian.debian-kde debian.debian-laptop + debian.debian-news debian.debian-news-german + debian.debian-news-portuguese debian.debian-security-announce + debian.debian-testing debian.debian-user + debian.debian-user-catalan debian.debian-user-french + debian.debian-user-polish debian.debian-user-portuguese + debian.debian-user-spanish debian.debian-user-swedish + debian.debian-admintool debian.debian-apache + debian.debian-autobuild debian.debian-beowulf debian.debian-boot + debian.debian-cd debian.debian-ctte debian.debian-debbugs + debian.debian-devel debian.debian-devel-announce + debian.debian-devel-french debian.debian-devel-games + debian.debian-devel-spanish debian.debian-doc debian.debian-dpkg + debian.debian-emacsen debian.debian-events-eu + debian.debian-events-na debian.debian-faq debian.debian-gcc + debian.debian-glibc debian.debian-gtk-gnome debian.debian-hams + debian.debian-ipv6 debian.debian-java debian.debian-jr + debian.debian-med debian.debian-mentors debian.debian-newmaint + debian.debian-newmaint-admin debian.debian-ocaml-maint + debian.debian-openoffice debian.debian-perl debian.debian-pilot + debian.debian-policy debian.debian-pool debian.debian-python + debian.debian-qa debian.debian-qa-private debian.debian-release + debian.debian-security debian.debian-snapshots + debian.debian-tetex-maint debian.debian-toolchain + debian.debian-vote debian.debian-wnpp debian.debian-www + debian.debian-x debian.deity debian.debian-chinese + debian.debian-chinese-big5 debian.debian-chinese-gb + debian.debian-esperanto debian.debian-i18n debian.debian-japanese + debian.debian-l10n-catalan debian.debian-l10n-dutch + debian.debian-l10n-english debian.debian-l10n-french + debian.debian-l10n-italian debian.debian-l10n-portuguese + debian.debian-l10n-spanish debian.debian-laespiral + debian.debian-russian debian.debian-simplified-chinese + debian.debian-68k debian.debian-alpha debian.debian-arm + debian.debian-bsd debian.debian-hppa debian.debian-hurd + debian.debian-ia64 debian.debian-mips debian.debian-parisc + debian.debian-powerpc debian.debian-s390 debian.debian-sparc + debian.debian-superh debian.debian-ultralinux debian.debian-win32 + debian.debian-all-changes debian.debian-alpha-changes + debian.debian-arm-changes debian.debian-books + debian.debian-cd-vendors debian.debian-changes + debian.debian-consultants debian.debian-curiosa + debian.debian-devel-all-changes debian.debian-devel-alpha-changes + debian.debian-devel-arm-changes debian.debian-devel-changes + debian.debian-devel-hurd-i386-changes + debian.debian-devel-i386-changes debian.debian-devel-m68k-changes + debian.debian-devel-powerpc-changes + debian.debian-devel-sparc-changes debian.debian-hurd-i386-changes + debian.debian-i386-changes debian.debian-legal + debian.debian-m68k-changes debian.debian-mirrors + debian.debian-powerpc-changes debian.debian-project + debian.debian-publicity debian.debian-sgml + debian.debian-sparc-changes debian.lcs-eng debian.lsb-confcall + debian.lsb-discuss debian.lsb-impl debian.lsb-spec + debian.lsb-test debian.spi-announce debian.spi-general + debian.vgui-discuss + +KDE Mailing List in Japan (http://www.kde.gr.jp/ml/) + kde.Kuser kde.Kdeveloper + +Geocrawler (http://www.geocrawler.com/) + Geocrawler $B$KJ]B8$5$l$F$$$k$9$Y$F$N%a!<%j%s%0%j%9%H$r1\Mw$G$-$^$9!#(B + `M-x shimbun-geocrawler-add-group <RET>' $B$H$$$&%3%^%s%I$r;H$C(B + $B$F!"1\Mw$7$?$$%0%k!<%W$rJQ?t(B `shimbun-geocrawler-group-alist' $B$KEP(B + $BO?$7$F$/$@$5$$!#(B + +Mailing list ARChives (http://marc.theaimsgroup.com/) + Mailing list ARChives (MARC) $B$KJ]B8$5$l$F$$$k$9$Y$F$N%a!<%j%s%0%j(B + $B%9%H$r1\Mw$G$-$^$9!#1\Mw$7$?$$%0%k!<%W$N%0%k!<%WL>$H(B URL $B$r!"JQ?t(B + `shimbun-marc-aims-group-alist' $B$KEPO?$7$F$/$@$5$$!#(B + +RedHat Mailing List (http://sources.redhat.com/ml/) + redhat.automake redhat.bug-automake redhat.automake-prs + redhat.automake-cvs redhat.binutils redhat.binutils-cvs + redhat.c++-embedded redhat.crossgcc redhat.cgen redhat.cgen-prs + redhat.cgen-cvs redhat.cygwin redhat.cygwin-xfree + redhat.cygwin-announce redhat.cygwin-xfree-announce + redhat.cygwin-apps redhat.cygwin-patches redhat.cygwin-developers + redhat.cygwin-cvs redhat.cygwin-apps-cvs + redhat.docbook-tools-discuss redhat.docbook-tools-announce + redhat.docbook-tools-cvs redhat.docbook redhat.dssslist + redhat.sgml-tools redhat.docbook-apps redhat.ecos-announce + redhat.ecos-devel redhat.ecos-discuss redhat.ecos-maintainers + redhat.ecos-patches redhat.elix redhat.elix-announce redhat.gdb + redhat.gdb-announce redhat.gdb-testers redhat.gdb-testresults + redhat.gdb-patches redhat.gdb-cvs redhat.bug-gdb redhat.gdb-prs + redhat.libc-alpha redhat.libc-hacker redhat.bug-glibc + redhat.glibc-cvs redhat.glibc-linux redhat.bug-gnats + redhat.gnats-devel redhat.gnats-announce redhat.gnats-cvs + redhat.gsl-discuss redhat.gsl-announce redhat.gsl-cvs + redhat.guile redhat.guile-emacs redhat.guile-prs redhat.guile-gtk + redhat.bug-guile redhat.guile-cvs redhat.guile-emacs-cvs + redhat.insight redhat.insight-announce redhat.insight-prs + redhat.installshell redhat.inti redhat.kawa redhat.libffi-discuss + redhat.libffi-announce redhat.libstdc++ redhat.libstdc++-cvs + redhat.libstdc++-prs redhat.mauve-discuss redhat.mauve-announce + redhat.newlib redhat.pthreads-win32 redhat.rhdb + redhat.rhdb-announce redhat.rhug-rhats redhat.rpm2html-cvs + redhat.rpm2html-prs redhat.rpm2html redhat.sid + redhat.sid-announce redhat.sid-cvs redhat.sourcenav + redhat.sourcenav-announce redhat.sourcenav-prs redhat.win32-x11 + redhat.xconq7 redhat.xconq-announce redhat.xconq-cvs + +MacOSX JP Mailing List (http://www.tech-arts.co.jp/macosx/) + macosx-jp.macosx-jp macosx-jp.macosx-dev-jp + macosx-jp.macosx-ws-jp macosx-jp.webobjects-jp + +SourceForge JP (http://sourceforge.jp) + SourceForge JP $B$KJ]B8$5$l$F$$$k%a!<%j%s%0%j%9%H$N$9$Y$F$N8x3+=q8K(B + $B$r1\Mw$G$-$^$9!#1\Mw$7$?$$%0%k!<%W$rJQ?t(B + `shimbun-sourceforge-jp-mailing-lists' $B$KEPO?$7$F$/$@$5$$!#(B + +Elips Mailing List (http://heimat.jp/~nakaji/elips/) + elips.elips + +Squeak-ja Mailing List (http://lists.squeakfoundation.org/pipermail/squeak-ja/) + squeak-ja.main + +Smalltalkers' Salon Mailing List (http://www.sra.co.jp/smalltalk/SML/archives/) + sml.main + +Squeak-dev Mailing List (http://lists.squeakfoundation.org/pipermail/squeak-dev/) + squeak-dev.main + +Plucker Mailing List (http://www.mail-archive.com/plucker-*@rubberchicken.org/maillist.html) + plucker.announce plucker.list plucker.dev + +pilot-link Mailing List (http://www.pilot-link.org/pipermail/) + pilot-link.announce pilot-link.devel pilot-link.general + pilot-link.unix-ng + +Coldsync Mailing List (http://www.thedotin.net/maillists/coldsync-hackers/maillist.html) + coldsync.main + +J-Pilot Mailing List (http://www.jpilot.org/pipermail/jpilot/) + jpilot.main + +pilot-mailsync Mailing List (http://lists.gnu-designs.com/pipermail/pilot-mailsync/) + pilot-mailsync.main + +Mozilla Users Mailing List in Japan (http://www.mozilla.gr.jp/ml/logs/moz-users/) + mozilla-jp.users + + $B$J$*!"(B`mozilla-jp.users' $B$O%"%I%l%92s<}%m%\%C%HBP:v$G(B userid $B$H(B + passowrd $B$r5a$a$i$l$k$N$G(B `~/.w3m/passwd' $B$K(B + + machine www.mozilla.gr.jp + realm Please Enter mozilla mozilla + login mozilla + passwd mozilla + + $B$H=q$-!">e5-%U%!%$%k$+$i(B group, others $B$N%"%/%;%98"$r<h$j=|$$$F$*(B + $B$/I,MW$,$"$j$^$9!#(B + +tDiary Developers Mailing List in Japan (http://www.tdiary.org/) + tdiary-ml.devel tdiary-ml.theme + +arch.bluegate.org Mailing Lists (http://arch.bluegate.org/mailman/listinfo) + arch-bluegate.subversion-jp arch-bluegate.arch-jp + arch-bluegate.mailman arch-bluegate.viewarch + +Tigris.org:Open Source Software Engineering (http://www.tigris.org/) + Tigris.org $B$KJ]B8$5$l$F$$$k$9$Y$F$N%a!<%j%s%0%j%9%H$r1\Mw$G$-$^$9!#(B + $B1\Mw$7$?$$%0%k!<%W$rJQ?t(B `shimbun-tigris-group-alist' $B$KEPO?$7$F$/(B + $B$@$5$$!#%0%k!<%WL>$O(B tigris.<project>.<mailinglist> $B$K$J$j$^$9!#(B + +www.SciPy.net Mailing Lists (http://www.scipy.net/mailman/listinfo) + scipy.astropy scipy.ipython-user scipy.ipython-dev + scipy.scipy-user scipy.scipy-dev scipy.scipy-testlog + scipy.scipy-chaco scipy.scipy-cvs + + + + +File: emacs-w3m-ja.info, Node: Sport Sites Supported by Shimbun, Next: Misc Sites Supported by Shimbun, Prev: Mailing Lists Supported by Shimbun, Up: Shimbun Sites + +$A%9%]$B!<$A%D(B +-------- + +`Shimbun' $B%i%$%V%i%j$,BP1~$7$F$$$k%9%]!<%D4X78$N%5%$%H$G$9!#(B + +makanai (http://www.makanai.com/) + makanai.f1news + +F1 $A%U%!%s(B (http://www.ksky.ne.jp/~tahara/f1/) + f1fan.news + +@nifty:$A%b$B!<$A%?$B!<$A%9%]$B!<$A%D(B (http://forum.nifty.com/fmotor/) + msports-nifty.F1 msports-nifty.IRL msports-nifty.WRC + msports-nifty.Europe msports-nifty.USA + +Yahoo!$A%9%]$B!<$A%D(B (http://sports.yahoo.co.jp/) + yahoo-sports.F1 yahoo-sports.baseball yahoo-sports.keiba + yahoo-sports.NBA yahoo-sports.NFL yahoo-sports.rugby + +$B$?$@$7!"(BEmacs-21.4 $B$^$?$O$=$l0JA0$NHG$G(B @nifty: $B%b!<%?!<%9%]!<%D$r1\Mw(B +$B$9$k$K$O!"(BMule-UCS (*Note Other Requirements::) $B$,I,MW$G$9!#(B + + + +File: emacs-w3m-ja.info, Node: Misc Sites Supported by Shimbun, Prev: Sport Sites Supported by Shimbun, Up: Shimbun Sites + +$A$=$NK{(B +------ + +`Shimbun' $B%i%$%V%i%j$NBP1~$7$F$$$k$=$NB>$N%5%$%H$G$9!#7G<(HD$d!"O":\5-(B +$B;v$r<gBN$H$9$k$h$&$J%5%$%H$,4^$^$l$F$$$^$9!#(B + +Tea Cup $(I6-$AJ>0e(B (http://www.tcup.com/) + Tea Cup Communication $B$K$h$C$FDs6!$5$l$k!"MM!9$J7G<(HD$r9VFI$9$k$3(B + $B$H$,$G$-$^$9!#%G%U%)%k%H$G$O!"0J2<$N;0$D$N7G<(HD$,MQ0U$5$l$F$$$^$9!#(B + + tcup.meadow + Meadow $(I6-$AJ>0e(B (http://www66.tcup.com/6629/yutopia.html) + + tcup.skk + SKK $(I6-$AJ>0e(B (http://www67.tcup.com/6718/yutopia.html) + + tcup.yutopia + $A$f$&,Ftopia$(I6-$AJ>0e(B (http://www61.tcup.com/6116/yutopia.html) + + $B?7$?$K7G<(HD$r%j%9%H$KDI2C$9$k$K$O!"$=$l$i$NL>A0$H(B URL $B$rD4$Y$F!"(B + `shimbun-tcup-group-alist' $B$rJQ99$7$F$/$@$5$$!#Fs$D$N7G<(HD(B `foo' + $B$H(B `bar' $B$rDI2C$9$kNc$G$9!#(B + + (eval-after-load "sb-tcup" + '(setq shimbun-tcup-group-alist + (append + '(("foo" "http://MMMM.teacup.com/foo/bbs2") + ("bar" "http://NNNN.teacup.com/bar/bbs2")) + shimbun-tcup-group-alist))) + +2ch + $B%0%k!<%WL>$H(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B + + (setq shimbun-2ch-group-alist + '(("Meadow" . + "http://pc.2ch.net/test/read.cgi/software/1005469775") + ("emacs-w3m" . + "http://pc.2ch.net/test/read.cgi/unix/1013710106"))) + +CGI_Board $A$rJ9$C$F$$$k$(I6-$AJ>0e(B (http://www.math.tohoku.ac.jp/~kuroki/support/) + + CGI_Board $B$r;H$C$F$$$k7G<(HD$N(B URL $B$rD4$Y$F!"(B + `shimbun-cgi-board-group-alist' $B$KE,@Z$J@_Dj$r2C$($F;H$$$^$9!#(B + +HNS $A$K$h$kHU$(GX4(B + $B1\Mw$7$?$$F|5-$N(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B + + (setq shimbun-hns-group-alist + '(("arisawa" ;; $B%0%k!<%WL>(B + "http://nijino.homelinux.net/diary/" ;; URL + "ari@mbf.sphere.ne.jp") ;; $B%a!<%k%"%I%l%9(B + ("miyoshi" + "http://www.be.wakwak.com/cgi-bin/sbox/~miyoshi/hns/" + "miyoshi@meadowy.org"))) + +tDiary $A$K$h$kHU$(GX4(B + $B1\Mw$7$?$$F|5-$N(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B + + (setq shimbun-tdiary-group-alist + '(("henahena" ;; $B%0%k!<%WL>(B + "http://www.fan.gr.jp/~ring/d/") ;; URL + ("yoichi" + "http://yoichi.geiin.org/d/"))) + +$(IA{$ALl$(I"H$(G^[(B (http://plaza.rakuten.co.jp/) $A$NHU$(GX4(B + $B1\Mw$7$?$$F|5-$r3+@_$7$F$$$k?M$N3ZE7(B ID $B$H%a!<%k%"%I%l%9$rD4$Y$F!"(B + $B0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B + + (setq shimbun-rakuten-group-alist + '(("rakuten-id" . "email-address"))) + +EmacsWiKi (http://www.emacswiki.org/) + emacswiki.changes emacswiki.diff + +$A%3%s%F%s%D$r:,$`(B RSS $A%U%#$B!<$A%I(B + $B1\Mw$7$?$$7G:\%3%s%F%s%D$,4^$^$l$k$h$&$J(B RSS $B%U%#!<%I$rD4$Y$F!"(B + `shimbun-rss-hash-group-path-alist' $BJQ?t$r0J2<$N$h$&$K@_Dj$7$F;H$$(B + $B$^$9!#%P%C%/%(%s%IL>$O(B `rss-hash' $B$G$9!#<g$K8D?M$N%V%m%0$J$I$,BP>](B + $B$K$J$k$G$7$g$&!#(B + + $B%Q%i%a!<%?$O%0%k!<%WL>!"(BRSS $B%"%I%l%9!"%a!<%k%?%$%W(B (`t' $B$G(B html)$B!"(B + $B@07A;~$N3+;O@55,I=8=!"@07A;~$N=*N;@55,I=8=$H$J$j$^$9!#%0%k!<%WL>!"(B + RSS $B%"%I%l%90J30$O%*%W%7%g%s$G$9!#(B + + $B0J2<$O%5%s%W%k$G$9!#$3$N>l9g$O(B `rss-hash.sampleblog1' $B$*$h$S(B + `rss-hash.sampleblog2' $B$H$7$F1\Mw$G$-$^$9!#(B + + (setq shimbun-rss-hash-group-path-alist + '(;; text mail + ("sampleblog1" "http://www.example.com/index1.rss") + ;; html mail + ("sampleblog2" "http://www.example.com/index2.rss" + t "</title>" "<!-- start ads"))) + +$A%3%s%F%s%D$r:,$`(B Atom $A%U%#$B!<$A%I(B + $BA09`(B ($B%3%s%F%s%D$r4^$`(B RSS $B%U%#!<%I(B) $B$HF1MM$K!"7G:\$5$l$?%3%s%F%s(B + $B%D$r4^$`(B Atom $B%U%#!<%I$b1\Mw$9$k$3$H$,$G$-$^$9!#$=$l$r9T$J$&$K$O!"(B + shimbun-rss-hash-* $B$HF1MM$N$d$jJ}$GJQ?t(B + `shimbun-atom-hash-group-path-alist' ($B$R$g$C$H$9$k$H(B + `shimbun-atom-hash-x-face-alist' $B$J$I$b(B) $B$r@_Dj$7$F$/$@$5$$!#%P%C(B + $B%/%(%s%IL>$O(B `atom-hash' $B$G$9!#(B + +$A%3%s%F%s%D$N$J$$(B RSS $A%U%#$B!<$A%I(B + $BB?$/$N%U%#!<%I$K$O5-;v$N40A4$J%3%s%F%s%D$,L5$$$+!"$^$?$O$$$B$o$k$K(B + $B>.=P$7$K$7$^$9!#%5%$%H$,$A$c$s$H5-;v$r=q$+$:$K!"$=$N$h$&$J%U%#!<%I(B + $B$7$+Ds6!$7$J$$>l9g$G$b!"B?$/$N>l9g(B `rss-blogs' $B$r;H$C$F@Z$jH4$1$k(B + $B$3$H$,$G$-$^$9!#@_Dj$O(B `rss-hash' $B$N$b$N$H;w$F$$$^$9!#Nc$r<($7$^$7$g(B + $B$&(B: + + (setq shimbun-rss-blogs-group-url-regexp + '(("first-feed" "http://example/wordpressfeed") + ("second-feed" "http://example/somefeed" + "<div name=\"content\">" "<div name=\"comments\">") + ("third-feed" "http://example/someotherfeed" 'none))) + + $B:G=i$NFs$D$N%"%$%F%`$O%U%#!<%I$NL>A0$H(B URL $B$G$9!#$=$N%U%#!<%I$,;X(B + $B$7<($9(B HTML $B%Z!<%8$K$*$$$F!"<B:]$N%3%s%F%s%D$N;O$a$H=*$j$rC5$9$?$a(B + $B$NFs$D$N@55,I=8=$r!"G$0U$GM?$($k$3$H$,$G$-$^$9!#$=$3$GC1$K(B `none' + $B$H$$$&%7%s%\%k$r;H$&$H!"$$$+$J$k_I2a$b9T$J$o$l$^$;$s!#(B + + $B2C$($F!"(B`rss-blogs' $B$O$$$/$D$+$N%]%T%e%i!<$J%V%m%0!&%(%s%8%s$r<+F0(B + $BE*$K07$&$3$H$,$G$-$^$9!#$9$J$o$A(B Google $B$N(B Blogger/Blogspot ($B%3%a(B + $B%s%H!&%U%#!<%I$r4^$_$^$9(B)$B!"(BWordPress$B!"$*$h$S(B TypePad $B$G$9!#%U%#!<(B + $B%I$r<h$j4s$;$k%5%$%H$,$=$l$i$N0l$D$r;H$C$F$$$k$J$i(B (`generator' $B%?(B + $B%0$rD/$a$l$P$o$+$j$^$9(B)$B!"C1$KG$0U$N%Q%i%a!<%?$r>JN,$9$k$@$1$G!"<+(B + $BF0E*$K%3%s%F%s%D$r@Z$j=P$=$&$H$9$k$G$7$g$&!#(B + +Wiki $A%3%s%F%s%D(B + $B1\Mw$7$?$$(B Wiki $B$N(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F;H$$$^$9!#(B + PukiWiki $B$H(B Hiki $B$KBP1~$7$F$$$^$9!#$b$7!"3FFbB&$N%j%9%H$N(B 4 $BHVL\!"(B + 5 $BHVL\$NMWAG$N@55,I=8=$K2?$r;XDj$7$FNI$$$+J,$+$i$J$$$H$-$O!"(B`nil' + $B$r;XDj$9$l$PNI$$$G$7$g$&!#5-;v$N<hF@;~$K@07A$,9T$o$l$:!"$?$@%Z!<%8(B + $BA4BN$,8+$($k$@$1$G$9!#(B + + (setq shimbun-wiki-group-alist + '(("pukiwiki" ;; $B%0%k!<%WL>(B + "http://pukiwiki.org/index.php?cmd=rss10" ;; URL + "webmaster@pukiwiki.org" ;; $B%a!<%k%"%I%l%9(B + nil ;; X-Face + "\n<h3 id=\"" ;; contents $B$N(B start $B$r<($9(B regexp + "</address>") ;; contents $B$N(B end $B$r<($9(B regexp + ("hiki" + "http://www.namaraii.com/hiki/?c=rss" + "webmaster@fdiary.net" + nil + "<div class=\"section\">" + "<div class=\"sidebar\">") + ("apollo" + "http://wiki.fdiary.net/apollo/?c=rss" + "moriq@moriq.com" + nil + "<div class=\"section\">" + "<div class=\"sidebar\">") + )) + +Yahoo!$A%*$B!<$A%/%7%g%s(B (http://auctions.yahoo.co.jp/) + $B1\Mw$7$?$$%+%F%4%j$d8!:w7k2L$N(B URL $B$rD4$Y$F!"0J2<$N$h$&$K@_Dj$7$F(B + $B;H$$$^$9!#(B + + (setq shimbun-yahoo-auctions-group-alist + '(("mp3player" . "http://list3.auctions.yahoo.co.jp/jp/show/catleaf_rss?category=2084039708&alocale=0jp") + ("iPod" . "http://search3.auctions.yahoo.co.jp/search_rss?p=iPod&auccat=2084039708&alocale=0jp&acc=jp"))) + +VineLinux Errata (http://www.vinelinux.org/) + vinelinux.errata.4x.i386 vinelinux.errata.4x.ppc + vinelinux.errata.3x.i386 vinelinux.errata.3x.ppc + vinelinux.errata.3x.alpha vinelinux.errata.2x.i386 + vinelinux.errata.2x.ppc vinelinux.errata.2x.sparc + vinelinux.errata.2x.alpha vinelinux.errata.1x + +$(Ggm$AI=DZ$(Gk^$A%a$B!<$A%k%^%,%8%s(B (http://www.mmz.kantei.go.jp/) + kantei.m-magazine-en kantei.m-magazine-ja kantei.m-magazine-cn + kantei.m-magazine-kr kantei.m-magazine-en.aso + kantei.m-magazine-ja.aso kantei.m-magazine-en.fukuda + kantei.m-magazine-ja.fukuda kantei.m-magazine-en.abe + kantei.m-magazine-ja.abe kantei.m-magazine-en.koizumi + kantei.m-magazine-ja.koizumi + + $B8eJ}8_49@-$N$?$a!"(B`kantei.m-magazine' $B$bMxMQ2DG=$K$J$C$F$$$^$9!#(B + +$ALX$(G]B$(I"G(B (http://www.jpo.go.jp/) + jpo.news jpo.revision jpo.lawguide jpo.details + +IBM developerWorks (http://www-6.ibm.com/jp/developerworks/) + ibm-dev.autonomic ibm-dev.java ibm-dev.linux ibm-dev.opensource + ibm-dev.webservices ibm-dev.xml + +Pocketgames (http://www.pocketgames.jp/) + pocketgames.news + +Wincefan (http://www.wince.ne.jp/) + wincefan.news + +PalmFan (http://www.palmfan.com/) + palmfan.news + +$(GgY$BG>$A=V$N$(G\"^[$A%l%]$B!<$A%H(B (http://homepage1.nifty.com/akiba/plat.html) + dennou.report + +PCWEB COLUMN Square (http://pcweb.mycom.co.jp/column/) + pcweb-column.jsr pcweb-column.yume pcweb-column.hreceipe + pcweb-column.kita pcweb-column.shonanlife pcweb-column.kaden + pcweb-column.nemurenai pcweb-column.komono pcweb-column.js + pcweb-column.en pcweb-column.motherboard pcweb-column.svalley + pcweb-column.architecture pcweb-column.motorlife + pcweb-column.nihongoprog pcweb-column.objc pcweb-column.ide + pcweb-column.music pcweb-column.itsecurity + pcweb-column.soundvisual pcweb-column.osx pcweb-column.sopinion + pcweb-column.ebook pcweb-column.orerobo pcweb-column.zsh + pcweb-column.rikei pcweb-column.lifehack pcweb-column.world + pcweb-column.guutara pcweb-column.volt pcweb-column.textclean + pcweb-column.person pcweb-column.web20 pcweb-column.system + + $B8eJ}8_49@-$N$?$a!"0J2<$N%"%$%F%`$bMxMQ2DG=$K$J$C$F$$$^$9!#(B + pcweb-column.itshihonron pcweb-column.yetanother + pcweb-column.asia pcweb-column.benri pcweb-column.bytes + pcweb-column.game pcweb-column.hitech pcweb-column.java + pcweb-column.jisakuparts pcweb-column.scramble + pcweb-column.toolexp pcweb-column.winvista pcweb-column.winxp + pcweb-column.interview pcweb-column.ityougo pcweb-column.kimeuchi + pcweb-column.stratesys pcweb-column.toyagain + +$A%N$B!<$A%D$(G]s$AAP$(Gs((B (http://tsuruo.dominohosting.biz/members/tsuruo/) + lotusex.news lotusex.library lotusex.operation lotusex.primer + lotusex.tips lotusex.practical lotusex.qanda lotusex.lounge + lotusex.bbs + +$A#@(BIT$A%U%)$B!<$A%i%`(B (http://www.atmarkit.co.jp) + atmarkit.news atmarkit.fwin2k atmarkit.fdotnet atmarkit.fsys + atmarkit.fxml atmarkit.fdb atmarkit.flinux atmarkit.fnetwork + atmarkit.fjava atmarkit.fsecurity atmarkit.farc atmarkit.fbiz + atmarkit.fwcr atmarkit.jibun + +TeX Q&A $(I6-$AJ>0e(B (http://www.matsusaka-u.ac.jp/~okumura/texfaq/qa/) + texfaq.qanda + +X51.org (http://x51.org/) + x51.anima x51.art x51.auction x51.blow x51.cabal x51.crime + x51.disaster x51.edge x51.enema x51.ghost x51.homme x51.info + x51.life x51.love x51.media x51.medical x51.military + x51.northkorea x51.oparts x51.phallic x51.psychics x51.religion + x51.science x51.top x51.ufo x51.uma x51.xfiles + +eXperts Connection (eXConn) (http://www.exconn.net/) + exconn.news + +MSDN (http://msdn.microsoft.com/) + msdn.all msdn.netframework msdn.architecture msdn.asp.net + msdn.data msdn.longhorn msdn.mobility msdn.subscriptions + msdn.msdntv msdn.office msdn.security msdn.sql msdn.theshow + msdn.vbasic msdn.vcsharp msdn.visualc msdn.vfoxpro msdn.vjsharp + msdn.vstudio msdn.vs2005 msdn.webservices msdn.embedded msdn.xml + msdn.japan.msdn msdn.japan.msdn-us + +Haiku OS (http://haiku-os.org/) + haiku-os.news haiku-os.forums haiku-os.newsletters + +Foundation for a Free Information Infrastructure (http://www.ffii.org/) + ffii.en.software-patents ffii.en.software-patents.ffii + ffii.en.information-infrastructure ffii.en.project + ffii.de.software-patente ffii.de.software-patente.ffii + ffii.de.informations-infrastruktur ffii.fr.brevets-logiciels + ffii.fr.brevets-logiciels.ffii ffii.nl.softwarepatenten + ffii.nl.softwarepatenten.ffii + + + +File: emacs-w3m-ja.info, Node: Shimbun Basics, Prev: Shimbun Sites, Up: Shimbun Library + +$APB$(GjL$A%b%8%e$B!<$A%k$NWw$j7=(B +====================== + +`Shimbun' $B$O(B emacs-w3m $B$NIUB0%i%$%V%i%j$G!"(BGnus $B$d(B Wanderlust$B!"(BMew $B$J$I(B +$B$N(B MUA $B$rMxMQ$7!"%&%'%V%3%s%F%s%D$r%a!<%k$HF1$8%f!<%6%$%s%?!<%U%'!<%9$G(B +$BFI$`$3$H$r2DG=$K$9$k$b$N$G$9!#$3$3$G$O(B `shimbun' $B%b%8%e!<%k$r:n@.$9$kE5(B +$B7?E*$JJ}K!$r@bL@$7$^$9!#(B + +* Menu: + +* Overview:: $B35N,(B +* Getting web page and header information:: $B%&%'%V%Z!<%8$N%=!<%95Z$S%X%C%@>pJs$r<hF@$9$k(B +* Displaying an article:: $B5-;v$NI=<((B +* Inheriting shimbun module:: shimbun $B%b%8%e!<%k$N7Q>5(B +* Making text/plain articles:: text/plain $B$N5-;v$r:n$k$K$O(B +* Zenkaku to hankaku conversion:: $BA43QJ8;z$rH>3QJ8;z$KJQ49$9$k(B +* Coding convention of Shimbun:: $B%3!<%G%#%s%05,Ls(B + + + +File: emacs-w3m-ja.info, Node: Overview, Next: Getting web page and header information, Prev: Shimbun Basics, Up: Shimbun Basics + +$A8EBT(B +---- + +`http://www.foobar.net' $B$N%3%s%F%s%D$r1\Mw$9$k?7$?$J(B `shimbun' $B%b%8%e!<(B +$B%k(B `foobar' $B$r:n@.$9$k$H$7$F!"$^$::G=i$K5.J}$,$7$J$l$P$J$i$J$$$3$H$O!"(B +`sb-foobar.el' $B$NKAF,$K(B + + (require 'shimbun) + (luna-define-class shimbun-foobar (shimbun) ()) + +$B$N$h$&$J@k8@$rF~$l$F$*$/$3$H$G$9!#=y!9$KJ,$+$k$H;W$$$^$9$N$G!":#$O$*$^(B +$B$8$J$$$H;W$C$F$*$$$F$/$@$5$$!#Cm0U$9$Y$-$3$H$O!"(B`shimbun' $B%b%8%e!<%k$r(B +$BF~$l$k%U%!%$%kL>$N(B `sb-foobar.el' $B$N(B `foobar' $B$NL>A0$H!"(B +`luna-define-class' $B$NBh0l0z?t$N(B `shimbun-foobar' $B$N(B `foobar' $B$NL>A0$O(B +$B9g$o$;$F$*$/I,MW$,$"$k$3$H$G$9!#(B + +`Shimbun' $B%b%8%e!<%k(B `shimbun-foobar' $B$,$3$J$9$Y$-;E;v$OBg$-$/;M$D$"$j(B +$B$^$9(B ($B$"$J$?$,(B Gnus $B$N%f!<%6$J$i$P!"!V%U%)%k%@!W$r!V%0%k!<%W!W$KFI$_49(B +$B$($F$/$@$5$$(B): + + 1. MUA $B$,(B `foobar' $B%U%)%k%@$r3+$$$?$i!"5-;v$NI8Bj$J$I$r%j%9%H%"%C%W$9(B + $B$k$?$a$K(B `http://www.foobar.net' $B$+$i%&%'%V%Z!<%8$N%=!<%9$r<hF@$9(B + $B$k$3$H!#(B + + 2. $B<hF@$7$?%&%'%V%Z!<%8$N%=!<%9$KBP$7!"5-;v$N8+=P$7$KI,MW$J$$$/$D$+$N(B + $B>pJs$H$H$b$K<hF@$7$F!"(B`headers' $B$H$$$&%j%9%H$KBeF~$7$FJV$9$3$H!#(B + + 3. MUA $B$,(B `foobar' $B%U%)%k%@$N5-;v$N1\Mw$rMW5a$7$?$i!"<B:]$N5-;vFbMF$r(B + $B5-:\$7$?%&%'%V%Z!<%8$N%=!<%9$r(B ($BNc$($P(B + `http://www.foobar.net/030530.html' $B$+$i(B) $B<hF@$9$k$3$H!#(B + + 4. `http://www.foobar.net/030530.html' $B$+$i<hF@$7$?%&%'%V%Z!<%8$N%=!<(B + $B%9$r!"I,MW$K1~$81\Mw$7$d$9$$$h$&$K@07A$9$k$3$H!#(B + +$B:G=i$N:n6H$O(B `shimbun.el' $B$N(B `shimbun-headers' $B$,!"FsHVL\$N:n6H$O(B +`shimbun-get-headers' $B$,C4Ev$7$^$9!#$=$7$F;0HVL\$N:n6H$O(B +`shimbun-article' $B$,!":G8e$N:n6H$O(B `shimbun-make-contents' $B$,C4Ev$7$^$9!#(B + +`shimbun.el' $B$NCf$r$4Mw$/$@$5$$!#(B`defun' $B$K$h$k4X?tDj5A$NB>$K!"(B +$B8+47$l$J$$(B `luna-define-generic', `luna-define-method' $B$J$I$N(B +$B@k8@$,$"$j$^$9$h$M!#$I$&$b;HMQJ}K!$O(B `defun' $B$N$=$l$H;w$F$$$k$h$&$G(B +$B$9!#$=$7$F!"A0<T$O2?$@$+(B doc-string $B$@$1$r=q$$$F$"$k$h$&$G!"F1L>$N%7%s%\(B +$B%k$K$D$$$F8e<T$K$h$C$F:FEY@k8@$7$F$$$k$h$&$K8+$($^$9!#99$K!"$"$k%7%s%\%k(B +$B$K$D$$$F!"(B`luna-define-generic' $B$N@k8@$@$1$,$"$C$F!"(B +`luna-define-method' $B$N@k8@$,$J$$$b$N$b$"$j$^$9!#(B + +$B<B$O!"(B`shimbun.el' $B5Z$S3F(B `shimbun' $B%b%8%e!<%k$O!"(BEmacs Lisp $B$K$F%*%V%8%'(B +$B%/%H;X8~%W%m%0%i%_%s%0$r2DG=$H$9$k(B `luna.el' (1) (*Note +Overview-Footnotes::) $B$rMxMQ$7$F=q$+$l$F$$$^$9!#(B + +`shimbun.el' $B$NCf$G$O!"(B`shimbun-headers' $B$,$"$k(B URL $B$N%&%'%V%Z!<%8$N%=!<(B +$B%9$r<hF@$7!"(B`shimbun-get-headers' $B$,$=$N%&%'%V%Z!<%8$N%=!<%9$+$iI8Bj$J(B +$B$I$rH4$-=P$7(B... $B$H$$$&A0=R$N<j=g$,%O!<%I%3!<%G%#%s%0$5$l$F$$$^$9!#$7$+(B +$B$7!"7h$aBG$A$9$k$@$1$G$O!"@i:9K|JL$N%&%'%V%Z!<%8$N%=!<%9$r!"$=$N9=B$$K(B +$B9g$o$;$FJQ2=$5$;$k$3$H$,$G$-$^$;$s!#(B + +$B$=$3$G(B `luna' $B$K$h$j!"%a%=%C%I$,%3!<%k$5$l$k<j=g$@$17h$a$F$*$$$F!"(B +`shimbun' $B$K$h$jJQ2=$5$;$k$Y$-%a%=%C%I$N<BBNDj5A$r3F(B `shimbun' $B%b%8%e!<(B +$B%k$KG$$;$F$$$k$N$G$9!#3F(B `shimbun' $B%b%8%e!<%k$G6&DL$G;H$($=$&$J%a%=%C%I(B +$B$O(B `shimbun.el' $B$NCf$K%a%=%C%I$N<BBN$bDj5A$7$F$"$j$^$9$,!"$=$l$9$i3F(B +`shimbun' $B%b%8%e!<%k$K$*$$$F:FDj5A$r$9$k$3$H$,2DG=$G$9!#(B + +$B$b$&$*J,$+$j$N$h$&$K!"(B`luna-define-generic' $B$O!"8@$o$P]W$@$1$N@k8@!"(B +`luna-define-method' $B$O(B `shimbun' $B%b%8%e!<%kKh$K:n@.$G$-$k<BBN$N@k8@!#(B +$B$=$7$F(B `sb-foobar.el' $B$NKAF,$KF~$l$?(B `luna-define-class' $B$G$N@k8@$O!"(B +`luna' $B>e$G$N?7$?$J%/%i%9$N@k8@$@$C$?$o$1$G$9!#(B + + +File: emacs-w3m-ja.info Node: Overview-Footnotes, Up: Overview + +(1) FLIM $A$K:,$^$l$F$$$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Getting web page and header information, Next: Displaying an article, Prev: Overview, Up: Shimbun Basics + +$A%&%'%V%Z$B!<$A%8$N%=$B!<$A%9<0$S%X%C%@Gi$(G^^$A$rH!5C$9$k(B +-------------------------------------------- + +$B$^$:5-;v8+=P$7$r<hF@$9$kBP>]$H$J$k%&%'%V%Z!<%8$r7h$a$k$3$H$+$i;O$a$^$9!#(B +$B%U%l!<%`I=<($5$l$F$$$k>l9g$O!"%U%l!<%`$NCf$GI,MW$J%Z!<%8$@$1$rC1FH$G;X(B +$B$7<($9(B URL $B$rFCDj$9$k$Y$-$G$9!#FCDj$G$-$?$i!"?7$?$K:n@.$9$k(B `shimbun' +$B%b%8%e!<%k$NCf$G(B `luna-define-method' $B$r;H$$!"(B`shimbun-index-url' $B$NDj(B +$B5A$r:n@.$7$^$7$g$&!#C1=c$K(B URL $B$rJV$9$h$&$K$9$l$PNI$$$G$9$h!#8e$G@bL@$7(B +$B$^$9$N$G!"JQ?t(B `shimbun-foobar-groups' $B$bMQ0U$7$F$*$-$^$7$g$&(B (1) +(*Note Getting web page and header information-Footnotes::)$B!#(B + + (defvar shimbun-foobar-url "http://www.foobar.net") + + (luna-define-method shimbun-index-url ((shimbun shimbun-foobar)) + shimbun-foobar-url) + + (defvar shimbun-foobar-groups '("news")) + +`shimbun-headers' $B%a%=%C%I$O(B `shimbun.el' $B$NCf$K4{$KDj5A$5$l$F$$$^$9$+(B +$B$i!"(B`sb-foobar.el' $B$G(B `shimbun-index-url' $B%a%=%C%I$NDj5A$r:n@.$9$l$P%&%'(B +$B%V%Z!<%8$N%=!<%9$N<hF@$,$G$-$k$h$&$K$J$j$^$9!#(B`shimbun-headers' $B$O%&%'(B +$B%V%Z!<%8$N%=!<%9$r<hF@$7$?8e!"(B`shimbun-get-headers' $B%a%=%C%I$r8F$S!"%X%C(B +$B%@>pJs$N<}=8$KF~$j$^$9!#(B`shimbun.el' $B$NCf$K$O(B `shimbun-get-headers' $B$N(B +$B%a%=%C%I@k8@$,$"$j$;$s$+$i!"(B`sb-foobar.el' $B$NCf$GFH<+$K%a%=%C%I$r:n@.$7(B +$B$J$1$l$P$J$j$^$;$s!#(B + +`sb-foobar.el' $B$K(B `shimbun-get-headers' $B$N%a%=%C%I$r:n@.$9$k$?$a$K!"<h(B +$BF@$7$?%Z!<%8$N%=!<%9$rJ,@O$7$^$7$g$&!#$I$N$h$&$J@55,I=8=$G5-;v$N%X%C%@(B +$B>pJs$r<}=8$9$k$+$r8!F$$7$^$9!#5-;v$N8+=P$7$H$7$FFC$KI,MW$J>pJs$O!"I8Bj!"(B +$BF|IU!":n@.<T!"$=$N5-;v$N(B URL$B!"$=$7$F(B `message-id' $B$G$9!#$3$l$i$N>pJs$O!"(B +$B$=$l$>$l$N(B MUA $B$K$*$$$F!"(BSubject, Date, From, Xref, Message-ID $B$H$7$FI=(B +$B<($5$l$^$9!#Nc$($P!"2<5-$N(B + + <a href="030530.html">5$B7n(B30$BF|$NOCBj(B($BEj9F<T(B-$B$_$-$*(B <foo@bar.net>)</a> + +$B$N$h$&$J9T$r=8$a$F5-;v$K$7$?$$$N$G$7$?$i!"(B + + "<a href=\"\\(\\([0-9][0-9][0-9][0-9]\\)[0-9][0-9]\\.html\\)\">\\([^<(]+\\)($BEj9F<T(B-\\([^<]+\\))<\/a>" + +$B$N$h$&$J@55,I=8=$K$J$k$G$7$g$&!#$=$7$F5-;v$N(B Xref $B$NCM$O(B +`(match-string 1)' $B$G<hF@$G$-$^$9!"(BDate $B$O(B +`(match-string 2)' $B$NCM$r2C9)$9$l$PNI$$$G$7$g$&!#(BSubject $B$O(B +`(match-string 3)' $B$G<hF@$G$-$^$9$M!#(BFrom $B$O(B +`(match-string 4)' $B$r2C9)$9$l$PNI$$$G$7$g$&!#$3$l$i$NCM(B +$B$O(B MUA $B$G8+0W$$$h$&$K99$K2C9)$7$F$b9=$$$^$;$s!#(B + +$B>e5-$N$h$&$K5-;v$N(B URL $B$,AjBP%Q%9I=<($5$l$F$$$k>l9g$O!"(B +`shimbun-expand-url' $B$r;HMQ$7!"@dBP%Q%9I=<($KJQ99$7$F$+$i%X%C%@$K<}$a$^(B +$B$7$g$&!#5-;v$N(B URL $B$,%X%C%@$N(B URL $B$HF1$8!"$D$^$j5-;vKh$K8DJL$K(B URL $B$r;}(B +$B$?$J$$9=B$$N%&%'%V%Z!<%8$b$"$j$^$9!#$3$N>l9g$O>/$7$d$C$+$$$G!"%X%C%@>p(B +$BJs<hF@$NCJ3,$G!"5-;v$NFbMF$b<hF@$7$F$*$-!"(BEmacs $B$N%a%b%j$K<}$a$F$*$/I,(B +$BMW$,$"$j$^$9!#6qBNE*$K$O(B `sb-palmfan.el', `sb-dennou.el', `sb-tcup.el' +$B$N(B `shimbun-headers' $B%a%=%C%I$NDj5A$r;2>H$7$F$/$@$5$$!#(B + +$B%&%'%V%Z!<%8$K$h$C$F$O(B Date $B$,FCDj$G$-$J$$$b$N$,$"$j$^$9!#$=$&$$$&>l9g(B +$B$OL5M}$KFCDj$;$:$H$b(B `""' $B$rF~$l$F$*$1$P(B OK $B$G$9!#5-;v$NFbMF$r8+$F=i$a(B +$B$F(B Date $B$,FCDj$G$-$k$J$i!"(B`shimbun-make-contents' $B%a%=%C%I$NCf$G2~$a$F(B +$B%X%C%@$K(B Date $B$N>pJs$rF~$l$F$b(B OK $B$G$9!#$=$l$+$i!"(BFrom $B$r7h$aBG$A$7$F$b(B +$BNI$$>l9g$b$"$j$^$9!#(B + +`message-id' $B$N:n@.$K$OCm0U$rMW$7$^$9!#0lIt$N5-;v$,FI$a$J$+$C$?$j$7$^$9(B +$B$N$G(B (2) (*Note Getting web page and header information-Footnotes::)$B!"(B +$BI,$:C10l@-(B (uniqueness) $B$rJ]>Z$7$J$1$l$P$J$j$^$;$s!#F|IU$d%I%a%$%s!"$=(B +$B$N%Z!<%8$N(B URL $B$N0lIt$r;H$C$FJ8;zNs$r@8@.$9$k$3$H$GC10l@-$r3NJ]$7$^$7$g(B +$B$&!#$=$NB>!"(B`message-id' $B$N0lIt$KI,$:(B `@' $B$r4^$a$k$h$&$K$7!"5U$K(B `:' $B$O(B +$B4^$^$J$$$h$&$K$7$^$7$g$&!#$3$N%k!<%k$r<i$i$J$$$H%$%s%i%$%s2hA|$,$-$A$s(B +$B$H=PNO$5$l$^$;$s$h!#>\$7$/$O(B RFC2387, RFC822 $B$r;2>H$7$F$/$@$5$$!#(B + +$B6lO+$7$F<hF@$7$?$3$l$i$N>pJs$O(B `shimbun-create-header' $B$H$$$&4X?t$rMxMQ(B +$B$7$F%X%C%@$K<}$a$^$9!#(B + +$B7k6I(B `sb-foobar.el' $B$NCf$G$N(B `shimbun-get-headers' $B$NDj5A$N9|AH$_$O$3$s(B +$B$JIw$K$J$j$^$9$M!#(B + + (luna-define-method shimbun-get-headers ((shimbun shimbun-foobar) + &optional range) + (let ((regexp "....") + subject from date id url headers) + ... + (catch 'stop + (while (re-search-forward regexp nil t nil) + ... + (when (shimbun-search-id shimbun id) + (throw 'stop nil)) + (push (shimbun-create-header + 0 subject from date id "" 0 0 url) + headers))) + headers)) + +$B$J$*!"$3$N%a%=%C%I$NCf$G$O(B `shimbun' $B$H$$$&0l;~JQ?t$G!"(B`shimbun' $B%b%8%e!<(B +$B%k(B `shimbun-foobar' $B$N%$%s%9%?%s%9$K%"%/%;%9$G$-$^$9!#(B + +$B$H$3$m$G!"@hDxJ]N1$K$7$?JQ?t(B `shimbun-foobar-groups' $B$K$D$$$F@bL@$7$^$7$g(B +$B$&!#(B + +$B2>$K(B `http://www.foobar.net' $B$NCf$KFI$_$?$$5-;v%0%k!<%W$,Fs$D$"$C(B +$B$F!"$=$l$>$l$N5-;v$N%X%C%@>pJs$rF@$k%&%'%V%Z!<%8$,JL!9$N>l=j$K$"$C$?$H$7(B +$B$^$7$g$&!#(B`http://www.foobar.net/whatsnew/index.hmtl' $B$K%5%$%H(B +$B$N99?7>pJs$,!"(B`http://www.foobar.net/ml/index.html' $B$K(B ML $B$N5-(B +$B;v%"!<%+%$%V$N0lMw$,$"$k$H$-$J$I$G$9!#$3$&$$$&>l9g$O!"(B`shimbun' $B%b(B +$B%8%e!<%k(B `foobar' $B$N%0%k!<%W$H$7$F!"(B`foobar.whatsnew', +`foobar.ml' $B$H$7$F%"%/%;%9$G$-$k$HJXMx$G$9$h$M!#$=$&$$$&>l9g$O2<5-(B +$B$N$h$&$K$7$F$_$^$7$g$&!#(B + + (defvar shimbun-foobar-url "http://www.foobar.net") + + (defvar shimbun-foobar-group-path-alist + '(("whatsnew" . "/whatsnew/index.html") + ("ml" . "/ml/index.html"))) + + (defvar shimbun-foobar-groups + (mapcar 'car shimbun-foobar-group-path-alist)) + + (luna-define-method shimbun-index-url ((shimbun shimbun-foobar)) + (concat shimbun-foobar-url + (cdr (assoc (shimbun-current-group-internal shimbun) + shimbun-foobar-group-path-alist)))) + +$B8=:_%f!<%6$,%"%/%;%9$7$F$$$k%0%k!<%W$K$O(B +`shimbun-current-group-internal' $B$r;H$($PJ,$+$j$^$9!#(B +`shimbun-get-headers' $B$J$I$G$b%0%k!<%W$,0c$($P:n6HFbMF$,0c$C$F$/$k2DG=(B +$B@-$b$"$j$^$9$M!#(B + +$B$J$*!"(B`shimbun' $B%b%8%e!<%k0l$D$K$D$-!":GDc$G$b0l$D$N%0%k!<%W$,I,MW$G$9!#(B +$B%0%k!<%W$NL>A0$N7h$aJ}$KFC$K7h$^$j$O$"$j$^$;$s$,!"%0%k!<%WL>$KG:$s$@$i!"(B +`news' $B$H$+(B `main' $B$J$I$HIU$1$F$*$-$^$7$g$&!#(B + + +File: emacs-w3m-ja.info Node: Getting web page and header information-Footnotes, Up: Getting web page and header information + +(1) `Shimbun' $A%b%8%e$B!<$A%kR;$D$K$D$-!"Wn5M$G$bR;$D$N%0%k$B!<$A%W$,1XR*$G(B +$A$9!#(B + +(2) shimbun $A$NR;2?$N$(GX4$AJB$,$BFI$A$a$J$$$@$1$J$i$^$@$7$b!"OBJV$K(B +`message-id' $A$rWw3I$9$k$H!"$(Gb8$A7=$,J\$(Gkk$A$9$k4sJB$J%a$B!<$A%k$N$=$l$H$+$A(B +$A:O$C$F$7$^$$!"$=$N%a$B!<$A%k$,$BFI$A$a$J$/$J$k?ID\PT$9$i$"$j$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Displaying an article, Next: Inheriting shimbun module, Prev: Getting web page and header information, Up: Shimbun Basics + +$(GX4$AJB$N1mJ>(B +---------- + +`shimbun.el' $B$KDj5A$5$l$?(B `shimbun-article' $B%a%=%C%I$O!"%X%C%@>pJs$+$i(B +Xref $B$r<h$j=P$7!"$=$N(B URL $B$N%&%'%V%Z!<%8$N%=!<%9$r<hF@$7$?8e$K!"$=$N%=!<(B +$B%9$rF~$l$?%o!<%-%s%0%P%C%U%!$NCf$G(B `shimbun-make-contents' $B$r8F$S$^$9!#(B +$B6qBNE*$J5-;v$N2C9)$O(B `shimbun-make-contents' $B$N;E;v$G$9!#(B + +$B5-;v$H$J$k%&%'%V%Z!<%8$N%=!<%9$,!"$I$P$C$H%o!<%-%s%0%P%C%U%!$K$V$A$^$1(B +$B$i$l$F$$$k$HA[A|$7$F$/$@$5$$!#(B`shimbun.el' $B$NI8=`$N(B +`shimbun-make-contents' $B$O!"$=$N%P%C%U%!$N@hF,$K$^$:%X%C%@>pJs$rA^F~$7!"(B +$B$=$ND>8e$K(B `<html>' $B$d(B `<body>' $B$J$I$r!"$^$?!"%P%C%U%!$NKvHx$K(B +`</body>', `</html>' $B$rA^F~$7$F$/$l$^$9!#$=$&$d$C$F(B HTML $B%a!<%k$H$7$FI=(B +$B<($5$;$k$N$G$9!#(B + + HTML $B$N5-;v$@$1$G$J$/!"(B`text/plain' $B7A<0$N5-;v$,@8@.$5$l$k$h$&$K$9(B + $B$k$3$H$b$G$-$^$9!#(B*Note Making text/plain articles::. + +$B5-;v$r2?$b2C9)$9$kI,MW$,$J$1$l$P(B `sb-foobar.el' $B$NCf$G$O(B +`shimbun-make-contents' $B$K$D$$$F?7$?$KDj5A$9$kI,MW$O$"$j$^$;$s!#(B + +$BC1=c$K5-;v$NA08e$K<N$F$?$$ItJ,$,$"$k$@$1$J$i$P!"(B +`shimbun-foobar-content-start', `shimbun-foobar-content-end' $B$K<N$F$?$$(B +$BItJ,$r8!:w2DG=$J@55,I=8=$r;XDj$7$F$*$-$^$7$g$&!#(B + + (defvar shimbun-foobar-content-start "^<body>$") + (defvar shimbun-foobar-content-end "^<\/body>$") + +$BI8=`$N(B `shimbun-make-contents' $B$+$i8F$S=P$5$l$?(B +`shimbun-clear-contents' $B$O!"$3$l$i$N@55,I=8=$rMxMQ$7$F!"(B`point-min' $B$+(B +$B$i(B `shimbun-foobar-content-start' $B$^$G!"(B`shimbun-foobar-content-end' $B$+(B +$B$i(B `point-max' $B$^$G$r@Z$j<N$F$F$/$l$^$9$h!#C"$7!"$3$l$iFs$D$N%^%C%A$O$$(B +$B$:$l$+$,@.8y$7$J$$$H@Z$j<N$F$O9T$o$l$^$;$s$N$GCm0U$,I,MW$G$9!#(B + +$B9-9p$J$I$NITMW$J>pJs$,$"$C$F!"$=$l$r:Y$+$/8!:w$7$F<N$F$?$$>l9g$O!"(B +`sb-foobar.el' $B$NCf$GFH<+$N(B `shimbun-clear-contents' $B$rDj5A$7$F$*$-$^$9!#(B + + (luna-define-method shimbun-clear-contents :around ((shimbun shimbun-foobar) + header) + ;; cleaning up + (while (re-search-forward "..." nil t nil) + (delete-region (match-beginning 0) (match-end 0))) + (luna-call-next-method)) + +$B$h$j6qBNE*$JJ}K!$O!"(B`sb-ibm-dev.el' $B$,;29M$K$J$k$+$b$7$l$^$;$s!#(B + +$B@hDx!"(B*Note Getting web page and header information:: $B$N@a$G!"5-;vKh$K(B +$B8DJL$K(B URL $B$r;}$?$J$$9=B$$N%&%'%V%Z!<%8$N>l9g!"%X%C%@>pJs<hF@$NCJ3,$G!"(B +$B5-;v$NFbMF$b<hF@$7$F$*$-!"(BEmacs $B$N%a%b%j$K<}$a$F$*$/I,MW$,$"$k$H?=$7>e(B +$B$2$^$7$?!#$3$N>l9g!"(B`shimbun-article' $B$G$O>e5-$N$h$&$J(B Xref $B>pJs$+$i$N(B +web page $B$N<hF@$OI,MW$K$J$j$^$;$s$N$G!"$?$@(B Emacs $B$N%a%b%j$+$i<h$j=P$7(B +$B$F!"%P%C%U%!$K@07A$7$FA^F~$9$l$PB-$j$^$9!#6qBNE*$K$O(B `sb-palmfan.el', +`sb-dennou.el', `sb-tcup.el' $B$N(B `shimbun-article' $B%a%=%C%I$NDj5A$r;2>H(B +$B$7$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Inheriting shimbun module, Next: Making text/plain articles, Prev: Displaying an article, Up: Shimbun Basics + +Shimbun $A%b%8%e$B!<$A%k$N$(ICc$A3P(B +------------------------ + +$B%a!<%j%s%0%j%9%H%^%M!<%8%c(B ($B%"!<%+%$%P(B) $B$H$7$FM-L>$J$b$N$,$$$/$D$+$"$j(B +$B$^$9!#(B + + * Mailman The GNU Mailing List Manager. $B0JA0$O(B `pipermail' $B$H8F$P$l(B + $B$F$$$^$7$?!#>\:Y$O(B + `http://www.gnu.org/software/mailman/index.html' $B$r$4Mw$/$@$5$$!#(B + + * MHonArc$B>\:Y$O(B `http://www.oac.uci.edu/indiv/ehood/mhonarc.html' $B$r(B + $B$4Mw$/$@$5$$!#(B + + * fml fml mailing list server/manager. $B>\:Y$O(B + `http://www.fml.org/software/fml/' $B$r$4Mw$/$@$5$$!#(B + + * mailarc$B>\:Y$O(B `http://cvs.namazu.org/mailarc/' $B$r$4Mw$/$@$5$$!#(B + +$B5.J}$,(B *Note Getting web page and header information:: $B$N%9%F%C%W$G<hF@(B +$B$7$?%&%'%V%Z!<%8$N%=!<%9$rJ,@O$7$F$$$k$H$-$K!"$=$N%=!<%9$NCf$K$3$l$i%a!<(B +$B%j%s%0%j%9%H%^%M!<%8%c$NL>A0$r8+$D$1$?$i(B (1) (*Note Inheriting shimbun +module-Footnotes::)$B!"$=$l$O$9$4$/%i%C%-!<$J$3$H$G$9!#(B`sb-mailman.el', +`sb-mhonarc.el', `sb-fml.el', `sb-mailarc.el' $B$K4{$K(B +`shimbun-get-headers' $B$J$I$NI,MW$J%a%=%C%I$,Dj5A$5$l$F$$$^$9!#$3$l$i$r(B +$BMxMQ$7$F$J$*B-$j$J$$ItJ,$@$1$N:9J,%W%m%0%i%_%s%0$r$9$l$P!"5.J}$N(B +`sb-foobar.el' $B$OAaB.F0$-$^$9!#(B + +$BNc$($P(B `sb-mailman.el' $B$rMxMQ$9$k$J$i(B `sb-foobar.el' $B$NKAF,$O!"(B + + (require 'sb-mailman) + (luna-define-class shimbun-foobar (shimbun-mailman) ()) + +$B$3$s$JIw$K$J$j$^$9!#$3$l$G(B `shimbun' $B%b%8%e!<%k(B `shimbun-foobar' $B$O(B +`shimbun-mailman' $B%/%i%9$r7Q>5$7(B (2) (*Note Inheriting shimbun +module-Footnotes::)$B!"(B`shimbun-foobar' $B$NCf$G$O!"(B`sb-mailman.el' $B$NCf$G(B +$BDj5A$5$l$F$$$k%a%=%C%I$,I8=`$G;HMQ$5$l$k$3$H$H$J$j$^$9(B ($B99$K%a%=%C%I$N(B +$B0lIt$r>e=q$-$9$k$3$H$b2DG=$G$9(B)$B!#(B + +`sb-mailman.el' $B$r<B:]$KMxMQ$7$?%5%s%W%k$H$7$F!"(B`sb-pilot-mailsync.el' +$B$J$I$r$4Mw$/$@$5$$!#G!2?$K3Z$,$G$-$k$+$,$*J,$+$j$K$J$k$G$7$g$&!#(B + +$B5$$rIU$1$k$3$H$,0l$D$"$k$H$9$l$P!"$3$l$i$N%a!<%j%s%0%j%9%H%^%M!<%8%c$N(B +$BCf$K$OCO0h2=(B (localize) $B$5$l$F!"Nc$($PF|IUI=<($rF|K\8l$G9T$&$h$&$K2~B$(B +$B$5$l$F$$$k$b$N$,$"$k$3$H$G$9!#(B`sb-mailman.el', `sb-mhonarc.el', +`sb-fml.el', `sb-mailarc.el' $B$O$$$:$l$bI8=`$N!"1Q8lHG$N$b$N$KBP1~$7$F$$(B +$B$^$9!#$3$l$iCO0h2=$5$l$?%a!<%j%s%0%j%9%H%^%M!<%8%c$rMxMQ$7$F$$$k%&%'%V(B +$B%5%$%H$r(B `shimbun' $B$GFI$_$?$$$H$-$O!"$$$/$D$+$N%a%=%C%I$r>e=q$-$7$J$1$l(B +$B$P$J$i$J$$$+$b$7$l$^$;$s!#(B + + +File: emacs-w3m-ja.info Node: Inheriting shimbun module-Footnotes, Up: Inheriting shimbun module + +(1) $A%&%'%V%Z$B!<$A%8$N%=$B!<$A%9$NVP$K$3$l$i%a$B!<$A%j%s%0%j%9%H%^%M$B!<$A%8%c$NC{G0$,(B +$A1mJ>$5$l$F$$$k$3$H$,6`$$$G$9!#(B + +(2) $A$D$^$j(B `shimbun-mailman' $A%/%i%9$,$(Gr5$A%/%i%9$K$J$j$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Making text/plain articles, Next: Zenkaku to hankaku conversion, Prev: Inheriting shimbun module, Up: Shimbun Basics + +text/plain $A$N$(GX4$AJB$rWw$k$K$O(B +--------------------------- + +$B$?$H$((B MUA $B$,(B HTML $B$N5-;v$rFI$`$3$H$,$G$-$k$h$&$K(B emacs-w3m $B$K$h$C$F6/(B +$B2=$5$l$F$$$F$b!"$$$/$D$+$N>l9g$K$O(B `text/plain' $B$N5-;v$,JXMx$J$3$H$b$"(B +$B$k$+$b$7$l$^$;$s!#(B`sb-foobar' $B%b%8%e!<%k$K(B `text/html' $B$G$O$J$/$F(B +`text/plain' $B$N5-;v$r:n$i$;$k$K$O!"Fs$D$NJ}K!$,$"$j$^$9!#(B + + * $B0l$D$O(B `sb-foobar' $B%b%8%e!<%k$K(B `sb-text' $B%b%8%e!<%k$r7Q>5$5$;$k(B + (*Note Inheriting shimbun module::) $B$3$H$G$9!#0J2<$O(B `sb-foobar' + $B%b%8%e!<%k$NKAF,$KCV$/$3$H$,$G$-$kNc$G$9!#(B + + (require 'sb-text) + (luna-define-class shimbun-foobar (shimbun-text) ()) + + `sb-text' $B%b%8%e!<%k$O!"(B`text/plain' $B7A<0$G5-;v$r@8@.$9$k(B + `shimbun-make-contents' $B%a%=%C%I$rDs6!$7$^$9!#%F%-%9%H$@$1$N5-;v$r(B + $B7G<($9$k%5%$%H$r07$&(B `shimbun' $B%b%8%e!<%k$K$O!"Lr$KN)$D$G$7$g$&!#(B + + * $B$b$&0l$D$O!"JQ?t(B `shimbun-foobar-prefer-text-plain' $B$rHs(B-`nil' $B$K(B + $B@_Dj$9$k$3$H$G$9!#$3$l$O(B `shimbun-make-contents' $B%a%=%C%I$K!"(B + `text/plain' $B7A<0$G5-;v$r@8@.$5$;$^$9(B ($B<B:]$K$O!"$=$l$O(B `sb-text' + $B%b%8%e!<%k$,Ds6!$9$k4X?t$r;H$$$^$9(B)$B!#$3$l$O!"%G%U%)%k%H$N(B + `shimbun-make-contents' $B$r7Q>5$9$k%b%8%e!<%k$@$1$K8z2L$,$"$k$3$H$K(B + $BCm0U$7$F$/$@$5$$(B ($BFC$K(B `sb-text' $B%b%8%e!<%k$r7Q>5$9$k%b%8%e!<%k$O!"(B + $B1F6A$5$l$^$;$s(B)$B!#$3$NJ}<0$NMxE@$O!"%f!<%6$,4JC1$K(B `text/plain' $B$N(B + $B5-;v$H(B `text/html' $B$N5-;v$r@Z$jBX$($k$3$H$,$G$-$k$3$H$G$9!#(B + + $B$=$l$,L$Dj5A$G$"$k>l9g!"JQ?t(B `shimbun-foobar-prefer-text-plain' $B$N(B + $B%G%U%)%k%HCM$O(B `nil' $B$G$9!#$7$?$,$C$F!"(B`sb-asahi.el' $B$*$h$S(B + `sb-yomiuri.el' $B0J30$N$"$i$f$k(B `shimbun' $B%b%8%e!<%k$K$*$$$F!"$=$N(B + $B%G%U%)%k%HCM$O(B `nil' $B$G$9!#(B + + $B2C$($F!"(Bweb $B%Z!<%8$+$i0UL#$N$"$k%F%-%9%H$r@Z$j=P$9$?$a$K!"JQ?t(B + `shimbun-foobar-content-start' $B$*$h$S(B + `shimbun-foobar-content-end' $B$NBe$o$j$K!"(B + `shimbun-foobar-text-content-start' $B$*$h$S(B + `shimbun-foobar-text-content-end' $B$r;H$&$3$H$,$G$-$^$9(B (*Note + Displaying an article::)$B!#A0<T$,L$Dj5A$@$C$?$i!"$=$l$i$NCM$O%G%U%)(B + $B%k%H$G8e<T$NCM$K$J$j$^$9!#(B + +$B$I$A$i$NJ}<0$r;H$&$K$7$F$b!"(B`text/plain' $B$N5-;v$O!"2hA|$d%j%s%/$J$I$r4^(B +$B$`$3$H$,$G$-$J$$$3$H$KCm0U$7$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Zenkaku to hankaku conversion, Next: Coding convention of Shimbun, Prev: Making text/plain articles, Up: Shimbun Basics + +$AH+=GNDWV$r0k=GNDWV$K$(I+y$(G_P$A$9$k(B +---------------------------- + +$B!VA43Q!W$^$?$O!VA43QJ8;z!W$O!"I}$,9-$$F|K\8l$NJ8;z$r8F$V$?$a$NB/>N$G$9!#(B +$B$^$?!VH>3Q!W$O!"DL>o$N(B ASCII $BJ8;z$N$?$a$NBP8l$G$9!#>/$J$/$H$b(B ASCII $BJ8(B +$B;z%;%C%H$KBP1~$9$k!"A43QJ8;z$N40A4$J%;%C%H$,$"$j$^$9!#(B + +$B$$$/$D$+$NF|K\$N%&%'%V%5%$%H$OA43QJ8;z$rB?MQ$9$k798~$,$"$j!"$=$l$i$N5-(B +$B;v$OI,$:$7$bFI$_0W$/$J$$$+$b$7$l$^$;$s!#$b$7$=$&46$8$?$i!"$=$l$iA43Q$N(B +$B1Q?t;z$rH>3Q$KJQ49$9$k$3$N5!G=$r;H$&$3$H$,$G$-$^$9!#$=$l$K$O(B +`shimbun-foobar-japanese-hankaku' $BJQ?t$r(B `t' $B$K@_Dj$7$F$/$@$5$$!#$3$3$G(B +`foobar' $B$O!"?7J9$N5-;v$r9VFI$9$k%5!<%P!<L>$G$9!#$D$^$j!"%5!<%P!<Kh$K$=(B +$B$&$7$J$1$l$P$J$i$J$$$H$$$&$3$H$G$9!#(B + +$BA43Q$+$iH>3Q$X$NJQ49$r5-;v$N%\%G%#$@$1$G9T$J$o$;$?$$$J$i$P!"(B`t' $B$NBe$o(B +$B$j$KCM(B `body' $B$r;H$C$F$/$@$5$$!#5U$KCM(B `header' $B$^$?$O(B `subject' $B$O!"%5(B +$B%V%8%'%/%H$@$1$G$=$l$r9T$J$&$3$H$r;XDj$7$^$9!#(B + + + +File: emacs-w3m-ja.info, Node: Coding convention of Shimbun, Prev: Zenkaku to hankaku conversion, Up: Shimbun Basics + +Shimbun $A%i%$%V%i%j$N%3$B!<$A%G%#%s%0$(G]=R|(B +------------------------------------ + + * `shimbun.el' $B$G$O!"(Bemacs-w3m $B$N4X?t$r(B*$AWTSI$K(B*$B;H$C$FNI$$!#(B + + * `sb-*.el' $B$G$O!"$3$l$^$G$HF1MM$K(B emacs-w3m $B$N4X?t$rD>@\8F$S=P$9$3(B + $B$H$O$7$J$$!#(B`sb-*.el' $B$GI,MW$K$J$k(B emacs-w3m $B$N4X?t$K$D$$$F$O(B + `shimbun.el' $B$K%9%?%V$rMQ0U$9$k!#(B + + * SpeedBar $B$GMxMQ$5$l$F$$$k%U%!%$%kL>$OHr$1$J$1$l$P$J$i$J$$!#(B + `speedbar-0.14beta4' $B$GMQ$$$i$l$F$$$k%U%!%$%kL>$r0J2<$K<($9!#(B + + sb-ant.el sb-html.el sb-info.el sb-texinfo.el + sb-gud.el sb-image.el sb-rmail.el sb-w3.el + + * $B;2>H$7$F$$$k(B WEB $B%5!<%P$N(B URI $B$rO"A[$5$;$k$h$&$J%U%!%$%kL>$rA*$V$Y(B + $B$-$G$"$k!#$?$@$7!"[#Kf$K$J$i$J$$HO0O$G!"9qJL%3!<%I(B + (Ex. jp,de,uk,etc) $B$d!"AH?%%3!<%I(B (Ex. edu,com,org,net,etc)$B!"M>J,(B + $B$JItJ,(B (Ex. www) $B$r<h$j=|$$$F$bNI$$!#(B + + * $B%0%k!<%WL>$K$O(B USENET $B$K;w$?7A<0$N$b$N$rA*$V$Y$-$G$"$k!#$9$J$o$A!"(B + $B%0%k!<%WL>$K$O>.J8;z$,9%$^$l$k!#$^$?!"%0%k!<%W$N3,AX9=B$$rI=$9$?$a(B + $B$N6h@Z$jJ8;z$H$7$F$O!"%T%j%*%I(B (.) $B$,9%$^$l$k!#(B + + + +File: emacs-w3m-ja.info, Node: Tips, Next: Mailing List, Prev: Shimbun Library, Up: Top + +Emacs-w3m $A$rJ9$&HwBd$?P!No$?$A(B +****************************** + +$BB>$N(B Emacs $B$N1~MQ5!G=$H$H$b$K(B emacs-w3m $B$rJXMx$K;H$&$?$a$N%R%s%H=8$G$9!#(B + + * browse-url + + `browse-url' $B$N5!G=$H$H$b$K(B emacs-w3m $B$r;H$&$3$H$,$G$-$^$9!#Nc$($P!"(B + $B0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$KF~$l$F$/$@$5$$(B: + + (setq browse-url-browser-function 'w3m-browse-url) + (global-set-key "\C-xm" 'browse-url-at-point) + + $B$3$&$9$k$3$H$K$h$C$F!"(BEmacs $B$N$I$N%P%C%U%!$G$b!"(BURL $B$N$h$&$JJ8;zNs$N>e(B + $B$G(B `C-x m' $B%-!<$r%?%$%W$9$k$H!"(Bemacs-w3m $B$,5/F0$5$l$^$9!#2C$($F!"(B + `C-c C-v' $B%-!<$r%?%$%W$9$k$3$H$K$h$C$F!"$^$5$KJT=8Cf$N(B HTML $B%U%!(B + $B%$%k$r(B emacs-w3m $B$G2<8+(B (preview) $B$9$k$3$H$,$G$-$^$9(B (HTML $B%U%!%$%k$NJT(B + $B=8$K!"(BEmacs $B$H(B `html-mode' $B%a%8%c!<%b!<%I$r;H$&I,MW$,$"$j$^$9(B)$B!#(B + + Emacs-w3m $B$N%P%C%U%!$K$$$k$H$-$K!"(B`C-x m' $B%-!<$r%?%$%W$9$k$3$H$K(B + $B$h$C$F!"(Bemacs-w3m $B$NBe$o$j$KB>$N%&%'%V%V%i%&%6$r;H$$$?$$>l9g$O(B ($B$=$s$J$3(B + $B$H$r$7$?$$?M$,$$$k$N$+$J(B?)$B!"0J2<$N%"%I%P%$%9$r(B `~/.emacs' $B%U%!%$%k(B + $B$K2C$($F$/$@$5$$(B: + + (defadvice browse-url-at-point + (around change-browse-url-browser-function activate) + "Use Netscape only when it is invoked in an emacs-w3m buffer." + (let ((browse-url-browser-function + (if (eq major-mode 'w3m-mode) + 'browse-url-netscape + 'w3m-browse-url))) + ad-do-it)) + + * dired + + `dired' $B$N%P%C%U%!$G(B `C-x m' $B%-!<$r%?%$%W$9$k$3$H$K$h$C$F!"(B + emacs-w3m $B$r;H$C$F(B HTML $B%U%!%$%k$r1\Mw$9$k$3$H$,$G$-$^$9!#(B + `~/.emacs' $B%U%!%$%k$G!"0J2<$N@_Dj$r;H$C$F$/$@$5$$(B: + + (eval-after-load "dired" + '(define-key dired-mode-map "\C-xm" 'dired-w3m-find-file)) + + (defun dired-w3m-find-file () + (interactive) + (require 'w3m) + (let ((file (dired-get-filename))) + (if (y-or-n-p (format "Use emacs-w3m to browse %s? " + (file-name-nondirectory file))) + (w3m-find-file file)))) + + * hnf-mode + + $B%O%$%Q!<F|5-%7%9%F%`$H(B emacs-w3m $B$r;H$C$F!":G?7$NF|5-$r8+$k$3$H$,$G$-$^(B + $B$9!#0J2<$N9T$r(B `~/.emacs' $B%U%!%$%k$KF~$l$F!"(B`hnf-mode' $B$N%P%C(B + $B%U%!$G(B `C-c C-b' $B%-!<$r%?%$%W$7$F$/$@$5$$(B: + + (defun w3m-hnf-browse-url-w3m (url &optional new-window) + (interactive (browse-url-interactive-arg "URL: ")) + (save-selected-window + (pop-to-buffer (get-buffer-create "*w3m*")) + (w3m-browse-url url new-window))) + (setq hnf-browse-url-browser-function #'w3m-hnf-browse-url-w3m) + + * Gnus + + $B$"$J$?$,(B Gnus $B$N%f!<%6$G!"$3$N9`$,$3$N(B Info $B$G=i$a$FFI$`%Y!<%8$G$"(B + $B$k$N$J$i$P!"$"$J$?$OF~$j8}$r4V0c$($^$7$?$M!#:G=i$K(B *Note Hooking + into MUAs:: $B$r8+$F$/$@$5$$!#(B + + $B%G%U%)%k%H$G$O!"(BGnus $B$ONc$($P(B `gnus-treat-strip-banner' $B$N$h$&$J(B + treatment $BJQ?t$r(B `text/html' $B%Q!<%H$KE,MQ$7$^$;$s!#<+F0E*$K9T$J$o(B + $B$;$k$K$OFs$D$NJ}K!$,$"$j$^$9(B: + + ;; $B$9$Y$F$N(B treatment $B$r(B text/html $B%Q!<%H$KE,MQ$9$k!#(B + (eval-after-load "gnus-art" + '(add-to-list 'gnus-article-treat-types "text/html")) + + ;; $BFCDj$N(B treatment $B$r(B text/html $B%Q!<%H$KE,MQ$9$k!#(B + (setq gnus-treat-strip-banner '(or t (typep "text/html"))) + + $B>\$7$$$3$H$O(B *Note Customizing Articles: (gnus)Customizing + Articles, $B$r8+$F$/$@$5$$!#(B + + $B2C$($F!"0J2<$N<B83E*$J%3!<%I$O(B `multipart/related' $B$J3($r8+$k$?$a(B + $B$N$b$N$G$9!#I=<($5$l$k>l=j$KFq$,$"$j$^$9!#(B + + (eval-after-load "gnus-art" + '(or (assoc "multipart/related" gnus-mime-multipart-functions) + (setq gnus-mime-multipart-functions + (cons + (cons + "multipart/related" + (byte-compile + (lambda (handle) + (gnus-mime-display-mixed (cdr handle))))) + gnus-mime-multipart-functions)))) + + * yahtml-mode + + Emacs-w3m $B$r;H$C$F!"(B`yahtml-mode' $B$G$^$5$KJT=8Cf$N(B HTML $B%U%!%$%k$r(B + $B2<8+(B (preview) $B$9$k$3$H$,$G$-$^$9!#Nc$G$9(B: + + (defadvice yahtml-browse-html + (around w3m-yahtml-browse-html activate compile) + (w3m-goto-url (ad-get-arg 0) t)) + + * jisx0213 + + Emacs $B$G$O(B Mule-UCS $B%Q%C%1!<%8$K4^$^$l$F$$$k(B `jis0213' $B%b%8%e!<%k(B + $B$r;H$&$3$H$K$h$C$F!"(BJIS X 0213 $BJ8;z%;%C%H$r;H$&$3$H$,$G$-$^$9!#(B + `decode-char' $B4X?t$,(B `mucs' $B$K$h$C$F>e=q$-$5$l$F$7$^$&(B (`jis0213' + $B$,(B `mucs' $B$rFI$_9~$`(B) $B$?$a$K!"(B`ucs' CCS $B$KBP$7$F@5$7$/F0:n$7$J$/$J$C(B + $B$F$7$^$$$^$9$,!"$5$i$K(B `unicode' $B%b%8%e!<%k$rFI$_9~$`$3$H$K$h$C$F!"(B + $B$=$NLdBj$,2r7h$5$l$k$h$&$K8+$($k$H$$$&Js9p$,$"$j$^$7$?!#M}M3$O$^$@(B + $B2rL@$5$l$F$$$^$;$s!#(B`~/.emacs' $B%U%!%$%kMQ$NNc$G$9(B: + + (require 'unicode) + (require 'un-define) + (require 'jisx0213) + + + +File: emacs-w3m-ja.info, Node: Mailing List, Next: Emacs-w3m Functions, Prev: Tips, Up: Top + +$A%a$B!<$A%j%s%0%j%9%H!"%P%0%j%]$B!<$A%H(B +****************************** + +Emacs-w3m $B$K4X$9$k$9$Y$F$N$3$H$,$i$rOC$79g$&$?$a$N%a!<%j%s%0%j%9%H$,MQ(B +$B0U$5$l$F$$$^$9!#9VFI$7$F$$$J$$?M$bEj9F$G$-$^$9!#%P%0$r8+$D$1$?$j!"$3$s(B +$B$J5!G=$,M_$7$$$J$H;W$C$?$j!"$"$k$$$O%3!<%I$r=q$-$^$7$?$H$$$&?M$O$I$&$>(B +$BEj9F$7$F$/$@$5$$!#C1$J$k%f!<%6$@$1$l$I$b%W%m%0%i%`$K6=L#$,$"$k$H$$$&?M(B +$B$b!"$<$R;22C$7$F$/$@$5$$!#%"%I%l%9$O0J2<$NDL$j$G$9(B: + + Emacs-w3m $B%a!<%j%s%0%j%9%H(B <emacs-w3m@namazu.org> + +$B$b$7(B `mail-user-agent' $B$r@5$7$/F0:n$9$k$h$&$K@_Dj$7$F$"$l$P!"(B +`report-emacs-w3m-bug' $B%3%^%s%I(B ($B$^$?$O(B `C-c C-b' $B%-!<(B) $B$r(B +$B;H$C$F%P%0%j%]!<%H$rAw$k$3$H$b$G$-$^$9!#(B + +$B$3$N%j%9%H$KEj9F$9$k$H$-$O!"F|K\8l$+1Q8l$r;H$C$F$/$@$5$$!#B?$/$N%a%s%P!<(B +$B$OF|K\?M$G$9!#Ej9F$5$l$?5-;v$O8x3+$5$l$F$$$F!"%&%'%V(B +(`http://emacs-w3m.namazu.org/ml/') $B$d(B NetNews ($B%5!<%P(B +`news.gmane.org' $B>e$N(B `gmane.emacs.w3m' $B$H$$$&%0%k!<%W(B) $B$G$bFI$`$3$H$,(B +$B$G$-$^$9!#(B + +$B$3$N%j%9%H$N%a%C%;!<%8$r%a!<%k$G<u$1<h$j$?$$?M$O!"K\J8$K(B + + subscribe ANATANO Namae + +$B$N$h$&$K=q$$$F(B ($B%a!<%k%"%I%l%9$G$O$J$/$F$"$J$?$NL>A0$r=q$-$^$9(B)$B!"(B +`emacs-w3m-ctl@namazu.org' $B08$K%a!<%k$rAw$k$H%a!<%j%s%0%j%9%H$KEPO?$5$l(B +$B$^$9!#$^$?!"%a!<%k$r<u$1<h$k$N$r$d$a$k$K$O!"K\J8$K(B + + # bye + +$B$H=q$$$?%a!<%k$r(B `emacs-w3m-ctl@namazu.org' $B08$KAw$C$F$/$@$5$$!#(B + + + +File: emacs-w3m-ja.info, Node: Emacs-w3m Functions, Next: External Packages, Prev: Mailing List, Up: Top + +Emacs-w3m $A$N$(IJ=$AJ}$N$(Gf[$A$7$$$(IIf$ACw(B +**************************** + + + + +File: emacs-w3m-ja.info, Node: External Packages, Next: Authors, Prev: Emacs-w3m Functions, Up: Top + +$A$*VY$(Gbf$A$N%Q%C%1$B!<$A%8$?$A(B +********************** + +Emacs-w3m $B$O=aBt$J5!G=$rDs6!$7$^$9$,!"$5$i$KJXMx$K$9$k$?$a$K0J2<$N30It(B +$B%Q%C%1!<%8$r;H$&$N$bNI$$$+$b$7$l$^$;$s!#(B + + * w3m-type-ahead.el + + w3m-type-ahead.el $B%Q%C%1!<%8$O(B "type ahead" $B8!:w5!G=(B (Mozilla $B%V%i(B + $B%&%6$KF1$8L>A0$N;w$?5!G=$,$"$j$^$9(B) $B$rDs6!$7$^$9!#$=$l$O(B isearch + $B$K;w$?A`:n$G%"%s%+!<$rC5$9$3$H(B ($B$?$@$77k2L$O%P%C%U%!Fb$N%"%s%+!<$K(B + $B8BDj$5$l$^$9(B) $B$r2DG=$K$7$^$9!#(B + + w3m-type-ahead.el $B$N%@%&%s%m!<%I(B: + `http://alioth.debian.org/project/showfiles.php?group_id=30594' + + * newsticker.el + + Emacs 22 $B0J>e$GAH$_9~$^$l$F$$$k(B newsticker.el $B$O(B rss $B%U%#!<%I$d$5(B + $B$i$K(B atom $B%U%#!<%I$rD/$a$k$?$a$NF;6q$G$9!#0J2<$O(B emacs-w3m $B$H$H$b(B + $B$K(B newsticker.el $B$r;H$&$?$a$N@_DjNc$G$9(B (`~/.emacs' $B%U%!%$%k$KCV$$(B + $B$F$/$@$5$$(B): + + (require 'w3m-load) + (setq newsticker-html-renderer 'w3m-region + browse-url-browser-function 'w3m-browse-url) + + $B>\$7$/$O(B: *Note Top: (Newsticker)Top. + + + +File: emacs-w3m-ja.info, Node: Authors, Next: Index, Prev: External Packages, Up: Top + +$A$3$N%^%K%e%"%k$r$(GUs$A$$$?HK$?$A(B +**************************** + + * $BGr0f(B $B=(9T(B + * $BEZ20(B $B2mL-(B + * $BCfEg(B $B44IW(B + * $BCf;3(B $BMN0l(B + * Romain Francoise + * $B;32,(B $B9nH~(B + * $BBgOB(B $B@5Ip(B + * $B@DED(B $BD>Bg(B + + + +File: emacs-w3m-ja.info, Node: Index, Prev: Authors, Up: Top + +$AKwR}(B +**** + +* Menu: + +* Concept Index:: $B35G0:w0z(B +* Key Index:: $B%-!<%P%$%s%I:w0z(B +* Variable Index:: $BJQ?t:w0z(B +* Function Index:: $B4X?t:w0z(B + + + +File: emacs-w3m-ja.info, Node: Concept Index, Next: Key Index, Prev: Index, Up: Index + +$A8EDnKwR}(B +======== + +* Menu: + +* about://antenna/: Using Antenna. (line 5) +* $A%/%C%-$B!<$A$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B: Cookie Variables. (line 5) +* Adding a bookmark: Adding Bookmarks. (line 5) +* Adding autoload settings: Minimal Settings. (line 12) +* Adding new search engines: Adding New Search Engines. (line 5) +* $A$=$NK{$N$(I+y$AJ}(B: Other Variables. (line 5) +* Antenna: Using Antenna. (line 5) +* $A;-Oq$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B: Image Variables. (line 5) +* APEL package: Other Requirements. (line 5) +* $AR;0c5D$J$(I+y$AJ}(B: General Variables. (line 5) +* Arrived URLs: Tracing History. (line 5) +* article expiry: Nnshimbun. (line 168) +* $A%U%)$B!<$A%`$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B: Form Variables. (line 5) +* $A%U%C%/(B: Hooks. (line 5) +* auto-expire: Nnshimbun. (line 168) +* $A%V%C%/%^$B!<$A%/$K$(IJ=$(G]Y$A$7$?$(I+y$AJ}(B: Bookmark Variables. (line 5) +* Bookmarks: Managing Bookmarks. (line 5) +* Browsing history: Tracing History. (line 5) +* codepage-ex: Other Requirements. (line 5) +* Consulting bookmarks: Consulting Bookmarks. (line 5) +* Creating new buffers: Creating and killing buffers. (line 5) +* Customizing user options: Customizable Variables. (line 5) +* Displaying images: Inline Images. (line 5) +* Downloading files: Downloading. (line 5) +* Editing bookmarks: Editing Bookmarks. (line 5) +* expiry-wait: Nnshimbun. (line 168) +* expiry-wait: Nnshimbun. (line 234) +* Firewall: Minimal Settings. (line 33) +* FLIM package: Other Requirements. (line 5) +* Functions details: Emacs-w3m Functions. (line 5) +* Getting started: Getting Started. (line 5) +* Gifsicle program: Other Requirements. (line 5) +* group parameters: Nnshimbun. (line 89) +* Grouping URLs: Grouping URLs. (line 5) +* ImageMagick package: Other Requirements. (line 5) +* Info-like keymap: Key Binding. (line 5) +* Installing emacs-w3m: Installing Emacs-w3m. (line 5) +* Installing on non-UNIX-like systems: Non-UNIX-like systems. (line 5) +* Introduction: Introduction. (line 5) +* Key binding: Key Binding. (line 5) +* Killing buffers: Creating and killing buffers. (line 5) +* Lynx-like keymap: Key Binding. (line 5) +* Moving in a page: Moving in a page. (line 5) +* Mule-UCS package: Other Requirements. (line 5) +* nnshimbun: Nnshimbun. (line 5) +* Possible Emacs versions: Required Emacs Version. (line 5) +* Proxy gateways: Minimal Settings. (line 33) +* Proxy servers: Minimal Settings. (line 33) +* Quick Searching: Quick Searching. (line 5) +* Reading HTML mails in Gnus: Gnus. (line 5) +* Reporting bugs: Mailing List. (line 5) +* rfc2368.el: Other Requirements. (line 5) +* Saving images: Inline Images. (line 74) +* Search engines: Using Search Engines. (line 5) +* Searching: The Search Interface. (line 5) +* Shimbun library: Shimbun Library. (line 5) +* `shimbun.el': Shimbun Basics. (line 5) +* Showing the tree structure of local directories: Showing Directory Tree. (line 5) +* Special URLs: Quick Searching. (line 5) +* Starting up: Getting Started. (line 5) +* Startup file: Minimal Settings. (line 24) +* Subscribing to the emacs-w3m mailing list: Mailing List. (line 5) +* Switching buffers using the buffer list: Selecting buffers. (line 46) +* Switching buffers using the minibuffer: Selecting buffers. (line 41) +* The Antenna interface: Daily web tracking. (line 5) +* Tips: Tips. (line 5) +* Tracking changes in web pages: Using Antenna. (line 5) +* Using emacs-w3m as a batch command: Launching and Jumping. (line 20) +* Variables related to antenna: Antenna Variables. (line 5) +* Variables related to namazu: Namazu Variables. (line 5) +* Variables related to perldoc: Perldoc Variables. (line 5) +* Variables related to searching the web: Search Variables. (line 5) +* Variables related to session manager: Session Manager Variables. (line 5) +* Variables related to the dtree feature: Dtree Variables. (line 5) +* Variables related to the octet feature: Octet Variables. (line 5) +* Variables related to weather information: Weather Variables. (line 5) +* Viewing images: Inline Images. (line 70) +* w3m: You Need w3m. (line 5) +* Web Newspaper: Nnshimbun. (line 5) +* Zooming images: Inline Images. (line 79) + + + +File: emacs-w3m-ja.info, Node: Key Index, Next: Variable Index, Prev: Concept Index, Up: Index + +$A%-$B!<$A%P%$%s%IKwR}(B +================ + +* Menu: + +* \: HTML File Information. (line 28) +* =: HTML File Information. (line 33) +* >: Moving in a page. (line 41) +* <: Moving in a page. (line 47) +* ]: Moving in a page. (line 93) +* [: Moving in a page. (line 98) +* }: Moving in a page. (line 103) +* {: Moving in a page. (line 108) +* ^: Moving over pages. (line 46) +* +: Setting up Antenna. (line 14) +* . (Lynx-like $A%-$B!<$A%^%C%W(B): Moving in a page. (line 55) +* , (Lynx-like $A%-$B!<$A%^%C%W(B): Moving in a page. (line 63) +* a: Adding Bookmarks. (line 5) +* A: Daily web tracking. (line 35) +* b: Moving in a page. (line 35) +* b: Moving over pages. (line 118) +* B (Lynx-like $A%-$B!<$A%^%C%W(B): Moving over pages. (line 24) +* <backspace>: Moving in a page. (line 35) +* <backspace>: Moving over pages. (line 118) +* <backtab>: Moving in a page. (line 88) +* C-?: Moving in a page. (line 35) +* C-?: Moving over pages. (line 118) +* c (Lynx-like $A%-$B!<$A%^%C%W(B): Launching and Jumping. (line 97) +* C-c C-@: Tracing History. (line 61) +* C-c C-a: Selecting buffers. (line 41) +* C-c C-n: Moving across buffers. (line 28) +* C-c C-p: Moving across buffers. (line 22) +* C-c C-s: Selecting buffers. (line 46) +* C-c C-<SPC>: Tracing History. (line 61) +* C-c C-t: Creating and killing buffers. (line 19) +* C-c C-v: Tracing History. (line 65) +* C-c C-w: Creating and killing buffers. (line 25) +* C-c M-w: Creating and killing buffers. (line 29) +* C-S-l (Info-like $A%-$B!<$A%^%C%W(B): Launching and Jumping. (line 110) +* C-u a: Adding Bookmarks. (line 5) +* C-u o (Info-like $A%-$B!<$A%^%C%W(B): Tracing History. (line 53) +* C-u s (Lynx-like $A%-$B!<$A%^%C%W(B): Tracing History. (line 53) +* D (Info-like $A%-$B!<$A%^%C%W(B): Downloading. (line 23) +* d (Info-like $A%-$B!<$A%^%C%W(B): Downloading. (line 30) +* d (Lynx-like $A%-$B!<$A%^%C%W(B): Downloading. (line 23) +* D (Lynx-like $A%-$B!<$A%^%C%W(B): Showing Directory Tree. (line 51) +* <DEL>: Moving in a page. (line 35) +* <DEL>: Moving over pages. (line 118) +* <down> (Lynx-like $A%-$B!<$A%^%C%W(B): Moving in a page. (line 77) +* e (Info-like $A%-$B!<$A%^%C%W(B): HTML File Information. (line 40) +* E (Info-like $A%-$B!<$A%^%C%W(B): HTML File Information. (line 46) +* E (Lynx-like $A%-$B!<$A%^%C%W(B): HTML File Information. (line 40) +* e (Lynx-like $A%-$B!<$A%^%C%W(B): HTML File Information. (line 46) +* g: Launching and Jumping. (line 79) +* G: Launching and Jumping. (line 86) +* H: Moving over pages. (line 40) +* I (Info-like $A%-$B!<$A%^%C%W(B): Inline Images. (line 31) +* i (Info-like $A%-$B!<$A%^%C%W(B): Inline Images. (line 54) +* I (Lynx-like $A%-$B!<$A%^%C%W(B): Inline Images. (line 70) +* l (Info-like $A%-$B!<$A%^%C%W(B): Moving over pages. (line 24) +* <left> (Lynx-like $A%-$B!<$A%^%C%W(B): Moving over pages. (line 24) +* M: HTML File Information. (line 51) +* M-[: Inline Images. (line 81) +* M-]: Inline Images. (line 86) +* M-a: Adding Bookmarks. (line 5) +* M-d (Lynx-like $A%-$B!<$A%^%C%W(B): Downloading. (line 30) +* M-i: Inline Images. (line 74) +* M-I (Info-like $A%-$B!<$A%^%C%W(B): Inline Images. (line 65) +* M-l: Moving in a page. (line 69) +* M-n: Creating and killing buffers. (line 19) +* mouse-2: Browsing With Mouse Operations. (line 20) +* `M-S': Session Manager. (line 8) +* `M-s': Session Manager. (line 11) +* M-T (Lynx-like $A%-$B!<$A%^%C%W(B): Inline Images. (line 65) +* M-<TAB>: Moving in a page. (line 88) +* n (Info-like $A%-$B!<$A%^%C%W(B): Moving over pages. (line 32) +* N (Lynx-like $A%-$B!<$A%^%C%W(B): Moving over pages. (line 32) +* o (Info-like $A%-$B!<$A%^%C%W(B): Tracing History. (line 53) +* p (Info-like $A%-$B!<$A%^%C%W(B): Moving over pages. (line 24) +* q: Going back to daily hacking and/or daily writing. (line 19) +* Q: Going back to daily hacking and/or daily writing. (line 24) +* R: Launching and Jumping. (line 110) +* <RET>: Launching and Jumping. (line 58) +* <RET>: Launching and Jumping. (line 70) +* <right> (Lynx-like $A%-$B!<$A%^%C%W(B): Launching and Jumping. (line 58) +* s (Info-like $A%-$B!<$A%^%C%W(B): The Search Interface. (line 32) +* S (Lynx-like $A%-$B!<$A%^%C%W(B): The Search Interface. (line 32) +* s (Lynx-like $A%-$B!<$A%^%C%W(B): Tracing History. (line 53) +* S-<left> (Info-like $A%-$B!<$A%^%C%W(B): Moving in a page. (line 55) +* S-<mouse-2>: Browsing With Mouse Operations. (line 25) +* <SPC>: Moving in a page. (line 21) +* <SPC>: Moving over pages. (line 63) +* S-<right> (Info-like $A%-$B!<$A%^%C%W(B): Moving in a page. (line 63) +* S-<SPC>: Moving in a page. (line 35) +* S-<SPC>: Moving over pages. (line 118) +* S-<TAB>: Moving in a page. (line 88) +* T (Info-like $A%-$B!<$A%^%C%W(B): Showing Directory Tree. (line 51) +* T (Lynx-like $A%-$B!<$A%^%C%W(B): Inline Images. (line 31) +* t (Lynx-like $A%-$B!<$A%^%C%W(B): Inline Images. (line 54) +* <TAB>: Moving in a page. (line 77) +* u (Info-like $A%-$B!<$A%^%C%W(B): Moving over pages. (line 46) +* u (Lynx-like $A%-$B!<$A%^%C%W(B): Launching and Jumping. (line 104) +* <up> (Lynx-like $A%-$B!<$A%^%C%W(B): Moving in a page. (line 88) +* v: Consulting Bookmarks. (line 5) +* y (Info-like $A%-$B!<$A%^%C%W(B): Launching and Jumping. (line 97) +* Y (Info-like $A%-$B!<$A%^%C%W(B): Launching and Jumping. (line 104) + + + +File: emacs-w3m-ja.info, Node: Variable Index, Next: Function Index, Prev: Key Index, Up: Index + +$(I+y$AJ}KwR}(B +======== + +* Menu: + +* gnus-keep-backlog: Nnshimbun. (line 54) +* mm-inline-text-html-with-images: Gnus. (line 5) +* mm-inline-text-html-with-w3m-keymap: Gnus. (line 5) +* mm-text-html-renderer: Gnus. (line 5) +* nnmail-expiry-wait: Nnshimbun. (line 168) +* nnmail-expiry-wait-function: Nnshimbun. (line 168) +* nnshimbun-default-group-level: Nnshimbun. (line 74) +* nnshimbun-directory: Nnshimbun. (line 68) +* nnshimbun-encapsulate-images: Nnshimbun. (line 113) +* nnshimbun-group-parameters-alist: Nnshimbun. (line 157) +* nnshimbun-index-range: Nnshimbun. (line 125) +* nnshimbun-keep-backlog: Nnshimbun. (line 54) +* nnshimbun-keep-unparsable-dated-articles: Nnshimbun. (line 249) +* nnshimbun-marks-is-evil: Nnshimbun. (line 81) +* nnshimbun-pre-fetch-article: Nnshimbun. (line 103) +* shimbun-local-path: Shimbun local mode. (line 25) +* shimbun-slashdot-comment-display: News Sites Supported by Shimbun. (line 146) +* shimbun-slashdot-comment-threshold: News Sites Supported by Shimbun. (line 141) +* shimbun-slashdot-get-comments: News Sites Supported by Shimbun. (line 131) +* shimbun-tech-on-password: News Sites Supported by Shimbun. (line 184) +* shimbun-tech-on-user-name: News Sites Supported by Shimbun. (line 176) +* shimbun-use-local: Shimbun local mode. (line 18) +* w3m-accept-languages: General Variables. (line 8) +* w3m-add-referer: General Variables. (line 14) +* w3m-add-user-agent: General Variables. (line 42) +* w3m-after-cursor-move-hook: Hooks. (line 8) +* w3m-antenna-file: Antenna Variables. (line 8) +* w3m-antenna-html-skelton: Antenna Variables. (line 14) +* w3m-antenna-refresh-interval: Antenna Variables. (line 18) +* w3m-antenna-refresh-interval: Daily web tracking. (line 30) +* w3m-antenna-sites: Setting up Antenna. (line 5) +* w3m-antenna-sort-changed-sites-function: Antenna Variables. (line 29) +* w3m-antenna-sort-unchanged-sites-function: Antenna Variables. (line 35) +* w3m-arrived-file: General Variables. (line 47) +* w3m-async-exec: Other Variables. (line 8) +* w3m-auto-show: General Variables. (line 51) +* w3m-bookmark-default-section: Bookmark Variables. (line 21) +* w3m-bookmark-file: Bookmark Variables. (line 8) +* w3m-bookmark-file-coding-system: Bookmark Variables. (line 12) +* w3m-bookmark-menu-open-new-session: Bookmark Variables. (line 25) +* w3m-bookmark-mode-hook: Hooks. (line 71) +* w3m-broken-proxy-cache: Other Variables. (line 13) +* w3m-charset-coding-system-alist: General Variables. (line 62) +* w3m-coding-system: General Variables. (line 67) +* w3m-coding-system-priority-list: General Variables. (line 72) +* w3m-command: General Variables. (line 76) +* w3m-command-arguments: Minimal Settings. (line 33) +* w3m-command-arguments-alist: General Variables. (line 94) +* w3m-command-environment: General Variables. (line 115) +* w3m-confirm-leaving-secure-page: General Variables. (line 119) +* w3m-content-type-alist: General Variables. (line 126) +* w3m-cookie-accept-bad-cookies: Cookie Variables. (line 8) +* w3m-cookie-accept-domains: Cookie Variables. (line 13) +* w3m-cookie-file: Cookie Variables. (line 17) +* w3m-cookie-reject-domains: Cookie Variables. (line 21) +* w3m-correct-charset-alist: General Variables. (line 154) +* w3m-db-history-display-size: General Variables. (line 158) +* w3m-decoder-alist: General Variables. (line 162) +* w3m-default-coding-system: Quick Searching. (line 5) +* w3m-default-content-type: General Variables. (line 171) +* w3m-default-directory: General Variables. (line 176) +* w3m-default-display-inline-images: Image Variables. (line 8) +* w3m-default-save-directory: General Variables. (line 189) +* w3m-delete-buffer-hook: Hooks. (line 14) +* w3m-delete-duplicated-empty-lines: General Variables. (line 193) +* w3m-dirlist-cgi-program: General Variables. (line 197) +* w3m-display-hook: Hooks. (line 18) +* w3m-do-cleanup-temp-files: General Variables. (line 718) +* w3m-doc-view-content-types: General Variables. (line 202) +* w3m-dtree-default-allfiles: Dtree Variables. (line 8) +* w3m-dtree-directory-depth: Dtree Variables. (line 15) +* w3m-dtree-indent-strings: Dtree Variables. (line 21) +* w3m-dtree-stop-strings: Dtree Variables. (line 26) +* w3m-edit-function: General Variables. (line 207) +* w3m-edit-function-alist: General Variables. (line 212) +* w3m-enable-google-feeling-lucky: General Variables. (line 220) +* w3m-encoding-type-alist: General Variables. (line 226) +* w3m-favicon-cache-expire-wait: Image Variables. (line 14) +* w3m-favicon-cache-file: Image Variables. (line 19) +* w3m-favicon-default-background: Image Variables. (line 38) +* w3m-favicon-size: Image Variables. (line 25) +* w3m-favicon-type: Image Variables. (line 30) +* w3m-favicon-use-cache-file: Image Variables. (line 34) +* w3m-file-coding-system: General Variables. (line 230) +* w3m-file-name-coding-system: General Variables. (line 235) +* w3m-fill-column: General Variables. (line 240) +* w3m-follow-redirection: General Variables. (line 247) +* w3m-fontify-after-hook: Hooks. (line 24) +* w3m-fontify-before-hook: Hooks. (line 29) +* w3m-form-input-map-buffer-lines: Form Variables. (line 8) +* w3m-form-input-map-mode-hook: Hooks. (line 34) +* w3m-form-input-map-set-hook: Hooks. (line 38) +* w3m-form-input-select-buffer-lines: Form Variables. (line 12) +* w3m-form-input-select-mode-hook: Hooks. (line 42) +* w3m-form-input-select-set-hook: Hooks. (line 46) +* w3m-form-input-textarea-buffer-lines: Form Variables. (line 16) +* w3m-form-input-textarea-mode-hook: Hooks. (line 50) +* w3m-form-input-textarea-set-hook: Hooks. (line 54) +* w3m-form-mouse-face: Form Variables. (line 20) +* w3m-form-textarea-directory: Form Variables. (line 32) +* w3m-form-treat-textarea-size: Form Variables. (line 24) +* w3m-form-use-fancy-faces: Form Variables. (line 28) +* w3m-form-use-textarea-backup: Form Variables. (line 32) +* w3m-history-minimize-in-new-session: Other Variables. (line 23) +* w3m-history-reuse-history-elements: Other Variables. (line 30) +* w3m-home-page: Launching and Jumping. (line 20) +* w3m-horizontal-scroll-columns: Moving in a page. (line 41) +* w3m-horizontal-scroll-columns: Moving in a page. (line 47) +* w3m-horizontal-scroll-division: General Variables. (line 264) +* w3m-horizontal-shift-columns: Moving in a page. (line 55) +* w3m-horizontal-shift-columns: Moving in a page. (line 63) +* w3m-icon-directory: Image Variables. (line 45) +* w3m-image-default-background: Image Variables. (line 123) +* w3m-imagick-convert-program: Image Variables. (line 49) +* w3m-imitate-widget-button: General Variables. (line 286) +* w3m-init-file: Customizable Variables. (line 5) +* w3m-init-file: Minimal Settings. (line 24) +* w3m-input-coding-system: General Variables. (line 302) +* w3m-keep-arrived-urls: General Variables. (line 309) +* w3m-keep-cache-size: General Variables. (line 313) +* w3m-key-binding: Key Binding. (line 5) +* w3m-language: General Variables. (line 323) +* w3m-local-directory-view-method: General Variables. (line 327) +* w3m-local-find-file-function: General Variables. (line 334) +* w3m-local-find-file-regexps: General Variables. (line 346) +* w3m-mailto-url-function: General Variables. (line 371) +* w3m-mailto-url-popup-function-alist: General Variables. (line 378) +* w3m-make-new-session: General Variables. (line 389) +* w3m-mbconv-command: General Variables. (line 399) +* w3m-menu-on-forefront: General Variables. (line 683) +* w3m-minor-mode: Gnus. (line 5) +* w3m-minor-mode-command-alist: Gnus. (line 5) +* w3m-minor-mode-hook: Hooks. (line 58) +* w3m-mode-hook: Hooks. (line 62) +* w3m-namazu-arguments: Namazu Variables. (line 12) +* w3m-namazu-command: Namazu Variables. (line 8) +* w3m-namazu-default-index: Namazu Variables. (line 20) +* w3m-namazu-default-index: Using Namazu. (line 38) +* w3m-namazu-index-alist: Namazu Variables. (line 29) +* w3m-namazu-index-alist: Using Namazu. (line 23) +* w3m-namazu-input-coding-system: Namazu Variables. (line 34) +* w3m-namazu-output-coding-system: Namazu Variables. (line 40) +* w3m-namazu-page-max: Namazu Variables. (line 46) +* w3m-new-session-in-background: General Variables. (line 713) +* w3m-no-proxy-domains: Minimal Settings. (line 33) +* w3m-output-coding-system: General Variables. (line 411) +* w3m-perldoc-command: Perldoc Variables. (line 8) +* w3m-perldoc-input-coding-system: Perldoc Variables. (line 13) +* w3m-perldoc-output-coding-system: Perldoc Variables. (line 20) +* w3m-perldoc-pod2html-arguments: Perldoc Variables. (line 30) +* w3m-perldoc-pod2html-command: Perldoc Variables. (line 25) +* w3m-pixels-per-character: Image Variables. (line 66) +* w3m-pixels-per-line: Image Variables. (line 75) +* w3m-popup-frame-parameters: General Variables. (line 434) +* w3m-pop-up-frames: General Variables. (line 415) +* w3m-pop-up-windows: General Variables. (line 424) +* w3m-prefer-cache: General Variables. (line 440) +* w3m-process-connection-type: Other Variables. (line 52) +* w3m-process-modeline-format: Other Variables. (line 57) +* w3m-profile-directory: General Variables. (line 445) +* w3m-quick-start: Launching and Jumping. (line 20) +* w3m-quick-start: Moving over pages. (line 40) +* w3m-redirect-with-get: General Variables. (line 459) +* w3m-refresh-minimum-interval: General Variables. (line 672) +* w3m-relationship-estimate-rules: General Variables. (line 471) +* w3m-resize-images: Image Variables. (line 89) +* w3m-resize-image-scale: Image Variables. (line 85) +* w3m-search-default-engine: The Search Interface. (line 32) +* w3m-search-engine-alist: Quick Searching. (line 5) +* w3m-search-thing-at-point-arg: Search Variables. (line 29) +* w3m-search-word-at-point: Search Variables. (line 23) +* w3m-select-buffer-hook: Hooks. (line 67) +* w3m-select-buffer-horizontal-window: General Variables. (line 476) +* w3m-select-buffer-window-ratio: General Variables. (line 481) +* w3m-session-automatic-keep-number: Session Manager Variables. (line 32) +* w3m-session-automatic-save: Session Manager. (line 40) +* w3m-session-automatic-title: Session Manager Variables. (line 16) +* w3m-session-crash-recovery: Session Manager. (line 54) +* w3m-session-crash-recovery-title: Session Manager Variables. (line 20) +* w3m-session-deleted-keep-number: Session Manager Variables. (line 28) +* w3m-session-deleted-save: Session Manager. (line 40) +* w3m-session-deleted-title: Session Manager Variables. (line 24) +* w3m-session-file: Session Manager Variables. (line 8) +* w3m-session-load-crashed-sessions: Session Manager. (line 54) +* w3m-session-load-last-sessions: Session Manager. (line 46) +* w3m-session-time-format: Session Manager Variables. (line 12) +* w3m-session-unknown-title: Session Manager Variables. (line 36) +* w3m-show-current-title-in-buffer-tab: Other Variables. (line 63) +* w3m-show-decoded-url: General Variables. (line 487) +* w3m-show-error-information: General Variables. (line 527) +* w3m-show-graphic-icons-in-header-line: Image Variables. (line 93) +* w3m-show-graphic-icons-in-mode-line: Image Variables. (line 100) +* w3m-space-before-favicon: General Variables. (line 533) +* w3m-space-before-modeline-icon: General Variables. (line 539) +* w3m-submit-form-safety-check: General Variables. (line 647) +* w3m-tab-mouse-position-adjuster: Using Tabs. (line 63) +* w3m-tab-track-mouse: Using Tabs. (line 56) +* w3m-terminal-coding-system: General Variables. (line 545) +* w3m-toggle-inline-images-permanently: Image Variables. (line 106) +* w3m-touch-command: General Variables. (line 553) +* w3m-track-mouse: General Variables. (line 559) +* w3m-treat-image-size: Image Variables. (line 53) +* w3m-uri-replace-alist: Quick Searching. (line 5) +* w3m-url-local-directory-alist: General Variables. (line 615) +* w3m-use-ange-ftp: General Variables. (line 624) +* w3m-use-cookies: Cookie Variables. (line 25) +* w3m-use-cygdrive: General Variables. (line 629) +* w3m-use-favicon: Image Variables. (line 117) +* w3m-use-filter: General Variables. (line 634) +* w3m-use-form: General Variables. (line 642) +* w3m-use-header-line: General Variables. (line 652) +* w3m-use-header-line-title: General Variables. (line 656) +* w3m-use-mule-ucs: General Variables. (line 662) +* w3m-user-agent: General Variables. (line 708) +* w3m-use-refresh: General Variables. (line 666) +* w3m-use-symbol: General Variables. (line 677) +* w3m-use-tab: Using Tabs. (line 47) +* w3m-use-tab-menubar: General Variables. (line 695) +* w3m-use-title-buffer-name: General Variables. (line 523) +* w3m-use-toolbar: General Variables. (line 704) +* w3m-weather-default-area: Weather Variables. (line 8) +* w3m-weather-filter-functions: Weather Variables. (line 13) + + + +File: emacs-w3m-ja.info, Node: Function Index, Prev: Variable Index, Up: Index + +$(IJ=$AJ}KwR}(B +======== + +* Menu: + +* gnus-group-make-shimbun-group: Nnshimbun. (line 18) +* gnus-group-make-shimbun-groups: Nnshimbun. (line 40) +* nnshimbun-generate-download-script: Shimbun local mode. (line 32) +* octet-find-file: Octet. (line 5) +* w3m: Launching and Jumping. (line 20) +* w3m-antenna: Daily web tracking. (line 35) +* w3m-antenna-add-current-url: Setting up Antenna. (line 14) +* w3m-bookmark-add-current-url: Adding Bookmarks. (line 5) +* w3m-bookmark-add-this-url: Adding Bookmarks. (line 5) +* w3m-bookmark-edit: Editing Bookmarks. (line 24) +* w3m-bookmark-kill-entry: Editing Bookmarks. (line 20) +* w3m-bookmark-undo: Editing Bookmarks. (line 29) +* w3m-bookmark-view: Consulting Bookmarks. (line 5) +* w3m-browse-url: Launching and Jumping. (line 41) +* w3m-close-window: Going back to daily hacking and/or daily writing. (line 19) +* w3m-copy-buffer: Creating and killing buffers. (line 19) +* w3m-delete-buffer: Creating and killing buffers. (line 25) +* w3m-delete-other-buffers: Creating and killing buffers. (line 29) +* w3m-download: Downloading. (line 30) +* w3m-download-this-url: Downloading. (line 23) +* w3m-dtree: Showing Directory Tree. (line 51) +* w3m-edit-current-url: HTML File Information. (line 40) +* w3m-edit-this-url: HTML File Information. (line 46) +* w3m-fb-mode: Frame Local Buffers. (line 10) +* w3m-find-file: Launching and Jumping. (line 36) +* w3m-gohome: Moving over pages. (line 40) +* w3m-goto-url: Launching and Jumping. (line 79) +* w3m-goto-url-new-session: Launching and Jumping. (line 86) +* w3m-history: Tracing History. (line 53) +* w3m-history-restore-position: Tracing History. (line 65) +* w3m-history-store-position: Tracing History. (line 61) +* w3m-horizontal-recenter: Moving in a page. (line 69) +* w3m-mouse-view-this-url: Browsing With Mouse Operations. (line 20) +* w3m-mouse-view-this-url-new-session: Browsing With Mouse Operations. (line 25) +* w3m-next-anchor: Moving in a page. (line 77) +* w3m-next-buffer: Moving across buffers. (line 28) +* w3m-next-form: Moving in a page. (line 93) +* w3m-next-image: Moving in a page. (line 103) +* w3m-pattern-uri-replace: General Variables. (line 601) +* w3m-previous-anchor: Moving in a page. (line 88) +* w3m-previous-buffer: Moving across buffers. (line 22) +* w3m-previous-form: Moving in a page. (line 98) +* w3m-previous-image: Moving in a page. (line 108) +* w3m-print-current-url: Launching and Jumping. (line 97) +* w3m-print-this-url: Launching and Jumping. (line 104) +* w3m-quit: Going back to daily hacking and/or daily writing. (line 24) +* w3m-reload-this-page: Launching and Jumping. (line 110) +* w3m-save-image: Inline Images. (line 74) +* w3m-scroll-down-or-previous-url: Moving in a page. (line 35) +* w3m-scroll-down-or-previous-url: Moving over pages. (line 118) +* w3m-scroll-left: Moving in a page. (line 41) +* w3m-scroll-right: Moving in a page. (line 47) +* w3m-scroll-up-or-next-url: Moving in a page. (line 21) +* w3m-scroll-up-or-next-url: Moving over pages. (line 63) +* w3m-search: The Search Interface. (line 32) +* w3m-search-uri-replace: General Variables. (line 607) +* w3m-select-buffer: Selecting buffers. (line 46) +* w3m-session-select: Session Manager. (line 11) +* w3m-session-select-delete: Session Manager. (line 26) +* w3m-session-select-next: Session Manager. (line 38) +* w3m-session-select-open-session-group: Session Manager. (line 21) +* w3m-session-select-previous: Session Manager. (line 42) +* w3m-session-select-quit: Session Manager. (line 46) +* w3m-session-select-rename: Session Manager. (line 30) +* w3m-session-select-save: Session Manager. (line 34) +* w3m-session-select-select: Session Manager. (line 17) +* w3m-shift-left: Moving in a page. (line 55) +* w3m-shift-right: Moving in a page. (line 63) +* w3m-switch-buffer: Selecting buffers. (line 41) +* w3m-tab-move-left: Moving across buffers. (line 45) +* w3m-tab-move-right: Moving across buffers. (line 37) +* w3m-toggle-inline-image: Inline Images. (line 54) +* w3m-toggle-inline-images: Inline Images. (line 31) +* w3m-turnoff-inline-images: Inline Images. (line 65) +* w3m-view-header: HTML File Information. (line 33) +* w3m-view-image: Inline Images. (line 70) +* w3m-view-next-page: Moving over pages. (line 32) +* w3m-view-parent-page: Moving over pages. (line 46) +* w3m-view-previous-page: Moving over pages. (line 24) +* w3m-view-source: HTML File Information. (line 28) +* w3m-view-this-url: Launching and Jumping. (line 58) +* w3m-view-this-url: Launching and Jumping. (line 70) +* w3m-view-url-with-external-browser: HTML File Information. (line 51) +* w3m-zoom-in-image: Inline Images. (line 86) +* w3m-zoom-out-image: Inline Images. (line 81) + +Tag table: +Node: Top512 +Node: Introduction5489 +Node: Getting Started6127 +Node: Required Emacs Version6773 +Node: You Need w3m7573 +Node: Other Requirements7986 +Node: Installing Emacs-w3m11662 +Node: Non-UNIX-like systems14252 +Node: Minimal Settings14815 +Node: Basic Usage16587 +Node: Browsing Web Pages17140 +Node: Key Binding17702 +Node: Launching and Jumping18679 +Node: Moving in a page21860 +Node: Moving over pages24553 +Node: Browsing With Mouse Operations28003 +Node: Going back to daily hacking and/or daily writing29386 +Node: Inline Images30138 +Node: Tracing History32419 +Node: Managing Bookmarks35727 +Node: Adding Bookmarks36168 +Node: Consulting Bookmarks37127 +Node: Editing Bookmarks37642 +Node: Using Tabs38338 +Node: Working with buffers40673 +Node: Creating and killing buffers41099 +Node: Moving across buffers41816 +Node: Selecting buffers43434 +Node: Downloading44974 +Node: Submitting Forms45824 +Node: HTML File Information46963 +Node: Pretty Good Features48425 +Node: Using Search Engines49079 +Node: The Search Interface50052 +Node: Quick Searching51085 +Node: Adding New Search Engines52634 +Node: Grouping URLs54411 +Node: Weather Information55171 +Node: Using Antenna55334 +Node: Setting up Antenna55806 +Node: Daily web tracking56279 +Node: Showing Directory Tree57222 +Node: Viewing Perl Documents58475 +Node: Using Namazu58653 +Node: Octet60071 +Node: Frame Local Buffers60436 +Node: Session Manager61472 +Node: Customizable Variables63081 +Node: General Variables65137 +Node: Image Variables87374 +Node: Form Variables91281 +Node: Cookie Variables92175 +Node: Bookmark Variables92796 +Node: Search Variables93592 +Node: Weather Variables94740 +Node: Dtree Variables95324 +Node: Antenna Variables96281 +Node: Perldoc Variables97560 +Node: Namazu Variables98472 +Node: Octet Variables100176 +Node: Session Manager Variables100419 +Node: Hooks101076 +Node: Other Variables102873 +Node: Hooking into MUAs105354 +Node: Gnus106152 +Node: Mew109620 +Node: SEMI MUAs111267 +Node: VM113214 +Node: Frequently Asked Questions113515 +Node: General FAQ113805 +Node: Trouble FAQ115206 +Node: Shimbun FAQ122211 +Node: Known Problems122769 +Node: Shimbun Library122928 +Node: Nnshimbun124698 +Node: Mew Shimbun133703 +Node: Shimbun with Wanderlust141176 +Node: Shimbun local mode141499 +Node: Shimbun Sites142690 +Node: Newspapers Supported by Shimbun143112 +Node: News Sites Supported by Shimbun152796 +Node: Mailing Lists Supported by Shimbun161299 +Node: Sport Sites Supported by Shimbun174289 +Node: Misc Sites Supported by Shimbun175034 +Node: Shimbun Basics185161 +Node: Overview185784 +Node: Getting web page and header information188062 +Node: Displaying an article192734 +Node: Inheriting shimbun module194749 +Node: Making text/plain articles196637 +Node: Zenkaku to hankaku conversion198304 +Node: Coding convention of Shimbun198947 +Node: Tips199791 +Node: Mailing List203897 +Node: Emacs-w3m Functions204787 +Node: External Packages204947 +Node: Authors205814 +Node: Index206049 +Node: Concept Index206285 +Node: Key Index212009 +Node: Variable Index219520 +Node: Function Index234661 + +End tag table diff --git a/share/info/emacs-w3m.info b/share/info/emacs-w3m.info new file mode 100644 index 00000000000..3f060c63bcf --- /dev/null +++ b/share/info/emacs-w3m.info @@ -0,0 +1,7004 @@ +This is emacs-w3m.info, produced by makeinfo version 4.13 from +emacs-w3m.texi. + +Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +2009 TSUCHIYA Masatoshi + + Permission is granted to copy, distribute and/or modify this + document under the terms of the GNU General Public License, + Version 2 or any later version published by the Free Software + Foundation. + + This document is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this document; see the file COPYING. If not, write to + the Free Software Foundation, Inc., 51 Franklin Street, Fifth + Floor, Boston, MA 02110-1301, USA. + +INFO-DIR-SECTION GNU Emacs Lisp +START-INFO-DIR-ENTRY +* Emacs-w3m: (emacs-w3m). An Emacs interface to w3m +END-INFO-DIR-ENTRY + + This file documents emacs-w3m, an Emacs interface to w3m. + + This edition is for emacs-w3m version 1.4.385. + + +File: emacs-w3m.info, Node: Top, Next: Introduction, Up: (dir) + +Emacs-w3m User's Manual +*********************** + + The emacs-w3m development team + + This manual corresponds to emacs-w3m version 1.4.385. + + Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +2009 TSUCHIYA Masatoshi + + Permission is granted to copy, distribute and/or modify this + document under the terms of the GNU General Public License, + Version 2 or any later version published by the Free Software + Foundation. + + This document is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this document; see the file COPYING. If not, write to + the Free Software Foundation, Inc., 51 Franklin Street, Fifth + Floor, Boston, MA 02110-1301, USA. + +* Menu: + +* Introduction:: Preliminary remarks +* Getting Started:: It's so easy to begin to use emacs-w3m +* Basic Usage:: Basic usage +* Pretty Good Features:: Pretty good features +* Customizable Variables:: Customizable variables +* Hooking into MUAs:: Hooking emacs-w3m into mail/newsreaders +* Frequently Asked Questions:: There isn't always an answer +* Known Problems:: You can surely solve it +* Shimbun Library:: A tool for reading a web newspaper +* Tips:: Some knick-knacks using emacs-w3m +* Mailing List:: Mailing list and submitting bug reports +* Emacs-w3m Functions:: Details of some emacs-w3m functions +* External Packages:: Companion packages you might need +* Authors:: People who wrote this manual +* Index:: Index + + --- The Detailed Node Listing --- + +Getting Started + +* Required Emacs Version:: What version of Emacs can be used? +* You Need w3m:: Using w3m: the reason why emacs-w3m is fast +* Other Requirements:: Things required to run emacs-w3m +* Installing Emacs-w3m:: Installing emacs-w3m +* Non-UNIX-like systems:: Installing on non-UNIX-like systems +* Minimal Settings:: Minimal settings to run emacs-w3m + +Basic Usage + +* Browsing Web Pages:: Let's go netsurfing! +* Inline Images:: Toggle displaying inline images +* Tracing History:: Going back through time and space +* Managing Bookmarks:: That's a favorite with me! +* Using Tabs:: Everybody likes tabs +* Working with buffers:: Creating, killing and moving across buffers +* Downloading:: Downloading a file +* Submitting Forms:: Filling in HTML forms +* HTML File Information:: Support for web page editing and hacking + +Pretty Good Features + +* Using Search Engines:: A convenient way to search the web +* Grouping URLs:: Visiting several web pages in one URL +* Weather Information:: It will be fine tomorrow +* Using Antenna:: Raise your antenna +* Showing Directory Tree:: Showing the tree structure of local directories +* Viewing Perl Documents:: Viewing Perl Documents +* Using Namazu:: Searching files with Namazu +* Octet:: Viewing data in various octal form +* Frame Local Buffers:: Grouping sessions into separate frames +* Session Manager:: Saving and loading sessions + +Customizable Variables + +* General Variables:: General variables +* Image Variables:: Variables related to images +* Form Variables:: Variables related to forms +* Cookie Variables:: Variables related to cookies +* Bookmark Variables:: Variables related to bookmarks +* Search Variables:: Variables related to searching the web +* Weather Variables:: Variables related to weather information +* Dtree Variables:: Variables related to the dtree feature +* Antenna Variables:: Variables related to antenna +* Perldoc Variables:: Variables related to perldoc +* Namazu Variables:: Variables related to namazu +* Octet Variables:: Variables related to the octet feature +* Session Manager Variables:: Variables related to session manager +* Hooks:: Hooks +* Other Variables:: Other variables + +Hooking into MUAs + +* Gnus:: Reading HTML mails in Gnus +* Mew:: Reading HTML mails in Mew +* SEMI MUAs:: Reading HTML mails in SEMI MUAs +* VM:: VM (vieW maiL) is not Wanderlust + +Frequently Asked Questions + +* General FAQ:: General Questions +* Trouble FAQ:: Troubleshooting +* Shimbun FAQ:: Questions of Shimbun Library + +Known Problems + +Shimbun Library + +* Nnshimbun:: Turning Gnus into a web browser! +* Mew Shimbun:: Reading web newspapers with Mew +* Shimbun with Wanderlust:: Reading web newspapers with Wanderlust +* Shimbun local mode:: Use a shell script to fetch shimbun feeds +* Shimbun Sites:: Sites supported by Shimbun +* Shimbun Basics:: How to make a new shimbun module + +Tips + +Mailing List + +Emacs-w3m Functions + + +File: emacs-w3m.info, Node: Introduction, Next: Getting Started, Prev: Top, Up: Top + +1 Preliminary remarks +********************* + +Emacs/W3 (http://www.cs.indiana.edu/elisp/w3/docs.html) once was the +most popular web browser on Emacs. However, it worked so slowly that +we wanted a speedy alternative. On the other hand, w3m +(http://w3m.sourceforge.net/) was a pager with WWW capability, +developed by Akinori ITO. Although it was a pager, it was possible to +use it as a text-mode WWW browser, so we started developing an Emacs +interface to w3m. + + Our special thanks go to Akinori ITO and the w3m team for the +excellent w3m program. We would also like to thank everybody who has +submitted comments, suggestions, and bug fixes. Even though we're not +aware of any problems, all responsibility for this program is ours (the +emacs-w3m development team), but there is absolutely no warranty. The +emacs-w3m program was first created by TSUCHIYA Masatoshi in June 2000. + + See also the emacs-w3m official page (http://emacs-w3m.namazu.org/). + + +File: emacs-w3m.info, Node: Getting Started, Next: Basic Usage, Prev: Introduction, Up: Top + +2 It's so easy to begin to use emacs-w3m +**************************************** + +Emacs-w3m may have already been installed on your system, in which case +you can skip this section and begin to use the program at once. If +you're not that lucky, read on to learn how to install emacs-w3m. + +* Menu: + +* Required Emacs Version:: What version of Emacs can be used? +* You Need w3m:: Using w3m: the reason why emacs-w3m is fast +* Other Requirements:: Things required to run emacs-w3m +* Installing Emacs-w3m:: Installing emacs-w3m +* Non-UNIX-like systems:: Installing on non-UNIX-like systems +* Minimal Settings:: Minimal settings to run emacs-w3m + + +File: emacs-w3m.info, Node: Required Emacs Version, Next: You Need w3m, Up: Getting Started + +2.1 What version of Emacs can be used? +====================================== + +You can run emacs-w3m in various versions of Emacsen listed below: + +`Emacs 21.1 or greater' + No additional packages are required. + +`XEmacs 21.x' + First of all, you should note that emacs-w3m supports only XEmacs + 21.4.17 and later and XEmacs 21.5-b19 and later. In addition, you + need to have installed the latest xemacs-base package including the + `timer-funcs.el' module. + + The APEL package and the `gifsicle' program are required. In + addition, it would be better to have installed the `rfc2368.el' + module which parses `mailto' urls (*note Other Requirements::). + +`Emacs 20.x, Emacs 19.34 (including Mule 2.3)' + Emacs-w3m no longer supports those Emacs versions. + + + If you use the development version of GNU Emacs, perhaps you should +run the CVS version of emacs-w3m on it. In that case, it is strongly +recommended that you join the *note Mailing List::. + + +File: emacs-w3m.info, Node: You Need w3m, Next: Other Requirements, Prev: Required Emacs Version, Up: Getting Started + +2.2 Using w3m: the reason why emacs-w3m is fast +=============================================== + +Emacs-w3m uses the external w3m program as a back-end to retrieve web +contents and as an HTML rendering engine; that's how we could create an +accelerated Emacs web browser with asynchronous operation. + + You must install the latest w3m, it is available at: + + `http://prdownloads.sourceforge.net/w3m/' + + +File: emacs-w3m.info, Node: Other Requirements, Next: Installing Emacs-w3m, Prev: You Need w3m, Up: Getting Started + +2.3 Things required to run emacs-w3m +==================================== + +Depending on the Emacs version you're using, third party packages may be +required. This section provides resources to help you find and install +them. + +`APEL' + Indispensable to XEmacs. You should install APEL before building + emacs-w3m. APEL is available at: + + `http://kanji.zinbun.kyoto-u.ac.jp/~tomo/lemi/dist/apel/' + + Note that you must not use the APEL XEmacs package (which is + contained in SUMO) of the versions older than 1.32. If you have + already installed such a version, you should upgrade it or use the + following directives to replace it with APEL which is linked above + (you can also use the same directives in order to newly install + APEL): + + % rm -fr /usr/local/lib/xemacs/xemacs-packages/lisp/apel + % cd apel-10.7 + % make install-package XEMACS=xemacs-21.4.x\ + PACKAGEDIR=/usr/local/lib/xemacs/xemacs-packages + +`gifsicle' + Indispensable to XEmacs. There is a known bug in all XEmacs 21.x + series that won't let it display optimized animated gifs correctly + or may make it crash when some kind of an interlaced gif image is + displayed. Emacs-w3m uses the `gifsicle' program to convert gif + data in order to make it possible to be handled by XEmacs 21.x. + It is available at: + + `http://www.lcdf.org/gifsicle/' + +`ImageMagick' + If the `convert' program bundled with the ImageMagick package is + available on your system, emacs-w3m will use it to resize images + or to convert `favicon' images into a format Emacs can handle. + Emacs-w3m will work without ImageMagick, but installing it will + improve your surfing experience. You can get the ImageMagick + package from: + + `ftp://ftp.imagemagick.org/pub/ImageMagick/' + + To manipulate `favicon' images, we recommend version 5.4.0-5 and + later, previous versions may work but we didn't check them + thoroughly. + +`FLIM' + The FLIM package is required to use the `shimbun' library. The + `shimbun' library is a collection of tools for reading web + newspapers, you can use it with Gnus, Mew or Wanderlust. *Note + Shimbun Library::. + + Note that the FLIM package requires the APEL package regardless of + the version of Emacs you are using. Therefore, you must install + both APEL and FLIM if you would like to use the `shimbun' library. + The FLIM package is available at: + + `http://kanji.zinbun.kyoto-u.ac.jp/~tomo/lemi/dist/flim/flim-1.14/' + +`Mule-UCS' + If you use XEmacs 21.4, or need to read Chinese text, Japanese + text, Korean text, etc. using Emacs 21, we recommend you install + the Mule-UCS Emacs Lisp package so as to enable emacs-w3m to + display pages encoded by UTF-8, which is the typical coding system + of the Unicode system. Note that Emacs 21 supports the Unicode + system partially (e.g., for Latin text) and Emacs 22 or greater + fully supports it. The Mule-UCS Emacs Lisp package is available + at: + + `http://unit.aist.go.jp/itri/itri-gist/ftp.m17n.org/pub/mule/Mule-UCS/test/Mule-UCS-current.tar.gz' + + (The official page for Mule-UCS will open in the near future in + `http://www.meadowy.org/'.) + + If you use it with Emacs 21.2, it is necessary to apply this patch + (http://www.m17n.org/mlarchive/mule/200203/msg00000.html) before + installation. + + If you are an XEmacs 21.4 user, the compiled package is here: + + `ftp://ftp.xemacs.org/xemacs/packages/mule-ucs-1.14-pkg.tar.gz' + + (You don't need to install it in addition to Mule SUMO, that + contains it.) + +`codepage-ex' + Some web sites in Europe specify a `charset=ISO-8859-1' encoding, + but really use `windows-1252'. Since `iso-8859-1' is insufficient + to decode that, emacs-w3m uses `windows-1252' as a superset of + `iso-8859-1' if it is available. The `windows-1252' coding system + is built-in since Emacs 22. Even in Emacs 21, you can enable to + use it using the module called `codepage-ex'. See the following + page: + + `http://nijino.homelinux.net/emacs/codepage-ex.html' + +`rfc2368.el' + Install it if you'd like to enable emacs-w3m running with XEmacs to + parse `mailto' urls properly. You can find the `rfc2368.el' + module which can be used with XEmacs in the `attic' directory in + the emacs-w3m distribution. To install it, copy the `rfc2368.el' + file to the directory belonging to the `load-path', and perform the + following command: + + % xemacs -batch -vanilla -f batch-byte-compile rfc2368.el + + +File: emacs-w3m.info, Node: Installing Emacs-w3m, Next: Non-UNIX-like systems, Prev: Other Requirements, Up: Getting Started + +2.4 Installing emacs-w3m +======================== + +See the official page `http://emacs-w3m.namazu.org/' for instructions +on how to get the latest emacs-w3m. Is everything ready? Now, let's +begin. + + In order to install emacs-w3m on non-UNIX-like systems (or any system +lacking the ability to execute the `configure' script or has no `make' +command), skip this section and go to the next section *Note +Non-UNIX-like systems::. + + 1. First, extract a tarball of the emacs-w3m distribution and enter + the top directory as follows: + + % tar zxf emacs-w3m-1.4.385.tar.gz + % cd emacs-w3m-1.4.385 + + If you've checked out emacs-w3m from CVS, you have to run + `autoconf' with no argument to generate the `configure' script. + + 2. Run the `configure' script. + + % ./configure + + _Important notice to Gnus users_: + + If multiple versions of Gnus are installed on your system (it is + likely that there are the released version and the development + version of Gnus), make sure that the `load-path' contains the + directory where the version you use is installed (check for the + `gnus.elc' file). You can ensure that with the `--with-addpath' + option as follows: + + % ./configure --with-addpath=/usr/local/share/emacs/site-lisp/gnus + + If you've installed APEL, FLIM or something in + + non-standard directories other than the default `load-path', you + must specify them using the `--with-addpath' option as follows (you + may also include the Gnus directory in it separated with `:'): + + % ./configure --with-addpath=/opt/share/apel:/opt/share/flim + + 3. Just run `make' and `make install'. See also the next step if you + are using XEmacs. + + % make + % make install + + All Lisp and info files will be installed in the appropriate + directories. Now, how do you know what files will go where? To + know it beforehand, use this: + + % make what-where + + If you are using Emacs or XEmacs capable of displaying images, you + had better install icon image files. To do this: + + % make install-icons + + or + + % make install-icons30 + + The later is for using the slightly larger icon images. + + 4. You can also install emacs-w3m as an XEmacs package using `make + install-package' instead of `make install' as follows: + + % make + % make install-package + + In this case, you don't have to execute `make install-icons' nor + `make install-icons30'. + + If you need to specify the package directory, there are two ways + to do that: + + * Use the `configure' option `--with-packagedir='. For example: + + % ./configure --with-packagedir=/opt/xemacs/xemacs-packages + % make what-where + % make + % make install-package + + * Use the `PACKAGEDIR' variable. For example: + + % ./configure + % make what-where PACKAGEDIR=/opt/xemacs/xemacs-packages + % make + % make install-package PACKAGEDIR=/opt/xemacs/xemacs-packages + + + + +File: emacs-w3m.info, Node: Non-UNIX-like systems, Next: Minimal Settings, Prev: Installing Emacs-w3m, Up: Getting Started + +2.5 Installing on non-UNIX-like systems +======================================= + +If you cannot execute the `configure' script on your system, or if no +`make' command is available, cast the following spell: + + % emacs -batch -q -no-site-file -l w3mhack.el NONE -f w3mhack-nonunix-install + + If APEL, FLIM (or any other library) aren't installed in the +ordinary places, the installer will leave them out. In such a case, it +is necessary to tell those places to the installer as shown below: + + % emacs -batch -q -no-site-file -l w3mhack.el //c/share/apel://c/share/flim -f w3mhack-nonunix-install + + +File: emacs-w3m.info, Node: Minimal Settings, Prev: Non-UNIX-like systems, Up: Getting Started + +2.6 Minimal settings to run emacs-w3m +===================================== + +This section mentions some fundamental settings for emacs-w3m. If you +want to fine-tune your installation, you'll find many customizable +variables in *note Customizable Variables::. + +`Autoloads' + You don't need this if you've installed emacs-w3m as an XEmacs + package (*note Installing Emacs-w3m::) because the + `w3m/auto-autoloads.el' takes care of setting up autoloads. + + In all other cases, put the following line in your `~/.emacs' file: + + (require 'w3m-load) + +`Startup File' + We recommend using the `~/.emacs-w3m' file (which is the default + value of `w3m-init-file') if you need to twiddle some emacs-w3m + variables. This file is similar to `~/.emacs', but is read when + emacs-w3m starts. Note that some options shouldn't be modified + there, for example, `w3m-command'. + +`Proxy Gateway' + If you are behind a firewall and access the Internet through a + proxy gateway, you need to instruct w3m to use it. + + There are several ways to do this, one is to set the `http_proxy' + environment variable globally in the shell something like: + + setenv http_proxy http://proxy.hogege.com:8000/ + + Another way is to customize the `w3m-command-arguments' variable to + add the options `-o' and + `http_proxy=http://PROXY_SERVER_NAME:PORT/'. + + This can also be done in your `~/.emacs-w3m' file as shown below: + + (setq w3m-command-arguments + (nconc w3m-command-arguments + '("-o" "http_proxy=http://proxy.hogege.com:8000/"))) + + To specify hosts for which the proxy shouldn't be used (Intranet + sites and the like), set the `no_proxy' (note that it is not + `no-proxy') environment variable to a comma-separated list of + hostnames. Alternatively, you can set the `w3m-no-proxy-domains' + variable to a list of domain names (not host names) as follows: + + (setq w3m-no-proxy-domains '("local.com" "neighbor.com")) + + See also the documentation of the `w3m-command-arguments-alist' + variable for instructions on how to use regexps to specify + `no_proxy' hosts. + + + +File: emacs-w3m.info, Node: Basic Usage, Next: Pretty Good Features, Prev: Getting Started, Up: Top + +3 Basic usage +************* + +* Menu: + +* Browsing Web Pages:: Let's go netsurfing! +* Inline Images:: Toggle displaying inline images +* Tracing History:: Going back through time and space +* Managing Bookmarks:: That's a favorite with me! +* Using Tabs:: Everybody likes tabs +* Working with buffers:: Creating, killing and moving across buffers +* Downloading:: Downloading a file +* Submitting Forms:: Filling in HTML forms +* HTML File Information:: Support for web page editing and hacking + + +File: emacs-w3m.info, Node: Browsing Web Pages, Next: Inline Images, Up: Basic Usage + +3.1 Let's go netsurfing! +======================== + +You can, by the keys, let emacs-w3m do all the web browsing operations. +Emacs-w3m uses the `Lynx-like' keymap (*note Key Binding::) by default. +Of course, you can use the mouse buttons, too. + +* Menu: + +* Key Binding:: There are two types of the key bindings +* Launching and Jumping:: Go ahead, just try it +* Moving in a page:: Moving from place to place in a page +* Moving over pages:: Moving from page to page +* Browsing with Mouse Operations:: Surfing using the mouse +* Going Back to Daily Hacking and/or Daily Writing:: Return to an Ordinary Life + + +File: emacs-w3m.info, Node: Key Binding, Next: Launching and Jumping, Up: Browsing Web Pages + +3.1.1 There are two types of the key bindings +--------------------------------------------- + +Since emacs-w3m is a late-coming web browser in the history of Emacs web +browsers, we offer two types of the key bindings in order that users can +get used to the new web browser easily. One is called the `Lynx-like' +keymap, the other is the `Info-like' keymap. You can see what they +mean from those names, can't you? The former is similar to that of +`Lynx' which is the text-based web browser, and the later is similar to +that of `Info' which is GNU's official document browser. By default, +the `Lynx-like' keymap is used. If you would like to use the +`Info-like' keymap, type + + M-x customize-option <RET> w3m-key-binding <RET> + +choose the `Info-like' keymap, and save the changed state. Otherwise, +add the following snippet to your `~/.emacs' file, not +`~/.emacs-w3m.el' file: + + (setq w3m-key-binding 'info) + + To change the key binding one by one, modify the `w3m-mode-map' +variable in your `~/.emacs-w3m.el' file like the following: + + (define-key w3m-mode-map [up] 'previous-line) + (define-key w3m-mode-map [down] 'next-line) + (define-key w3m-mode-map [left] 'backward-char) + (define-key w3m-mode-map [right] 'forward-char) + + +File: emacs-w3m.info, Node: Launching and Jumping, Next: Moving in a page, Prev: Key Binding, Up: Browsing Web Pages + +3.1.2 Go ahead, just try it +--------------------------- + +You can invoke emacs-w3m using three different commands, listed below. +Try one of these commands: a web page is displayed in an Emacs buffer +named "*w3m*", meaning that it is an emacs-w3m buffer. As you will +probably notice, the major mode for an emacs-w3m buffer is `w3m-mode', +there are also minor modes (*note Managing Bookmarks::). + + This section explains the most fundamental usage of these commands, +see *note Emacs-w3m Functions:: for more information on them. See also +*note Customizable Variables:: for variables you can use to customize +emacs-w3m's behavior. + +`w3m' + Start emacs-w3m, displaying the homepage specified in the + `w3m-home-page' variable. The default value for `w3m-home-page' + is "about:". Set the `w3m-quick-start' variable to `nil' if you + want to input a target URL every time you start emacs-w3m. + + You can also use this as an argument when starting emacs. + Examples: + + % emacs -f w3m + + To specify a URL, you could also use: + + % emacs -f w3m http://emacs-w3m.namazu.org/ + +`w3m-find-file' + Prompt for a local file name in the minibuffer, and display it in + emacs-w3m. + +`w3m-browse-url' + Prompt for a URL in the minibuffer, and display it in emacs-w3m. + This command is provided, if anything, in order to start emacs-w3m + from other application programs. + + Moving in an emacs-w3m buffer won't be painful if you're an Emacs +user already, since many of the standard keys work as intended. For +instance, `C-n', `C-v' and `C-s' (which are commonly used to move down +one line, one page, or search downwards for a word) are valid keys in +an emacs-w3m buffer. + + To follow a link, use the `<RET>' key. You have to move the point +to a link to do this; links are easily recognizable in a buffer because +they are not displayed like ordinary text: they can be underlined, or +have a different color. The face `w3m-anchor' controls how they are to +be displayed (*note Customizable Variables::). + +`<RET>' +`<right>' (Lynx-like keymap only) + Display the page pointed by the link under point + (`w3m-view-this-url'). + + The exact behavior of this command depends on the properties of + the link under point, and on whether you give it a prefix argument + or not. See *note Emacs-w3m Functions:: for details. + + As mentioned above, you can be prompted for a URL when you use the +command `M-x w3m', by setting the `w3m-quick-start' variable to `nil'. +In an emacs-w3m buffer, there are also two popular ways to go to new +pages by entering their URLs, see below. + +`<RET>' + In an emacs-w3m buffer, you can be prompted for a URL in the + minibuffer and make emacs-w3m display the corresponding page by + hitting `<RET>' after moving the point to the URL displayed in the + `header-line'. This feature will feel familiar to you if you are + used to GUI-based web browsers like Mozilla. Detailed explanations + about this can be found in *note Emacs-w3m Functions:: + (`w3m-view-this-url'). + +`g' + Prompt for a URL in the minibuffer and make emacs-w3m display the + corresponding page (independently of the position of the point) in + an emacs-w3m buffer. This binding will be familiar to you if you + already use Gnus or Mew (`w3m-goto-url'). + +`G' + Prompt for a URL in the minibuffer, and display it in a new + session. This function works just like `g' (`M-x w3m-goto-url')), + except that it opens a new session. Unless you are using + emacs-w3m on the character terminal, opening a new session means + displaying the page in a new tab. For more information about + tabs, please refer to *note Using Tabs:: + (`w3m-goto-url-new-session'). + +`c' (Lynx-like keymap) +`y' (Info-like keymap) + Display the URL of the page being displayed in the echo area and + put it in the `kill-ring' (`w3m-print-current-url'). + +`u' (Lynx-like keymap) +`Y' (Info-like keymap) + Display the target URL of the link under point in the echo area + and put it in the `kill-ring' (`w3m-print-this-url'). + + If the page you're reading is today's news or someone's diary, it may +have been updated since you loaded it. You can refresh the page using +the following command. (This command can also be useful to force a full +redisplay of the page if it looks broken.) + +`R' +`C-S-l' (Info-like keymap only) + Reload the page (`w3m-reload-this-page'). + + +File: emacs-w3m.info, Node: Moving in a page, Next: Moving over pages, Prev: Launching and Jumping, Up: Browsing Web Pages + +3.1.3 Moving from place to place in a page +------------------------------------------ + +Being able to use familiar Emacs movement bindings while browsing a web +page probably fascinates you already. Believe it or not, there is +more! Since we value your time, we have added keys to move the point, +scroll the page or find links in a very fast way. When you master +them, you will understand how handy they are. + + The keys are assigned so that scroll commands can be called using +shorter keystrokes than standard Emacs key bindings. And since places +where you can input text are pretty specific in web pages (*note +Submitting Forms::), most keys have special meanings and aren't +assigned to `self-insert-command' anymore. + +`<SPC>' + Scroll downwards. You may be used to this binding if you use the + `more' or `less' commands, or Emacs's `view-mode' + (`w3m-scroll-up-or-next-url'). + +`<DEL>' +`b' +`<backspace>' +`S-<SPC>' +`C-?' + Scroll upwards. You may be used to this binding if you use the + `less' command or Emacs's `view-mode' + (`w3m-scroll-down-or-previous-url'). + +`>' + Scroll to the left. The scroll step is given by the + `w3m-horizontal-scroll-columns' variable, default 10 + (`w3m-scroll-left'). + +`<' + Scroll to the right. The scroll step is given by the + `w3m-horizontal-scroll-columns' variable, default 10 + (`w3m-scroll-right'). + +`.' (Lynx-like keymap) +`S-<left>' (Info-like keymap) + Shift to the left (a fine level horizontal scrolling). The shift + step is given by the `w3m-horizontal-shift-columns' variable, + default 2 (`w3m-shift-left'). + +`,' (Lynx-like keymap) +`S-<right>' (Info-like keymap) + Shift to the right (a fine level horizontal scrolling). The shift + step is given by the `w3m-horizontal-shift-columns' variable, + default 2 (`w3m-shift-right'). + +`M-l' + Scroll horizontally so that the current position is centered + (`w3m-horizontal-recenter'). + + The `w3m-mode' major mode defines commands to move to various kinds +of things; namely links, forms, and images (whether they are displayed +or not). + + Let's consider this simple example: suppose we want to search for a +word on the widely-known Google search engine. Step one: open +`http://www.google.com' in emacs-w3m. Step two: once the page is +loaded, hit `]'. Tadaa! The point has moved to the first form input +in the page, you can now hit `<RET>' to enter something in it, and then +`C-c C-c' to submit. Without this command, you would have had to move +into the page using `C-n', `C-f' and so forth, it would have been a +real pain. + +`<TAB>' +`<down>' (Lynx-like keymap only) + Move the point to the next link (an "anchor" in emacs-w3m lingo). + More strictly speaking, move the point forwards to the nearest + anchor. + +`M-<TAB>' +`S-<TAB>' +`<backtab>' +`<up>' (Lynx-like keymap only) + Move the point to the previous anchor. More strictly speaking, + move the point backwards to the nearest anchor + (`w3m-previous-anchor'). + +`]' + Move the point to the next form. More strictly speaking, move the + point forwards to the nearest form (`w3m-next-form'). + +`[' + Move the point to the previous form. More strictly speaking, move + the point backwards to the nearest form (`w3m-previous-form'). + +`}' + Move the point to the next image. More strictly speaking, move the + point forwards to the nearest image (`w3m-next-image'). + +`{' + Move the point to the previous image. More strictly speaking, + move the point backwards to the nearest image + (`w3m-previous-image'). + + +File: emacs-w3m.info, Node: Moving over pages, Next: Browsing with Mouse Operations, Prev: Moving in a page, Up: Browsing Web Pages + +3.1.4 Moving from page to page +------------------------------ + +This section explains how to move from page to page, but not by +following links or inputing URLs (these ways of moving are explained in +*note Launching and Jumping::). + + This includes commands to move backwards and forwards in history (the +familiar "Back" and "Forward" from other browsers), and the obligatory +"Go to the home page" feature. You will probably understand this +better after reading the *note Tracing History:: section. + +`B' (Lynx-like keymap) +`<left>' (Lynx-like keymap) +`l' (Info-like keymap) +`p' (Info-like keymap) + Move back one page in history (`w3m-view-previous-page'). With a + numeric argument ARG, move back ARG pages. This is the preferred + way to go back in time. + +`N' (Lynx-like keymap) +`n' (Info-like keymap) + Move forward one page in history (`w3m-view-next-page'). Of + course, this will work only if you've used `B' (`l' for the + `Info-like' keymap) to move back in history. If called with a + numeric argument ARG, move forward ARG pages. This command actually + allows you to go back to the future! + +`H' + Move to the home page (`w3m-gohome'). You can specify the URL of + the home page by customizing the `w3m-home-page' variable + ("about:" by default). + + These commands are exclusive features of emacs-w3m, we were able to +obtain patents on them, so you won't find them anywhere else. That's +why you must learn to use them today! (Just kidding.) + +`^' +`u' (Info-like keymap only) + Attempt to move to the parent directory of the page currently + displayed. For instance, it will attempt to move to + "http://foo/bar/" when "http://foo/bar/baz" is displayed. This + function has been implemented because of the following + observation: users of web browsers often have to move up one level + of directories because the information they're looking for isn't + displayed on the current page (either because it has been deleted, + or because a search engine took them to the wrong page). + + When you use another web browser, you usually need to remove the + last component from the URL by using the `<DEL>' key, etc. several + times manually. In emacs-w3m, this operation can be performed in + only one keystroke, by typing `^'! + + Also, you type this command with prefix as "2 ^", you visit the + upper directory according to input number. you type "0 ^", you + visit the top of this site. + +`<SPC>' + When the current point is located at the end of the buffer and you + cannot scroll down further, hit the `<SPC>' key to go on to the + "next page" (`w3m-scroll-up-or-next-url'). Here, "next page" + means the page referred to in the special "next" header of the + current page (read on). This feature has nothing to do with the + history. + + You probably noticed that some websites split their contents over + several small pages, partly because it's not comfortable for users + to wait for huge contents to transfer in one go. For example, + search results of search engines often appear like that. On such + sites, users often need to follow links manually from one page to + the next in order the access all the information. + + Hopefully emacs-w3m attempts to enable you to browse a series of + contents over pages as if you were viewing them as a single page, + by combining two operations: explicitly following links and + scrolling. + + That's how it works: these kinds of websites often have fields + such as "next", "prev" or "previous" in the headers of their web + pages. These fields contain information about links between + divided pages. Emacs-w3m uses these fields to know what to follow. + + Let's take an example with Google again to explain how the two + operations (following links and scrolling) are combined. Open + `http://www.google.com' and search for a word. If you search for a + very common word (e.g. "hamburger"), you will get tons of search + results. Google returns the first page of search results, after + having sorted them using its own algorithm and divided them into + several pages. Use `<SPC>' to scroll through this first page. + Keep scrolling until you see the end of the web page in the + window. Here, a surprise is waiting for you. If you use a web + browser other than emacs-w3m and want to see the rest of the + search results, you would have to click on any of the numbers + listed under + + Gooooooogle + + 1 2 3 4 5 6 7 8... + + to follow the link. But with emacs-w3m, you can follow the link + by just typing `<SPC>', just as if you were scrolling! + +`<DEL>' +`b' +`<backspace>' +`S-<SPC>' +`C-?' + When the point is located at the beginning of the buffer and you + cannot scroll upward, hit the `<DEL>' to go to the "previous" page + (`w3m-scroll-down-or-previous-url'). Here, the "previous" page + means the page which is assigned to the "prev" or "previous" fields + in the header of the current page. This function has nothing to + do with the history, and works like `<SPC>' + (w3m-scroll-up-or-next-url). + + +File: emacs-w3m.info, Node: Browsing with Mouse Operations, Next: Going Back to Daily Hacking and/or Daily Writing, Prev: Moving over pages, Up: Browsing Web Pages + +3.1.5 Surfing using the mouse +----------------------------- + +The emacs-w3m developers went to some trouble to ensure that normal +people who aren't Emacs otaku can also use emacs-w3m. You can perform +most web browsing operations using only the mouse except for entering +text, e.g. URL, forms, etc. Note that sometimes you might still need to +use modifier keys since the emacs-w3m developers are all Emacs otaku... + + Use `mouse-2' to "follow links" (the first basic of web browsing). +Under Emacs 22.1 and newer, you can also follow links using `mouse-1', +depending of the value of `mouse-1-click-follows-link'. + +`mouse-2' + Follow the link under the mouse pointer + (`w3m-mouse-view-this-url'). + +`S-<mouse-2>' + Follow the link under the mouse pointer in a new session + (`w3m-mouse-view-this-url-new-session'). + + Scrollbar, menubar and toolbar are helpful in emacs-w3m when you use +a mouse (your Emacs must support them, and you must have enabled them). +You can scroll an emacs-w3m window using the scrollbar. You can invoke +many emacs-w3m commands described in this manual from the "w3m" menu +which appears at the top of the Emacs frame. Note: it's not necessary +to use the menubar for most emacs-w3m commands, you can use the toolbar +icons instead. + + To switch between buffers in an emacs-w3m window using "Tabs" (*note +Using Tabs::), click on the topmost line in an emacs-w3m window +directory using `mouse-2' or choose one from the "Tab" menu which +appears next but one to the "w3m" menu. + + +File: emacs-w3m.info, Node: Going Back to Daily Hacking and/or Daily Writing, Prev: Browsing with Mouse Operations, Up: Browsing Web Pages + +3.1.6 Return to an Ordinary Life +-------------------------------- + +Think back. You probably didn't start Emacs to browse the web, but to, +say, replace some editor's built-in interpreter with scheme, write Info +documentation or put into print your opinion on software patents... +who knows? While you were using Emacs, you ran into the need to browse +the web for your work. But you happened to be able to see the web page +without leaving Emacs at all. Wow. + + Now the time has come to return to work. Keep it up or the world +won't change! Type `q' if you think you might need to browse the web +again. Type `Q' if you don't have any intention to go back to +emacs-w3m for a while. + +`q' + Close an emacs-w3m window and select the other buffer + (`w3m-close-window'). + +`Q' + Save the "arrived URLs" list to disk (*note Tracing History::), + save cookies (*note Cookie Variables::) and really quit emacs-w3m + (`w3m-quit'). + + +File: emacs-w3m.info, Node: Inline Images, Next: Tracing History, Prev: Browsing Web Pages, Up: Basic Usage + +3.2 Toggle displaying inline images +=================================== + +If the Emacs version you're using is capable of displaying images in +buffers, then emacs-w3m can display them in web pages, just like +"graphical" browsers like Mozilla do. You should make sure your Emacs +is correctly setup for images before trying to use any of the following +commands (*note Required Emacs Version::). + + To toggle displaying of images in the current buffer, use `T' (`I' +for the `Info-like' keymap). It makes emacs-w3m fetch the images from +the server, then display them in the buffer, at the position they would +have in a "graphical" browser. If you hit the key again, images will +disappear from the buffer. + + By default, emacs-w3m won't display images, but you can change its +behavior and choose to always display images, for this you need to +customize the `w3m-default-display-inline-images' variable and change +its value from `nil' to `t'. *Note Customizable Variables::. + + Emacs-w3m also comes with nifty features that let you zoom an image +in or out, save it to a file, or view it in a external viewer. See also +*note Moving in a page:: for instructions on how to move from image to +image in an emacs-w3m buffer. + +`T' (Lynx-like keymap) +`I' (Info-like keymap) + Toggle displaying of all the inline images in this buffer + (`w3m-toggle-inline-images'). If and only if + `transient-mark-mode' is turned on and the region is active, only + the images within the region will be turned on. + + Note1: whether to display inline images in a page from the start + when you first visit the page is controlled by the value of the + variable `w3m-default-display-inline-images' (the default is off) + as mentioned above. But the visibility of images in pages that + you visit from this buffer inherits the last status of the + visibility in this buffer if + `w3m-toggle-inline-images-permanently' is non-`nil' (default=`t'). + If `w3m-toggle-inline-images-permanently' is `nil', + `w3m-default-display-inline-images' always controls it. + + Note2: this command deactivates the region, so you have to set it + again if you want to turn on only the images in a certain area + again. + +`t' (Lynx-like keymap) +`i' (Info-like keymap) + Toggle displaying of the single inline image under the cursor + (`w3m-toggle-inline-image'). If and only if `transient-mark-mode' + is turned on and the region is active, only the images within the + region will be turned on. For the `Info-like keymap', this key is + bound to the command (`w3m-view-image') that launches the external + viewer if Emacs does not support displaying images. + +`M-S-t' (Lynx-like keymap) +`M-S-i' (Info-like keymap) + Turn off displaying of all the inline images in this buffer. + (`w3m-turnoff-inline-images'). + +`I' (Lynx-like keymap) + View the image under point in an external viewer + (`w3m-view-image'). + +`M-i' + Save the image under point to an external file. The default name + will be the original name of the image, so most of the time + `M-i <RET>' will save the image with the right name + (`w3m-save-image'). + +`M-[' + Zoom out the image under point (`w3m-zoom-out-image'). + +`M-]' + Zoom in the image under point (`w3m-zoom-in-image'). + + +File: emacs-w3m.info, Node: Tracing History, Next: Managing Bookmarks, Prev: Inline Images, Up: Basic Usage + +3.3 Going back through time and space +===================================== + +Emacs-w3m has several ways to present you with a list of all the pages +you visited before. The first way is simply called the "emacs-w3m +history", it is a list of the pages you visited in this session, +presented hierarchically, that is: when you follow a link, the page +you're leaving becomes the "parent" of the page you're going to. It is +a very nice to keep track of the pages you visited, and remember from +where you came if the history gets too long. + + Here is an example of this feature in action, after a short visit to +the GNU Project's homepage: + + GNU's Not Unix! - the GNU Project and the Free Software Foundation (FSF) + Philosophy of the GNU Project - Free Software Foundation (FSF) + GNU Emacs - GNU Project - Free Software Foundation (FSF) + Order from the Free Software Foundation (FSF) + Links to Other Free Software Sites - GNU Project - Free Software Fo... + EFF: Homepage + + (In fact, this example is slightly edited to fit in 72 columns; the +URLs won't be cut in the actual emacs-w3m buffer.) + + You can get this kind of history using the `s' key (the `o' key for +the `Info-like' keymap) in any emacs-w3m buffer. + + Please note that this history is buffer-local, i.e. specific to an +emacs-w3m buffer. But emacs-w3m has a unique feature: when you visit a +new page, the history is copied over to the new buffer, so that you can +still access the pages you visited so far. This is different from the +way Mozilla and others work; in these browsers the history always starts +from scratch in new buffers. + + Emacs-w3m can do more than just record which pages you visited, it +can also save specific locations in those pages, in case you want to go +back to the exact same place in the page. Press `C-c C-@', and the +location of the cursor will be stored in history. In order to go back +to that particular location within the page, press `C-c C-v' in the +emacs-w3m buffer visiting the page. + +`s' (Lynx-like keymap) +`C-u s' (Lynx-like keymap) +`o' (Info-like keymap) +`C-u o' (Info-like keymap) + Display the list of URLs visited in this session. If called with a + prefix argument (see below), show the list of arrived URLs instead + (`w3m-history'). + +`C-c C-@' +`C-c C-<SPC>' + Record the position of the cursor in the page in history. + +`C-c C-v' + Move to the position which has been marked with `C-c C-@' + (`w3m-history-store-position') in the currently displayed page. + + The other way to have information about past pages is the "arrived +URLs" list: it is a list of the last 500 URLs you have visited in +emacs-w3m. The list is ordered by date, the most recent coming first, +and for each page the time of visit is displayed. Here's an example +(edited): + + Order from the Free Software Foundation (FSF) 22:53:25 + GNU Emacs - GNU Project - Free Software Foundation (FS 22:53:05 + Philosophy of the GNU Project - Free Software Foundati... 22:52:46 + Philosophy of the GNU Project - Free Software Foundati... 22:52:39 + EFF: Homepage 22:52:18 + Links to Other Free Software Sites - GNU Project - Fre... 22:52:07 + Links to Other Free Software Sites - GNU Project - Fre... 22:52:07 + GNU's Not Unix! - the GNU Project and the Free Softwar... 22:51:32 + Bookmarks 22:51:02 + The DICT Development Group- upwards 2003-01-08 + the monkey puzzle: new debian packages as an rss feed 2003-01-08 + new-debian-packages.rss 2003-01-07 + it's a miracle 2003-01-06 + + You can get this history by passing a prefix argument to the previous +command, i.e. using `C-u s' (`C-u o' for the `Info-like' keymap). The +number of URLs showed in this page is customizable, see the +`w3m-keep-arrived-urls' variable. It cannot exceed 500 by default. +*Note Customizable Variables::. + + Of course, in all cases all the lines showed in the examples are +links, you can go to any of the pages you visited previously just like +if you were visiting a regular page, by following the link. + + Also see the *note Moving over pages:: section, it explains how to +move in the history with simple keybindings, i.e. the "Back" and "Next" +features. + + +File: emacs-w3m.info, Node: Managing Bookmarks, Next: Using Tabs, Prev: Tracing History, Up: Basic Usage + +3.4 That's a favorite with me! +============================== + +Like all modern browsers, emacs-w3m has advanced features related to +bookmarks: it lets you classify them in categories, edit them and of +course, browse them easily. + +* Menu: + +* Adding Bookmarks:: Adding a URL to your favorites +* Consulting Bookmarks:: Browse your bookmarks +* Editing Bookmarks:: How to change your bookmarks + + +File: emacs-w3m.info, Node: Adding Bookmarks, Next: Consulting Bookmarks, Up: Managing Bookmarks + +3.4.1 Adding a URL to your favorites +------------------------------------ + +There are several ways to add a URL to your bookmarks. The first one is +to use the `a' key (or call the `w3m-bookmark-add-current-url' command) +to add the page you're currently browsing: it will prompt you for a +section to where the bookmark should go (completion is available with +the `<TAB>' key) and will let you edit the title of the bookmark (the +default being the title of the current page). Complete these two +steps, validating each with `<RET>', and you will see the message +"Added" in the minibuffer, which means (surprise!) that the page has +been added to your bookmarks. + + Another way to add a bookmark is to use the `M-a' key (or call the +`w3m-bookmark-add-this-url' command): it adds the URL under point (that +means, the URL you would be taken to if you followed the link) to the +bookmarks. As before, you will have to input the section for this +bookmark and its title, the default being this time the name of the +link itself. + + The third and final way to do this is to use `C-u a', this time you +will be prompted for the URL to add, its section, and the title to use +for it in the bookmarks. + +`a' + Add the current page to the bookmarks, or if called with a prefix + argument, prompt for a URL and add it + (`w3m-bookmark-add-current-url'). + +`M-a' + Add the URL under point to the bookmarks + (`w3m-bookmark-add-this-url'). + + +File: emacs-w3m.info, Node: Consulting Bookmarks, Next: Editing Bookmarks, Prev: Adding Bookmarks, Up: Managing Bookmarks + +3.4.2 Browse your bookmarks +--------------------------- + +The easiest way to see the bookmarks is to use the `v' key in an +emacs-w3m buffer; another possibility is to go to the special URL +`about://bookmark/'. You will see your bookmarks, organized by +section, each line being one bookmark. You can browse them exactly +like you would browse any other page. + + On the bookmarks page a w3m minor mode is activated, the bookmark +mode. It adds key bindings to edit the bookmarks. *Note Editing +Bookmarks::. + +`v' + Visit the bookmarks page (`w3m-bookmark-view'). + + +File: emacs-w3m.info, Node: Editing Bookmarks, Prev: Consulting Bookmarks, Up: Managing Bookmarks + +3.4.3 How to change your bookmarks +---------------------------------- + +The bookmark minor mode (*note Consulting Bookmarks::) offers several +key bindings related to bookmark edition, most noticeably `C-k' to kill +(i.e. delete) a bookmark, and `E' (`e' for the `Info-like' keymap) to +edit the bookmark file. + + Bookmarks are kept in an HTML file, so you can edit the file by hand, +but be very careful: if you erase the comments emacs-w3m needs to +recognize section names, things can break easily. If you know the +basics of HTML, the file should otherwise be quite self-explanatory. + +`C-k' + Kill the bookmark under point (`w3m-bookmark-kill-entry'). + +`E' + Visit the bookmarks file (`w3m-bookmark-edit'). + +`C-_' + Undo the last changes (`w3m-bookmark-undo'). + + +File: emacs-w3m.info, Node: Using Tabs, Next: Working with buffers, Prev: Managing Bookmarks, Up: Basic Usage + +3.5 Everybody likes tabs +======================== + +Unlike most other text-based browsers, emacs-w3m has support for tabbed +browsing. What is tabbed browsing, you might ask? It's very simple: it +is a way to represent all active emacs-w3m buffers in a single window, +by showing a line at the top which shows all the buffers in a simple and +self-explaining way, each buffer being shown as a "tab". This line +stays visible all the time and does not scroll with the rest of the +buffer, so that you can switch to another buffer, or use the feedback it +provides at any moment. + + The easiest way to get the feeling of it is to just try, so go on and +open an emacs-w3m session. If you didn't change anything to the +configuration, the tabs line is active by default, it is this bright +line at the top with a smaller rectangle that shows the title of the +current page. Now create another w3m buffer (with `G', for example): +now you have two of these rectangles. These are tabs. + + The most obvious use of tabs is switching: by clicking with the +`mouse-1' button on a tab, you make the buffer it represents active. +It also works with the `mouse-2' button, or with rolling the mouse +wheel if you are using GNU Emacs. It's a very quick and easy way to +work with several emacs-w3m buffers, you just have to point and click, +or to roll the mouse wheel. (Yeah yeah, I hear you. You want to switch +using the keyboard. Don't worry, it's also possible. It's explained in +the next section. Now keep quiet and read on!) + + Another nifty feature is the feedback it provides. If you are on a +color terminal or window system, emacs-w3m shows the text in the tab in +different colors to show the status of the page(1). For example, when +the page is being loaded, the text is in red, and goes back to its +default color (usually black) when the loading is complete. This way +you can tell with a single glance at the tabs line if the page you're +waiting for has arrived or not. + + Finally, if the web page provides a favicon, it will be shown in the +tab as well(2). More eye-candy for the emacs-w3m user! + + User options: + +`w3m-use-tab' + Whether to activate tabbed browsing or not. + + If you are a GNU Emacs user, the mouse wheel allows you not only to +go to an adjacent buffer but also to move a buffer to the adjacent +place. To do that, press and hold down the control key while you roll +the mouse wheel on the tabs line. There are two variables that control +how emacs-w3m behaves by the mouse wheel: + +`w3m-tab-track-mouse' + This variable controls whether to make the mouse track the + selected tab. The default value is `t'. You may want to set this + to `nil' if you use a proportional font for the tab faces. See + also `w3m-tab-mouse-position-adjuster'. + +`w3m-tab-mouse-position-adjuster' + This variable contains the values used to adjust the mouse + position on tabs when the mouse pointer tracks the selected tab. + The default value is `(0.5 . -4)'. It consists of the cons of a + floating point number M and an integer N that are applied to + calculating of the mouse position, which is given in pixel units, + as follows: + + (TAB_WIDTH + M) * ORDER + N + + Where TAB_WIDTH is the pixel width of a tab and ORDER is the order + number in tabs. The result is rounded towards zero. + + Note that the calculation will always fail if you use a + proportional font for the tab faces. See also + `w3m-tab-track-mouse'. + + ---------- Footnotes ---------- + + (1) Although XEmacs shows all tabs in the same colors at every +moment, you can easily distinguish the selected tab and others and see +the status of the current page in the modeline. + + (2) Under XEmacs, favicons will currently not be shown in the tabs +line. + + +File: emacs-w3m.info, Node: Working with buffers, Next: Downloading, Prev: Using Tabs, Up: Basic Usage + +3.6 Creating, killing and moving across buffers +=============================================== + +Sooner or later, you will be addicted to emacs-w3m, and you'll have to +manage all your browsing needs with it. To help you with this daunting +task, we have imagined many different ways to work with emacs-w3m +buffers. + +* Menu: + +* Creating and killing buffers:: Creating and killing buffers +* Moving across buffers:: Moving across buffers +* Selecting buffers:: Selecting buffers from a list + + +File: emacs-w3m.info, Node: Creating and killing buffers, Next: Moving across buffers, Up: Working with buffers + +3.6.1 Creating and killing buffers +---------------------------------- + +It is sometimes useful to just create a new buffer without opening a web +page in it. This operation is called "creating a twin copy" of a +buffer, in emacs-w3m lingo. It will simply create a new buffer whose +contents are identical to the currently active buffer. + + The opposite of this is closing buffers: you can just close one +buffer (because you're not interested in its contents anymore) or you +can decide to close all buffers but the current one. Emacs-w3m lets +you do this with the following commands: + +`C-c C-t' +`M-n' + Create an identical copy of the currently active buffer, under a + new name. This is used to start a new session without loading a + web page in the new buffer (`w3m-copy-buffer'). + +`C-c C-w' + Close the current emacs-w3m buffer (`w3m-delete-buffer'). + +`C-c M-w' + Close all emacs-w3m buffers, but the active one + (`w3m-delete-other-buffers'). + + +File: emacs-w3m.info, Node: Moving across buffers, Next: Selecting buffers, Prev: Creating and killing buffers, Up: Working with buffers + +3.6.2 Moving across buffers +--------------------------- + +The commands you will probably use most often are those who allow you +to go to an adjacent buffer; that is a buffer just "after" or "before" +the current one. The meaning of this will be obvious if you use tabs: +the next buffer is the one just after the active one, on the right, and +the previous buffer is the one on the left. However, XEmacs displays +tabs in random order unfortunately, so you need to pay attention to the +number which is displayed in each tab in order to know what is the +adjacent buffer if you are using XEmacs. The key bindings for these +commands are `C-c C-p' and `C-c C-n'. + + These commands understand the numeric argument convention, i.e. if +you call them with a number N as argument, you will be taken N buffers +away from the current one. For example, to go two buffers on the right +from the current position, use `2 C-c C-n'(1). + +`C-c C-p' + Move to the previous emacs-w3m buffer. This is usually the next + buffer to the left in the tabs line. If called with a numeric + argument N, move N buffers to the previous (`w3m-previous-buffer'). + +`C-c C-n' + Move to the next emacs-w3m buffer. This is usually the next + buffer to the right in the tabs line. If called with a numeric + argument N, move N buffers to the next (`w3m-next-buffer'). + + If you are a GNU Emacs user, you can also move an emacs-w3m buffer to +the adjacent place on the tabs line using the following commands: + +`C-c C-.' +`C-c C->' + Move the selected emacs-w3m buffer to the right hand adjacent + place on the tabs line. If called with a numeric argument N, move + N tabs to the right (`w3m-tab-move-right'). + +`C-c C-,' +`C-c C-<' + Move the selected emacs-w3m buffer to the left hand adjacent place + on the tabs line. If called with a numeric argument N, move N + tabs to the left (`w3m-tab-move-left'). + + Also note that if these commands don't fit you well despite our +efforts, you might find what you need in "generalist" buffer management +packages such as ibuffer or iswitchb--since emacs-w3m buffers are +regular Emacs buffers, they will work fine too. + + ---------- Footnotes ---------- + + (1) You can use `C-u 2 C-c C-n' instead of `2 C-c C-n' as usual. But +keep in mind all numeric keys and minus-sign are assigned to the numeric +prefix arguments in emacs-w3m buffers. + + +File: emacs-w3m.info, Node: Selecting buffers, Prev: Moving across buffers, Up: Working with buffers + +3.6.3 Selecting buffers from a list +----------------------------------- + +There are two ways to select emacs-w3m buffers from a list. The first +one is a minibuffer-based interface, called with `C-c C-a'. You can +choose the buffer you want to display using the `M-p' and `M-n' keys +(or the <up> and <down> arrow keys), they will make you cycle through +the list. You can also edit the prompt and type the title of an +existing web page, using `<TAB>' for completion. For example, if you +have a "Google Search" page opened, you can type "Goo" then hit `<TAB>' +and the page title will be completed. After the page name, the buffer +name is given (between brackets). Then use `<RET>' to switch to the +buffer you have chosen. + + The second and more sophisticated interface is called the emacs-w3m +buffer list, it is invoked with `C-c C-s'. It shows you the list of +all opened buffers in a separate window (either a vertical or a +horizontal window--`C-c C-s' toggles between the two modes) and allows +you to view the buffers in real-time: when you move the point in the +buffer list, the buffer under point is displayed in the main window, +which allows you to have direct visual feedback of the buffer you're +switching to. + + To move in the buffer list, you can use the `p' and `n' keys (or the +arrow keys). In the buffer list, `<DEL>' and `<SPC>' allow you to +scroll the buffer displayed in the main window, which is handy if you +want to check that you're seeing the right buffer. To select the +buffer under point, you can use the `<RET>' key, in which case the +buffer list will be buried, or the `w' key, in which case the buffer +list will remain visible and the focus given to the main window. + + You can also close and create buffers from this menu, using the same +bindings as the one used in regular buffers (*note Creating and killing +buffers::). + + Finally, the `?' key shows a short help, `g' refreshes the list and +the `q' key exits the buffer list, not changing the active buffer. + +`C-c C-a' + Prompt for a buffer name in the minibuffer. `M-p' and `M-n' cycle + through the list of existing buffers and `<TAB>' completes + (`w3m-switch-buffer'). + +`C-c C-s' + Show the buffer list in a separate window (`w3m-select-buffer'). + In this window, `C-c C-s' toggles between horizontal and vertical + modes, `<RET>' selects the buffer under point and buries the + buffer list, `w' selects the buffer under point and gives it the + focus, `n', `p' and the arrow keys can be used to move down or up. + + +File: emacs-w3m.info, Node: Downloading, Next: Submitting Forms, Prev: Working with buffers, Up: Basic Usage + +3.7 Downloading a file +====================== + +It is possible to download (i.e. fetch, but not display) any web page or +file with emacs-w3m: just put the point on the link you want to +download and hit `d'. You will be prompted for a filename under which +to save the file locally, by default it will be the name of the file on +the remote server. Confirm with `<RET>'. The download will be +asynchronous and not block your Emacs session, you can continue your +emacs-w3m browsing in another buffer if you want. + + Please note that this download mechanism uses w3m to download things, +you might want to use the more powerful wget downloader instead. Have a +look at our friend project "emacs-wget", its homepage is at +`http://pop-club.hp.infoseek.co.jp/emacs/emacs-wget/'. + +`d' (Lynx-like keymap) +`D' (Info-like keymap) + Download the file or the page pointed to by the link under point + (`w3m-download-this-url'). + +`M-d' (Lynx-like keymap) +`d' (Info-like keymap) + Download the contents of URL to a local file (`w3m-download'). You + will be prompted for the URL and the name of a local file. + + +File: emacs-w3m.info, Node: Submitting Forms, Next: HTML File Information, Prev: Downloading, Up: Basic Usage + +3.8 Filling in HTML forms +========================= + +These emacs-w3m commands let you move between forms and fill in fields, +using simple key bindings and optionally prompting you for values in +Emacs windows or in the minibuffer. + + The main key binding to remember is `<RET>'. It has different +meanings, depending on the thing under point: for textareas, you will be +prompted for a value in the minibuffer. For select tags, you will be +given a list of choices in an electric Emacs window (you can move using +the arrow keys, and pick one with the `<RET>' key). For radio and +checkbox buttons, the `<RET>' key selects one of the elements. + + When in the minibuffer or in the electric window, you can cancel with +the `C-c C-q' sequence. To submit the form, use `C-c C-c'. + +`]' + Jump to the next form (`w3m-next-form'). + +`[' + Jump to the previous form (`w3m-previous-form'). + +`C-c C-c' + Submit form at point (`w3m-submit-form'). + +`<RET>' + Edit the value of the form item under point. + +`<RET>' (w3m-form-*-keymap) + Accept the value. + +`C-c C-q' (w3m-form-*-keymap) + Quit editing the form item, leaving changes. + + Unless `w3m-form-use-textarea-backup' is set to `nil', emacs-w3m +stores the text you input in textareas in backup files for later reuse. +When you start editing a form and there is backup text available, you +will be asked whether you want to use it or not. Files to save text +are stored in the directory specified by the +`w3m-form-textarea-directory' variable. + + +File: emacs-w3m.info, Node: HTML File Information, Prev: Submitting Forms, Up: Basic Usage + +3.9 Support for web page editing and hacking +============================================ + +For those who usually use Emacs to write documentation or programs, it's +very convenient to be able to browse the web in the same Emacs session. +For example, if you are editing a HTML file in Emacs, you can preview it +without launching an external browser. You can also quickly copy sample +code from technical documentation during a programming marathon... + + How about the opposite? (That is, being able to edit the source of a +web page in a web browser.) Wouldn't that be cool? Imagine you found +an error in your document after previewing it in emacs-w3m; you probably +want to fix it right away. Or if you are a programmer specialized in +web technology, sometimes you might want to see the raw HTML file for +the current web page... especially if you are the author of a Shimbun +module (*note Shimbun Basics::). + + It is usually possible to switch to an Emacs buffer visiting an HTML +file by using the buffer name, but emacs-w3m adds a specific keybinding +for this. Emacs-w3m knows the URL of the web page it is visiting, so +why not take advantage of this? + +`\' + Display the current web page in the raw HTML + format(`w3m-view-source'). + +`=' + Show the information about currently displayed web page. It + includes title, URL, document type, last modified + date(`w3m-view-header'). + +`E' (Lynx-like keymap) +`e' (Info-like keymap) + Edit the local file pointed by URL of current + page(`w3m-edit-current-url'). + +`e' (Lynx-like keymap) +`E' (Info-like keymap) + Edit the local file pointed by URL under + point(`w3m-edit-this-url'). + +`M' + Launch an external browser (other than emacs-w3m) and display the + same web page as currently displayed in + emacs-w3m(`w3m-view-url-with-external-browser'). The external + browser to be used is defined by the variable + `w3m-content-type-alist', depending on the kind of URL. + + The (*note Tips::) section gives more examples on how to integrate +emacs-w3m with other commands and Emacs subsystems. + + +File: emacs-w3m.info, Node: Pretty Good Features, Next: Customizable Variables, Prev: Basic Usage, Up: Top + +4 Pretty good features +********************** + +* Menu: + +* Using Search Engines:: Convenient ways to search the web +* Grouping URLs:: Visiting several web pages in one URL +* Weather Information:: It will be fine tomorrow +* Using Antenna:: Raise your antenna +* Showing Directory Tree:: Showing the tree structure of local directories +* Viewing Perl Documents:: Viewing Perl Documents +* Using Namazu:: Searching files with Namazu +* Octet:: Viewing data in various octal form +* Frame Local Buffers:: Grouping sessions into separate frames +* Session Manager:: Saving and loading sessions + + +File: emacs-w3m.info, Node: Using Search Engines, Next: Grouping URLs, Up: Pretty Good Features + +4.1 Convenient ways to search the web +===================================== + +Emacs-w3m comes with advanced features related to search engines, they +are accessible through three interfaces: + + * The regular search interface, invoked by the `S' key (the `s' key + for the `Info-like' keymap) in any emacs-w3m buffer. It is a + simple interactive way to choose which search engine to use and + input a search term; see *note The Search Interface::. + + * The Quicksearch interface: it is a faster (yet more complicated) + way to use search engines, by going to specially crafted URLs. + For more information about this feature, see *note Quick + Searching::. + + * The "I'm feeling lucky" feature: if it's enabled + (`w3m-enable-google-feeling-lucky'), entering words instead of a + regular URL at the URL prompt will begin a Google search for the + words automatically, and display the most relevant result. This + is useful if you actually want to fetch the most relevant page, it + does not display a list of search results. + +* Menu: + +* The Search Interface:: How to search with emacs-w3m +* Quick Searching:: An alternative (and fast) way to search the web +* Adding New Search Engines:: Using your favorite engines + + +File: emacs-w3m.info, Node: The Search Interface, Next: Quick Searching, Up: Using Search Engines + +4.1.1 How to search with emacs-w3m +---------------------------------- + +You can fire up the regular search interface by using the `S' key (the +`s' key for the `Info-like' keymap) in an emacs-w3m buffer. You will +see a prompt in the minibuffer, asking for a search term. Type one or +several words at the prompt, then hit `<RET>'. The result page of your +search in the engine appears, you can then browse the results, just as +if you had used the normal web based entry point to the engine. + + You probably noticed that you have not been given a chance to choose +which engine you want to search with. By default, emacs-w3m will use +the Google search engine, you can change this behavior by customizing +the `w3m-search-default-engine' variable (see *note Customizable +Variables::), or you can specify the search engine each time you use the +command. + + To specify which engine to use, you have to give the command a prefix +argument (usually, this means hitting `C-u' before the command, e.g. +`C-u S' (`C-u s' for the `Info-like' keymap). Emacs-w3m will prompt +you for an engine, you can choose one by typing its name (completion is +also available with the `<TAB>' key). Once you have made your choice, +hit the `<RET>' key. You can then type your search term, hit `<RET>', +and you will see the search results. + +`S' (Lynx-like keymap) +`s' (Info-like keymap) + Begin a new search. If called with a prefix argument, prompt for + the engine to use (`w3m-search'). + + +File: emacs-w3m.info, Node: Quick Searching, Next: Adding New Search Engines, Prev: The Search Interface, Up: Using Search Engines + +4.1.2 An alternative (and fast) way to search the web +----------------------------------------------------- + +If you're a "Web Power User" (and since you're reading this, you +probably are), you need a quick and efficient way to perform searches. +The Quick Searching feature is one. + + What does it do? It lets you launch web searches by simply going to +a special URL such as `gg:emacs'. The advantages of this mode of +operation are: + + * It's fast. You just have to type a URL to choose the engine and + the search word(s), in one go. + + * It's convenient. With this feature, you can easily open a new + emacs-w3m tab or window, and launch a search in it, using for + example, the `G' key to open a URL in a new window, and going to a + Quicksearch URL. You can also bookmark searches just by + bookmarking the special Quicksearch URL. + + * It works with the grouping feature. You can launch two searches + at the same time, with a URL like `group:gg:emacs&ya:w3m'. This + would for instance launch a search for "emacs" on Google and for + "w3m" on Yahoo!. *Note Grouping URLs::. + + Using it is very simple: suppose you want to search for the word +"gnu" on Google and get a list of results. Hit `g' to go to a new URL, +and type "gg:gnu". The first part of this expression, "gg" indicates +that we want to use the Google search engine. The second term is the +word we will be searching for. The prefix and the search term must be +separated by a colon. Hit `<RET>', and you will see the results of +your search. Note that you can input several words by separating them +with spaces. `<SPC>' is a self-inserting key in the minibuffer if the +"Feeling Lucky" feature is enabled (it is by default; see +`w3m-enable-google-feeling-lucky'). If it's disabled, then hit `C-q' +first, i.e. `C-q <SPC>'. + + The default configuration of emacs-w3m includes several prefixes you +can use, they are defined in the `w3m-uri-replace-alist' variable. +There's for example "gg" for Google, "ggg" for Google Groups, "ya" for +Yahoo!, "al" for Altavista, "alc" for Eijirou on the web to name a few. +You can also add prefixes for the search engines you define, *Note +Adding New Search Engines::. + + Instead of prefixes, you can also use full engine names in +Quicksearch URLs, such as "google" or "yahoo". These names are defined +in the `w3m-search-engine-alist' variable. + + +File: emacs-w3m.info, Node: Adding New Search Engines, Prev: Quick Searching, Up: Using Search Engines + +4.1.3 Using your favorite engines +--------------------------------- + +Emacs-w3m has a number of built-in search engines you can use. What if +you want to use your favorite search engine and it's not listed in the +known search engines? You have to add it to the list of search +engines, and it's quite easy: + + 1. First, you have to find what's the entry point of the search + engine you want to add, for example: + + `http://my.searchengine.com/?query=foobar' + + where foobar is the term you want to search for. + + 2. Once you have this information, add this to your `~/.emacs-w3m' + file: + + (eval-after-load "w3m-search" + '(add-to-list 'w3m-search-engine-alist + '("My engine" + "http://my.searchengine.com/?query=%s" + nil))) + + Replace the first field "My engine" with the description of your + engine, the second field with the entry point (the `%s' is + important, it will be replaced by the search term when you issue + the search), and the third field is the encoding to use, `nil' or + omitting this field means to use the value of + `w3m-default-coding-system' as a regular encoding. + + For English search engines, you rarely have to worry about this. + However, for some Japanese search engines, you may need to specify + something (e.g. `euc-japan') there. + + 3. You can now use this engine to search, using the normal `S' key + (the `s' key for the `Info-like' keymap) in emacs-w3m. If you use + this engine often, you can also add it to the Quicksearch (see + *note Quick Searching::) engines and give it a small prefix, by + adding this to your `~/.emacs-w3m' file instead: + + (eval-after-load "w3m-search" + '(progn + (add-to-list 'w3m-search-engine-alist + '("My engine" + "http://my.searchengine.com/?query=%s" + nil)) + (add-to-list 'w3m-uri-replace-alist + '("\\`my:" w3m-search-uri-replace "My engine")))) + + This way you can also use a URL like `my:foobar' to search for the + term "foobar" with your engine. + + +File: emacs-w3m.info, Node: Grouping URLs, Next: Weather Information, Prev: Using Search Engines, Up: Pretty Good Features + +4.2 Visiting several web pages in one URL +========================================= + +Emacs-w3m can manipulate "group URLs": special URLs that contain +several real URLs. When you open these group URLs, emacs-w3m will open +one buffer for each URL in the group, allowing you to open several pages +in one go. + + To build group URLs, you just have to put together (i.e. concatenate) +all the addresses you want to open, separating them with the ampersand +symbol (that's "&"), and prefixing the grouped URLs with "group:". For +example, suppose you want to visit the GNU Project's homepage, +`http://www.gnu.org/', and the Savannah homepage, +`http://savannah.nongnu.org/': the group URL would be + + `group:http://www.gnu.org/&http://savannah.nongnu.org/' + + Since this syntax can be quite hard to use on a daily basis, this +feature will be most useful when used with very short URLs (Quicksearch +URLs for example, see *note Quick Searching::); or in non-interactive +contexts. + + +File: emacs-w3m.info, Node: Weather Information, Next: Using Antenna, Prev: Grouping URLs, Up: Pretty Good Features + +4.3 It will be fine tomorrow +============================ + + +File: emacs-w3m.info, Node: Using Antenna, Next: Showing Directory Tree, Prev: Weather Information, Up: Pretty Good Features + +4.4 Raise your antenna +====================== + +Antenna is a tool to keep track of changes in web pages. Using Antenna, +you can periodically check if particular pages have been updated, and if +they haven't, know the last time you saw them. + + You can start Antenna using the `A' key in any emacs-w3m buffer. +Alternatively, you can go to the special URL `about://antenna/'; it +does the same thing. + +* Menu: + +* Setting up Antenna:: How to add your web sites to Antenna +* Daily web tracking:: Tracking changes with Antenna + + +File: emacs-w3m.info, Node: Setting up Antenna, Next: Daily web tracking, Up: Using Antenna + +4.4.1 How to add your web sites to Antenna +------------------------------------------ + +If you want to add the visiting web site to Antenna, type the `+' key. +You will be taken to the customization buffer of `w3m-antenna-sites', +with all fields already set up for you. You just have to hit the +buttons "Save for future sessions" and "Finish". + +`+' + Add a URL to the Antenna database. If called with a prefix + argument, ask for a URL instead of adding the current page + (`w3m-antenna-add-current-url'). + + +File: emacs-w3m.info, Node: Daily web tracking, Prev: Setting up Antenna, Up: Using Antenna + +4.4.2 Tracking changes with Antenna +----------------------------------- + +On the Antenna page, you will see two sections: one called "Updated" +and another called "Visited". In the "Updated" section, you will find +websites which have changed since the last Antenna update, and in the +"Visited" section, the websites which haven't. In each section, each +line stands for one website of the Antenna database, and has the +following structure: + + ` * 2002/12/15 16:43 (T) My website' + + The first part is the last time the website was updated, or if this +information is not available, the last time Antenna noticed a change in +this page. + + The `(T)' stands for "Time", it means that the change was detected +because the last modification time of that page has changed since the +last Antenna update. Another possible value here is `S' (for "Size"), +which means that the change has been detected because the size of the +page has changed. + + The last part of this line is the title you gave to this website when +you added it to the database. + + Please note that the Antenna database doesn't get automatically +updated, you have to update it each time you want to check if the sites +have changed, either by hitting `R' in the Antenna page, or by passing a +prefix argument to the command (start Antenna with `C-u A', for +example). + + If you want to make the Antenna database get updated automatically, +set the value of the `w3m-antenna-refresh-interval' variable to a +positive integer which is an interval time in seconds. + +`A' + Visit the Antenna page. If called with a prefix argument, update + the Antenna database before displaying it (`w3m-antenna'). + + +File: emacs-w3m.info, Node: Showing Directory Tree, Next: Viewing Perl Documents, Prev: Using Antenna, Up: Pretty Good Features + +4.5 Showing the tree structure of local directories +=================================================== + +Using the `w3m-dtree' command, you can display a tree of all +subdirectories of a local directory, and browse it like a regular web +page. The emacs-w3m buffer you get when you use this feature is very +similar to the output of the external "tree" utility, hence the name. +Emacs-w3m adds a bonus: if you call the command with a prefix argument, +it will display files as well, turning emacs-w3m into a full-featured +file browser. + + Here is an example of what an emacs-w3m dtree run looks like: + + /home/romain/.elisp/emacs-w3m/ + |-CVS/ + |-attic/ + | +-CVS/ + |-autom4te.cache/ + |-doc/ + | |-CVS/ + | +-emacs-w3m/ + |-icons/ + | +-CVS/ + |-patches/ + | +-CVS/ + +-shimbun/ + +-CVS/ + + And with a prefix argument, you get something like this instead: + + /home/romain/.elisp/emacs-w3m/ (allfiles) + |-(f).cvsignore + |-(f)BUGS.ja + |-(f)COPYING + |-[d]CVS/ + | |-(f)Entries + | |-(f)Repository + | +-(f)Root + |-(f)ChangeLog + |-(f)ChangeLog.1 + |-(f)Makefile + |-(f)Makefile.in + |-(f)README + |-(f)README.ja + +`D' (Lynx-like keymap) +`T' (Info-like keymap) + Prompt for a local directory in the minibuffer, then display its + tree structure. If called with a prefix argument (e.g. `C-u D', or + `C-u T' for the `Info-like' keymap), show files in the directories + as well (`w3m-dtree'). + + +File: emacs-w3m.info, Node: Viewing Perl Documents, Next: Using Namazu, Prev: Showing Directory Tree, Up: Pretty Good Features + +4.6 Viewing perl documents +========================== + + +File: emacs-w3m.info, Node: Using Namazu, Next: Octet, Prev: Viewing Perl Documents, Up: Pretty Good Features + +4.7 Searching files with Namazu +=============================== + +(under translation) + + +File: emacs-w3m.info, Node: Octet, Next: Frame Local Buffers, Prev: Using Namazu, Up: Pretty Good Features + +4.8 Viewing data in various octal form +====================================== + +(under construction) + + These following lines in your `~/.emacs' may help you to browse +octet data files which are opened with `octet-find-file'. + + (add-hook 'octet-find-file-hook 'view-mode) + (add-hook 'octet-find-file-hook 'w3m-minor-mode) + + +File: emacs-w3m.info, Node: Frame Local Buffers, Next: Session Manager, Prev: Octet, Up: Pretty Good Features + +4.9 Grouping sessions into separate frames +========================================== + +It is possible to manage groups of emacs-w3m sessions in separate +frames. One use for this would be to have two emacs-w3m frames, where +one contains sessions visiting search engines, and the other sessions +visiting news sites. + + Emacs-w3m offers some convenient features that allow you to visit +many web pages at the same time. For instance, you can use tabs (*note +Using Tabs::) to visit many pages in new sessions, or do so using a +special URL beginning with `group:' (*note Grouping URLs::). However, +you may want to group them into separate frames if there are too many +pages. If so, the `w3m-fb-mode' command is for you. Note that you +have to set the `w3m-use-tab' variable to non-`nil' (`t' by default) +and set the `w3m-pop-up-frames' variable to `nil' (the default) in +order to use it (*note General Variables::). + + Typing `M-x w3m-fb-mode' toggles the mode, but you can turn the mode +on by giving a positive integer as a prefix argument to the command +(zero or less turns it off). + + When the `w3m-fb-mode' is turned on, the sessions that you start in +the current frame will be associated with only that frame. Other +sessions that are opened in other frames will similarly only appear in +those frames. In other words, sessions associated with one frame don't +appear in other frames. `w3m-fb-mode' doesn't create any new frames, +so you need to make them yourself in some way. + + +File: emacs-w3m.info, Node: Session Manager, Prev: Frame Local Buffers, Up: Pretty Good Features + +4.10 Saving and loading sessions +================================ + +It is possible to save and load the emacs-w3m sessions sets. + + You can save the set of the currently opened sessions for the future +use. Just hit `M-S' and name the set. + + Then you will ask how to take the saved sessions set back, won't you? +Hit `M-s' to open the sessions selection menu. The available command +keys include: + +`<RET>' + Open all the sessions of the selected sessions set. + +`M-s' + Open the detail menu for the selected sessions set. You can open + the sessions one by one in that menu. + +`d' + Delete the selected sessions set or the session. + +`r' + Rename the selected sessions set. + +`s' + Save all the opened sessions. So does `M-S'. + +`n' + Move the cursor to the next sessions set. + +`p' + Move the cursor to the previous sessions set. + +`q' + Quit the sessions selection menu. + + Emacs-w3m saves some sessions automatically. If +`w3m-session-deleted-save' is non-`nil', emacs-w3m saves the closed +sessions automatically. This would be helpful for recovering a session +that has been closed inadvertently. If `w3m-session-automatic-save' is +non-`nil', emacs-w3m saves the opened sessions automatically when +quitting emacs-w3m. + + Sometimes you might forget the URLs of the pages you viewed with the +interest. Of course emacs-w3m helps you even in such a case. If +`w3m-session-load-last-sessions' is non-`nil', emacs-w3m automatically +opens the sessions set viewed last. If it is `ask', you will be asked +whether to take the set back (default `nil'). + + You may have had a bad experience with a crash. It makes you +disappointing, and makes displayed web pages lost. Emacs-w3m helps you +also in such a case. If `w3m-session-crash-recovery' is non-`nil', +emacs-w3m saves displayed sessions set to use for crash recovering +automatically and recovers saved sessions when emacs-w3m (or emacs, +etc) crashes (default `t'). If `w3m-session-load-crashed-sessions' is +non-`nil', emacs-w3m automatically recovers the crashed sessions set. +If it is `ask', you will be asked whether to recover the set (default +`ask'). + + +File: emacs-w3m.info, Node: Customizable Variables, Next: Hooking into MUAs, Prev: Pretty Good Features, Up: Top + +5 Customizable variables +************************ + +A lot of emacs-w3m variables are customizable via the Custom mechanism, +a graphical Emacs interface to define user options. Custom offers +several methods to define your customizations, you can use for example +`M-x customize-option' for a single option (i.e. an Emacs Lisp +variable) or `M-x customize-group' to see all available options +(including variables and faces) for a "group" and change them; in which +case the group to use is `w3m'. + + Alternatively (if you don't want to use Custom), you can put +arbitrary Emacs Lisp expressions in your emacs-w3m initialization file, +which is `~/.emacs-w3m' by default. This example: + + (setq w3m-home-page "http://emacs-w3m.namazu.org/") + +would set the default homepage to `http://emacs-w3m.namazu.org/'. The +syntax to use is the same as in your `~/.emacs' file. *Note Init File: +(emacs)Init File. + + Please note that some variables from external modules could be +undefined at the time the `~/.emacs-w3m' file is loaded, thus making +them impossible to modify (of course if you don't care about the default +value, you can override them completely in your `~/.emacs-w3m') file. +The `w3m-search-engine-alist' variable is a typical example (*note +Search Variables::). + +`w3m-init-file' + When emacs-w3m starts, it will read the `w3m-init-file' file. The + default value is `~/.emacs-w3m'. You probably don't need to change + this. This is a normal Emacs Lisp file and can be used to avoid + cluttering your `~/.emacs' and `site-init' files with emacs-w3m + stuff. Emacs-w3m will also check for files with the same names as + this, but with `.elc' and `.el' extensions (in other words, + `~/.emacs-w3m.elc', `~/.emacs-w3m.el' and `~/.emacs-w3m', in this + order). + +* Menu: + +* General Variables:: General variables +* Image Variables:: Variables related to images +* Form Variables:: Variables related to forms +* Cookie Variables:: Variables related to cookies +* Bookmark Variables:: Variables related to bookmarks +* Search Variables:: Variables related to searching the web +* Weather Variables:: Variables related to weather information +* Dtree Variables:: Variables related to the dtree feature +* Antenna Variables:: Variables related to antenna +* Perldoc Variables:: Variables related to perldoc +* Namazu Variables:: Variables related to namazu +* Octet Variables:: Variables related to the octet feature +* Session Manager Variables:: Variables related to session manager +* Hooks:: Hooks +* Other Variables:: Other variables + + +File: emacs-w3m.info, Node: General Variables, Next: Image Variables, Up: Customizable Variables + +5.1 General variables +===================== + +`w3m-accept-languages' + List of acceptable languages in descending order of priority. The + default value is set according to the `accept_language' entry of + the `w3m' configuration file (normally `~/.w3m/config'). + +`w3m-add-referer' + Rule of sending referers. There are five choices as the valid + values of this option. + + 1. `nil': this means that emacs-w3m never send referers. + + 2. `t': this means that emacs-w3m always send referers. + + 3. `lambda': this means that emacs-w3m send referers only when + both the current page and the target page are provided by the + same server. + + 4. a cons cell keeping two regular expressions: this means that + emacs-w3m send referers when the url of the current page + matches the first regular expression and does not match the + second regular expression. `Nil' for the regexp matches any + url. + + 5. a function: emacs-w3m send referers when this function which + has two arguments, URL and REFERER, returns non-`nil'. + + If you're nervous about leaking private WEB browsing history + information, set this option to `nil' or `lambda'. If your + computer belongs to a secret network, you may set a pair of + regular expressions to inhibit sending referers which will + disclose your private information, as follows: + + (setq w3m-add-referer + '("\\`http:\" + . "\\`http://\\([^./]+\\.\\)*example\\.net/")) + +`w3m-add-user-agent' + Non-`nil' means add the User-Agent field to the request header. + The value of `w3m-user-agent' is used for the field body. + +`w3m-arrived-file' + Name of the file to keep the arrived URLs database. + +`w3m-auto-show' + Non-`nil' means provide the ability to horizontally scroll the + window. Automatic horizontal scrolling happens when the point + gets away from both ends of the window, but nothing occurs if + `truncate-lines' is set to `nil'. + + This feature works with specific emacs-w3m code; usual + `auto-hscroll-mode', `automatic-hscrolling', `auto-show-mode' or + `hscroll-mode' will all be invalidated in emacs-w3m buffers. + +`w3m-charset-coding-system-alist' + Alist of MIME charsets and coding systems. Both charsets and + coding systems must be symbols. + +`w3m-coding-system' + Default coding system used to communicate with the `w3m' command. + +`w3m-coding-system-priority-list' + Coding systems in order of priority used for emacs-w3m sessions. + +`w3m-command' + Name of the executable file of the `w3m' command. You normally + don't have to specify the value, since emacs-w3m looks for the + existing commands `w3m', `w3mmee' and `w3m-m17n' (in this order) + in the `exec-path' directories in order if it is `nil' in the + beginning. + + If you want to use the other `w3m' command, specify the value of + this variable explicitly in the .emacs file or customize the value + and save it. In this case, you need to restart Emacs and + emacs-w3m: there is currently no way to apply the changing of the + `w3m' command to all the emacs-w3m programs safely after loading + the `w3m.elc' module. + +`w3m-command-arguments' + List of the default arguments passed to the `w3m' command. See + also `w3m-command-arguments-alist'. + +`w3m-command-arguments-alist' + Alist of regexps matching urls and additional arguments passed to + `w3m'. A typical usage of this variable is to specify whether to + use a proxy server for particular hosts. The first match made + will be used. Here is an example of how to set this variable: + + (setq w3m-command-arguments-alist + '(;; Don't use the proxy server to visit local web pages. + ("^http://\\([^/]*\\.\\)*your-company\\.com\\(/\\|$\\)" + "-no-proxy") + ;; Use the proxy server to visit any foreign urls. + ("" + "-o" "http_proxy=http://proxy.your-company.com:8080/"))) + + Here the first element matches any url where the scheme is `http' + and the hostname is either `your-company.com' or a name ending with + `.your-company.com'; the proxy server is not used for those hosts. + If you are a regexp novice, you can use the `w3m-no-proxy-domains' + variable instead. + +`w3m-command-environment' + Alist of environment variables for subprocesses to inherit. + +`w3m-confirm-leaving-secure-page' + If non-`nil', you'll be asked for confirmation when leaving secure + pages. It is STRONGLY recommended to set a non-nil value to this + option. You MUST understand what you want to do completely before + switching off this option. The default value is `t'. + +`w3m-content-type-alist' + Alist of content types, regexps, commands to view, and filters. + Each element is a list which consists of the following data: + + 1. Content type. + + 2. Regexp matching a url or a file name. + + 3. Method to view contents. The following three types may be + used: + + a. Lisp function which takes the url to view as an argument. + + b. ("COMMAND" [ARG...]) - where "COMMAND" is the external + command and ARG's are the arguments passed to the command + if any. The symbols `file' and `url' that appear in + ARG's will be replaced respectively with the name of a + temporary file which contains the contents and the + string of the url to view. + + c. `nil' which means to download the url into the local + file. + + 4. Content type that overrides the one specified by `1. Content + type'. Valid values include: + + a. Lisp function that takes three arguments URL, + CONTENT-TYPE, and CHARSET, and returns a content type. + + b. String that specifies a content type. + + c. `nil' that means not to override the content type. + +`w3m-correct-charset-alist' + Alist of MIME charsets; strange ones and standard ones. + +`w3m-db-history-display-size' + Maximum number of arrived URLs which are displayed per page. + +`w3m-decoder-alist' + Alist of encoding types, decoder commands, and arguments. + +`w3m-default-coding-system' + Default coding system used to encode url strings and post-data. + +`w3m-default-content-type' + Default value assumed as the content type of local files. + +`w3m-default-directory' + Directory used as the current directory in emacs-w3m buffers. The + valid values include a string specifying an existing directory, a + symbol of which the value specifies an existing directory, a + function which takes a url as an argument and returns a directory, + and `nil' (which is the default). If the specified directory does + not exist or it is `nil', the value of `w3m-profile-directory' is + used. + + Note that there is an exception: if a page visits a local file or + visits a remote file using ftp, the directory in which the file + exists is used as the current directory instead. + +`w3m-default-save-directory' + Default directory where downloaded files will be saved to. + +`w3m-delete-duplicated-empty-lines' + Non-`nil' means display two or more continuous empty lines into + single. + +`w3m-dirlist-cgi-program' + Name of the CGI program to list a local directory. If it is + `nil', the dirlist.cgi module of the `w3m' command will be used. + +`w3m-doc-view-content-types' + List of content types for which to use `doc-view-mode' to view + contents. This overrides `w3m-content-type-alist'. + +`w3m-edit-function' + Function used for editing local files. It is used when the + `w3m-edit-current-url' command or the `w3m-edit-this-url' command + is invoked. + +`w3m-edit-function-alist' + Alist of functions used for editing pages. This option is + referred to decide which function should be used to edit a + specified page, when either `w3m-edit-current-url' or + `w3m-edit-this-url' is invoked. When no suitable function is + found from this alist, `w3m-edit-function' is used. + +`w3m-enable-google-feeling-lucky' + Non-`nil' enables you to enter any words as well as a url when + prompted. In that case, emacs-w3m uses Google to search for the + words. The default value is `t'. + +`w3m-encoding-type-alist' + Alist of file suffixes and content encoding types. + +`w3m-file-coding-system' + Coding system used when writing configuration files. This value + will be referred to by the `w3m-save-list' function. + +`w3m-file-name-coding-system' + Coding system used to convert pathnames when emacs-w3m accesses + files. + +`w3m-fill-column' + Integer used as the value for `fill-column' in emacs-w3m buffers. + If it is positive, pages will be displayed within the columns of + that number. If it is zero or negative, the number of columns + which subtracted that number from the window width is applied to + the maximum width of pages. Note that XEmacs does not always obey + this setting. + +`w3m-follow-redirection' + Maximum number of redirections which emacs-w3m honors and follows. + If `nil', redirections are followed by the `w3m' command. Don't + set it to `nil' if you allow to use cookies (i.e., you have set + `w3m-use-cookies' to non-`nil') since cookies may be shared among + many redirected pages. + +`w3m-home-page' + This variable specifies the url string to open when emacs-w3m + starts. Don't say HP, it's the abbreviated name of a certain + company. ;-) + +`w3m-horizontal-scroll-columns' + Number of steps in columns used when scrolling a window + horizontally. + +`w3m-horizontal-scroll-division' + Integer used by the program making the point certainly visible. + The cursor definitely does not go missing even when it has been + driven out of the window while wandering around anchors and forms + in an emacs-w3m buffer. + + Suppose that the value of this variable is N. When the point is + outside the left of the window, emacs-w3m scrolls the window so + that the point may be displayed on the position within 1/N of the + width of the window from the left. Similarly, when the point is + outside the right of the window, emacs-w3m scrolls the window so + that the point may be displayed on the position of 1/N of the + width of the window from the right. + + This feature doesn't work if `w3m-auto-show' is `nil'. The value + must be a larger integer than 1. + +`w3m-horizontal-shift-columns' + Number of steps in columns used when shifting a window + horizontally. The term `shifting' means a fine level scrolling. + +`w3m-imitate-widget-button' + If non-`nil', imitate the widget buttons on link (anchor) buttons. + It is useful for moving about in a Gnus article buffer using + `<TAB>' key. It can also be any Lisp form that should return a + boolean value. + +`w3m-init-file' + Your emacs-w3m startup file name. If a file with the `.el' or + `.elc' suffixes exists, it will be read instead. + + Note: This file is used as the startup configuration _NOT_ for the + `w3m' command but for emacs-w3m. In order to modify configurations + for the `w3m' command, edit the file named `~/.w3m/config' + normally. + +`w3m-input-coding-system' + Coding system used when writing to `w3m' processes. It overrides + `coding-system-for-write' if it is not `binary'. Otherwise, the + value of the `w3m-current-coding-system' variable is used instead. + +`w3m-keep-arrived-urls' + Maximum number of URLs which the arrived URLs database keeps. + +`w3m-keep-cache-size' + Maximum number of pages to be cached in emacs-w3m. + +`w3m-key-binding' + Type of key binding set used in emacs-w3m sessions. The valid + values include `info' which provides `Info-like' keys, and `nil' + which provides `Lynx-like' keys. + +`w3m-language' + Your preferred language used in emacs-w3m sessions. + +`w3m-local-directory-view-method' + Symbol of the method to view a local directory tree. The valid + values include `w3m-cgi' using the CGI program specified by the + `w3m-dirlist-cgi-program' variable (which see), and `w3m-dtree' + using the w3m-dtree Lisp module. + +`w3m-local-find-file-function' + Function used to open local files. If a url of the `file:' scheme + in which you entered agrees with the rule of the + `w3m-local-find-file-regexps' variable (which see), it is used to + open the file. + + Function should take one argument, the string naming the local + file. It can also be any Lisp form returning a function. Set + this to `nil' if you want to always use emacs-w3m to see local + files. + +`w3m-local-find-file-regexps' + `Cons' of two regexps matching and not matching with local file + names. If a url of the `file:' scheme in which you entered matches + the first form and does not match the latter form, it will be + opened by the function specified by the + `w3m-local-find-file-function' variable. `Nil' for the regexp + matches any file names. + + For instance, the value `(nil . "\\.html?\\'")' allows + `file:///some/where/w3m.el', not `file:///any/where/index.html', + to open by the function specified by + `w3m-local-find-file-function'. The latter will be opened as a + normal web page. Furthermore, if you would like to view some + types of contents in the local system using the viewers specified + by the `w3m-content-type-alist' variable, you can add regexps + matching those file names to the second element of this variable. + For example: + + (setq w3m-local-find-file-regexps + '(nil . "\\.\\(?:[sx]?html?\\|dvi\\|ps\\|pdf\\)\\'")) + + It is effective only when the `w3m-local-find-file-function' + variable is set properly. + +`w3m-mailto-url-function' + Function used to handle the `mailto' urls. Function is called with + one argument, just a url. If it is `nil', a function specified by + the `mail-user-agent' variable will be used for composing mail + messages. + +`w3m-mailto-url-popup-function-alist' + Alist of `(MAJOR-MODE . FUNCTION)' pairs used to pop a mail buffer + up. If a user clicks on a `mailto' url and a mail buffer is + composed by `mail-user-agent' with the `MAJOR-MODE', `FUNCTION' + will be called with a mail buffer as an argument. Note that the + variables `special-display-buffer-names', + `special-display-regexps', `same-window-buffer-names' and + `same-window-regexps' will be bound to `nil' while popping to a + buffer up. + +`w3m-make-new-session' + Non-`nil' means making new emacs-w3m buffers when visiting new + pages. If it is non-`nil' and there are already emacs-w3m buffers, + the `w3m' command makes a new emacs-w3m buffer if a user specifies + a url string in the minibuffer, and the `w3m-safe-view-this-url' + command also makes a new buffer if a user invokes it in a buffer + not being running the `w3m-mode'. The default value is `nil'. + +`w3m-mbconv-command' + Name of the `mbconv' command provided by the `libmoe' package. + The `libmoe' package is used when you use the `w3mmee' command + instead of the `w3m' command. See also `w3m-command'. + +`w3m-no-proxy-domains' + List of domain names for which emacs-w3m will not use a proxy + server. Each element should be exactly a domain name which means + the latter common part of the host names, not a regexp. + +`w3m-output-coding-system' + Coding system used when reading from `w3m' processes. + +`w3m-pop-up-frames' + Non-`nil' means pop to a new frame up for an emacs-w3m session. + This variable is similar to `pop-up-frames' and does override + `w3m-pop-up-windows'. If `w3m-use-tab' is non-`nil' or there is + the buffers selection window (for the `w3m-select-buffer' + feature), this variable is ignored when creating the second or more + emacs-w3m session. + +`w3m-pop-up-windows' + Non-`nil' means split the windows when a new emacs-w3m session is + created. This variable is similar to `pop-up-windows' and quite + overridden by `w3m-pop-up-frames' as if `pop-up-frames' + influences. Furthermore, if `w3m-use-tab' is non-`nil' or there + is the buffers selection window (for the `w3m-select-buffer' + feature), this variable is ignored when creating the second or more + emacs-w3m session. + +`w3m-popup-frame-parameters' + Alist of frame parameters used when creating a new emacs-w3m + frame. It allows not only the alist form but also XEmacs' plist + form. + +`w3m-prefer-cache' + Non-`nil' means that cached contents are used without checking + headers. + +`w3m-profile-directory' + Directory where emacs-w3m config files are loaded from or saved to. + +`w3m-quick-start' + Non-`nil' means let emacs-w3m start quickly w/o requiring + confirmation. When you invoke the `w3m' command, it attempts to + visit the page of a string like url around the cursor or the value + of `w3m-home-page'. You won't be asked for the confirmation then + if this value is non-`nil'. Otherwise, you will be prompted for + that url with the editing form. + +`w3m-redirect-with-get' + If non-`nil', use the GET method after redirection. It controls + how emacs-w3m works when a server responds the code 301 or 302. + Here is an extract from RFC2616: + + Note: RFC 1945 and RFC 2068 specify that the client is not allowed + to change the method on the redirected request. However, most + existing user agent implementations treat 302 as if it were a 303 + response, performing a GET on the Location field-value regardless + of the original request method. + +`w3m-relationship-estimate-rules' + Rules to estimate relationships between a retrieved page and + others. + +`w3m-select-buffer-horizontal-window' + Non-`nil' means split windows horizontally to open the selection + window. + +`w3m-select-buffer-window-ratio' + The percentage of the selection window to the whole frame. The + car is used when splitting windows horizontally and the cdr is for + splitting windows vertically. + +`w3m-show-decoded-url' + Non-`nil' means show decoded URIs in the echo area, the balloon, + etc. This variable can take one of the following five kinds of + forms: + + 1. t + + Decode URIs using the encoding guessed from the value of + `w3m-coding-system-priority-list'. + + 2. Coding system + + Decode URIs using this value. + + 3. List of coding systems + + Decode URIs using the encoding assumed based on this list. + + 4. Alist of predicates and forms described below: + + Each element looks like the `(PREDICATE . ENCODING)' form. + `PREDICATE' should be a regexp, a function or a Lisp form, and + `ENCODING' should be one of the forms described here + excluding this form. If `PREDICATE' is a regexp, it will be + tested whether it matches to the target url. If it is a + function, it will be called with the target url. If it is a + Lisp form, it will be simply evaluated. Elements are tested + in turn until the result of the test of the predicate is true + and the encoding which is associated to the predicate is used + for decoding URIs. + + 5. nil + + Don't decode URIs. + +`w3m-use-title-buffer-name' + Non-`nil' means use name of buffer included current title. + +`w3m-show-error-information' + Non-`nil' means show an error information as a web page. Page is + made when the foreign server doesn't respond to a request to + retrieve data. + +`w3m-space-before-favicon' + String of space char(s) to be put in front of favicon in the + mode-line. It may be better to use two or more spaces if you are + using oblique or italic font in the modeline. + +`w3m-space-before-modeline-icon' + String of space character(s) to be put in front of the modeline + icon. It may be better to use one or more spaces if you are using + oblique or italic font in the modeline. + +`w3m-terminal-coding-system' + Default coding system used when writing to `w3m' processes. It is + just a default value to set process' coding system initially. + (This variable name is analogically derived from the behavior of + the `w3m' command which accepts data from Emacs just like reads + from the terminal.) + +`w3m-touch-command' + Name of the executable file of the touch command. Note that the + command is required to be able to modify file's timestamp with the + `-t' option. + +`w3m-track-mouse' + Whether to track the mouse and message the url under the mouse. + See also `show-help-function' if you are using GNU Emacs. + + A tip for XEmacs users: + + You can also use the `balloon-help' feature by the + `M-x balloon-help-mode' command with arg 1. If the window manager + decorates the balloon-help frame, and that is not to your taste, + you may strip it off with the following directives: + + For ol[v]wm use this in .Xdefaults: + olvwm.NoDecor: balloon-help + or + olwm.MinimalDecor: balloon-help + + For fvwm version 1 use this in your .fvwmrc: + NoTitle balloon-help + or + Style "balloon-help" NoTitle, NoHandles, BorderWidth 0 + + For twm use this in your .twmrc: + NoTitle { "balloon-help" } + + See the `balloon-help.el' file for more information. + +`w3m-uri-replace-alist' + Alist of regexps matching URIs, and some types of replacements. + It can be used universally to replace URI strings in the local + rule to the valid forms in the Internet. + + Each element looks like the `(REGEXP FUNCTION OPTIONS...)' form. + `FUNCTION' takes one or more arguments, a uri and `OPTIONS'. You + can use the grouping constructs `\\(...\\)' in `REGEXP', and they + can be referred by the `\N' forms in a replacement (which is one + of `OPTIONS'). + + Here are some predefined functions which can be used for those + ways: + + `w3m-pattern-uri-replace' + Replace a URI using PATTERN (which is just an `OPTION'). It + is allowed that PATTERN contains the `\N' forms in the same + manner of `replace-match'. + + `w3m-search-uri-replace' + Generate valid URLs to query words on some specified search + engines. For example, the element + + ("\\`gg:" w3m-search-uri-replace "google") + + makes it possible to replace the URI `gg:emacs' to a query + for the word `emacs' on the Google search engine. + +`w3m-url-local-directory-alist' + Alist of URLs and local directories. If directory names of a + given URL and the car of an element are the same, emacs-w3m + assumes that the file exists in the local directory where the cdr + of an element points to. The default value will be set to a value + of the `yahtml-path-url-alist' variable which exchanged the car + and the cdr in each element if it is available. + +`w3m-use-ange-ftp' + Non-`nil' means that `ange-ftp' or `efs' is used to access FTP + servers. + +`w3m-use-cygdrive' + If non-`nil', use the `/cygdrive/' rule when performing + `expand-file-name'. + +`w3m-use-filter' + Non-`nil' means use filter programs to convert web contents. See + also `w3m-filter-rules' (the `w3m-filter.elc' module provides it + but might have never been loaded. In that case, to see the default + value and the documentation of `w3m-filter-rules', type + `M-x load-library <RET> w3m-filter <RET>'). + +`w3m-use-form' + Non-`nil' means make it possible to use form extensions. + _(EXPERIMENTAL)_ + +`w3m-submit-form-safety-check' + Non-`nil' means ask you for confirmation when submitting a form. + The default value is `nil'. + +`w3m-use-header-line' + Non-`nil' means display the header line. + +`w3m-use-header-line-title' + Non-`nil' means display the current title at the header line. This + variable is effective only when `w3m-use-tab' is `nil'. + +`w3m-use-mule-ucs' + Non-`nil' means use the multi-script support with Mule-UCS. + +`w3m-use-refresh' + Non-`nil' means honor the REFRESH attribute in META tags. + Emacs-w3m arbitrarily takes you to a url specified by that + attribute. Note that they may be malicious traps. + +`w3m-refresh-minimum-interval' + Minimum seconds to wait for refresh, when visiting a page by + history-back or history-next. + +`w3m-use-symbol' + Non-`nil' means replace symbols that the `<_SYMBOL>' tags lead + into. It is meaningful only when the `w3m-m17n' command is used + and (X)Emacs handles unicode charsets. + +`w3m-menu-on-forefront' + Non-`nil' means place the emacs-w3m menus on the forefront of the + menu bar. The default value is `nil'. + +`w3m-use-tab' + Non-`nil' means make emacs-w3m a tab browser. It makes it possible + to show all emacs-w3m buffers in a single window with the tabs + line, and you can choose one by clicking a mouse on it. See also + `w3m-use-tab-menubar'. + +`w3m-use-tab-menubar' + Non-`nil' means use the TAB pull-down menu in the menubar. It + makes it possible to show all emacs-w3m buffers in a single + window, and you can choose one by clicking a mouse on it. This + feature requires that Emacs has been built to be able to display + multilingual text in the menubar if you often visit web sites + written in non-ascii text. See also `w3m-use-tab'. + +`w3m-use-toolbar' + Non-`nil' activates toolbar of `w3m'. + +`w3m-user-agent' + String used for the User-Agent field. See also + `w3m-add-user-agent'. + +`w3m-new-session-in-background' + Say whether not to focus on a new tab or a new session in target. + It influences only when a new emacs-w3m buffer is created. + +`w3m-do-cleanup-temp-files' + Non-`nil' enables emacs-w3m's auto cleanig forgotten temporary + files feature. The default is `nil'. + + +File: emacs-w3m.info, Node: Image Variables, Next: Form Variables, Prev: General Variables, Up: Customizable Variables + +5.2 Variables related to images +=============================== + +`w3m-default-display-inline-images' + Non-`nil' means display images inline in emacs-w3m buffers. You + can toggle the visibility of images with the + `w3m-toggle-inline-images' command. See also + `w3m-toggle-inline-images-permanently'. + +`w3m-favicon-cache-expire-wait' + The cache will be expired after specified seconds passed since + retrieval. If this variable is `nil', never expired. + +`w3m-favicon-cache-file' + Filename of saving favicon cache. It defaults to the file named + `.favicon' under the directory specified by the + `w3m-profile-directory' variable. + +`w3m-favicon-size' + Size of favicon. This value is used as geometry argument for + `convert'. + +`w3m-favicon-type' + Image type of display favicon. + +`w3m-favicon-use-cache-file' + If non-`nil', use favicon cache file. + +`w3m-favicon-default-background' + Color name used as transparent color of favicon image. `Nil' means + to use the background color of the Emacs frame. The null string + "" is special, that will be replaced with the background color of + the header line or the mode line on which the favicon is + displayed. Note that this value is effective only with Emacs 22 + and greater. + +`w3m-icon-directory' + Directory where emacs-w3m should find icon files. + +`w3m-imagick-convert-program' + Program name of ImageMagick's `convert'. + +`w3m-treat-image-size' + Non-`nil' means let the `w3m' command mind the ratio of the size + of images and text. The default value is `t'. + + If it is non-`nil', the `w3m' command will make a `halfdump' which + reserves rectangle spaces in which images will be put, and also + `alt' texts will be truncated or padded with spaces so that their + display width will be the same as the width of images. + + See also `w3m-pixels-per-character' and `w3m-pixels-per-line'. + Those values will be passed to the `w3m' command in order to + compute columns and lines which images occupy. + +`w3m-pixels-per-character' + Integer used for the `-ppc' argument of the `w3m' command. If + `nil', the width of the default face is used. It is valid only + when `w3m-treat-image-size' is non-`nil'. The default value is + `nil'. If you want to use emacs-w3m in a character terminal and + make `w3m-treat-image-size' effective, you need to set this + variable properly. + +`w3m-pixels-per-line' + Integer used for the `-ppl' argument of the `w3m' command. If + `nil', the height of the default face is used. It is valid only + when `w3m-treat-image-size' is non-`nil'. Note that a small value + may not induce a good result. The default value is `64'. If you + want to use emacs-w3m in a character terminal and make + `w3m-treat-image-size' effective, you need to set this variable + properly. + +`w3m-resize-image-scale' + Number of steps in percent used when resizing images. + +`w3m-resize-images' + If non-`nil', resize images to the specified width and height. + +`w3m-show-graphic-icons-in-header-line' + Non-`nil' means show graphic status indicators in the header-line. + If it is `nil', also the favicon won't be shown in the header-line + even if `w3m-use-favicon' is non-`nil'. This variable is + currently meaningless under XEmacs. + +`w3m-show-graphic-icons-in-mode-line' + Non-`nil' means show graphic status indicators in the mode-line. + If it is `nil', also the favicon won't be shown in the mode-line + even if `w3m-use-favicon' is non-`nil'. + +`w3m-toggle-inline-images-permanently' + Non-`nil' means let the visibility of images continue permanently. + The visibility of images is initialized according to + `w3m-default-display-inline-images' at the first time, and except + that it may be toggled by the `w3m-toggle-inline-images' command, + it does not change hereafter, if it is non-`nil'. Otherwise, + whether images are visible is initialized according to + `w3m-default-display-inline-images' whenever you visit a new page + or reload the current page in an emacs-w3m buffer. + +`w3m-use-favicon' + Non-`nil' means show favicon images if they are available. It will + be set to `nil' automatically if ImageMagick's `convert' program + does not support the ico format. + +`w3m-image-default-background' + Color name used as transparent color of image. `Nil' means to use + the background color of the Emacs frame. The null string "" is + special, that will be replaced with the background color of the + buffer. Note that this value is effective only with Emacs 22 and + greater. + + +File: emacs-w3m.info, Node: Form Variables, Next: Cookie Variables, Prev: Image Variables, Up: Customizable Variables + +5.3 Variables related to forms +============================== + +`w3m-form-input-map-buffer-lines' + Buffer lines for form select map buffer. + +`w3m-form-input-select-buffer-lines' + Buffer lines for form select buffer. + +`w3m-form-input-textarea-buffer-lines' + Buffer lines for form textarea buffer. + +`w3m-form-mouse-face' + Mouse face to highlight selected value. + +`w3m-form-treat-textarea-size' + Non-`nil' means to process textarea size (treat textarea rows). + +`w3m-form-use-fancy-faces' + Use fancy faces to fontify `<form>' tags. + +`w3m-form-use-textarea-backup' + Non-`nil' means save and restore backup text saved when you last + edited this textarea. Files to save text are stored in the + directory specified by the `w3m-form-textarea-directory' variable. + + +File: emacs-w3m.info, Node: Cookie Variables, Next: Bookmark Variables, Prev: Form Variables, Up: Customizable Variables + +5.4 Variables related to cookies +================================ + +`w3m-cookie-accept-bad-cookies' + If `nil', don't accept bad cookies. If `t', accept bad cookies. + If ask, ask user whether accept bad cookies or not. + +`w3m-cookie-accept-domains' + A list of trusted domain name string. + +`w3m-cookie-file' + File in which cookies are kept. + +`w3m-cookie-reject-domains' + A list of untrusted domain name string. + +`w3m-use-cookies' + Non-`nil' means enable emacs-w3m to use cookies. _(EXPERIMENTAL)_ + + +File: emacs-w3m.info, Node: Bookmark Variables, Next: Search Variables, Prev: Cookie Variables, Up: Customizable Variables + +5.5 Variables related to bookmarks +================================== + +`w3m-bookmark-file' + Bookmark file of w3m. + +`w3m-bookmark-file-coding-system' + Coding system for a created bookmark file. This option is used + when a new bookmark file is created, or when an existing bookmark + file includes ASCII characters only. If the coding system which + is used to encode your using bookmark file is different from the + value of this option, emacs-w3m does not change the encoding of + your bookmark file. + +`w3m-bookmark-default-section' + Default section to add new entry. + +`w3m-bookmark-menu-open-new-session' + If non-`nil', "Bookmark" menu item open new session. + + +File: emacs-w3m.info, Node: Search Variables, Next: Weather Variables, Prev: Bookmark Variables, Up: Customizable Variables + +5.6 Variables related to searching the web +========================================== + +`w3m-search-default-engine' + Name of the default search engine. The default is `google'. + +`w3m-search-engine-alist' + An alist of search engines. Each element looks like `(ENGINE + ACTION CODING POST-DATA)'. ENGINE is a string, the name of the + search engine. ACTION is a string, the URL that performs a + search. ACTION must contain a `"%s"', which is substituted by a + query string. CODING is optional value which is coding system for + query string. POST-DATA is optional value which is a string for + POST method search engine. If CODING is omitted, it defaults to + `w3m-default-coding-system'. + +`w3m-search-word-at-point' + Non-`nil' means that the word at point is used as an initial + string. If `transient-mark-mode', this option is ignored and the + region is used as an initial string. The default is `t'. + +`w3m-search-thing-at-point-arg' + Argument for `thing-at-point' used in `w3m-search-read-query'. The + default is `word'. + + +File: emacs-w3m.info, Node: Weather Variables, Next: Dtree Variables, Prev: Search Variables, Up: Customizable Variables + +5.7 Variables related to weather information +============================================ + +`w3m-weather-default-area' + Default region to check weather. The default is the southern part + of Kyoto city. + +`w3m-weather-filter-functions' + Filter functions to remove useless tags. The default value is a + list that contains the following function symbols in this order: + + `w3m-weather-extract-contents' `w3m-weather-adjust-contents' + `w3m-weather-expand-anchors' `w3m-weather-insert-title' + + +File: emacs-w3m.info, Node: Dtree Variables, Next: Antenna Variables, Prev: Weather Variables, Up: Customizable Variables + +5.8 Variables related to the dtree feature +========================================== + +`w3m-dtree-default-allfiles' + If non-`nil', invert the meaning of the prefix argument given to + the `w3m-dtree' command, i.e., the command shows not only + directories but also files even if you don't give a prefix + argument. The default is `nil'. + +`w3m-dtree-directory-depth' + Integer that controls how deep `w3m-dtree' shows subdirectories. + If it is `nil', files in all subdirectories are shown. The default + is `8'. + +`w3m-dtree-indent-strings' + Vector containing strings used for the indentation. The default is + `["|-" "+-" "| " " "]'. + +`w3m-dtree-stop-strings' + Vector containing strings used to indent directories under which + there are subdirectories hidden because of + `w3m-dtree-directory-depth'. The default is `["|=" "+="]'. + + +File: emacs-w3m.info, Node: Antenna Variables, Next: Perldoc Variables, Prev: Dtree Variables, Up: Customizable Variables + +5.9 Variables related to antenna +================================ + +`w3m-antenna-file' + Name of the file containing antenna URLs. The default value is + `~/.w3m/.antenna', where `~/.w3m' is the default value of + `w3m-profile-directory' (*note General Variables::). + +`w3m-antenna-html-skelton' + Skeleton used for making the html contents of antenna pages. + +`w3m-antenna-make-summary-function' + Function used to make the summary of the site information. The + default is `w3m-antenna-make-summary-like-natsumican'. The other + ready-made function is `w3m-antenna-make-summary'. + +`w3m-antenna-sites' + List of web sites that `w3m-antenna' watches. The default is + `nil'. + +`w3m-antenna-sort-changed-sites-function' + Function used to sort a list of sites having been changed. The + default is `w3m-antenna-sort-sites-by-time'. The other ready-made + function is `w3m-antenna-sort-sites-by-title'. + +`w3m-antenna-sort-unchanged-sites-function' + Function used to sort a list of sites having not been changed. The + default is `w3m-antenna-sort-sites-by-time'. The other ready-made + function is `w3m-antenna-sort-sites-by-title'. + + +File: emacs-w3m.info, Node: Perldoc Variables, Next: Namazu Variables, Prev: Antenna Variables, Up: Customizable Variables + +5.10 Variables related to perldoc +================================= + +`w3m-perldoc-command' + Name of the executable file of `perldoc'. The default is + `"perldoc"'. + +`w3m-perldoc-input-coding-system' + Coding system used when writing to the `perldoc' command. The + default value is `euc-japan' if you are in the Japanese language + environment. Otherwise it is `utf-8' if it is available, or + `iso-latin-1'. + +`w3m-perldoc-output-coding-system' + Coding system used when reading from the `perldoc' command. The + default is `undecided'. + +`w3m-perldoc-pod2html-command' + Name of the executable file of `pod2html'. The default is + `"pod2html"'. + +`w3m-perldoc-pod2html-arguments' + Lisp of arguments passed to the `pod2html' command. The default is + `("--noindex")'. + + +File: emacs-w3m.info, Node: Namazu Variables, Next: Octet Variables, Prev: Perldoc Variables, Up: Customizable Variables + +5.11 Variables related to namazu +================================ + +`w3m-namazu-command' + Name of the executable file of Namazu. The default is `namazu'. + +`w3m-namazu-arguments' + List of arguments passed to Namazu. The default value is `("-h" + "-H" "-n" w3m-namazu-page-max "-w" whence)'. The symbols + `w3m-namazu-page-max' and `whence' will be replaced respectively + with the value of that variable and a proper value that the + program determines properly. + +`w3m-namazu-default-index' + An alias for the default index, or the directory name of it. If + this is `nil', you will be prompted for the directory name + whenever you invoke the `w3m-namazu' command with no prefix + argument. The default is the value of `namazu-default-dir' if it + exists and `namazu-always-query-index-directory' is `nil'. + Otherwise `nil'. + +`w3m-namazu-index-alist' + Alist of aliases and index directories. The default value is + determined due to `namazu-dir-alist' if any or `nil'. + +`w3m-namazu-input-coding-system' + Coding system used when reading from the namazu process. The + default is the value of `namazu-cs-read' if it exists, or + `undecided'. + +`w3m-namazu-output-coding-system' + Coding system used when writing to the namazu process. The + default is the value of `namazu-cs-write' if it exists, or is + determined to `shift_jis-dos' or `euc-japan-unix' due to the + system type. + +`w3m-namazu-page-max' + The maximum number of documents retrieved in one search. The + default is the value of `namazu-search-num' if any, or `30'. + + +File: emacs-w3m.info, Node: Octet Variables, Next: Session Manager Variables, Prev: Namazu Variables, Up: Customizable Variables + +5.12 Variables related to the octet feature +=========================================== + +There is no user option for the moment. + + +File: emacs-w3m.info, Node: Session Manager Variables, Next: Hooks, Prev: Octet Variables, Up: Customizable Variables + +5.13 Variables related to session manager +========================================= + +`w3m-session-file' + File name to keep sessions. + +`w3m-session-time-format' + Format of saved time. + +`w3m-session-automatic-title' + String of title to save session automatically. + +`w3m-session-deleted-title' + String of title to save session when buffer delete. + +`w3m-session-crash-recovery-title' + String of title to save session to use for crash recovering. + +`w3m-session-deleted-keep-number' + Number to keep sessions when buffers delete. + +`w3m-session-automatic-keep-number' + Number to keep sessions automatically. + +`w3m-session-unknown-title' + String of title to use when title is not specified. + + +File: emacs-w3m.info, Node: Hooks, Next: Other Variables, Prev: Session Manager Variables, Up: Customizable Variables + +5.14 Hooks +========== + +`w3m-after-cursor-move-hook' + Hook run each time after the cursor moves in emacs-w3m buffers. + This hook is called by the `w3m-check-current-position' function + by way of `post-command-hook'. + +`w3m-delete-buffer-hook' + Hook run when every emacs-w3m buffer is deleted. + +`w3m-display-hook' + Hook run after displaying pages in emacs-w3m buffers. Each + function is called with a url string as the argument. This hook + is evaluated by the `w3m-goto-url' function. + +`w3m-fontify-after-hook' + Hook run after fontifying emacs-w3m buffers. This hook is + evaluated by the `w3m-fontify' function. + +`w3m-fontify-before-hook' + Hook run when starting to fontify emacs-w3m buffers. This hook is + evaluated by the `w3m-fontify' function. + +`w3m-form-input-map-mode-hook' + A hook called after w3m-form-input-map-mode. + +`w3m-form-input-map-set-hook' + A Hook called before w3m-form-input-map-set. + +`w3m-form-input-select-mode-hook' + A hook called after w3m-form-input-select-mode. + +`w3m-form-input-select-set-hook' + A Hook called before w3m-form-input-select-set. + +`w3m-form-input-textarea-mode-hook' + A hook called after w3m-form-input-textarea-mode. + +`w3m-form-input-textarea-set-hook' + A Hook called before w3m-form-input-textarea-set. + +`w3m-minor-mode-hook' + Hook run after `w3m-minor-mode' initialization. + +`w3m-mode-hook' + Hook run after `w3m-mode' initialization. This hook is evaluated + by the `w3m-mode' function. + +`w3m-select-buffer-hook' + Hook run when a different emacs-w3m buffer is selected. + +`w3m-bookmark-mode-hook' + Hook run at the end of function `w3m-bookmark-mode'. + + +File: emacs-w3m.info, Node: Other Variables, Prev: Hooks, Up: Customizable Variables + +5.15 Other variables +==================== + +`w3m-async-exec' + Non-`nil' means execute the `w3m' command asynchronously in Emacs + process. + +`w3m-broken-proxy-cache' + Set it to `t' if the proxy server seems not to work properly in + caching. Note that this may be the double-edged sword; setting it + to `t' will likely be harmful if the proxy server sends bad + requests (e.g., not including the Host header, see RFC2616 section + 14.23) to foreign servers when the `w3m' command specifies the + `no-cache' directive. Also note that it may not be effective if + you are using old `w3m' command. + +`w3m-history-minimize-in-new-session' + Non-`nil' means minimize copied history so that there's only + current page. This variable is effective when creating of the new + session by copying (i.e., `w3m-copy-buffer'). The default value is + `nil'. + +`w3m-history-reuse-history-elements' + Non-`nil' means reuse the history element when re-visiting the + page. Otherwise, a new history element will be created even if + there are elements for the same url in the history. + + Emacs-w3m used to operate as the case in which it is non-`nil', + however it sometimes brought about users' dissatisfaction. For + example, if a user visited the pages A -> B -> C -> B in order, + performing BACK on the second B would let a user visit A. The + reason why a user was taken to A rather than C is that the + `w3m-history' variable only had the list `(A B C)' as a history + and B was the current position at that time. + + The default value for this variable is `nil' which allows the + `w3m-history' variable to have the list `(A B C B)'. Where + contents of two B's are the identical Lisp objects. So, too much + wasting the Lisp resources will be avoided. + + See the documentation for the variables `w3m-history' and + `w3m-history-flat' for more information. + +`w3m-process-connection-type' + Value for `process-connection-type' used when communicating with + `w3m'. + +`w3m-process-modeline-format' + Format used when displaying the progress of the external `w3m' + process. It shows a percentage of the data loaded from the web + server. + +`w3m-show-current-title-in-buffer-tab' + If non-`nil', show the title strings in the buffers tab. It has no + effect if your XEmacs does not support the gutter items. + + +File: emacs-w3m.info, Node: Hooking into MUAs, Next: Frequently Asked Questions, Prev: Customizable Variables, Up: Top + +6 Hooking emacs-w3m into mail/newsreaders +***************************************** + +This section introduces three Message User Agents (MUAs). All those +MUAs can display HTML mails properly using emacs-w3m. You'll find here +HowTo's and some notes about setting up and using emacs-w3m with each +of these MUAs. + + Quick note about the conventions we use: what does `message' mean? +When a Gnus user says `message', it often means a draft of a message to +be sent as mail or news. However, it is the term used by Mew or +Wanderlust users for received mail. They use `draft' for the draft of +a message to be sent. On the other hand, a received message is called +an `article' by Gnus users. + +* Menu: + +* Gnus:: Reading HTML mails in Gnus +* Mew:: Reading HTML mails in Mew +* SEMI MUAs:: Reading HTML mails in SEMI MUAs +* VM:: VM (vieW maiL) is not Wanderlust + + +File: emacs-w3m.info, Node: Gnus, Next: Mew, Up: Hooking into MUAs + +6.1 Reading HTML mails in Gnus +============================== + +Did you know that Gnus, the Emacs newsreader, supports emacs-w3m? +Actually, Gnus bundled with Emacs of which the version is 22.1 or +greater supports emacs-w3m. If your Emacs is somewhat old, you'd better +use the latest version of Gnus. It is available at: + + `ftp://ftp.gnus.org/pub/gnus/gnus.tar.gz' + + * What can you do with emacs-w3m? + + You can convert HTML spam mails to be human-readable using + emacs-w3m. Of course, it works for HTML ham (non-spam) mails as + well, and for both emacs-w3m is probably faster than the default + converter. You don't need to perform any additional operation. + It will simply be displayed. + + On HTML parts of an article buffer, the `w3m-minor-mode' is turned + on and you can use the same main keys as the keys of emacs-w3m, for + instance, `<RET>' is for visiting a page which a link in the + current position points to. Those keys are defined in the + `w3m-minor-mode-command-alist' variable. Keep in mind that some + commands are replaced by others similar to them, for security + reasons (see below). + + * What do you have to do? + + Read the Gnus manual (*note Display Customization: + (emacs-mime)Display Customization.). The easiest way is to put + the following line in your `~/.gnus.el' file: + + (setq mm-text-html-renderer 'w3m) + + Also put the following line if you want to show images inline in + article buffers: + + (setq mm-inline-text-html-with-images t) + + If you don't need to use emacs-w3m keys in article buffers, add the + following line too: + + (setq mm-inline-text-html-with-w3m-keymap nil) + + * Notes + + The above description about spam and ham is not for kidding, it's + just here to get your attention. Some HTML mails might contain a + nasty trick used by spammers, using the `<img>' tag which is far + more evil than the `Click Here!' button. It is most likely + intended to check whether the ominous spam mail has reached your + eyes or not, in which case the spammer knows for sure that your + email address is valid. It is done by embedding an identifier + string into a URL that you might automatically retrieve when + displaying the image. If the `mm-w3m-safe-url-regexp' variable + has not been changed from the default value, Gnus will never + connect to the spammer's site arbitrarily. + + You can display images inline in an article buffer if you set + `mm-inline-text-html-with-images' to `t', can't you? No, not + exactly: you're still being protected. If you don't care about + leaking information (i.e. the fact that your mail address is + reachable), set the `mm-w3m-safe-url-regexp' variable to `nil'. + The default value for `mm-w3m-safe-url-regexp' is `"\\`cid:"' + which means we consider that images included in a mail with the + `cid:' URL are safe (that is, you can display such images without + modifying the `mm-w3m-safe-url-regexp' variable). + + * Giveaway + + Even when you are in the summary buffer, you can toggle displaying + of images in the article buffer. It is effective only when those + images are displayed by emacs-w3m, though. Here's an example: + + (defun gnus-summary-w3m-safe-toggle-inline-images (&optional arg) + "Toggle displaying of all images in the article buffer. + If the prefix arg is given, force displaying of images." + (interactive "P") + (with-current-buffer gnus-article-buffer + (let ((st (point-min)) + (nd (point-max)) + (w3m-async-exec w3m-async-exec)) + (save-restriction + (widen) + (if (or (> st (point-min)) (< nd (point-max))) + (setq w3m-async-exec nil)) + (article-goto-body) + (goto-char (or (text-property-not-all (point) (point-max) + 'w3m-safe-url-regexp nil) + (point))) + (if (interactive-p) + (call-interactively 'w3m-toggle-inline-images) + (w3m-toggle-inline-images arg)))))) + + (eval-after-load "gnus-sum" + '(define-key gnus-summary-mode-map + "\C-i" 'gnus-summary-w3m-safe-toggle-inline-images)) + +See also *note Nnshimbun::. + + +File: emacs-w3m.info, Node: Mew, Next: SEMI MUAs, Prev: Gnus, Up: Hooking into MUAs + +6.2 Reading HTML mails in Mew +============================= + +By using emacs-w3m with Mew, you can see HTML mails as it intended to be +displayed. To do so, put the following line in the `~/.mew.el' file: + + (require 'mew-w3m) + +With just this, an HTML mail will be displayed in the message window as +if it were a plain text. You can still use the `C-c C-e' command +(`mew-summary-execute-external') there. + + It is also quite common these days to see mails containing the same +information twice, they use the `multipart/alternative' format which +consists of both a `text/plain' part and a `text/html' part (what a +waste of bandwidth it is). Mew displays only the `text/plain' part of +such a mail by default. However, you perhaps want to see the +`text/html' part since you are using emacs-w3m. If so, add the +following lines to the `~/.mew.el' file: + + (setq mew-mime-multipart-alternative-list + '("Text/Html" "Text/Plain" ".*")) + +There are some customizable variables related to Mew: + +`mew-use-w3m-minor-mode' + If non-`nil', the `w3m-minor-mode' is turned on in the message + buffer where a text/html part is displayed, and you can use the + same main keys as the keys of emacs-w3m, for instance, `<RET>' is + for visiting a page which a link in the current position points + to. Those keys are defined in the `w3m-minor-mode-command-alist' + variable. Keep in mind that some commands are replaced by others + similar to them, for security reasons. The default value is `nil'. + +`mew-w3m-auto-insert-image' + If non-`nil', you can see images inline in the message buffer when + you read a multipart/related message. Note that mew-w3m only + allows images contained in the message body with a `cid:' URL to be + displayed (as we consider them safe). The default value is `nil'. + + To activate this feature, add following in your `~/.mew.el'. + + (define-key mew-summary-mode-map "T" 'mew-w3m-view-inline-image) + + Press "T", toggle the visibility of the images included its message + only. Press "C-uT", display the all images included its Text/Html + part. + +`mew-w3m-cid-retrieve-hook' + A hook run just after retrieving a `cid:' URL. The default value + is `nil'. + +See also *note Mew Shimbun::. + + +File: emacs-w3m.info, Node: SEMI MUAs, Next: VM, Prev: Mew, Up: Hooking into MUAs + +6.3 Reading HTML mails in SEMI MUAs +=================================== + +You can display HTML mails as human-readable, using emacs-w3m and SEMI +MUA, for example, Wanderlust. Since that MUA depends on SEMI (and also +FLIM) for MIME functions, we generically call it SEMI MUA. Although +SEMI uses Emacs/W3 for rendering HTML mails by default, it can easily +be altered to emacs-w3m and it will make your cyber life still more +comfortable. + +You simply need to put the following line in `~/.emacs' file: + + (require 'mime-w3m) + + The `mime-w3m' and `mime-w3' modules are functionally alike, as you +might have guessed (see how the names sound alike?). The latter is +included in the SEMI package. + + On HTML parts of an article buffer, the `w3m-minor-mode' is turned +on and you can use the same main keys as the keys of emacs-w3m, for +instance, `<RET>' is for visiting a page which a link in the current +position points to. Those keys are defined in the +`w3m-minor-mode-command-alist' variable. Keep in mind that some +commands are replaced by others similar to them, for security reasons. + + There are some customizable variables related to the `mime-w3m' +module: + +`mime-w3m-display-inline-images' + If it is non-`nil', images will be displayed inline in HTML mails. + If it is the symbol `default' (which is the default) at the first + time, the value of this variable will be replaced with the value + of the `w3m-default-display-inline-images' variable. You probably + don't need to change this. + +`mime-w3m-safe-url-regexp' + Regexp matching URLs which are considered to be safe. The default + value is `"\\`cid:"' which means we consider that images included + in a mail with the `cid:' URLs are safe. See also *note Gnus:: + about rogue attacks. + +`mime-w3m-setup-hook' + A hook run just after setting up the cooperation of the `mime-w3m' + module and SEMI. The default value is `nil'. + + By the way, even when you are in the summary buffer, you can toggle +displaying of images in the article buffer (which is what is called the +message buffer in the Wanderlust community). It is effective only when +those images are displayed by emacs-w3m, though. Here's an example for +Wanderlust: + + (defun wl-summary-w3m-safe-toggle-inline-images (&optional arg) + "Toggle displaying of all images in the message buffer. + If the prefix arg is given, all images are considered to be safe." + (interactive "P") + (with-current-buffer wl-message-buffer + (w3m-toggle-inline-images arg))) + + (eval-after-load "wl-summary" + '(define-key wl-summary-mode-map + "\M-i" 'wl-summary-w3m-safe-toggle-inline-images)) + + +File: emacs-w3m.info, Node: VM, Prev: SEMI MUAs, Up: Hooking into MUAs + +6.4 VM (vieW maiL) is not Wanderlust +==================================== + +The module vm-w3m.el that provides the feature for VM to display html +mails and a patch have been handed over to the new VM maintainer, +although it has not appeared in the stable version of VM yet. Try +visiting the VM home page (http://www.nongnu.org/viewmail/). + + +File: emacs-w3m.info, Node: Frequently Asked Questions, Next: Known Problems, Prev: Hooking into MUAs, Up: Top + +7 There isn't always an answer +****************************** + +* Menu: + +* General FAQ:: General Questions +* Trouble FAQ:: Troubleshooting +* Shimbun FAQ:: Questions of Shimbun Library + + +File: emacs-w3m.info, Node: General FAQ, Next: Trouble FAQ, Up: Frequently Asked Questions + +7.1 General Questions +===================== + + * Q. What's emacs-w3m? + + It is an interface program on Emacs which controls w3m. For more + information, see *note Introduction::. + + * Q. Which emacs versions are supported? + + The following Emacsen have been checked for emacs-w3m support: + + * Emacs 21 + + * Emacs 22 + + * XEmacs 21.4.17 and later with/without Mule + + * XEmacs 21.5-b19 and later with/without Mule + + * Meadow + + Note that you're required to use APEL if you'd like to run + emacs-w3m under XEmacs. For more information, see *note Other + Requirements::. + + * Q. Which w3m versions are supported? + + The following w3m versions have been checked for emacs-w3m support: + + * w3m-0.3 and later + + * w3mmee-p24-18 + moe-1.5.4 + + Note that w3mmee mentioned as the example is configured with + the `lang=many' option (it can be done by entering 3, when the + `configure' script prompts you, "Which language do you + prefer?"). It also requires the `libmoe' package. + + * Q. I've already installed APEL in the XEmacs SUMO package, is it + ok? + + There are some problems in the XEmacs APEL package (all modules + have been compiled for XEmacs with Mule); for instance, the + `std11' modules conflict with the FLIM's one, etc. Even though + you can use `apel-1.23-pkg.tar.gz' or later for both XEmacs with + Mule and non-Mule XEmacs if you don't use FLIM for the `shimbun' + features, we recommend you replace it or newly install the + original APEL package. See *note Other Requirements:: where to + get it from. + + * Q. I've gotten the developing version of emacs-w3m with CVS, + however I'm missing `configure' script. + + It is necessary to run `autoconf' first, to generate `configure' + script. + + +File: emacs-w3m.info, Node: Trouble FAQ, Next: Shimbun FAQ, Prev: General FAQ, Up: Frequently Asked Questions + +7.2 Troubleshooting +=================== + + * Q. Why can't I enter a password on pages which require + authentication? + + Make sure the `w3m-async-exec' variable is set to a value other + than `nil'. + + * Q. Why can't I enter a password for a proxy server which requires + authentication? + + Make sure the `w3m-async-exec' variable is set to a value other + than `nil'. + + * Q. Why can't I follow links? + + Emacs-w3m requires a version of w3m which recognizes the `-header' + option. Check what version of w3m you use. + + * Q. Why do garbage characters appear? + + It could be caused by the following reasons: + + 1. Bad HTML file + + If the character set specified by the `<meta>' tag differs + from the actual contents in an HTML file, it will not be + displayed correctly. Use the command + `M-x w3m-redisplay-with-charset <RET>' or `C c' to set the + correct character set and to force redisplay of the page. + + 2. Limitation of the character sets + + A page written by a character set other than + ISO-2022-JP(jis), EUC-JP, or SHIFT_JIS may not be displayed + correctly. Try one of the following ways: + + a. Any characters defined in Unicode will be displayed + correctly if you install the Mule-UCS package (*note + Other Requirements::). You need to make sure that the + value of the `w3m-use-mule-ucs' variable is set to a + value other than `nil' after installing the Mule-UCS + package. In addition, if you want to make Emacs (and + also emacs-w3m) handle the character sets EUC-JISX0213 + and ISO-2022-JP-3, you have to install the `jisx0213' + module which is contained in the Mule-UCS package + (though it doesn't work under XEmacs unfortunately). + + b. Install w3mmee or w3m-m17n, and set the `w3m-command' + variable to the appropriate value. And emacs-w3m will + use the multi-lingual features provided by one of those + programs. However, a page written by a coding system + which Emacs doesn't support may not be displayed + correctly. So please install Mule-UCS package if + necessary. + + 3. Emacsen incompatibility + + Under XEmacs 21.1, pages written by the SHIFT_JIS character + set may not be displayed correctly. There is also a problem + in XEmacs 21.2 prior to the beta 36 version. You should + upgrade your XEmacs if you use such one. + + You should notice that XEmacs versions 21.1 and 21.2 have + already been retired officially. + + 4. Don't use `standard-display-european' + + It is generally harmful since it often makes Latin characters + get displayed incorrectly. For instance, the apostrophe + character (`'') which was encoded as `’' will be + displayed as the character `u' with a grave accent as if it + had been encoded as `ù'. If the line something like the + following is in your `~/.emacs' file or site files which + Emacs loads when starting up, we strongly recommend you to + remove it. + + (standard-display-european 1) + + There the argument might be `t', not `1'. + + * Q. Why can't images be shown? + + It could be caused by the following reasons: + + There is a bug in the earlier versions of the `libungif' library. + You have to install `libungif-4.1.0b1' and later. + + You must install the `gifsicle' program if you want to run + emacs-w3m under XEmacs. *Note Other Requirements::. + + Emacs-w3m doesn't support the old versions of w3m. Check what + version of w3m you use. + + * Q. Why can't I browse pages which require cookies? + + (This is still an experimental feature.) + + Make sure the `w3m-use-cookies' variable is set to a value other + than `nil'. + + * Q. Why can't I fill in the form? + + (This is still an experimental feature.) + + Make sure the `w3m-use-form' variable is set to a value other than + `nil'. + + * Q. Why can't I submit a form? + + (This is still an experimental feature.) + + Make sure the `w3m-use-form' variable is set to a value other than + `nil'. You also need to use a version of w3m which recognizes the + `-post' option in order to use this function. Check what version + of w3m you use. + + * Q. Why are frames not rendered? + + Install w3mmee and put the following line in your `~/.emacs' file: + + (setq w3m-command "w3mmee") + + * Q. Why are favicon images not displayed in the tabs line on GNU + Emacs? + + Install the `convert' program which is included in ImageMagick. + It is available from: `http://www.imagemagick.org/' + + * Q. Why does GNU Emacs get locked when a favicon image is going to + be displayed? + + * Q. My computer accesses the disk drive violently and says `process + convert exited abnormally with code 10'. What's the story? + + Do you use an old version of ImageMagick? As far as we know, it + happens when you use the `convert' program bundled with + ImageMagick 5.2.1. It has been confirmed that the `convert' + program bundled with ImageMagick 5.4.0-5 (and later) works fine. + + If you don't want to use ImageMagick, or if you can't use its most + recent version, add the following line in your `~/.emacs-w3m' file: + + (setq w3m-use-favicon nil) + + * Q. Why does not emacs-w3m work with w3mmee? + + If you are using w3mmee configured with the option `lang=en' or + `lang=ja', reconfigure w3mmee with the option `lang=many' (it can + be done by entering 3, when the `configure' script prompts you, + "Which language do you prefer?"), and rebuild w3mmee. + + * Q. Why I cannot visit web pages using emacs-w3m? There is no + problem when visiting local html files or using w3m barefoot, + though. + + What is called the asynch patch(1) is applied to the w3m command + which some Linux distribution (e.g. Gentoo Linux) contains. It is + useful when using w3m barefoot, however it might make emacs-w3m + hang. If it is suspected, we recommend you reinstall the w3m + command from the original source. + + * Q. Why doesn't the emacs-w3m frame pop up to the front? + + It is quite convenient that the `M-x w3m <RET>' command makes the + emacs-w3m frame pop to the front even if it is hidden under the + other frames. However, it was reported that it does not work when + running Emacs which has been built on some platforms (e.g., Fedora + Linux) in which the `metacity' window manager is used. In those + systems, other features which raise the Emacs frames will not work, + either. If you are in such a miserable circumstance, it might be + worth trying the following advice: + + (if (or (not window-system) (featurep 'xemacs)) + nil + (defadvice raise-frame + (after make-it-work (&optional frame) activate) + "Make it work with the aid of wmctrl." + (call-process + "wmctrl" nil nil nil "-i" "-R" + (frame-parameter (or frame (selected-frame)) + 'outer-window-id)))) + + Where `wmctrl' is the external command which you can get from: + + `http://sweb.cz/tripie/utils/wmctrl/' + + Note that you have to install the `wmctrl' command before putting + the advice into the `~/.emacs' file. + + The following one is currently unnecessary for emacs-w3m, but a + certain application needs it to work. (You will lose nothing by + adding it if you are in the platform in which the previous one is + needed.) + + (if (or (not window-system) (featurep 'xemacs)) + nil + (defadvice pop-to-buffer (after enable-it-to-forcus-frame + activate) + "Enable it to focus frame if `pop-up-frames' is non-nil." + (when pop-up-frames + (let ((id (condition-case nil + (frame-parameter + (window-frame + (get-buffer-window (ad-get-arg 0))) + 'outer-window-id) + (error nil)))) + (when id + (call-process + "wmctrl" nil nil nil "-i" "-R" id)))))) + + The last one is perhaps unnecessary but it might be worth trying + in some platforms. + + (if (or (not window-system)(featurep 'xemacs)) + nil + (defadvice select-frame (around set-input-focus + (frame) activate) + "Run `select-frame-set-input-focus'." + (setq ad-return-value (and (framep frame) + (frame-live-p frame) + frame)) + (ad-deactivate 'select-frame) + (unwind-protect + (select-frame-set-input-focus frame) + (ad-activate 'select-frame)))) + + These workarounds will become unnecessary in subsequent Emacs + releases (22.2 or 23.1). + + ---------- Footnotes ---------- + + (1) w3m on cygwin (http://www.page.sannet.ne.jp/knabe/w3m/w3m.html) + + +File: emacs-w3m.info, Node: Shimbun FAQ, Prev: Trouble FAQ, Up: Frequently Asked Questions + +7.3 Questions of Shimbun Library +================================ + + * Q. Why are the `shimbun' modules not installed? + + Note that the `shimbun' modules (files under the `shimbun/' + directory) won't be installed if the FLIM package has not been + installed in your system. + + The `configure' script determines automatically whether the FLIM + package is installed or not. If the FLIM package is installed in + a non-standard directory, the determination fails. In this case, + you can use the `--with-addpath' configure option to explicitly + set the directory name where the FLIM package has been installed. + Here's an example: + + % ./configure --with-addpath=$HOME/share/emacs/site-lisp/flim + + +File: emacs-w3m.info, Node: Known Problems, Next: Shimbun Library, Prev: Frequently Asked Questions, Up: Top + +8 You can surely solve it +************************* + + +File: emacs-w3m.info, Node: Shimbun Library, Next: Tips, Prev: Known Problems, Up: Top + +9 A tool for reading a newspaper +******************************** + +More and more newspapers, mailing list archives, bulletin boards, and +individual diaries (such as hyper nikki system, weblogs and blogs) are +published on the web. `Shimbun' library enables you to read those +contents with your favorite mail/news reader. Actually, `Shimbun' +library provides functions to convert those contents into articles like +common e-mails. + + `Shimbun' is pronounced "she-n-boon" (but actually vowels + shouldn't be prolonged), it means "newspaper" in Japanese. + + The `shimbun' module has the goal to generate articles that are as +readable as normal mail or news posting. This goal is often difficult +to achieve as web sites change the html of their articles. + + If you notice (even small) annoyances like nonsense images within the +text or any other text that is not related to the article please report +them using `report-emacs-w3m-bug' (*note Mailing List::). + + `Shimbun' library currently supports Asahi Shimbun, Yomiuri On-line, +many mailing list archives such as Emacs Devel, XEmacs Beta, Gnus, Mew, +and Wanderlust, Slashdot, Slashdot Japan, and a lot of others. For +more detail, see *note Shimbun Sites::. + + By the way, you have to pay attention to copyright when using +`Shimbun' library. Copyrights of articles generated with `Shimbun' +library are reserved by copyright holders of those original contents. +Therefore, you are obliged not to violate rights of copyright holders, +when you enjoy generated articles. It means that you can enjoy +generated articles on "fair use" that is described in the copyright law. + + We, emacs-w3m development team, give no warranty to you, if +`Shimbun' library causes a damage to you, or if you face a lawsuit +about violation of copyrights. + + `Shimbun' library is a collection of many modules, but each of them +serves no useful purpose alone. This section explains three typical +`Shimbun' applications (two of which are included in the `Shimbun' +library) and how to make `Shimbun' modules by yourself (you need to be +able to write Emacs Lisp programs). + +* Menu: + +* Nnshimbun:: Turning Gnus into a web browser! +* Mew Shimbun:: Reading web newspapers with Mew +* Shimbun with Wanderlust:: Reading web newspapers with Wanderlust +* Shimbun local mode:: Use a shell script to fetch shimbun feeds +* Shimbun Sites:: Sites supported by Shimbun +* Shimbun Basics:: How to make a new shimbun module + + Note that you need to have installed the FLIM package (and Gnus if +you'd like to use `nnshimbun') before building and installing +emacs-w3m. The FLIM package requires the APEL package. You might also +want to see *Note Other Requirements::. + + +File: emacs-w3m.info, Node: Nnshimbun, Next: Mew Shimbun, Up: Shimbun Library + +9.1 Turning Gnus into a web browser! +==================================== + +`Nnshimbun' is a Gnus back end, but it is distributed with emacs-w3m, +not Gnus, exceptionally. `Nnshimbun' allows you to turn Gnus into an +exceptionally useful web browser. You can skim through the articles on +a newspaper's web server without having to see all the advertisement. +You can read articles in mailing list archives as if you were +subscribed to the list. You can also read submissions in bulletin +boards, etc... Note that if you want to followup, you still need to use +emacs-w3m as Gnus can't post via the web with `nnshimbun'. + + See also *note Gnus:: for rendering HTML messages with emacs-w3m if +you use Gnus. + + The easiest way to get started with `nnshimbun' is to use something +like the following in the Group buffer: + + `M-x gnus-group-make-shimbun-group <RET> asahi <RET> national <RET>' + +Replace `asahi' and `national' with the keyword corresponding to the +server you'd like to connect to and the group you're interested in +respectively. You can complete both of those names by using `<TAB>' or +`<SPC>'. + + You can also bind that to a key if there's enough room in the +`gnus-group-mode-map' map, you can add something like the following in +your `~/.gnus.el' file: + + (eval-after-load "gnus-group" + '(define-key gnus-group-mode-map "Gn" + 'gnus-group-make-shimbun-group)) + +Then, you can use `G n' instead of `M-x gnus-group-make-shimbun-group'. + + _Could someone book this keystroke at the Gnus Tower?_ + +Besides this, you can use the `gnus-group-make-shimbun-groups' command +in order to make all groups for the specified server. + + `Nnshimbun' simply fetches HTML contents from the web server and +displays them as an article, but it will never save articles in the +local file system, except if you use persistent articles (*note +Persistent Articles: (gnus)Persistent Articles.). `Nnshimbun' uses NOV +files for each `nnshimbun' group, and its back end is almost the same as +`nnml'. + + The following `nnshimbun' variables can be customized: + +`nnshimbun-keep-backlog' + This variable overrides the `gnus-keep-backlog' variable (*note + Article Backlog: (gnus)Article Backlog.) in `nnshimbun' groups. + If you set `nnshimbun-keep-backlog' to a number N, `nnshimbun' + will store at most N old articles in a buffer for later + re-fetching. If this variable is non-`nil' and is not a number, + `nnshimbun' will store _all_ read articles (this is not a good + idea). The default value is 300. + + Note that smaller values may spoil the `prefetch-articles' feature + (see below), since `nnshimbun' uses the backlog to keep the + prefetched articles. + +`nnshimbun-directory' + Directory where `nnshimbun' saves NOV and marks files. The + default value is `~/News/shimbun/'. This is a server variable + (*note Server Variables: (gnus)Server Variables.). + +`nnshimbun-default-group-level' + The default group level overriding `gnus-level-default-subscribed'. + It will be applied to newly created `nnshimbun' groups. The + default value is `nil'. This is a server variable (*note Server + Variables: (gnus)Server Variables.). + +`nnshimbun-marks-is-evil' + If non-`nil', Gnus will never generate and use marks file for + `shimbun' spools. Using marks files makes it possible to backup + and restore `shimbun' groups separately from `.newsrc.eld'. If + you have, for some reason, set this to `t', and want to set it to + `nil' again, you should always remove the corresponding marks file + (usually named `.marks' in the `shimbun' group directory, but see + `nnshimbun-marks-file-name') for the group. Then the marks file + will be regenerated properly by Gnus. The default value is `nil'. + This is a server variable (*note Server Variables: (gnus)Server + Variables.). + + You can use the specially made group parameter for `nnshimbun' in +addition to the standard group parameters provided by Gnus(1). Several +parameters for `nnshimbun' are collected into the single group +parameter `nnshimbun-group-parameters' which is a property list (the +values can be different for every group). Here's an example: + + '(index-range all prefetch-articles off encapsulate-images on + expiry-wait 6) + + Below is the documentation for those group parameters and related +variables. + +`prefetch-articles' + In a group where this group parameter is set to something else than + `off' or `nil', `nnshimbun' not only checks for new articles, but + also downloads them. Though it will slow checking of new articles + down, you won't be kept waiting when reading articles. In the + group where this group parameter is not set or its value is `nil', + the value of the `nnshimbun-pre-fetch-article' variable (`off' by + default) is used instead. + +`encapsulate-images' + In a group where this group parameter is set to something else than + `off' or `nil', `nnshimbun' will put image data embedded in the + original contents into an article as `multipart/related' parts of + the MIME format. In the group where this group parameter is not + set or its value is `nil', the value of the + `nnshimbun-encapsulate-images' variable is used instead. The + default value for the `nnshimbun-encapsulate-images' variable is + the value of the `shimbun-encapsulate-images' variable which is + provided in the `shimbun' library (the default value is probably + `t'). + +`index-range' + You can specify the range of articles to be fetched from the web + server using the `index-range' group parameter. To specify the + range, use the following values: + + `nil' + `all' + all pages + + `last' + only the latest page + + `integer N' + the latest N pages + + `Nnshimbun' checks whether there are new articles by parsing the + index page of the server. It is possible that there are two or + more index pages on the server. For instance, in the case of the + mailing list servers, index pages are generally classified + according to the date on which the article was posted. It would + take a considerable amount of time to check all those huge index + pages especially if you are connecting via a slow line. + + If it is possible, `nnshimbun' won't check index pages which have + already been checked at the last connection. If you want to save + even more time, use `last'. It makes `nnshimbun' refer to only the + latest index page for checking new articles. + + In the group where the `index-range' group parameter is not set or + its value is `nil', the value of the `nnshimbun-index-range' + variable (`2' by default) is used. + +`nnshimbun-group-parameters-alist' + This is an Emacs Lisp variable, an alist of regexp of group names + and `nnshimbun' group parameters. The default value is `nil'. + Each element may have the form `(REGEXP KEYWORD VALUE KEYWORD + VALUE...)', for example: + + '("^nnshimbun\\+asahi:" index-range all prefetch-articles off + encapsulate-images on expiry-wait 6) + + Since you can use this variable to specify the same `nnshimbun' + group parameters for two or more groups which have similar names + (i.e., those groups are likely to have similar characteristics + each other), it is useful that it can be used instead of + specifying the `nnshimbun' group parameters to several groups + respectively. If the group parameter has already been set in a + group, that takes precedence over this variable. + + You can instruct `nnshimbun' to expire articles(2). Keep in mind +that when an article is expired, it is not deleted from the remote +server, it's still available there. What is deleted is the line in +your own NOV file for `nnshimbun'(3) corresponding to the article to be +expired. Then the article won't appear in the Summary buffer, forever +and ever. + + If you don't expire articles in `nnshimbun' groups, the NOV files +will continue to grow fat indefinitely and you may see very old +articles in the Summary buffer as if they were existing (in fact, they +might have expired three years ago on the remote server!). Even if you +try to read such an article, nothing will appear in the article buffer. +On the other hand, most mailing list servers generally offer all the +past articles. You may not feel like expiring articles in such groups +in order to look back with nostalgia to the good old days and to be +able to read, eyes filled with tears, articles which you thought long +gone. + + You can mark `nnshimbun' articles as expirable and specify the +expiry period in each `nnshimbun' group as well as the other mail back +ends. However, there are a little differences between `nnshimbun' and +the other mail back ends: + + * First of all, the expiry period is determined with the following + priorities. Note that the default value might be different from + group to group. + + 1. The value of the `expiry-wait' group parameter in a group. + + 2. The value produced by evaluating the + `nnmail-expiry-wait-function' variable for a group. + + 3. The default value provided by the `shimbun' module + corresponding to a group. + + 4. The value of the `nnmail-expiry-wait' variable. + + * Second of all, the argument to be passed to the function specified + by the `nnmail-expiry-wait-function' variable will contain the + names of the back end and the server like + "nnshimbun+asahi:national", while only the group name will be + given in the case of the other mail back ends. Here's an example: + + (setq nnmail-expiry-wait-function + (lambda (group) + (cond ((string-equal group "ding") 7) + ((string-equal group "nnshimbun+ding:ding") 'never)))) + + This means that there are two groups for the same ding mailing + list; one is subscribed as a list member, the other is for reading + from the mailing list archive at the Gnus Towers. Ahem, isn't it + clever? The local mail files in the "ding" group will be expired + in seven days and your local disk space will be saved, but you can + read even the articles of the last century in the second group (if + it is really needed, though). + + * Third of all, and this is written down so that you can remember it + when you're filled with doubt: even when all articles from a + `nnshimbun' group should be expired, the most recent one will be + kept. This is not to satisfy your indecisive heart, it's because + the next time you fetch new articles for this group, `nnshimbun' + will know where to begin and not fetch all the articles all over + again. + + The group parameters and the variables related to expiring +`nnshimbun' articles are: + +`expiry-wait' + Don't be confused, please. The `expiry-wait' group parameter is + provided as one of the elements of `nnshimbun-group-parameters', + the specially made group parameter for `nnshimbun'. It has the + same name and the same meaning as the standard group parameter. + You may use whichever you like. If nnshimbun's one is set to + non-`nil' value, it takes precedence over the standard one. It is + provided in order to concentrate things related to `nnshimbun' at + one place of the "Gnus Customize" buffer (which will appear by + typing `G c' in the group buffer) and to realize managing + collectively by the `nnshimbun-group-parameters-alist' variable(4). + The values which can be used are a number of expiry period, `never' + or `immediate' as well as the standard group parameter. + +`nnshimbun-keep-unparsable-dated-articles' + If this variable is non-`nil', the articles of which the time of + creation (or the time of arrival) is unknown will never be expired, + since their age is unknown. The default is `t'. If you set this + variable to `nil', the articles of which the time is unknown will + also be expired unconditionally when the time to expire has come. + Well, it might prove useful for a general cleaning at the end of a + year. + + ---------- Footnotes ---------- + + (1) The easiest way to specify group parameters is to type `G c' in +the group buffer after moving the point to the group you'd like to +customize (*note Group Parameters: (gnus)Group Parameters.). + + (2) There are mainly two ways to expire articles automatically in +the `nnshimbun' groups. One is to add a group name regular expression +(it should begin with "^nnshimbun\\+") to the +`gnus-auto-expirable-newsgroups' variable and to put the expiry period +for each group into the `nnmail-expiry-wait-function' variable. +Another is to set the `auto-expire' group parameter to `t' and to set +the expiry period with the `expiry-wait' group parameter in every +`nnshimbun' group which you want to expire automatically. See *Note +Expiring Mail: (gnus)Expiring Mail, for more information. In the group +to which the `expiry-wait' group parameter is not specified, a default +expiry period will be applied. + + (3) The NOV file for `nnshimbun' is named something like +"~/News/shimbun/asahi/national/.overview". + + (4) We've already prepared the answer to the question that why +`auto-expire' etc. aren't included in the nnshimbun's special group +parameter? The answer is, `expiry-wait' is handled by the `nnshimbun' +back end, but `auto-expire' is handled by the Gnus core. Therefore, it +is contrary to the design policy of Gnus to extend the Gnus core +functions so that it may work for one particular back end (i.e. reading +a value from the nnshimbun's special group parameter). + + +File: emacs-w3m.info, Node: Mew Shimbun, Next: Shimbun with Wanderlust, Prev: Nnshimbun, Up: Shimbun Library + +9.2 Reading web newspapers with Mew +=================================== + +Mew Shimbun is an Emacs Lisp program meant to be used with `shimbun' +and Mew (version 2.1 and later). The `mew-shimbun' module will be +installed together with emacs-w3m if Mew, APEL, and FLIM are also +installed. + + We recommend you also see *note Mew::. + + 1. Setting things up + + Put the following lines in the last of the `~/.mew.el' file: + + ;;; Loading mew-shimbun, defining keys. + ;; (setq mew-shimbun-use-unseen t) ;;; (1) + (require 'mew-shimbun) + (define-key mew-summary-mode-map "G" (make-sparse-keymap)) + (define-key mew-summary-mode-map "Gg" 'mew-shimbun-goto-folder) + (define-key mew-summary-mode-map "GG" 'mew-shimbun-goto-unseen-folder) + (define-key mew-summary-mode-map "Gi" 'mew-shimbun-retrieve) + (define-key mew-summary-mode-map "GI" 'mew-shimbun-retrieve-all) + (define-key mew-summary-mode-map "Gr" 'mew-shimbun-re-retrieve) + (define-key mew-summary-mode-map "GR" 'mew-shimbun-re-retrieve-all) + (define-key mew-summary-mode-map "Ge" 'mew-shimbun-expire) + (define-key mew-summary-mode-map "GE" 'mew-shimbun-expire-all) + + ;; Specifying `shimbun' servers and groups to be read with Mew in the + ;; `mew-shimbun-folder-groups' variable. Each element has the form + ;; `("folder" ("server.group" . range) ...)'. You can use `all', + ;; `last', and a number for the `range' item. + + (setq mew-shimbun-folder-groups + '(;; Fetching `yomiuri.national', `yomiuri.sports', etc. + ;; into the `+shimbun/yomiuri' folder collectively. + ("yomiuri" + ("yomiuri.national" . 2) + ("yomiuri.sports". 2) + ("yomiuri.world". 2)) + ;; Fetching `security-memo.memo' + ;; into `+shimbun/security-memo'. + ("security-memo" + ("security-memo.memo" . 2)) + ("slashdot-jp" + ("slashdot-jp.story" . last)) + ;; You can read several groups in one folder (`+shimbun/emacs') + ;; as follows even if each group comes from a different server. + ("emacs" + ("airw.wl" . last) + ("emacs-w3m.emacs-w3m" . last)) + ;; Fetching diaries into `+shimbun/hns/arisawa' and + ;; `+shimbun/hns/miyoshi' respectively. + ("hns/arisawa" + ("hns.arisawa" . last)) + ("hns/miyoshi" + ("hns.miyoshi" . last)))) + + You did the fundamental setups. For the other user definable + variables, use `M-x customize-group' for the `mew-shimbun' group or + see the source code. + + 2. Reading `shimbun' messages + + a. Getting started + + Type `G I' (`mew-shimbun-retrieve-all') first, after setting + things up as mentioned above. The `shimbun' folders + specified by the `mew-shimbun-folder-groups' variable will be + created under the `+shimbun' parent folder. Typing `G I' is + also useful when you have added new groups. You can change + the name of the parent folder (`+shimbun' by default) by + customizing the `mew-shimbun-folder' variable. + + b. Moving into a `shimbun' folder + + You can move to any folder (including `shimbun') by typing `g' + (`mew-summary-goto-folder'), but `G g' + (`mew-shimbun-goto-folder') is restricted to moving to only + the `shimbun' folder. In addition, folders which have new + messages (in other words, folders which have not been + scanned) will be displayed when using a prefix argument with + `G g' (i.e. `C-u G g'). A prefix argument similarly affects + `G G' as well. + + c. Fetching messages in each folder + + You can fetch new messages for the current folder exclusively + by typing `G i' (`mew-shimbun-retrieve') in a `shimbun' + folder. + + d. Fetching updated messages + + If you perform the `G r' command (`mew-shimbun-re-retrieve') + when a particular message is being displayed, the message + will be updated if it is possible, and new messages will be + fetched. With a prefix argument (i.e. `C-u G r'), it will + attempt to update messages which are marked with the mark + specified by the `mew-shimbun-mark-re-retrieve' variable (`@' + by default). It would be useful for CNET, etc. + + The `G R' command (`mew-shimbun-re-retrieve-all') checks the + freshness of all messages and re-fetches the updated + messages. If a prefix argument is given (i.e. `C-u G R'), + the messages within the region will be processed. It is + probably worthwhile if the site is running the hyper nikki + system (`nikki' means "diary" in Japanese). + + 3. Managing unseen messages + + If you have the following setting in the `~/.mew.el' file, + + (setq mew-shimbun-use-unseen t) + + newly fetched messages will be marked with the mark specified by + the `mew-shimbun-mark-unseen' variable (`*' by default), and it + will disappear automatically after reading the message. + + Normally, the unseen marks will not be saved in the `.mew-cache' + file if scanning is not performed after adding or deleting marks + in the Mew summary mode, but if you add the following line to the + `~/.mew.el' file, + + (setq mew-shimbun-use-unseen-cache-save t) + + the unseen marks will be saved in the `.mew-cache' file + automatically for the `shimbun' groups when exiting Mew or killing + a folder (using `C-c C-q'). However, it is not securely saved + (2). To do this securely, you had better have the habit of + performing the `scan update' command after reading the folder. + + If you don't like the `*' mark for unseen messages, customize the + `mew-shimbun-mark-unseen' variable (see above). By specifying the + mark by `C-u N', you will be able to lead a better life with + taking care of unseen messages. + + 4. Expiring messages + + You can expire messages if you set the `mew-shimbun-expires' + variable beforehand. For example: + + (setq mew-shimbun-expires + '(("yomiuri" . 7) + ("asahi" . 1) + ("slashdot-jp" . 7) + ("emacs" . 7))) + + If you set this variable as shown above, you can specify the expiry + period; 7 days for `+shimbun/yomiuri', 1 day for `+shimbun/asahi'. + Messages in the `shimbun' folder where the expiry period is not + specified will never be expired. You can use the `G e' command + (`mew-shimbun-expire') to expire the expirable messages in the + current folder. The `G E' command (`mew-shimbun-expire-all') is + for expiring the expirable messages in all the `shimbun' folders. + Note that once the messages have been expired, you cannot recover + them. + + 5. How to mark messages with `$' as unseen + + Put the following lines in the `~/.mew.el' file in order to define + the `$' mark and use `$' for the mark of unseen. See + `http://www.mew.org/ml/mew-dist-2.0/msg01251.html' if you would + like to replace the `$' mark with another. + + ;;--------------------------------------------------------------------- + ;;; Code for using `$' as the unseen mark. + (setq mew-mark-unseen ?$) + (setq mew-shimbun-mark-unseen mew-mark-unseen) + (setq mew-mark-show-list (cons mew-mark-unseen mew-mark-show-list)) + (setq mew-mark-afterstep-spec + (cons (cons mew-mark-unseen '(1 0 1 0 0 0 0)) + mew-mark-afterstep-spec)) + (setq mew-mark-spec + (cons (list mew-mark-unseen "unseen" 0 nil nil nil nil nil) + mew-mark-spec)) + (setq mew-highlight-mark-keywords + (cons + (cons mew-mark-unseen 'mew-face-mark-unseen) + mew-highlight-mark-keywords)) + (defface mew-face-mark-unseen + '((((class color) (type tty)) + (:foreground "green")) + (((class color) (background light)) + (:foreground "deep pink" :bold t :italic t)) + (((class color) (background dark)) + (:foreground "thistle")) + (t (:bold t))) + "*Face to highlight the unseen mark" + :group 'mew-highlight) + (defun mew-summary-unseen (&optional count) + "Put the unseen mark(default is '$') in COUNT times." + (interactive "P") + (mew-mark-put-mark-loop (function mew-summary-unseen-one) count nil)) + (defun mew-summary-unseen-one (&optional no-msg) + "Put the unseen mark(default is '$') on this message." + (mew-mark-put-mark mew-mark-unseen no-msg)) + (defun mew-summary-mark-unseen () + "Change the '*' mark into the '$' mark." + (interactive) + (mew-summary-exchange-mark mew-mark-review mew-mark-unseen)) + (defun mew-thread-mark-unseen () + "Put the '$' mark on all messages of the current sub-thread." + (interactive) + (mew-thread-mark mew-mark-unseen)) + + (define-key mew-summary-mode-map "$" 'mew-summary-unseen) + (define-key mew-summary-mode-map "m$" 'mew-summary-mark-unseen) + (define-key mew-summary-mode-map "t$" 'mew-thread-mark-unseen) + ;;--------------------------------------------------------------------- + + ---------- Footnotes ---------- + + (1) Uncomment this line if you'd like to manage unseen messages. It +must be placed before the `(require 'mew-shimbun)' line. + + (2) People who have set the `mew-touch-folder-p' variable to `t' +will succeed 100% in saving marks, but people who use `nil' value seem +not to be 0% successful. + + +File: emacs-w3m.info, Node: Shimbun with Wanderlust, Next: Shimbun local mode, Prev: Mew Shimbun, Up: Shimbun Library + +9.3 Reading web newspapers with Wanderlust +========================================== + +Wanderlust includes `elmo-shimbun' as an ELMO module, so you can read +`shimbun' by just accessing a folder beginning with `@' (*note Shimbun +Folder: (wl)Shimbun Folder.). + + +File: emacs-w3m.info, Node: Shimbun local mode, Next: Shimbun Sites, Prev: Shimbun with Wanderlust, Up: Shimbun Library + +9.4 Using a shell script to fetch shimbun feeds +=============================================== + +If you read lots of `shimbuns', checking those for new articles can +take some time due to emacs-w3m retrieving the feeds one by one. If you +want to speed this up, you can use a shell script to retrieve the feeds, +which you can either call manually (e.g. from within Emacs) or +automatically through schedulers like cron. The feeds must be saved in +specially named files, and emacs-w3m will then use those files instead +of calling w3m. + + The following variables control the local mode: + +`shimbun-use-local' + Setting this to `t' will activate the local mode, meaning that + emacs-w3m will first check if a feed is available as a local file. + If it cannot be found, it will be retrieved through w3m as usual. + +`shimbun-local-path' + This is the directory where the shimbun files are stored. The + default value is `w3m-default-save-directory'. + + The file name for a feed is expected to be the MD5 of the URL, +truncated to the first 10 characters, appended with the string +`_shimbun'. You can easily generate the file name for a feed in Emacs +through + + (concat (substring (md5 "http://example/feed") 0 10) "_shimbun") + + If you use Gnus with `nnshimbun', there is already a function which +will generate a download shell script for all currently subscribed +shimbun groups. Just call `nnshimbun-generate-download-script', and it +will generate the shell script in a new buffer which you can save +afterwards. If you call the function with a prefix, it will put an +ampersand after each w3m call, so that the feeds are retrieved in +parallel. + + +File: emacs-w3m.info, Node: Shimbun Sites, Next: Shimbun Basics, Prev: Shimbun local mode, Up: Shimbun Library + +9.5 Sites supported by Shimbun +============================== + +This section provides the list of sites supported by `shimbun' library. +Unfortunately for people who cannot understand Japanese, almost of +supported sites are written in Japanese. + +* Menu: + +* Newspapers Supported by Shimbun:: +* News Sites Supported by Shimbun:: +* Mailing Lists Supported by Shimbun:: +* Sport Sites Supported by Shimbun:: +* Misc Sites Supported by Shimbun:: + + +File: emacs-w3m.info, Node: Newspapers Supported by Shimbun, Next: News Sites Supported by Shimbun, Up: Shimbun Sites + +9.5.1 Newspapers Supported by Shimbun +------------------------------------- + +These are newspapers that are supported by `shimbun' library. + +Asahi Shimbun (http://www.asahi.com/) + asahi.book asahi.book.column asahi.book.news asahi.book.paperback + asahi.book.review asahi.book.special asahi.business asahi.car + asahi.culture asahi.digital asahi.editorial asahi.edu asahi.english + asahi.food asahi.health asahi.housing asahi.igo asahi.international + asahi.international.asia asahi.international.column + asahi.international.special asahi.international.world asahi.job + asahi.kansai asahi.kansai.entertainment asahi.kansai.kokoro + asahi.kansai.sumai asahi.kansai.taberu asahi.komimi asahi.life + asahi.life.column asahi.national asahi.politics asahi.rss + asahi.science asahi.shopping asahi.shopping.column + asahi.shopping.yakimono asahi.shougi asahi.sports + asahi.sports.baseball asahi.sports.battle asahi.sports.etc + asahi.sports.football asahi.sports.golf asahi.sports.rugby + asahi.sports.usa asahi.sports.winter asahi.tenjin asahi.travel + asahi.wakata + + Those groups generate articles containing only text by default. + If you would like to make them generate HTML articles that contain + not only text but also photographs, add the following line to your + `~/.emacs' file: + + (setq shimbun-asahi-prefer-text-plain nil) + + On the other hand, you can also use the `asahi-html' back end to + generate HTML articles. In order to use it, specify + `asahi-html.business' instead of `asahi.business' as the group + name for example. + +Asahi Shimbun (http://mytown.asahi.com/) + asahi-mytown.(hokkaido...okinawa) + + The Asahi Shimbun local-news sections including all the + prefectures of Japan. + +BBC (http://www.bbc.co.uk/) + bbc.news + +Die Welt (http://www.welt.de/) + welt-de.news + +Die Zeit (http://www.zeit.de/) + zeit-de.auto zeit-de.computer zeit-de.deutschland + zeit-de.feuilleton zeit-de.gesundheit zeit-de.international + zeit-de.leben zeit-de.literatur zeit-de.musik zeit-de.news + zeit-de.reisen zeit-de.schule zeit-de.sport zeit-de.studium + zeit-de.wirtschaft zeit-de.wissen zeit-de.zuender + +Gendai Net (http://gendai.net/) + gendai-net.today gendai-net.syakai gendai-net.sports + gendai-net.geino gendai-net.wadai gendai-net.kenko + gendai-net.syoku gendai-net.book + +Mainichi jp (http://mainichi.jp/) +(This site has been shifted from MSN in October, 2007) + mainichi.flash mainichi.sports mainichi.entertainment + mainichi.entertainment.art mainichi.mantan mainichi.electronics + mainichi.weekly mainichi.opinion.editorial mainichi.opinion.yoroku + mainichi.opinion.hasshinbako mainichi.opinion.eye + mainichi.opinion.hito mainichi.opinion.kinji + mainichi.opinion.yuraku mainichi.opinion.closeup + mainichi.opinion.kaisetsu mainichi.opinion.newsup + + Those groups generate HTML articles containing photographs by + default. If you would like to make them generate articles that + contain only text, add the following line to your `~/.emacs' file: + + (setq shimbun-mainichi-prefer-text-plain t) + +The New York Times (http://www.nytimes.com/) + nytimes.homepage nytimes.news.business + nytimes.news.business.media&advertising + nytimes.news.business.worldbusiness + nytimes.news.business.smallbusiness + nytimes.news.business.yourmoney nytimes.news.business.dealbook + nytimes.news.education nytimes.news.health + nytimes.news.health.policy nytimes.news.health.psychology + nytimes.news.world nytimes.news.world.africa + nytimes.news.world.americas nytimes.news.world.asia + nytimes.news.world.europe nytimes.news.world.middleeast + nytimes.news.us nytimes.news.newyork nytimes.news.newyork.thecity + nytimes.news.newyork.metro nytimes.news.obituaries + nytimes.news.science nytimes.news.science.earth + nytimes.news.science.nutrition nytimes.news.science.space + nytimes.news.sports nytimes.news.sports.basketball.college + nytimes.news.sports.football.college nytimes.news.sports.golf + nytimes.news.sports.hockey nytimes.news.sports.other + nytimes.news.sports.baseball.pro nytimes.news.sports.basketball.pro + nytimes.news.sports.football.pro nytimes.news.sports.soccer + nytimes.news.technology nytimes.news.technology.bits + nytimes.news.technology.circuits nytimes.news.technology.pogue + nytimes.news.washington nytimes.features.arts + nytimes.features.arts.design nytimes.features.arts.music + nytimes.features.arts.television nytimes.features.automobiles + nytimes.features.books nytimes.features.books.review + nytimes.features.dining&wine nytimes.features.fashion + nytimes.features.fashion.thursdaystyles + nytimes.features.fashion.weddings nytimes.features.home&garden + nytimes.features.jobs nytimes.features.magazine + nytimes.features.movie.news nytimes.features.movie.reviews + nytimes.features.realestate nytimes.features.theater + nytimes.features.travel nytimes.features.travel.escapes + nytimes.features.week_in_review nytimes.additional.pop_top + nytimes.opinion.editorial + + The New York Times began to offer news articles for free on + September 19, 2007. In spite of having said `charset=iso-8859-1', + this site often uses the `windows-1252' charset that is a superset + of `iso-8859-1'. `Shimbun' (and also emacs-w3m) works in even + such a case if the `windows-1252' coding system is available in + your (X)Emacs. + +Nikkan Sports (http://www.nikkansports.com/) + nikkansports.flash nikkansports.baseball + nikkansports.baseball.highschool nikkansports.baseball.amateur + nikkansports.baseball.mlb nikkansports.soccer + nikkansports.soccer.japan nikkansports.soccer.world + nikkansports.sports nikkansports.sumo nikkansports.nba + nikkansports.nfl nikkansports.nhl nikkansports.rugby + nikkansports.golf nikkansports.motor nikkansports.battle + nikkansports.race nikkansports.race.kka nikkansports.entertainment + nikkansports.cinema nikkansports.general + +Nihon Keizai Shimbun (http://www.nikkei.co.jp/) + nikkei.top nikkei.main nikkei.keizai nikkei.sangyo nikkei.tento + nikkei.kansai nikkei.it.business nikkei.it.busi_gyoukai + nikkei.it.biz-system nikkei.it.sox nikkei.it.data nikkei.it.taidan + nikkei.it.internet nikkei.it.broad nikkei.it.net_gyoukai + nikkei.it.iptel nikkei.it.tele nikkei.it.broadcast + nikkei.it.internet-column nikkei.it.contents nikkei.it.ec + nikkei.it.policy nikkei.it.e-gov nikkei.it.mobile + nikkei.it.mob_gyoukai nikkei.it.mobsoft nikkei.it.mobcon + nikkei.it.money nikkei.it.one nikkei.it.security + nikkei.it.net_crime nikkei.it.digital nikkei.it.pc nikkei.kokunai + nikkei.markets nikkei.kawase nikkei.kinri nikkei.ft nikkei.dj + nikkei.ngyoseki nikkei.gyosuuchi nikkei.gyoseki nikkei.china + nikkei.market nikkei.kaigai nikkei.seiji nikkei.shakai nikkei.retto + nikkei.sports nikkei.newpro nikkei.release nikkei.release.it.comp + nikkei.release.it.peri nikkei.release.it.sys nikkei.release.it.cont + nikkei.release.it.net nikkei.release.it.lsi nikkei.release.it.game + nikkei.release.it.etc nikkei.release.dist.depart + nikkei.release.dist.ryohan nikkei.release.dist.zakka + nikkei.release.dist.cosme nikkei.release.dist.car + nikkei.release.dist.book nikkei.release.dist.record + nikkei.release.dist.food nikkei.release.dist.mercha + nikkei.release.dist.mail nikkei.release.dist.netshop + nikkei.release.dist.etc nikkei.release.money.bank + nikkei.release.money.sec nikkei.release.money.am + nikkei.release.money.insu nikkei.release.money.etc + nikkei.release.maker.chemi nikkei.release.maker.mecha + nikkei.release.maker.car nikkei.release.maker.elec + nikkei.release.maker.food nikkei.release.maker.sports + nikkei.release.maker.apparel nikkei.release.maker.commu + nikkei.release.maker.etc nikkei.release.service.medic + nikkei.release.service.rest nikkei.release.service.trans + nikkei.release.service.energy nikkei.release.service.enter + nikkei.release.service.env nikkei.release.service.consul + nikkei.release.service.edu nikkei.release.service.haken + nikkei.release.service.life nikkei.release.service.media + nikkei.release.service.lease nikkei.release.service.travel + nikkei.release.service.etc nikkei.release.const.const + nikkei.release.const.house nikkei.release.const.etc nikkei.shasetsu + +MSN Sankei News (http://sankei.jp.msn.com/) +(This site has been shifted to MSN in October, 2007) + sankei.news.shakai sankei.news.kokusai sankei.news.seiji + sankei.news.keizai sankei.news.seikatsu sankei.news.kyouiku + sankei.news.sports sankei.news.cutlure sankei.news.chiho + sankei.special.komori sankei.special.kuroda sankei.special.ito + sankei.special.tamura sankei.special.jieitai sankei.special.kenpo + sankei.special.kyouiku sankei.special.kiko sankei.ronsetsu.shucho + sankei.ronsetsu.sankeisho sankei.ronsetsu.seiron + +Spiegel Online (http://www.spiegel.de/) + spiegel.news + +Sponichi (http://www.sponichi.co.jp/) + sponichi.baseball sponichi.soccer sponichi.usa sponichi.others + sponichi.society sponichi.entertainment sponichi.horseracing + +Sueddeutsche Zeitung (http://www.sueddeutsche.de/) + sueddeutsche-de.alles sueddeutsche-de.nachrichten + sueddeutsche-de.politik sueddeutsche-de.wirtschaft + sueddeutsche-de.finanzen sueddeutsche-de.kino + sueddeutsche-de.kultur sueddeutsche-de.sport + sueddeutsche-de.muenchen sueddeutsche-de.panorama + sueddeutsche-de.leben sueddeutsche-de.gesundheit + sueddeutsche-de.computer + +Yomiuri Shimbun (http://www.yomiuri.co.jp/) + yomiuri.atmoney yomiuri.editorial yomiuri.entertainment + yomiuri.iryou yomiuri.kyoiku yomiuri.kyoiku.children + yomiuri.kyoiku.english yomiuri.kyoiku.qanda + yomiuri.kyoiku.renaissance yomiuri.kyoiku.special yomiuri.national + yomiuri.politics yomiuri.science yomiuri.sports yomiuri.world + + Those groups generate articles containing only text by default. + If you would like to make them generate HTML articles that contain + not only text but also photographs, add the following line to your + `~/.emacs' file: + + (setq shimbun-yomiuri-prefer-text-plain nil) + + On the other hand, you can also use the `yomiuri-html' back end to + generate HTML articles. In order to use it, specify + `yomiuri-html.atmoney' instead of `yomiuri.atmoney' as the group + name for example. + + +File: emacs-w3m.info, Node: News Sites Supported by Shimbun, Next: Mailing Lists Supported by Shimbun, Prev: Newspapers Supported by Shimbun, Up: Shimbun Sites + +9.5.2 News Sites Supported by Shimbun +------------------------------------- + +These are news sites that are supported by `shimbun' library. + +Al Jazeera (http://english.aljazeera.net/) + aljazeera.news aljazeera.africa aljazeera.america + aljazeera.asia-pacific aljazeera.central-asia aljazeera.europe + aljazeera.middle-east aljazeera.focus aljazeera.business + aljazeera.sport aljazeera.programmes + +CNET (http://news.com.com/) + cnet.news cnet.enterprise.software cnet.enterprise.hardware + cnet.security cnet.networking cnet.personal.technology + cnet.newsmakers cnet.perspectives + +CNET Japan (http://japan.cnet.com/) + cnet-jp.general cnet-jp.news cnet-jp.special cnet-jp.opinion + cnet-jp.blog.geetstate cnet-jp.blog.kenn cnet-jp.blog.lessig + cnet-jp.blog.matsumura cnet-jp.blog.nakajima cnet-jp.blog.saeki + cnet-jp.blog.sakamoto cnet-jp.blog.sasaki cnet-jp.blog.sentan + cnet-jp.blog.staff cnet-jp.blog.takawata cnet-jp.blog.watanabe + +CNN Japan (http://www.cnn.co.jp/) + cnn-jp.business cnn-jp.fringe cnn-jp.science cnn-jp.showbiz + cnn-jp.sports cnn-jp.top cnn-jp.usa cnn-jp.world + +De-Bug Magazine (http://www.de-bug.de/) + debugmagazin-de.frontpage debugmagazin-de.musik + debugmagazin-de.reviews debugmagazin-de.magazin + debugmagazin-de.medien debugmagazin-de.podcast + debugmagazin-de.musiktechnik debugmagazin-de.screen + debugmagazin-de.gadgets debugmagazin-de.games debugmagazin-de.mode + +Engadget Japanese (http://japanese.engadget.com/) + engadget-ja.top + +Excite News (http://www.excite.co.jp/) + excite.bit-koneta excite.world-odd + +FAU-IAA (http://www.fau.org/) + fau.news + +Heise Online (http://www.heise.de/) + heise.news heise.telepolis + +Infoshop News (http://news.infoshop.org/) + infoshop.news + +Impress (http://www.watch.impress.co.jp/) + impress.enterprise impress.pc impress.dc impress.akiba impress.av + impress.game impress.k-tai impress.internet impress.bb + impress.forest impress.robot impress.kaden impress.car + +ITmedia (http://www.itmedia.co.jp/) + itmedia.news.bursts itmedia.news.domestic itmedia.news.foreign + itmedia.news.products itmedia.news.technology itmedia.news.web20 + itmedia.news.nettopics itmedia.news.society itmedia.news.security + itmedia.news.industry itmedia.news.research itmedia.news.sp_amd + itmedia.anchordesk itmedia.bizid itmedia.enterprise + itmedia.+D.plusd itmedia.+D.mobile itmedia.+D.pcupdate + itmedia.+D.lifestyle itmedia.+D.games itmedia.+D.docomo + itmedia.+D.au_kddi itmedia.+D.vodafone itmedia.+D.shopping + itmedia.+D.lifestyle.column.asakura + itmedia.+D.lifestyle.column.honda + itmedia.+D.lifestyle.column.kobayashi + itmedia.+D.lifestyle.column.kodera + itmedia.+D.lifestyle.column.nishi + itmedia.+D.lifestyle.column.ogikubo + itmedia.+D.lifestyle.column.tachibana + itmedia.+D.lifestyle.column.takemura + itmedia.+D.lifestyle.column.unakami + +Japan Times (http://www.japantimes.co.jp/) + japantimes.general japantimes.business + +LAUT AG (http://www.laut.de/) + laut-de.news laut-de.platten laut-de.platten_alternative + laut-de.platten_dance laut-de.platten_hiphop platten_jazz + laut-de.platten_metal laut-de.platten_pop laut-de.platten_rnb + laut-de.platten_rock + +N24 (http://www.n24.de/) + n24-de.boerse n24-de.boulevard n24-de.nachrichten n24-de.netnews + n24-de.politik n24-de.sport n24-de.wirtschaft + +Open Tech Press (http://opentechpress.jp/) + opentechpress-jp.general opentechpress-jp.enterprise + opentechpress-jp.opensource opentechpress-jp.security + opentechpress-jp.news opentechpress-jp.pr + +Perlentaucher (http://www.perlentaucher.de/) + perlentaucher-de.aktuell + +Rediff.com (http://www.rediff.com/) + rediff.news + +Slashdot (http://www.slashdot.org/) + slashdot.frontpage slashdot.apple slashdot.askslashdot + slashdot.books slashdot.developers slashdot.games + slashdot.hardware slashdot.interviews slashdot.IT slashdot.linux + slashdot.mobile slashdot.politics slashdot.science + + The following variables are available for configuring the comment + section of the Slashdot shimbun: + + `shimbun-slashdot-get-comments' + If set to `t' (the default), comments will be retrieved for + every article. They are separated from the intro text + through a formfeed character (i.e. "^L"); you can access them + by scrolling the article buffer as usual (for Gnus you can + use the "Next page" button and the "Previous page" button). + Setting this variable to `nil' will deactivate retrieval of + comments. + + `shimbun-slashdot-comment-threshold' + Threshold for displayed comments (default: 3). Can be a + number between -1 (all comments) and 5 (highest rating). + + `shimbun-slashdot-comment-display' + Type of display for the comments (default: "flat"). Can be + either "flat", "thread" or "nested". Note that this must be + a string, not a symbol. + +Slashdot Japan (http://slashdot.jp/) + slashdot-jp.story slashdot-jp.askslashdot slashdot-jp.bookreview + slashdot-jp.bsd slashdot-jp.developers slashdot-jp.interview + slashdot-jp.linux slashdot-jp.mac slashdot-jp.mobile + slashdot-jp.science slashdot-jp.security slashdot-jp.slash + slashdot-jp.it slashdot-jp.hardware slashdot-jp.diary.oliver + + Add appropriate configurations to the variable + `shimbun-slashdot-jp-group-alist', you can browse other diaries + provided at `http://slashdot.jp/'. + +Tech-On! by NikkeiBP (http://techon.nikkeibp.co.jp/) + tech-on.latestnews tech-on.mobile tech-on.bbint tech-on.d-ce + tech-on.AT tech-on.edaonline tech-on.device tech-on.lsi + tech-on.silicon tech-on.observer tech-on.fpd tech-on.mono + tech-on.embedded tech-on.mecha tech-on.MEMS tech-on.nano + tech-on.carele tech-on.board tech-on.mcu tech-on.PLM + tech-on.memory tech-on.measurement tech-on.column.mot + + Tech-On! is a technology news site brought by NikkeiBP. At least + in autumn 2007, it doesn't seem to be, but a login account (that's + for free) was needed to read the whole contents of articles + formerly. If it becomes required again in the future, visit the + registration page + (http://techon.nikkeibp.co.jp/guide/inf_regi.html) to have it. + The following two variables control how you log in: + + `shimbun-tech-on-user-name' + User name to log in on Tech-On! with. If it is `nil', you + will be prompted for a user name when logging in on Tech-On! + with. If it is a string, it will be used as a user name and + you will never be prompted. If it is neither `nil' nor a + string (that is the default), you will never log in. + + `shimbun-tech-on-password' + Password to use to log in on Tech-On! with. If it is `nil', + you will be prompted for a password when logging in on + Tech-On! with. If it is a string, it will be used as a + password and you will never be prompted. If it is neither + `nil' nor a string (that is the default), you will never log + in. + + Entering them is required only once in the Emacs session at the + first time to start reading a Tech-On! article. + +HotWired Japan (http://hotwired.goo.ne.jp/) + wired-jp.news wired-jp.business wired-jp.culture + wired-jp.technology wired-jp.blog.ogura wired-jp.blog.sasaki + wired-jp.blog.takahashi + +Yahoo! Japan (http://headlines.yahoo.co.jp/) + yahoo.topnews yahoo.news yahoo.politics yahoo.society yahoo.people + yahoo.business-all yahoo.market yahoo.stock yahoo.industry + yahoo.international yahoo.entertainment yahoo.sports yahoo.computer + yahoo.zenkoku yahoo.hokkaido yahoo.aomori yahoo.iwate yahoo.miyagi + yahoo.akita yahoo.yamagata yahoo.fukushima yahoo.tokyo + yahoo.kanagawa yahoo.chiba yahoo.saitama yahoo.ibaraki + yahoo.tochigi yahoo.gunma yahoo.yamanashi yahoo.nagano + yahoo.niigata yahoo.toyama yahoo.ishikawa yahoo.fukui yahoo.aichi + yahoo.gifu yahoo.shizuoka yahoo.mie yahoo.osaka yahoo.hyogo + yahoo.kyoto yahoo.shiga yahoo.nara yahoo.wakayama yahoo.tottori + yahoo.shimane yahoo.okayama yahoo.hiroshima yahoo.yamaguchi + yahoo.tokushima yahoo.kagawa yahoo.ehime yahoo.kochi yahoo.fukuoka + yahoo.saga yahoo.nagasaki yahoo.kumamoto yahoo.oita yahoo.miyazaki + yahoo.kagoshima yahoo.okinawa + + The yahoo.news group retrieves the headline news and also the + flash news. Those groups generate HTML articles by default. If + you would like to make them generate articles containing only + text, add the following line to your `~/.emacs' file: + + (setq shimbun-yahoo-prefer-text-plain t) + +ZDNet Japan (http://japan.zdnet.com/) + zdnet-jp.news zdnet-jp.news.network zdnet-jp.news.hardware + zdnet-jp.news.software zdnet-jp.news.manage zdnet-jp.news.security + zdnet-jp.news.internet zdnet-jp.news.os zdnet-jp.news.db + zdnet-jp.news.system zdnet-jp.column zdnet-jp.column.sp1 + zdnet-jp.column.netsecurity1 zdnet-jp.column.ea1 + zdnet-jp.column.btl zdnet-jp.column.solutionIT + zdnet-jp.channel.security zdnet-jp.channel.ilm zdnet-jp.blog.iida + zdnet-jp.blog.mhatta zdnet-jp.blog.kurei zdnet-jp.blog.opensource + zdnet-jp.blog.soa zdnet-jp.blog.dp + +The Onion (http://www.theonion.com/) + the-onion.news + + +File: emacs-w3m.info, Node: Mailing Lists Supported by Shimbun, Next: Sport Sites Supported by Shimbun, Prev: News Sites Supported by Shimbun, Up: Shimbun Sites + +9.5.3 Mailing Lists Supported by Shimbun +---------------------------------------- + +These are mailing list archives supported by `shimbun' library. + +Semi-gnus Mailing List in Japan (http://lists.airs.net/semi-gnus/archive/) + airs.semi-gnus-ja + +Wanderlust Mailing List (http://lists.airs.net/) + airs.wl airs.wl-en + +Big Brother DataBase Mailing List (http://www.rc.tutrp.tut.ac.jp/bbdb-ml/) + bbdb-ml.bbdb-ml + +GNOME Mailing List (http://mail.gnome.org/archives/) + gnome.balsa-list gnome.calendar-list gnome.cvs-commits-list + gnome.foundation-announce gnome.foundation-list gnome.fplan-list + gnome.gconf-list gnome.gdome gnome.gnome-1.4-list + gnome.gnome-announce-list gnome.gnome-components-list + gnome.gnome-db-list gnome.gnome-de gnome.gnome-debugger-list + gnome.gnome-devel-list gnome.gnome-doc-list gnome.gnome-gui-list + gnome.gnome-hackers gnome.gnome-hackers-readonly + gnome.gnome-hackers-test gnome.gnome-i18n gnome.gnome-i18n-tools + gnome.gnome-kde-list gnome.gnome-list gnome.gnome-office-list + gnome.gnome-pilot-list gnome.gnome-sound-list + gnome.gnome-themes-list gnome.gnome-ui-hackers + gnome.gnome-web-list gnome.gnome-webmaster-list + gnome.gnome-workshop-list gnome.gnomecc-list gnome.gnumeric-list + gnome.gtk-app-devel-list gnome.gtk-devel-list gnome.gtk-doc-list + gnome.gtk-i18n-list gnome.gtk-list gnome.gtk-perl-list + gnome.guppi-list gnome.libart gnome.libart-hackers gnome.orbit-list + gnome.vote gnome.wm-spec-list gnome.xml gnome.xslt + +Java Conference Mailing List (http://www.java-conf.gr.jp/archives/) + javaconf.servlet-ml javaconf.business-ml + javaconf.duke-in-the-box-ml javaconf.jfriends-ml javaconf.JGT-ml + javaconf.jini-ml javaconf.ejb-ml javaconf.cm-ml javaconf.horb-ml + javaconf.talk-ml + +LinuxCE JP Mailing List (http://www.peanuts.gr.jp/~kei/ml-archive/) + linuxce-jp.users + +Mule Mailing List (http://www.m17n.org/) + m17n.mule-ja m17n.mule + +Meadow Mailing List (http://www.ysnb.net/meadow/) + meadow.meadow-develop meadow.meadow-users-jp + +Mew Mailing List (http://www.mew.org/ml/) + mew.mew-dist mew.mew-win32 mew.mew-int + +MagicPoint Mailing List (http://www.mew.org/ml/) + mew.mgp-users mew.mgp-users-jp + +www.namazu.org Mailing Lists (http://www.namazu.org/cgi-bin/mailman/listinfo) + namazu.kakasi-commits namazu.kakasi-dev namazu.migemo + namazu.namazu-users-en namazu.namazu-users-ja + namazu.namazu-devel-ja namazu.namazu-devel-en + namazu.namazu-win32-users-ja namazu.sary + +emacs-w3m Mailing List (http://emacs-w3m.namazu.org/ml/) + emacs-w3m.emacs-w3m + +NetBSD JP Mailing List (http://www.jp.netbsd.org/ja/JP/ml/) + netbsd.announce-ja netbsd.junk-ja netbsd.tech-misc-ja + netbsd.tech-pkg-ja netbsd.port-arm32-ja netbsd.port-hpcmips-ja + netbsd.port-mac68k-ja netbsd.port-mips-ja netbsd.port-powerpc-ja + netbsd.hpcmips-changes-ja netbsd.members-ja netbsd.admin-ja + netbsd.www-changes-ja + +Ruby Mailing List (http://blade.nagaokaut.ac.jp/) + ruby.comp.lang.ruby ruby.fj.comp.lang.ruby ruby.ruby-dev + ruby.ruby-ext ruby.ruby-list ruby.ruby-math ruby.ruby-talk + +Toshiba Linux Users JP Mailing List (http://linux.toshiba-dme.co.jp/ML/tlinux-users-j/) + toshiba.linux-users-j + +w3m-dev Mailing List (http://mi.med.tohoku.ac.jp/~satodai/w3m-dev/) + w3m-dev.w3m-dev w3m-dev.w3m-dev-en + +digiko Mailing List (http://yar-3.net/digiko/) + digiko.digiko + +XEmacs Mailing List (http://list-archive.xemacs.org/) + xemacs.xemacs-announce xemacs.xemacs-beta-ja xemacs.xemacs-beta + xemacs.xemacs-build-reports xemacs.xemacs-cvs xemacs.xemacs-design + xemacs.xemacs-mule xemacs.xemacs-nt xemacs.xemacs-patches + xemacs.xemacs-users-ja xemacs.xemacs + +Security MEMO Mailing List (http://memo.st.ryukoku.ac.jp/archive/) + security-memo.memo security-memo.free-memo + security-memo.social-memo + + Please note that userid and passowrd are required for + `security-memo.*' so you have to write; + + machine memo.st.ryukoku.ac.jp + realm input username/password = archives/archives + login archives + passwd archives + + machine memo.st.ryukoku.ac.jp + realm input user: archives / password: archives + login archives + passwd archives + + in `~/.w3m/passwd' and remove group and others access permissions + from the file. + +Debian JP Mailing List (http://lists.debian.or.jp/) + debian-jp.debian-announce debian-jp.debian-devel + debian-jp.debian-www debian-jp.debian-users debian-jp.debian-policy + debian-jp.jp-qa + +Debian Mailing List (http://lists.debian.org) + debian.debian-announce debian.debian-commercial + debian.debian-firewall debian.debian-french debian.debian-isp + debian.debian-italian debian.debian-kde debian.debian-laptop + debian.debian-news debian.debian-news-german + debian.debian-news-portuguese debian.debian-security-announce + debian.debian-testing debian.debian-user debian.debian-user-catalan + debian.debian-user-french debian.debian-user-polish + debian.debian-user-portuguese debian.debian-user-spanish + debian.debian-user-swedish debian.debian-admintool + debian.debian-apache debian.debian-autobuild debian.debian-beowulf + debian.debian-boot debian.debian-cd debian.debian-ctte + debian.debian-debbugs debian.debian-devel + debian.debian-devel-announce debian.debian-devel-french + debian.debian-devel-games debian.debian-devel-spanish + debian.debian-doc debian.debian-dpkg debian.debian-emacsen + debian.debian-events-eu debian.debian-events-na debian.debian-faq + debian.debian-gcc debian.debian-glibc debian.debian-gtk-gnome + debian.debian-hams debian.debian-ipv6 debian.debian-java + debian.debian-jr debian.debian-med debian.debian-mentors + debian.debian-newmaint debian.debian-newmaint-admin + debian.debian-ocaml-maint debian.debian-openoffice + debian.debian-perl debian.debian-pilot debian.debian-policy + debian.debian-pool debian.debian-python debian.debian-qa + debian.debian-qa-private debian.debian-release + debian.debian-security debian.debian-snapshots + debian.debian-tetex-maint debian.debian-toolchain + debian.debian-vote debian.debian-wnpp debian.debian-www + debian.debian-x debian.deity debian.debian-chinese + debian.debian-chinese-big5 debian.debian-chinese-gb + debian.debian-esperanto debian.debian-i18n debian.debian-japanese + debian.debian-l10n-catalan debian.debian-l10n-dutch + debian.debian-l10n-english debian.debian-l10n-french + debian.debian-l10n-italian debian.debian-l10n-portuguese + debian.debian-l10n-spanish debian.debian-laespiral + debian.debian-russian debian.debian-simplified-chinese + debian.debian-68k debian.debian-alpha debian.debian-arm + debian.debian-bsd debian.debian-hppa debian.debian-hurd + debian.debian-ia64 debian.debian-mips debian.debian-parisc + debian.debian-powerpc debian.debian-s390 debian.debian-sparc + debian.debian-superh debian.debian-ultralinux debian.debian-win32 + debian.debian-all-changes debian.debian-alpha-changes + debian.debian-arm-changes debian.debian-books + debian.debian-cd-vendors debian.debian-changes + debian.debian-consultants debian.debian-curiosa + debian.debian-devel-all-changes debian.debian-devel-alpha-changes + debian.debian-devel-arm-changes debian.debian-devel-changes + debian.debian-devel-hurd-i386-changes + debian.debian-devel-i386-changes debian.debian-devel-m68k-changes + debian.debian-devel-powerpc-changes + debian.debian-devel-sparc-changes debian.debian-hurd-i386-changes + debian.debian-i386-changes debian.debian-legal + debian.debian-m68k-changes debian.debian-mirrors + debian.debian-powerpc-changes debian.debian-project + debian.debian-publicity debian.debian-sgml + debian.debian-sparc-changes debian.lcs-eng debian.lsb-confcall + debian.lsb-discuss debian.lsb-impl debian.lsb-spec debian.lsb-test + debian.spi-announce debian.spi-general debian.vgui-discuss + +KDE Mailing List in Japan (http://www.kde.gr.jp/ml/) + kde.Kuser kde.Kdeveloper + +Geocrawler (http://www.geocrawler.com/) + All archives of Geocrawler are supported by `shimbun' library. You + can use the command `M-x shimbun-geocrawler-add-group <RET>', to + add your favorite archive to the variable + `shimbun-geocrawler-group-alist'. + +Mailing list ARChives (http://marc.theaimsgroup.com/) + Mailing list ARChives (MARC) are supported by `shimbun' library. + Add a group name of your favorite archive and its URL to the + variable `shimbun-marc-aims-group-alist', and you can browse it. + +RedHat Mailing List (http://sources.redhat.com/ml/) + redhat.automake redhat.bug-automake redhat.automake-prs + redhat.automake-cvs redhat.binutils redhat.binutils-cvs + redhat.c++-embedded redhat.crossgcc redhat.cgen redhat.cgen-prs + redhat.cgen-cvs redhat.cygwin redhat.cygwin-xfree + redhat.cygwin-announce redhat.cygwin-xfree-announce + redhat.cygwin-apps redhat.cygwin-patches redhat.cygwin-developers + redhat.cygwin-cvs redhat.cygwin-apps-cvs + redhat.docbook-tools-discuss redhat.docbook-tools-announce + redhat.docbook-tools-cvs redhat.docbook redhat.dssslist + redhat.sgml-tools redhat.docbook-apps redhat.ecos-announce + redhat.ecos-devel redhat.ecos-discuss redhat.ecos-maintainers + redhat.ecos-patches redhat.elix redhat.elix-announce redhat.gdb + redhat.gdb-announce redhat.gdb-testers redhat.gdb-testresults + redhat.gdb-patches redhat.gdb-cvs redhat.bug-gdb redhat.gdb-prs + redhat.libc-alpha redhat.libc-hacker redhat.bug-glibc + redhat.glibc-cvs redhat.glibc-linux redhat.bug-gnats + redhat.gnats-devel redhat.gnats-announce redhat.gnats-cvs + redhat.gsl-discuss redhat.gsl-announce redhat.gsl-cvs redhat.guile + redhat.guile-emacs redhat.guile-prs redhat.guile-gtk + redhat.bug-guile redhat.guile-cvs redhat.guile-emacs-cvs + redhat.insight redhat.insight-announce redhat.insight-prs + redhat.installshell redhat.inti redhat.kawa redhat.libffi-discuss + redhat.libffi-announce redhat.libstdc++ redhat.libstdc++-cvs + redhat.libstdc++-prs redhat.mauve-discuss redhat.mauve-announce + redhat.newlib redhat.pthreads-win32 redhat.rhdb + redhat.rhdb-announce redhat.rhug-rhats redhat.rpm2html-cvs + redhat.rpm2html-prs redhat.rpm2html redhat.sid redhat.sid-announce + redhat.sid-cvs redhat.sourcenav redhat.sourcenav-announce + redhat.sourcenav-prs redhat.win32-x11 redhat.xconq7 + redhat.xconq-announce redhat.xconq-cvs + +MacOSX JP Mailing List (http://www.tech-arts.co.jp/macosx/) + macosx-jp.macosx-jp macosx-jp.macosx-dev-jp macosx-jp.macosx-ws-jp + macosx-jp.webobjects-jp + +SourceForge JP (http://sourceforge.jp) + All archives served by SourceForge JP are supported by `shimbun' + library. Add a group name of your favorite archive to the variable + `shimbun-sourceforge-jp-mailing-lists', and you can browse it. + +Elips Mailing List (http://heimat.jp/~nakaji/elips/) + elips.elips + +Squeak-ja Mailing List (http://lists.squeakfoundation.org/pipermail/squeak-ja/) + squeak-ja.main + +Smalltalkers' Salon Mailing List (http://www.sra.co.jp/smalltalk/SML/archives/) + sml.main + +Squeak-dev Mailing List (http://lists.squeakfoundation.org/pipermail/squeak-dev/) + squeak-dev.main + +Plucker Mailing List (http://www.mail-archive.com/plucker-*@rubberchicken.org/maillist.html) + plucker.announce plucker.list plucker.dev + +pilot-link Mailing List (http://www.pilot-link.org/pipermail/) + pilot-link.announce pilot-link.devel pilot-link.general + pilot-link.unix-ng + +Coldsync Mailing List (http://www.thedotin.net/maillists/coldsync-hackers/maillist.html) + coldsync.main + +J-Pilot Mailing List (http://www.jpilot.org/pipermail/jpilot/) + jpilot.main + +pilot-mailsync Mailing List (http://lists.gnu-designs.com/pipermail/pilot-mailsync/) + pilot-mailsync.main + +Mozilla Users Mailing List in Japan (http://www.mozilla.gr.jp/ml/logs/moz-users/) + mozilla-jp.users + + Please note that userid and passowrd are required for + `mozilla-jp.users' so you have to write; + + machine www.mozilla.gr.jp + realm Please Enter mozilla mozilla + login mozilla + passwd mozilla + + in `~/.w3m/passwd' and remove group and others access permissions + from the file. + +tDiary Developers Mailing List in Japan (http://www.tdiary.org/) + tdiary-ml.devel tdiary-ml.theme + +arch.bluegate.org Mailing Lists (http://arch.bluegate.org/mailman/listinfo) + arch-bluegate.subversion-jp arch-bluegate.arch-jp + arch-bluegate.mailman arch-bluegate.viewarch + +Tigris.org:Open Source Software Engineering (http://www.tigris.org/) + All archives served by Tigris.org are supported by `shimbun' + library. Add a group name of your favorite archive to the variable + `shimbun-tigris-group-alist', and you can browse it. Group name + is tigris.<project>.<mailinglist>. + +www.SciPy.net Mailing Lists (http://www.scipy.net/mailman/listinfo) + scipy.astropy scipy.ipython-user scipy.ipython-dev scipy.scipy-user + scipy.scipy-dev scipy.scipy-testlog scipy.scipy-chaco + scipy.scipy-cvs + + + +File: emacs-w3m.info, Node: Sport Sites Supported by Shimbun, Next: Misc Sites Supported by Shimbun, Prev: Mailing Lists Supported by Shimbun, Up: Shimbun Sites + +9.5.4 Sport Sites Supported by Shimbun +-------------------------------------- + +These are sport sites supported by `shimbun' library. + +makanai (http://www.makanai.com/) + makanai.f1news + +F1 FAN (http://www.ksky.ne.jp/~tahara/f1/) + f1fan.news + +@nifty:motorsports (http://forum.nifty.com/fmotor/) + msports-nifty.F1 msports-nifty.IRL msports-nifty.WRC + msports-nifty.Europe msports-nifty.USA + +Yahoo!SPORTS (http://sports.yahoo.co.jp/) + yahoo-sports.F1 yahoo-sports.baseball yahoo-sports.keiba + yahoo-sports.NBA yahoo-sports.NFL yahoo-sports.rugby + + @nifty:motorsports requires the Mule-UCS package (*note Other +Requirements::) for Emacs-21.4 or any previous versions. + + +File: emacs-w3m.info, Node: Misc Sites Supported by Shimbun, Prev: Sport Sites Supported by Shimbun, Up: Shimbun Sites + +9.5.5 Misc Sites Supported by Shimbun +------------------------------------- + +These are misc sites supported by `shimbun' library. WEB BBS and +serial publications are included. + +Tea Cup Bulletin Boards (http://www.tcup.com/) + You can subscribe to various bulletin boards provided by Tea Cup + Communication. By default, there are three pre-configured boards + listed below: + + tcup.yutopia + Yutopia BBS (http://www61.tcup.com/6116/yutopia.html) + + tcup.meadow + Meadow BBS (http://www66.tcup.com/6629/yutopia.html) + + tcup.skk + SKK BBS (http://www67.tcup.com/6718/yutopia.html) + + To add new boards to the list, look up the names and the urls and + modify the `shimbun-tcup-group-alist' variable. The following + form is an example to add two boards, `foo' and `bar', to the list: + + (eval-after-load "sb-tcup" + '(setq shimbun-tcup-group-alist + (append + '(("foo" "http://MMMM.teacup.com/foo/bbs2") + ("bar" "http://NNNN.teacup.com/bar/bbs2")) + shimbun-tcup-group-alist))) + +2ch + This is an example to browse Meadow BBS and emacs-w3m BBS on 2ch. + (setq shimbun-2ch-group-alist + '(("Meadow" . + "http://pc.2ch.net/test/read.cgi/software/1005469775") + ("emacs-w3m" . + "http://pc.2ch.net/test/read.cgi/unix/1013710106"))) + +Bulletin Board Systems using CGI_Board (http://www.math.tohoku.ac.jp/~kuroki/support/) + Set your favorite browse bulletin board systems using CGI_Board to + `shimbun-cgi-board-group-alist', and you can browse them. + +HNS + This is an example to use `sb-hns'. + (setq shimbun-hns-group-alist + '(("arisawa" ;; Group Name + "http://nijino.homelinux.net/diary/" ;; URL + "ari@mbf.sphere.ne.jp") ;; E-Mail Address + ("miyoshi" + "http://www.be.wakwak.com/cgi-bin/sbox/~miyoshi/hns/" + "miyoshi@meadowy.org"))) + +tDiary + This is an example to use `sb-tdiary'. + (setq shimbun-tdiary-group-alist + '(("henahena" ;; Group Name + "http://www.fan.gr.jp/~ring/d/") ;; URL + ("yoichi" + "http://yoichi.geiin.org/d/"))) + +Diaries at Rakuten Plaza (http://plaza.rakuten.co.jp/) + This is an example to use `sb-rakuten'. + (setq shimbun-rakuten-group-alist + '(("rakuten-id" . "email-address"))) + +EmacsWiKi (http://www.emacswiki.org/) + emacswiki.changes emacswiki.diff + +RSS feeds containing contents + To use this back end, look for the RSS feeds containing contents + which you would like to read, and add those groups to the + `shimbun-rss-hash-group-path-alist' variable by the following way. + The name of the back end is `rss-hash'. You may use this back end + for reading mainly personal blogs. + + The parameters for each group configuration consist of the name of + the group, the address of the RSS feed, the type of the mail (`t' + for html), the regexp matching the start of contents, and the + regexp matching the end of contents. The parameters other than + the name of the group and the address of the RSS feed are optional. + + Here is an example of setting `shimbun-rss-hash-group-path-alist'. + In this case, you can browse those groups as `rss-hash.sampleblog1' + and `rss-hash.sampleblog2': + + (setq shimbun-rss-hash-group-path-alist + '(;; text mail + ("sampleblog1" "http://www.example.com/index1.rss") + ;; html mail + ("sampleblog2" "http://www.example.com/index2.rss" + t "</title>" "<!-- start ads"))) + +Atom feeds containing contents + As well as the previous section (RSS feeds containing contents), + you can also read the Atom feeds which contain published contents. + To do that, configure the variable + `shimbun-atom-hash-group-path-alist' (and possibly + `shimbun-atom-hash-x-face-alist', etc.) in the way similar to + shimbun-rss-hash-*. The name of the back end is `atom-hash'. + +RSS feeds without published content + Many feeds do not contain the full content of the articles, or + only so called teasers, i.e. quick summaries. If a site publishes + such a feed, instead of writing a special shimbun for it, you can + in many cases use the `rss-blogs' back end. The setup is similar + to the `rss-hash' shimbun; here is an example: + + (setq shimbun-rss-blogs-group-url-regexp + '(("first-feed" "http://example/wordpressfeed") + ("second-feed" "http://example/somefeed" + "<div name=\"content\">" "<div name=\"comments\">") + ("third-feed" "http://example/someotherfeed" 'none))) + + The first two items are the name and the URL of the feed. + Optionally, you can give two regular expressions denoting the + start and end of the actual content on the HTML pages the feed is + pointing to. If you just use the symbol `none' here, no filtering + will be done whatsoever. Additionally, the `rss-blogs' shimbun + can deal automatically with some popular blogging engines, namely + Google's Blogger/Blogspot (including comment feeds), WordPress, + and TypePad. If your feed is from a site using one of those + (which you can see by looking at the `generator' tag), just omit + the optional parameters and the code will try to extract the + content automatically for you. + +Wiki contents + This is an example to use `sb-wiki'. `sb-wiki' support PukiWiki + and Hiki. If you don't know which regexps to set to 4th and 5th + elements of an inner list, just set `nil' and you'll just see all + contents of a page. + (setq shimbun-wiki-group-alist + '(("pukiwiki" ;; Group Name + "http://pukiwiki.org/index.php?cmd=rss10" ;; URL + "webmaster@pukiwiki.org" ;; E-Mail Address + nil ;; X-Face + "\n<h3 id=\"" ;; regexp to represent contents start + "</address>") ;; regexp to represent contents end + ("hiki" + "http://www.namaraii.com/hiki/?c=rss" + "webmaster@fdiary.net" + nil + "<div class=\"section\">" + "<div class=\"sidebar\">") + ("apollo" + "http://wiki.fdiary.net/apollo/?c=rss" + "moriq@moriq.com" + nil + "<div class=\"section\">" + "<div class=\"sidebar\">") + )) + +Yahoo! AUCTIONS (http://auctions.yahoo.co.jp/) + This is an example to use `sb-yahoo-auctions'. + (setq shimbun-yahoo-auctions-group-alist + '(("mp3player" . "http://list3.auctions.yahoo.co.jp/jp/show/catleaf_rss?category=2084039708&alocale=0jp") + ("iPod" . "http://search3.auctions.yahoo.co.jp/search_rss?p=iPod&auccat=2084039708&alocale=0jp&acc=jp"))) + +VineLinux Errata (http://www.vinelinux.org) + vinelinux.errata.4x.i386 vinelinux.errata.4x.ppc + vinelinux.errata.3x.i386 vinelinux.errata.3x.ppc + vinelinux.errata.3x.alpha vinelinux.errata.2x.i386 + vinelinux.errata.2x.ppc vinelinux.errata.2x.sparc + vinelinux.errata.2x.alpha vinelinux.errata.1x + +Hatoyama Cabinet Mail Magazine (http://www.mmz.kantei.go.jp/) + kantei.m-magazine-en kantei.m-magazine-ja kantei.m-magazine-cn + kantei.m-magazine-kr kantei.m-magazine-en.aso + kantei.m-magazine-ja.aso kantei.m-magazine-en.fukuda + kantei.m-magazine-ja.fukuda kantei.m-magazine-en.abe + kantei.m-magazine-ja.abe kantei.m-magazine-en.koizumi + kantei.m-magazine-ja.koizumi + + `kantei.m-magazine' is also available for the backward + compatibility. + +Patent Office in Japan (http://www.jpo.go.jp/) + jpo.news jpo.revision jpo.lawguide jpo.details + +IBM developerWorks (http://www-6.ibm.com/jp/developerworks/) (in Japanese) + ibm-dev.autonomic ibm-dev.java ibm-dev.linux ibm-dev.opensource + ibm-dev.webservices ibm-dev.xml + +Pocketgames (http://www.pocketgames.jp/) + pocketgames.news + +Wincefan (http://www.wince.ne.jp/) + wincefan.news + +PalmFan (http://www.palmfan.com/) + palmfan.news + +Report of Electrical Stores Street (http://homepage1.nifty.com/akiba/plat.html) (in Japanese) + dennou.report + +PCWEB COLUMN Square (http://pcweb.mycom.co.jp/column/) + pcweb-column.jsr pcweb-column.yume pcweb-column.hreceipe + pcweb-column.kita pcweb-column.shonanlife pcweb-column.kaden + pcweb-column.nemurenai pcweb-column.komono pcweb-column.js + pcweb-column.en pcweb-column.motherboard pcweb-column.svalley + pcweb-column.architecture pcweb-column.motorlife + pcweb-column.nihongoprog pcweb-column.objc pcweb-column.ide + pcweb-column.music pcweb-column.itsecurity pcweb-column.soundvisual + pcweb-column.osx pcweb-column.sopinion pcweb-column.ebook + pcweb-column.orerobo pcweb-column.zsh pcweb-column.rikei + pcweb-column.lifehack pcweb-column.world pcweb-column.guutara + pcweb-column.volt pcweb-column.textclean pcweb-column.person + pcweb-column.web20 pcweb-column.system + + below items are also available for the backward compatibility. + pcweb-column.itshihonron pcweb-column.yetanother pcweb-column.asia + pcweb-column.benri pcweb-column.bytes pcweb-column.game + pcweb-column.hitech pcweb-column.java pcweb-column.jisakuparts + pcweb-column.scramble pcweb-column.toolexp pcweb-column.winvista + pcweb-column.winxp pcweb-column.interview pcweb-column.ityougo + pcweb-column.kimeuchi pcweb-column.stratesys pcweb-column.toyagain + +Notes Exhibition (http://tsuruo.dominohosting.biz/members/tsuruo/) + lotusex.news lotusex.library lotusex.operation lotusex.primer + lotusex.tips lotusex.practical lotusex.qanda lotusex.lounge + lotusex.bbs + +@IT forum (http://www.atmarkit.co.jp) + atmarkit.news atmarkit.fwin2k atmarkit.fdotnet atmarkit.fsys + atmarkit.fxml atmarkit.fdb atmarkit.flinux atmarkit.fnetwork + atmarkit.fjava atmarkit.fsecurity atmarkit.farc atmarkit.fbiz + atmarkit.fwcr atmarkit.jibun + +TeX Q&A Bulletin Board (http://www.matsusaka-u.ac.jp/~okumura/texfaq/qa/) + texfaq.qanda + +X51.org (http://x51.org/) + x51.anima x51.art x51.auction x51.blow x51.cabal x51.crime + x51.disaster x51.edge x51.enema x51.ghost x51.homme x51.info + x51.life x51.love x51.media x51.medical x51.military + x51.northkorea x51.oparts x51.phallic x51.psychics x51.religion + x51.science x51.top x51.ufo x51.uma x51.xfiles + +eXperts Connection (eXConn) (http://www.exconn.net/) + exconn.news + +MSDN (http://msdn.microsoft.com/) + msdn.all msdn.netframework msdn.architecture msdn.asp.net msdn.data + msdn.longhorn msdn.mobility msdn.subscriptions msdn.msdntv + msdn.office msdn.security msdn.sql msdn.theshow msdn.vbasic + msdn.vcsharp msdn.visualc msdn.vfoxpro msdn.vjsharp msdn.vstudio + msdn.vs2005 msdn.webservices msdn.embedded msdn.xml msdn.japan.msdn + msdn.japan.msdn-us + +Haiku OS (http://haiku-os.org/) + haiku-os.news haiku-os.forums haiku-os.newsletters + +Foundation for a Free Information Infrastructure (http://www.ffii.org/) + ffii.en.software-patents ffii.en.software-patents.ffii + ffii.en.information-infrastructure ffii.en.project + ffii.de.software-patente ffii.de.software-patente.ffii + ffii.de.informations-infrastruktur ffii.fr.brevets-logiciels + ffii.fr.brevets-logiciels.ffii ffii.nl.softwarepatenten + ffii.nl.softwarepatenten.ffii + + +File: emacs-w3m.info, Node: Shimbun Basics, Prev: Shimbun Sites, Up: Shimbun Library + +9.6 How to make a new shimbun module +==================================== + +`Shimbun' is a library set of emacs-w3m that enables you to read +certain web contents using Gnus, Wanderlust, or Mew as if they were +email messages. Here we will explain how to make a new `shimbun' +module. + +* Menu: + +* Overview:: +* Getting web page and header information:: +* Displaying an article:: +* Inheriting shimbun module:: +* Making text/plain articles:: +* Zenkaku to hankaku conversion:: +* Coding convention of Shimbun:: + + +File: emacs-w3m.info, Node: Overview, Next: Getting web page and header information, Up: Shimbun Basics + +9.6.1 Overview +-------------- + +When you make a new `shimbun' module `foobar' for reading contents of +`http://www.foobar.net', what you have to do first is to put the +following S expressions in the first part of the `sb-foobar.el' file: + + (require 'shimbun) + (luna-define-class shimbun-foobar (shimbun) ()) + +We will explain what they are below, so you can understand they are just +incantations now. You have to use the same suffix `foobar' in the file +name (`sb-foobar.el') and the class name (`shimbun-foobar') as the +second argument for the `luna-define-class' macro. + + Major jobs of the `shimbun-foobar' module can be classified broadly +into the following four categories (note that you may rephrase "folder" +with "group" if you are a Gnus user): + + 1. Getting a page source from `http://www.foobar.net' in order to + gather articles' subjects etc. when a MUA opens the `foobar' + folder. + + 2. Gathering subjects and other necessary informations from the page + source in order to make headlines of articles and returning them + as the structured list called `headers'. + + 3. Getting a page source for an article from the web site, for + example, `http://www.foobar.net/053003.html', when MUA requires to + display an article in the `foobar' folder, and + + 4. Removing cruft, e.g. advertisements, from the page source and + formatting a raw article. + +`shimbun-headers' of `shimbun.el' does the first job, +`shimbun-get-headers' does the second, `shimbun-article' does the third +and `shimbun-make-contents' does the last. + + The `shimbun-headers' method does the first job, the +`shimbun-get-headers' method does the second, the `shimbun-article' +method does the third and the `shimbun-make-contents' method does the +last thing. The default methods for those categories are defined in +the `shimbun.el' module. + + Open the `shimbun.el' file. You may see unfamiliar definitions like +`luna-define-generic' or `luna-define-method' there. Hm, they look +like `defun', don't you? You may also see there's just a doc-string in +the former definition and the same symbol is declared again in the +later form. And further, there are some symbols only declared by the +`luna-define-generic' form, not by the `luna-define-method' form. What +on earth are we seeing? Isn't the program not written in the +Emacs-Lisp language? + + The truth is that the `shimbun' modules use the `luna.el' module +provided by FLIM which enables you to write object oriented programs in +the Emacs-Lisp language. + + There are method programs defined rigidly for the specific purposes +in the `shimbun.el' module. The `shimbun-headers' method gets a page +source from a certain URL, the `shimbun-get-headers' method gathers +subjects and other informations, etc... (see above). They do routine +works, so they cannot take proper method to meet various web contents +in the world. Eh? Oh, you shouldn't believe in a heresy! + + The `shimbun.el' module only provides the default method functions. +Remember the `defadvice' feature. There are three ways to modify the +behavior of a function: `:before', `:around' and `:after'. Similarly, +each default `shimbun' method function can be modified for a certain +purpose (note that the `:around' method-qualifier can be omitted). And +it should be written specially that the modification will be effective +only when the specified `shimbun' module is selected. + + Now as you may have understood that the `luna-define-generic' form +provides only a husk in a sense, the `luna-define-method' form defines +an actual function which can be different for each `shimbun' module, +and the `luna-define-class' form declares the `shimbun' class in the +first part of the `sb-foobar.el' module. + + +File: emacs-w3m.info, Node: Getting web page and header information, Next: Displaying an article, Prev: Overview, Up: Shimbun Basics + +9.6.2 Getting web page and header information +--------------------------------------------- + +Let's identify a target web page URL to gather subjects and other +informations first. If a web site uses a frame, a target is only one +of the web pages. Second, lets create a body of the +`shimbun-index-url' method function using the `luna-define-method' form +in your `sb-foobar.el' file. And make the user customizable variable +`shimbun-foobar-groups', which we will explain later(1). + + (defvar shimbun-foobar-url "http://www.foobar.net") + + (luna-define-method shimbun-index-url ((shimbun shimbun-foobar)) + shimbun-foobar-url) + + (defvar shimbun-foobar-groups '("news")) + + After you create a body of the `shimbun-index-url' method, the +`shimbun-headers' method can get a web page source since the +`shimbun.el' module already has the default `shimbun-headers' method. +After the `shimbun-headers' method gets a web page source, it calls the +`shimbun-get-headers' method to gather headers information. As the +`shimbun.el' module does not have the `shimbun-get-headers' method, you +have to create it in your `sb-foobar.el' file. + + Now look carefully in the page source and create the +`shimbun-get-headers' method in your `sb-foobar.el' file. + + Create a regular expression that can gather headers information. +Minimally necessary information are subject, date, author, URL and +`message-id' of an article. They are used in MUA as Subject, Date, +From, Xref and Message-ID. + + If you want to make an article from a line in a web page source, +like: + + <a href="053003.html">some talks on May 30(posted by Mikio <foo@bar.net>)</a> + +use the following regexp: + + "<a href=\"\\(\\([0-9][0-9][0-9][0-9]\\)[0-9][0-9]\\.html\\)\">\\([^<(]+\\)(posted by \\([^<]+\\))<\/a>" + +You can get a value for Xref by `(match-string 1)'. You can get a +value for Date by modifying a value of `(match-string 2)'. Subject by +`(match-string 3)' and From from `(match-string 4)'. You can modify +them further for showing additional information in MUA. + + If URL of an article is a relative path like above, use +`shimbun-expand-url' to expand it before putting information to header. +If each article doesn't have a each unique URLs (i.e. URL of headers +and URL of articles are just same), you have to ask Emacs to remember +body of an article when gathering headers information, For more detail +see the files `sb-palmfan.el', `sb-dennou.el' and `sb-tcup.el'. + + Sometimes you cannot identify Date information when gathering headers +information only from a web page source. If so, leave it, just set a +null string, `""' to its value. If you can identify Date only when you +see contents of an article, you can set it at that time by using +`shimbun-make-contents' method. And you may use a fixed From for a web +site (e.x. "webmaster@foobar.net"). + + Be careful when you build a message-id. Make sure it has uniqueness +otherwise you may not be able to read some articles in the +`shimbun'(2). Assure uniqueness by building message-id using date +information, a domain of the page and/or a part of URL of the page. +And use `@' but `:' as a part of message-id in order to display inline +images. See RFC2387 and RFC822 for more detail. + + Put these information to header using function +`shimbun-create-header' of the `shimbun.el' module. + + A bare bone of `shimbun-get-headers' in your `sb-foobar.el' file is +as follows: + + (luna-define-method shimbun-get-headers ((shimbun shimbun-foobar) + &optional range) + (let ((regexp "....") + subject from date id url headers) + ... + (catch 'stop + (while (re-search-forward regexp nil t nil) + ... + (when (shimbun-search-id shimbun id) + (throw 'stop nil)) + (push (shimbun-create-header + 0 subject from date id "" 0 0 url) + headers))) + headers)) + +Note that you can access `shimbun-foobar' instance via temporary +variable `shimbun' in the method. + + Now we will explain a user variable `shimbun-foobar-groups'. + + Assume that you have two groups of articles in +`http://www.foobar.net' and there are two different web pages for such +groups in where `shimbun' module gathers header information. For +examples, there are what's new information of the web site in +`http://www.foobar.net/whatsnew/index.hmtl', and there are archive +lists of email messages posted to ML in +`http://www.foobar.net/ml/index.html'. In such case you may want to +access the group by `shimbun' folders `foobar.whatsnew' and +`foobar.ml'. If so, put the following S expressions to the +`sb-foobar.el' file. + + (defvar shimbun-foobar-url "http://www.foobar.net") + + (defvar shimbun-foobar-group-path-alist + '(("whatsnew" . "/whatsnew/index.html") + ("ml" . "/ml/index.html"))) + + (defvar shimbun-foobar-groups + (mapcar 'car shimbun-foobar-group-path-alist)) + + (luna-define-method shimbun-index-url ((shimbun shimbun-foobar)) + (concat shimbun-foobar-url + (cdr (assoc (shimbun-current-group-internal shimbun) + shimbun-foobar-group-path-alist)))) + +You can get the current group by using +`shimbun-current-group-internal'. You can use it in +`shimbun-get-headers' method (or others) in order to change its +behavior in accordance with the current group. + + Each `shimbun' module needs at least one group. There is not a +special rule for naming a group, but if you don't find out a good name, +use `news' or `main'. + + ---------- Footnotes ---------- + + (1) At least one group is necessary for each `shimbun' module even +if you don't want it. + + (2) And more, you may not be able to read actual email messages from +someone when message-ids conflict! + + +File: emacs-w3m.info, Node: Displaying an article, Next: Inheriting shimbun module, Prev: Getting web page and header information, Up: Shimbun Basics + +9.6.3 Displaying an article +--------------------------- + +`shimbun-article' method defined in the `shimbun.el' module gets URL +from Xref information of header, get a web page source from the URL, +and call `shimbun-make-contents' in working buffer of the source. +Major job of `shimbun-make-contents' is to process such HTML. Imagine +that a working buffer has a web page source of an article. +`shimbun-make-contents' defined in the `shimbun.el' module insert (i) +header information to top of the buffer, (ii) `<html>', `<body>' and +etc. right after the information, and (iii) `</body>' and `</html>' to +end of the buffer. MUA displays an article as a HTML mail. + + Not only HTML articles, but also articles in the `text/plain' + format can be generated. *Note Making text/plain articles::. + + If you don't want to process an article, you don't have to define +`shimbun-make-contents' in the `sb-foobar.el' module. + + If you want to remove some part of a web page source of an article at +its top and its end, set regexp to `shimbun-foobar-content-start' that +matches content start and `shimbun-foobar-content-end' that matches +content end. + + (defvar shimbun-foobar-content-start "^<body>$") + (defvar shimbun-foobar-content-end "^<\/body>$") + +`shimbun-clear-contents', which is called by `shimbun-make-contents' +defined in the `shimbun.el' module, will remove HTML source from +`point-min' to `shimbun-foobar-content-start' and from +`shimbun-foobar-content-end' to `point-max' using the regexps. Note +that it will not remove any HTML source when either of the regexp +searches fails. + + If you want to remove more unnecessary parts (e.x. advertisements) +diligently, define `shimbun-clear-contents' in your new `sb-foobar.el' +file as follows: + + (luna-define-method shimbun-clear-contents :around ((shimbun shimbun-foobar) + header) + ;; cleaning up + (while (re-search-forward "..." nil t nil) + (delete-region (match-beginning 0) (match-end 0))) + (luna-call-next-method)) + +For more details see `shimbun-make-contents' in the `sb-ibm-dev.el' +file. + + I said in the subsection of *note Getting web page and header +information:: that if each article doesn't have a each unique URLs you +have to ask Emacs to remember body of an article when gathering headers +information, In such case you don't have to get a web page from URL of +Xref in `shimbun-article' method. Just get texts from Emacs memories +and put them with pretty printing. For more detail see definitions of +`shimbun-article' method of `sb-palmfan.el', `sb-dennou.el' or +`sb-tcup.el'. + + +File: emacs-w3m.info, Node: Inheriting shimbun module, Next: Making text/plain articles, Prev: Displaying an article, Up: Shimbun Basics + +9.6.4 Inheriting shimbun module +------------------------------- + +There are some famous mailing list manager (or archiver). + + * Mailman The GNU Mailing List Manager, formerly called as + `pipermail'. See `http://www.gnu.org/software/mailman/index.html' + for detail. + + * MHonArc See `http://www.oac.uci.edu/indiv/ehood/mhonarc.html' for + detail. + + * fml fml mailing list server/manager. See + `http://www.fml.org/software/fml/' for detail. + + * mailarc See `http://cvs.namazu.org/mailarc/' for detail. + + If you find out one of such mailing list managers' names in a web +page source when you analyze it in the step of *Note Getting web page +and header information::, you are very lucky(1). The modules +`sb-mailman.el', `sb-mhonarc.el', `sb-fml.el' and `sb-mailarc.el' have +the `shimbun-get-headers' method, etc, already, when you write small +code that is not defined in such `shimbun' modules, your new +`sb-foobar.el' module works! + + If you use the `sb-mailman.el' module, write the following S +expressions to the top of the `sb-foobar.el' file: + + (require 'sb-mailman) + (luna-define-class shimbun-foobar (shimbun-mailman) ()) + +Those above mean that `shimbun' module `shimbun-foobar' inherits +shimbun-mailman class(2) and methods defined in the `sb-mailman.el' +module will be used in `shimbun-foobar' by default. You can overwrite +some of parent methods, if necessary. + + See the `sb-pilot-mailsync.el' file as a sample that uses the +`sb-mailman.el' module. You can feel how easy to create a new +`shimbun' module by using such parent modules. + + Note that there are some localized version of such mailing list +manager, for examples, some of them show Date information in Japanese. +The modules `sb-mailman.el', `sb-mhonarc.el', `sb-fml.el' and +`sb-mailarc.el' assumes that mailing list managers are not localized. + + If you want to read via `shimbun' a web site that uses localized +mailing list manager, you may have to overwrite some methods in the +parent module. + + ---------- Footnotes ---------- + + (1) Such mailing list managers often show their own name in an +archive list page + + (2) i.e. shimbun-mailman class is a parent class. + + +File: emacs-w3m.info, Node: Making text/plain articles, Next: Zenkaku to hankaku conversion, Prev: Inheriting shimbun module, Up: Shimbun Basics + +9.6.5 Making text/plain articles +-------------------------------- + +Even if the MUA is reinforced by emacs-w3m so as to be able to read HTML +articles, `text/plain' articles might be more convenient in some cases. +To make the `sb-foobar' module generate `text/plain' articles rather +than `text/html' articles, there are two ways to do that. + + * The one is to make the `sb-foobar' module inherit (*note + Inheriting shimbun module::) the `sb-text' module. Here's an + example you may put in the beginning of the `sb-foobar' module. + + (require 'sb-text) + (luna-define-class shimbun-foobar (shimbun-text) ()) + + The `sb-text' module provides the `shimbun-make-contents' method + which generates the articles in the `text/plain' format. This + will be useful for the `shimbun' modules handling the web sites + which put up only text articles. + + * The other is to set the `shimbun-foobar-prefer-text-plain' variable + to non-`nil'. This makes the `shimbun-make-contents' method + generate the articles in the `text/plain' format (actually, it uses + the functions provided by the `sb-text' module). Note that this is + effective only to the modules which inherit the default + `shimbun-make-contents' method (especially the modules which + inherit the `sb-text' module are not affected). The advantage of + this way is that users can easily switch `text/plain' articles and + `text/html' articles. + + The default value for the `shimbun-foobar-prefer-text-plain' + variable is `nil' if it is not defined. So, it defaults to `nil' + in every `shimbun' module except for the modules `sb-asahi.el' and + `sb-yomiuri.el'. + + In addition, you can use the variables + `shimbun-foobar-text-content-start' and + `shimbun-foobar-text-content-end' instead of + `shimbun-foobar-content-start' and `shimbun-foobar-content-end' to + extract significant text in web pages (*note Displaying an + article::). If the formers are not defined, those values default + to the latter values. + +Whichever the ways you use, you should note that the `text/plain' +articles cannot contain images, links, etc. + + +File: emacs-w3m.info, Node: Zenkaku to hankaku conversion, Next: Coding convention of Shimbun, Prev: Making text/plain articles, Up: Shimbun Basics + +9.6.6 Zenkaku to hankaku conversion +----------------------------------- + +"Zenkaku" or "zenkaku character(s)" is a term commonly used to call +Japanese wide characters, and "hankaku" is an opposite term for +ordinary ASCII characters. There is a complete set of zenkaku +characters corresponding to at least the ASCII character set. + + Some Japanese web sites tend to use zenkaku characters a lot, and +those articles might not necessarily be comfortable to read. If you +feel so, you can use this feature that converts those zenkaku ASCII +characters into hankaku. To do that, set the +`shimbun-foobar-japanese-hankaku' variable to `t'. Where `foobar' is a +server name to which you subscribe for shimbun articles. That is, you +have to use it per server. + + If you prefer to convert zenkaku to hankaku only in the body of +articles, use the value `body' instead of `t'. Contrarily the value +`header' or `subject' specifies to perform it only in subjects. + + +File: emacs-w3m.info, Node: Coding convention of Shimbun, Prev: Zenkaku to hankaku conversion, Up: Shimbun Basics + +9.6.7 Coding convention of Shimbun +---------------------------------- + + * You can use all functions defined in emacs-w3m in `shimbun.el'. + + * You can use no functions defined in emacs-w3m in `sb-*.el'. If you + want to use emacs-w3m functions in `sb-*.el', you must add their + stubs to `shimbun.el'. + + * You must avoid file names that have already used in SpeedBar. + Here is a list of file names used in `speedbar-0.14beta4'. + + sb-ant.el sb-html.el sb-info.el sb-texinfo.el + sb-gud.el sb-image.el sb-rmail.el sb-w3.el + + * You should select file names which remind their referring WEB + servers' URIs. It is allowed to remove country parts (Ex. + jp,de,uk,etc), organization parts (Ex. edu,com,org,net,etc) and + redundant parts (Ex. www) if removing does not increase vagueness. + + * You should select group names in USENET style. It means that small + characters are preferred in group names, and that period(.) is + preferred as an delimiter to show hierarchical structure in groups. + + +File: emacs-w3m.info, Node: Tips, Next: Mailing List, Prev: Shimbun Library, Up: Top + +10 Some knick-knacks using emacs-w3m +************************************ + +Here are some handy tips to use emacs-w3m with other Emacs facilities. + + * browse-url + + You can use emacs-w3m with the `browse-url' feature. For instance, + put the following lines in your `~/.emacs' file: + + (setq browse-url-browser-function 'w3m-browse-url) + (global-set-key "\C-xm" 'browse-url-at-point) + + Emacs-w3m will now be invoked when you type the `C-x m' key on a + string which looks like a URL in any Emacs buffer. In addition, + you can use emacs-w3m to preview an HTML file that you are just + editing by typing the `C-c C-v' key (note that you need to use + Emacs and the `html-mode' major mode to edit the HTML file). + + If you'd like to use another web browser than emacs-w3m when using + the `C-x m' key when you are in an emacs-w3m buffer (who wants to + do so?), add the following advice to `~/.emacs' file: + + (defadvice browse-url-at-point + (around change-browse-url-browser-function activate) + "Use Netscape only when it is invoked in an emacs-w3m buffer." + (let ((browse-url-browser-function + (if (eq major-mode 'w3m-mode) + 'browse-url-netscape + 'w3m-browse-url))) + ad-do-it)) + + * dired + + You can use emacs-w3m to browse an HTML file in a `dired' buffer by + typing the `C-x m' key. Use the following settings in your + `~/.emacs' file: + + (eval-after-load "dired" + '(define-key dired-mode-map "\C-xm" 'dired-w3m-find-file)) + + (defun dired-w3m-find-file () + (interactive) + (require 'w3m) + (let ((file (dired-get-filename))) + (if (y-or-n-p (format "Use emacs-w3m to browse %s? " + (file-name-nondirectory file))) + (w3m-find-file file)))) + + * hnf-mode + + You can see the newest diary using emacs-w3m and the hyper nikki + system. Put the following lines in your `~/.emacs' file and type + the `C-c C-b' key in an `hnf-mode' buffer: + + (defun w3m-hnf-browse-url-w3m (url &optional new-window) + (interactive (browse-url-interactive-arg "URL: ")) + (save-selected-window + (pop-to-buffer (get-buffer-create "*w3m*")) + (w3m-browse-url url new-window))) + (setq hnf-browse-url-browser-function #'w3m-hnf-browse-url-w3m) + + * Gnus + + You've mistaken the entrance if you are a Gnus user and this + section is the first page you read in this Info. See *note + Hooking into MUAs:: first. + + By default, Gnus will not apply the treatment variables, for + instance `gnus-treat-strip-banner', to `text/html' parts. To have + them applied to `text/html' parts automatically, there are two + ways to do that: + + ;; Apply all the treatments to text/html parts. + (eval-after-load "gnus-art" + '(add-to-list 'gnus-article-treat-types "text/html")) + + ;; Apply a certain treatment to text/html parts. + (setq gnus-treat-strip-banner '(or t (typep "text/html"))) + + Also *Note Customizing Articles: (gnus)Customizing Articles, for + details. + + In addition, the experimental code below is used to display + `multipart/related' pictures. The place might be something wrong. + + (eval-after-load "gnus-art" + '(or (assoc "multipart/related" gnus-mime-multipart-functions) + (setq gnus-mime-multipart-functions + (cons + (cons + "multipart/related" + (byte-compile + (lambda (handle) + (gnus-mime-display-mixed (cdr handle))))) + gnus-mime-multipart-functions)))) + + * yahtml-mode + + You can use emacs-w3m to preview an HTML file that just you are + editing with the `yahtml-mode'. Here is an example: + + (defadvice yahtml-browse-html + (around w3m-yahtml-browse-html activate compile) + (w3m-goto-url (ad-get-arg 0) t)) + + * jisx0213 + + You can use JIS X 0213 character set in Emacs using the `jis0213' + module which is bundled in the Mule-UCS package. Although the + `decode-char' function is overridden by `mucs' (`jis0213' loads + `mucs') and it stops working properly for the `ucs' coded + character set, it has been reported that also to load the + `unicode' module seems to solve the problem. The reason has not + been made clear yet. Here is an example for the `~/.emacs' file: + + (require 'unicode) + (require 'un-define) + (require 'jisx0213) + + +File: emacs-w3m.info, Node: Mailing List, Next: Emacs-w3m Functions, Prev: Tips, Up: Top + +11 Mailing list and submitting bug reports +****************************************** + +We have set up a mailing list to discuss all things emacs-w3m. You can +post without subscribing. If you find a bug, have a feature request, or +have written some code, don't hesitate to post to the list. And if +you're just a user and like the program, please tell us too! + + The address is: + + Emacs-w3m Mailing List <emacs-w3m@namazu.org> + + You can also send a bug report using the `report-emacs-w3m-bug' +command (or the `C-c C-b' key) if you have set the `mail-user-agent' +variable that will work properly. + + English and Japanese can be used when posting to this list, since +many of its members are Japanese. Articles posted to the list are +opened to the public and you can read them on the web (at +`http://emacs-w3m.namazu.org/ml/'), or in NetNews (group +`gmane.emacs.w3m' on the server `news.gmane.org'). + + If you want to receive articles by mail, send a mail containing + + subscribe Your Name + + (please write your name, not your email address) in its body to +`emacs-w3m-ctl@namazu.org', then you can subscribe to the list. To +unsubscribe from it, send a mail containing just + + # bye + + in its body to `emacs-w3m-ctl@namazu.org'. + + +File: emacs-w3m.info, Node: Emacs-w3m Functions, Next: External Packages, Prev: Mailing List, Up: Top + +12 Details of some emacs-w3m functions +************************************** + + +File: emacs-w3m.info, Node: External Packages, Next: Authors, Prev: Emacs-w3m Functions, Up: Top + +13 Companion packages you might need +************************************ + +Even though emacs-w3m provides a wealth of features, you may want to +check out the following external packages for even more usability: + + * w3m-type-ahead.el + + The w3m-type-ahead.el package provides "type ahead" searching, + similar to the feature by the same name from Mozilla browsers. It + allows you to find anchors using an interface similar to isearch, + but results are limited to anchors in the buffer. + + Download w3m-type-ahead.el from + `http://alioth.debian.org/project/showfiles.php?group_id=30594'. + + * newsticker.el + + newsticker.el that has been incorporated in Emacs 22 and greater + is a rowse rss feeds and also atom feeds. Here is a configuration + example to use newsticker.el together with emacs-w3m (put it in + the `~/.emacs' file): + + (require 'w3m-load) + (setq newsticker-html-renderer 'w3m-region + browse-url-browser-function 'w3m-browse-url) + + *note Top: (Newsticker)Top, for details. + + +File: emacs-w3m.info, Node: Authors, Next: Index, Prev: External Packages, Up: Top + +14 People who wrote this manual +******************************* + + * Romain Francoise + + * NAKAJIMA Mikio + + * Yoichi NAKAYAMA + + * Ryoko NARITOKU(Translation only) + + * Hideyuki SHIRAI + + * TSUCHIYA Masatoshi + + * Katsumi Yamaoka + + * Masatake YAMATO + + * Naohiro Aota + + +File: emacs-w3m.info, Node: Index, Prev: Authors, Up: Top + +Index +***** + +* Menu: + +* Concept Index:: Concept Index +* Key Index:: Key Index +* Variable Index:: Variable Index +* Function Index:: Function Index + + +File: emacs-w3m.info, Node: Concept Index, Next: Key Index, Up: Index + +Concept Index +============= + + +* Menu: + +* about://antenna/: Using Antenna. (line 6) +* Adding a bookmark: Adding Bookmarks. (line 6) +* Adding autoload settings: Minimal Settings. (line 11) +* Adding new search engines: Adding New Search Engines. + (line 6) +* Antenna: Using Antenna. (line 6) +* APEL package: Other Requirements. (line 6) +* Arrived URLs: Tracing History. (line 6) +* article expiry: Nnshimbun. (line 170) +* auto-expire: Nnshimbun. (line 170) +* Bookmarks: Managing Bookmarks. (line 6) +* Browsing history: Tracing History. (line 6) +* codepage-ex: Other Requirements. (line 6) +* Consulting bookmarks: Consulting Bookmarks. + (line 6) +* Creating new buffers: Creating and killing buffers. + (line 6) +* Customizing user options: Customizable Variables. + (line 6) +* Displaying images: Inline Images. (line 6) +* Downloading files: Downloading. (line 6) +* Editing bookmarks: Editing Bookmarks. (line 6) +* expiry-wait: Nnshimbun. (line 170) +* Firewall: Minimal Settings. (line 27) +* FLIM package: Other Requirements. (line 6) +* Functions details: Emacs-w3m Functions. (line 6) +* General variables: General Variables. (line 6) +* Getting started: Getting Started. (line 6) +* Gifsicle program: Other Requirements. (line 6) +* group parameters: Nnshimbun. (line 88) +* Grouping URLs: Grouping URLs. (line 6) +* Hooks: Hooks. (line 6) +* ImageMagick package: Other Requirements. (line 6) +* Info-like keymap: Key Binding. (line 6) +* Installing emacs-w3m: Installing Emacs-w3m. + (line 6) +* Installing on non-UNIX-like systems: Non-UNIX-like systems. + (line 6) +* Introduction: Introduction. (line 6) +* Key binding: Key Binding. (line 6) +* Killing buffers: Creating and killing buffers. + (line 6) +* Lynx-like keymap: Key Binding. (line 6) +* Moving in a page: Moving in a page. (line 6) +* Mule-UCS package: Other Requirements. (line 6) +* nnshimbun: Nnshimbun. (line 6) +* Other variables: Other Variables. (line 6) +* Possible Emacs versions: Required Emacs Version. + (line 6) +* Proxy gateways: Minimal Settings. (line 27) +* Proxy servers: Minimal Settings. (line 27) +* Quick Searching: Quick Searching. (line 6) +* Reading HTML mails in Gnus: Gnus. (line 6) +* Reporting bugs: Mailing List. (line 6) +* rfc2368.el: Other Requirements. (line 6) +* Saving images: Inline Images. (line 68) +* Search engines: Using Search Engines. + (line 6) +* Searching: The Search Interface. + (line 6) +* Shimbun library: Shimbun Library. (line 6) +* shimbun.el: Shimbun Basics. (line 6) +* Showing the tree structure of local directories: Showing Directory Tree. + (line 6) +* Special URLs: Quick Searching. (line 6) +* Starting up: Getting Started. (line 6) +* Startup file: Minimal Settings. (line 20) +* Subscribing to the emacs-w3m mailing list: Mailing List. (line 6) +* Switching buffers using the buffer list: Selecting buffers. (line 47) +* Switching buffers using the minibuffer: Selecting buffers. (line 42) +* The Antenna interface: Daily web tracking. (line 6) +* Tips: Tips. (line 6) +* Tracking changes in web pages: Using Antenna. (line 6) +* Using emacs-w3m as a batch command: Launching and Jumping. + (line 18) +* Variables related to antenna: Antenna Variables. (line 6) +* Variables related to bookmarks: Bookmark Variables. (line 6) +* Variables related to cookies: Cookie Variables. (line 6) +* Variables related to forms: Form Variables. (line 6) +* Variables related to images: Image Variables. (line 6) +* Variables related to namazu: Namazu Variables. (line 6) +* Variables related to perldoc: Perldoc Variables. (line 6) +* Variables related to searching the web: Search Variables. (line 6) +* Variables related to session manager: Session Manager Variables. + (line 6) +* Variables related to the dtree feature: Dtree Variables. (line 6) +* Variables related to the octet feature: Octet Variables. (line 6) +* Variables related to weather information: Weather Variables. + (line 6) +* Viewing images: Inline Images. (line 64) +* w3m: You Need w3m. (line 6) +* Web Newspaper: Nnshimbun. (line 6) +* Zooming images: Inline Images. (line 73) + + +File: emacs-w3m.info, Node: Key Index, Next: Variable Index, Prev: Concept Index, Up: Index + +Key Index +========= + + +* Menu: + +* +: Setting up Antenna. (line 12) +* , (Lynx-like keymap): Moving in a page. (line 50) +* . (Lynx-like keymap): Moving in a page. (line 44) +* <: Moving in a page. (line 38) +* <backspace> <1>: Moving over pages. (line 110) +* <backspace>: Moving in a page. (line 28) +* <backtab>: Moving in a page. (line 81) +* <DEL> <1>: Moving over pages. (line 110) +* <DEL>: Moving in a page. (line 28) +* <down> (Lynx-like keymap): Moving in a page. (line 73) +* <left> (Lynx-like keymap): Moving over pages. (line 19) +* <RET>: Launching and Jumping. + (line 55) +* <right> (Lynx-like keymap): Launching and Jumping. + (line 55) +* <SPC> <1>: Moving over pages. (line 61) +* <SPC>: Moving in a page. (line 19) +* <TAB>: Moving in a page. (line 73) +* <up> (Lynx-like keymap): Moving in a page. (line 81) +* =: HTML File Information. + (line 30) +* >: Moving in a page. (line 33) +* [: Moving in a page. (line 90) +* \: HTML File Information. + (line 26) +* ]: Moving in a page. (line 86) +* ^: Moving over pages. (line 42) +* A: Daily web tracking. (line 39) +* a: Adding Bookmarks. (line 6) +* b <1>: Moving over pages. (line 110) +* b: Moving in a page. (line 28) +* B (Lynx-like keymap): Moving over pages. (line 19) +* c (Lynx-like keymap): Launching and Jumping. + (line 93) +* C-? <1>: Moving over pages. (line 110) +* C-?: Moving in a page. (line 28) +* C-c C-<SPC>: Tracing History. (line 54) +* C-c C-@: Tracing History. (line 54) +* C-c C-a: Selecting buffers. (line 42) +* C-c C-n: Moving across buffers. + (line 27) +* C-c C-p: Moving across buffers. + (line 22) +* C-c C-s: Selecting buffers. (line 47) +* C-c C-t: Creating and killing buffers. + (line 18) +* C-c C-v: Tracing History. (line 57) +* C-c C-w: Creating and killing buffers. + (line 23) +* C-c M-w: Creating and killing buffers. + (line 26) +* C-S-l (Info-like keymap): Launching and Jumping. + (line 108) +* C-u a: Adding Bookmarks. (line 6) +* C-u o (Info-like keymap): Tracing History. (line 48) +* C-u s (Lynx-like keymap): Tracing History. (line 48) +* d (Info-like keymap): Downloading. (line 26) +* D (Info-like keymap): Downloading. (line 21) +* D (Lynx-like keymap): Showing Directory Tree. + (line 50) +* d (Lynx-like keymap): Downloading. (line 21) +* E (Info-like keymap): HTML File Information. + (line 41) +* e (Info-like keymap): HTML File Information. + (line 36) +* e (Lynx-like keymap): HTML File Information. + (line 41) +* E (Lynx-like keymap): HTML File Information. + (line 36) +* G: Launching and Jumping. + (line 83) +* g: Launching and Jumping. + (line 77) +* H: Moving over pages. (line 32) +* i (Info-like keymap): Inline Images. (line 51) +* I (Info-like keymap): Inline Images. (line 30) +* I (Lynx-like keymap): Inline Images. (line 64) +* l (Info-like keymap): Moving over pages. (line 19) +* M: HTML File Information. + (line 45) +* M-<TAB>: Moving in a page. (line 81) +* M-[: Inline Images. (line 74) +* M-]: Inline Images. (line 77) +* M-a: Adding Bookmarks. (line 6) +* M-d (Lynx-like keymap): Downloading. (line 26) +* M-i: Inline Images. (line 68) +* M-I (Info-like keymap): Inline Images. (line 60) +* M-l: Moving in a page. (line 55) +* M-n: Creating and killing buffers. + (line 18) +* M-s: Session Manager. (line 11) +* M-S: Session Manager. (line 8) +* M-T (Lynx-like keymap): Inline Images. (line 60) +* mouse-2: Browsing with Mouse Operations. + (line 17) +* n (Info-like keymap): Moving over pages. (line 25) +* N (Lynx-like keymap): Moving over pages. (line 25) +* o (Info-like keymap): Tracing History. (line 48) +* p (Info-like keymap): Moving over pages. (line 19) +* Q: Going Back to Daily Hacking and/or Daily Writing. + (line 23) +* q: Going Back to Daily Hacking and/or Daily Writing. + (line 19) +* R: Launching and Jumping. + (line 108) +* s (Info-like keymap): The Search Interface. + (line 30) +* S (Lynx-like keymap): The Search Interface. + (line 30) +* s (Lynx-like keymap): Tracing History. (line 48) +* S-<left> (Info-like keymap): Moving in a page. (line 44) +* S-<mouse-2>: Browsing with Mouse Operations. + (line 21) +* S-<right> (Info-like keymap): Moving in a page. (line 50) +* S-<SPC> <1>: Moving over pages. (line 110) +* S-<SPC>: Moving in a page. (line 28) +* S-<TAB>: Moving in a page. (line 81) +* T (Info-like keymap): Showing Directory Tree. + (line 50) +* t (Lynx-like keymap): Inline Images. (line 51) +* T (Lynx-like keymap): Inline Images. (line 30) +* u (Info-like keymap): Moving over pages. (line 42) +* u (Lynx-like keymap): Launching and Jumping. + (line 98) +* v: Consulting Bookmarks. + (line 6) +* Y (Info-like keymap): Launching and Jumping. + (line 98) +* y (Info-like keymap): Launching and Jumping. + (line 93) +* {: Moving in a page. (line 98) +* }: Moving in a page. (line 94) + + +File: emacs-w3m.info, Node: Variable Index, Next: Function Index, Prev: Key Index, Up: Index + +Variable Index +============== + + +* Menu: + +* gnus-keep-backlog: Nnshimbun. (line 53) +* mm-inline-text-html-with-images: Gnus. (line 6) +* mm-inline-text-html-with-w3m-keymap: Gnus. (line 6) +* mm-text-html-renderer: Gnus. (line 6) +* nnmail-expiry-wait: Nnshimbun. (line 170) +* nnmail-expiry-wait-function: Nnshimbun. (line 170) +* nnshimbun-default-group-level: Nnshimbun. (line 71) +* nnshimbun-directory: Nnshimbun. (line 66) +* nnshimbun-encapsulate-images: Nnshimbun. (line 110) +* nnshimbun-group-parameters-alist: Nnshimbun. (line 154) +* nnshimbun-index-range: Nnshimbun. (line 122) +* nnshimbun-keep-backlog: Nnshimbun. (line 53) +* nnshimbun-keep-unparsable-dated-articles: Nnshimbun. (line 252) +* nnshimbun-marks-is-evil: Nnshimbun. (line 77) +* nnshimbun-pre-fetch-article: Nnshimbun. (line 101) +* shimbun-local-path: Shimbun local mode. (line 22) +* shimbun-slashdot-comment-display: News Sites Supported by Shimbun. + (line 123) +* shimbun-slashdot-comment-threshold: News Sites Supported by Shimbun. + (line 119) +* shimbun-slashdot-get-comments: News Sites Supported by Shimbun. + (line 110) +* shimbun-tech-on-password: News Sites Supported by Shimbun. + (line 162) +* shimbun-tech-on-user-name: News Sites Supported by Shimbun. + (line 155) +* shimbun-use-local: Shimbun local mode. (line 17) +* w3m-accept-languages: General Variables. (line 7) +* w3m-add-referer: General Variables. (line 12) +* w3m-add-user-agent: General Variables. (line 43) +* w3m-after-cursor-move-hook: Hooks. (line 7) +* w3m-antenna-file: Antenna Variables. (line 7) +* w3m-antenna-html-skelton: Antenna Variables. (line 12) +* w3m-antenna-refresh-interval <1>: Antenna Variables. (line 15) +* w3m-antenna-refresh-interval: Daily web tracking. (line 34) +* w3m-antenna-sites: Setting up Antenna. (line 6) +* w3m-antenna-sort-changed-sites-function: Antenna Variables. (line 24) +* w3m-antenna-sort-unchanged-sites-function: Antenna Variables. + (line 29) +* w3m-arrived-file: General Variables. (line 47) +* w3m-async-exec: Other Variables. (line 7) +* w3m-auto-show: General Variables. (line 50) +* w3m-bookmark-default-section: Bookmark Variables. (line 18) +* w3m-bookmark-file: Bookmark Variables. (line 7) +* w3m-bookmark-file-coding-system: Bookmark Variables. (line 10) +* w3m-bookmark-menu-open-new-session: Bookmark Variables. (line 21) +* w3m-bookmark-mode-hook: Hooks. (line 56) +* w3m-broken-proxy-cache: Other Variables. (line 11) +* w3m-charset-coding-system-alist: General Variables. (line 60) +* w3m-coding-system: General Variables. (line 64) +* w3m-coding-system-priority-list: General Variables. (line 67) +* w3m-command: General Variables. (line 70) +* w3m-command-arguments: Minimal Settings. (line 27) +* w3m-command-arguments-alist: General Variables. (line 88) +* w3m-command-environment: General Variables. (line 108) +* w3m-confirm-leaving-secure-page: General Variables. (line 111) +* w3m-content-type-alist: General Variables. (line 117) +* w3m-cookie-accept-bad-cookies: Cookie Variables. (line 7) +* w3m-cookie-accept-domains: Cookie Variables. (line 11) +* w3m-cookie-file: Cookie Variables. (line 14) +* w3m-cookie-reject-domains: Cookie Variables. (line 17) +* w3m-correct-charset-alist: General Variables. (line 150) +* w3m-db-history-display-size: General Variables. (line 153) +* w3m-decoder-alist: General Variables. (line 156) +* w3m-default-coding-system: Quick Searching. (line 6) +* w3m-default-content-type: General Variables. (line 162) +* w3m-default-directory: General Variables. (line 165) +* w3m-default-display-inline-images: Image Variables. (line 7) +* w3m-default-save-directory: General Variables. (line 178) +* w3m-delete-buffer-hook: Hooks. (line 12) +* w3m-delete-duplicated-empty-lines: General Variables. (line 181) +* w3m-dirlist-cgi-program: General Variables. (line 185) +* w3m-display-hook: Hooks. (line 15) +* w3m-do-cleanup-temp-files: General Variables. (line 642) +* w3m-doc-view-content-types: General Variables. (line 189) +* w3m-dtree-default-allfiles: Dtree Variables. (line 7) +* w3m-dtree-directory-depth: Dtree Variables. (line 13) +* w3m-dtree-indent-strings: Dtree Variables. (line 18) +* w3m-dtree-stop-strings: Dtree Variables. (line 22) +* w3m-edit-function: General Variables. (line 193) +* w3m-edit-function-alist: General Variables. (line 198) +* w3m-enable-google-feeling-lucky: General Variables. (line 205) +* w3m-encoding-type-alist: General Variables. (line 210) +* w3m-favicon-cache-expire-wait: Image Variables. (line 13) +* w3m-favicon-cache-file: Image Variables. (line 17) +* w3m-favicon-default-background: Image Variables. (line 32) +* w3m-favicon-size: Image Variables. (line 22) +* w3m-favicon-type: Image Variables. (line 26) +* w3m-favicon-use-cache-file: Image Variables. (line 29) +* w3m-file-coding-system: General Variables. (line 213) +* w3m-file-name-coding-system: General Variables. (line 217) +* w3m-fill-column: General Variables. (line 221) +* w3m-follow-redirection: General Variables. (line 229) +* w3m-fontify-after-hook: Hooks. (line 20) +* w3m-fontify-before-hook: Hooks. (line 24) +* w3m-form-input-map-buffer-lines: Form Variables. (line 7) +* w3m-form-input-map-mode-hook: Hooks. (line 28) +* w3m-form-input-map-set-hook: Hooks. (line 31) +* w3m-form-input-select-buffer-lines: Form Variables. (line 10) +* w3m-form-input-select-mode-hook: Hooks. (line 34) +* w3m-form-input-select-set-hook: Hooks. (line 37) +* w3m-form-input-textarea-buffer-lines: Form Variables. (line 13) +* w3m-form-input-textarea-mode-hook: Hooks. (line 40) +* w3m-form-input-textarea-set-hook: Hooks. (line 43) +* w3m-form-mouse-face: Form Variables. (line 16) +* w3m-form-textarea-directory: Form Variables. (line 25) +* w3m-form-treat-textarea-size: Form Variables. (line 19) +* w3m-form-use-fancy-faces: Form Variables. (line 22) +* w3m-form-use-textarea-backup: Form Variables. (line 25) +* w3m-history-minimize-in-new-session: Other Variables. (line 20) +* w3m-history-reuse-history-elements: Other Variables. (line 26) +* w3m-home-page: Launching and Jumping. + (line 18) +* w3m-horizontal-scroll-columns: Moving in a page. (line 33) +* w3m-horizontal-scroll-division: General Variables. (line 245) +* w3m-horizontal-shift-columns: Moving in a page. (line 44) +* w3m-icon-directory: Image Variables. (line 40) +* w3m-image-default-background: Image Variables. (line 108) +* w3m-imagick-convert-program: Image Variables. (line 43) +* w3m-imitate-widget-button: General Variables. (line 266) +* w3m-init-file <1>: Customizable Variables. + (line 6) +* w3m-init-file: Minimal Settings. (line 20) +* w3m-input-coding-system: General Variables. (line 281) +* w3m-keep-arrived-urls: General Variables. (line 286) +* w3m-keep-cache-size: General Variables. (line 289) +* w3m-key-binding: Key Binding. (line 6) +* w3m-language: General Variables. (line 297) +* w3m-local-directory-view-method: General Variables. (line 300) +* w3m-local-find-file-function: General Variables. (line 306) +* w3m-local-find-file-regexps: General Variables. (line 317) +* w3m-mailto-url-function: General Variables. (line 341) +* w3m-mailto-url-popup-function-alist: General Variables. (line 347) +* w3m-make-new-session: General Variables. (line 357) +* w3m-mbconv-command: General Variables. (line 365) +* w3m-menu-on-forefront: General Variables. (line 613) +* w3m-minor-mode: Gnus. (line 6) +* w3m-minor-mode-command-alist: Gnus. (line 6) +* w3m-minor-mode-hook: Hooks. (line 46) +* w3m-mode-hook: Hooks. (line 49) +* w3m-namazu-arguments: Namazu Variables. (line 10) +* w3m-namazu-command: Namazu Variables. (line 7) +* w3m-namazu-default-index: Namazu Variables. (line 17) +* w3m-namazu-index-alist: Namazu Variables. (line 25) +* w3m-namazu-input-coding-system: Namazu Variables. (line 29) +* w3m-namazu-output-coding-system: Namazu Variables. (line 34) +* w3m-namazu-page-max: Namazu Variables. (line 40) +* w3m-new-session-in-background: General Variables. (line 638) +* w3m-no-proxy-domains: Minimal Settings. (line 27) +* w3m-output-coding-system: General Variables. (line 375) +* w3m-perldoc-command: Perldoc Variables. (line 7) +* w3m-perldoc-input-coding-system: Perldoc Variables. (line 11) +* w3m-perldoc-output-coding-system: Perldoc Variables. (line 17) +* w3m-perldoc-pod2html-arguments: Perldoc Variables. (line 25) +* w3m-perldoc-pod2html-command: Perldoc Variables. (line 21) +* w3m-pixels-per-character: Image Variables. (line 59) +* w3m-pixels-per-line: Image Variables. (line 67) +* w3m-pop-up-frames: General Variables. (line 378) +* w3m-pop-up-windows: General Variables. (line 386) +* w3m-popup-frame-parameters: General Variables. (line 395) +* w3m-prefer-cache: General Variables. (line 400) +* w3m-process-connection-type: Other Variables. (line 47) +* w3m-process-modeline-format: Other Variables. (line 51) +* w3m-profile-directory: General Variables. (line 404) +* w3m-quick-start <1>: Moving over pages. (line 32) +* w3m-quick-start: Launching and Jumping. + (line 18) +* w3m-redirect-with-get: General Variables. (line 415) +* w3m-refresh-minimum-interval: General Variables. (line 604) +* w3m-relationship-estimate-rules: General Variables. (line 426) +* w3m-resize-image-scale: Image Variables. (line 76) +* w3m-resize-images: Image Variables. (line 79) +* w3m-search-default-engine: The Search Interface. + (line 30) +* w3m-search-engine-alist: Quick Searching. (line 6) +* w3m-search-thing-at-point-arg: Search Variables. (line 25) +* w3m-search-word-at-point: Search Variables. (line 20) +* w3m-select-buffer-hook: Hooks. (line 53) +* w3m-select-buffer-horizontal-window: General Variables. (line 430) +* w3m-select-buffer-window-ratio: General Variables. (line 434) +* w3m-session-automatic-keep-number: Session Manager Variables. + (line 25) +* w3m-session-automatic-save: Session Manager. (line 40) +* w3m-session-automatic-title: Session Manager Variables. + (line 13) +* w3m-session-crash-recovery: Session Manager. (line 53) +* w3m-session-crash-recovery-title: Session Manager Variables. + (line 19) +* w3m-session-deleted-keep-number: Session Manager Variables. + (line 22) +* w3m-session-deleted-save: Session Manager. (line 40) +* w3m-session-deleted-title: Session Manager Variables. + (line 16) +* w3m-session-file: Session Manager Variables. + (line 7) +* w3m-session-load-crashed-sessions: Session Manager. (line 53) +* w3m-session-load-last-sessions: Session Manager. (line 47) +* w3m-session-time-format: Session Manager Variables. + (line 10) +* w3m-session-unknown-title: Session Manager Variables. + (line 28) +* w3m-show-current-title-in-buffer-tab: Other Variables. (line 56) +* w3m-show-decoded-url: General Variables. (line 439) +* w3m-show-error-information: General Variables. (line 477) +* w3m-show-graphic-icons-in-header-line: Image Variables. (line 82) +* w3m-show-graphic-icons-in-mode-line: Image Variables. (line 88) +* w3m-space-before-favicon: General Variables. (line 482) +* w3m-space-before-modeline-icon: General Variables. (line 487) +* w3m-submit-form-safety-check: General Variables. (line 585) +* w3m-tab-mouse-position-adjuster: Using Tabs. (line 60) +* w3m-tab-track-mouse: Using Tabs. (line 54) +* w3m-terminal-coding-system: General Variables. (line 492) +* w3m-toggle-inline-images-permanently: Image Variables. (line 93) +* w3m-touch-command: General Variables. (line 499) +* w3m-track-mouse: General Variables. (line 504) +* w3m-treat-image-size: Image Variables. (line 46) +* w3m-uri-replace-alist: Quick Searching. (line 6) +* w3m-url-local-directory-alist: General Variables. (line 558) +* w3m-use-ange-ftp: General Variables. (line 566) +* w3m-use-cookies: Cookie Variables. (line 20) +* w3m-use-cygdrive: General Variables. (line 570) +* w3m-use-favicon: Image Variables. (line 103) +* w3m-use-filter: General Variables. (line 574) +* w3m-use-form: General Variables. (line 581) +* w3m-use-header-line: General Variables. (line 589) +* w3m-use-header-line-title: General Variables. (line 592) +* w3m-use-mule-ucs: General Variables. (line 596) +* w3m-use-refresh: General Variables. (line 599) +* w3m-use-symbol: General Variables. (line 608) +* w3m-use-tab: Using Tabs. (line 45) +* w3m-use-tab-menubar: General Variables. (line 623) +* w3m-use-title-buffer-name: General Variables. (line 474) +* w3m-use-toolbar: General Variables. (line 631) +* w3m-user-agent: General Variables. (line 634) +* w3m-weather-default-area: Weather Variables. (line 7) +* w3m-weather-filter-functions: Weather Variables. (line 11) + + +File: emacs-w3m.info, Node: Function Index, Prev: Variable Index, Up: Index + +Function Index +============== + + +* Menu: + +* gnus-group-make-shimbun-group: Nnshimbun. (line 18) +* gnus-group-make-shimbun-groups: Nnshimbun. (line 40) +* nnshimbun-generate-download-script: Shimbun local mode. (line 32) +* octet-find-file: Octet. (line 6) +* w3m: Launching and Jumping. + (line 18) +* w3m-antenna: Daily web tracking. (line 39) +* w3m-antenna-add-current-url: Setting up Antenna. (line 12) +* w3m-bookmark-add-current-url: Adding Bookmarks. (line 6) +* w3m-bookmark-add-this-url: Adding Bookmarks. (line 6) +* w3m-bookmark-edit: Editing Bookmarks. (line 20) +* w3m-bookmark-kill-entry: Editing Bookmarks. (line 17) +* w3m-bookmark-undo: Editing Bookmarks. (line 23) +* w3m-bookmark-view: Consulting Bookmarks. + (line 6) +* w3m-browse-url: Launching and Jumping. + (line 37) +* w3m-close-window: Going Back to Daily Hacking and/or Daily Writing. + (line 19) +* w3m-copy-buffer: Creating and killing buffers. + (line 18) +* w3m-delete-buffer: Creating and killing buffers. + (line 23) +* w3m-delete-other-buffers: Creating and killing buffers. + (line 26) +* w3m-download: Downloading. (line 26) +* w3m-download-this-url: Downloading. (line 21) +* w3m-dtree: Showing Directory Tree. + (line 50) +* w3m-edit-current-url: HTML File Information. + (line 36) +* w3m-edit-this-url: HTML File Information. + (line 41) +* w3m-fb-mode: Frame Local Buffers. (line 11) +* w3m-find-file: Launching and Jumping. + (line 33) +* w3m-gohome: Moving over pages. (line 32) +* w3m-goto-url: Launching and Jumping. + (line 77) +* w3m-goto-url-new-session: Launching and Jumping. + (line 83) +* w3m-history: Tracing History. (line 48) +* w3m-history-restore-position: Tracing History. (line 57) +* w3m-history-store-position: Tracing History. (line 54) +* w3m-horizontal-recenter: Moving in a page. (line 55) +* w3m-mouse-view-this-url: Browsing with Mouse Operations. + (line 17) +* w3m-mouse-view-this-url-new-session: Browsing with Mouse Operations. + (line 21) +* w3m-next-anchor: Moving in a page. (line 73) +* w3m-next-buffer: Moving across buffers. + (line 27) +* w3m-next-form: Moving in a page. (line 86) +* w3m-next-image: Moving in a page. (line 94) +* w3m-pattern-uri-replace: General Variables. (line 544) +* w3m-previous-anchor: Moving in a page. (line 81) +* w3m-previous-buffer: Moving across buffers. + (line 22) +* w3m-previous-form: Moving in a page. (line 90) +* w3m-previous-image: Moving in a page. (line 98) +* w3m-print-current-url: Launching and Jumping. + (line 93) +* w3m-print-this-url: Launching and Jumping. + (line 98) +* w3m-quit: Going Back to Daily Hacking and/or Daily Writing. + (line 23) +* w3m-reload-this-page: Launching and Jumping. + (line 108) +* w3m-save-image: Inline Images. (line 68) +* w3m-scroll-down-or-previous-url <1>: Moving over pages. (line 110) +* w3m-scroll-down-or-previous-url: Moving in a page. (line 28) +* w3m-scroll-left: Moving in a page. (line 33) +* w3m-scroll-right: Moving in a page. (line 38) +* w3m-scroll-up-or-next-url <1>: Moving over pages. (line 61) +* w3m-scroll-up-or-next-url: Moving in a page. (line 19) +* w3m-search: The Search Interface. + (line 30) +* w3m-search-uri-replace: General Variables. (line 549) +* w3m-select-buffer: Selecting buffers. (line 47) +* w3m-session-select: Session Manager. (line 11) +* w3m-session-select-delete: Session Manager. (line 23) +* w3m-session-select-next: Session Manager. (line 32) +* w3m-session-select-open-session-group: Session Manager. (line 19) +* w3m-session-select-previous: Session Manager. (line 35) +* w3m-session-select-quit: Session Manager. (line 38) +* w3m-session-select-rename: Session Manager. (line 26) +* w3m-session-select-save: Session Manager. (line 29) +* w3m-session-select-select: Session Manager. (line 16) +* w3m-shift-left: Moving in a page. (line 44) +* w3m-shift-right: Moving in a page. (line 50) +* w3m-switch-buffer: Selecting buffers. (line 42) +* w3m-tab-move-left: Moving across buffers. + (line 42) +* w3m-tab-move-right: Moving across buffers. + (line 36) +* w3m-toggle-inline-image: Inline Images. (line 51) +* w3m-toggle-inline-images: Inline Images. (line 30) +* w3m-turnoff-inline-images: Inline Images. (line 60) +* w3m-view-header: HTML File Information. + (line 30) +* w3m-view-image: Inline Images. (line 64) +* w3m-view-next-page: Moving over pages. (line 25) +* w3m-view-parent-page: Moving over pages. (line 42) +* w3m-view-previous-page: Moving over pages. (line 19) +* w3m-view-source: HTML File Information. + (line 26) +* w3m-view-this-url: Launching and Jumping. + (line 55) +* w3m-view-url-with-external-browser: HTML File Information. + (line 45) +* w3m-zoom-in-image: Inline Images. (line 77) +* w3m-zoom-out-image: Inline Images. (line 74) + + + +Tag Table: +Node: Top1134 +Node: Introduction6654 +Node: Getting Started7702 +Node: Required Emacs Version8496 +Node: You Need w3m9574 +Node: Other Requirements10101 +Node: Installing Emacs-w3m14843 +Node: Non-UNIX-like systems18082 +Node: Minimal Settings18816 +Node: Basic Usage21112 +Node: Browsing Web Pages21807 +Node: Key Binding22542 +Node: Launching and Jumping23893 +Node: Moving in a page28471 +Node: Moving over pages32180 +Node: Browsing with Mouse Operations37518 +Node: Going Back to Daily Hacking and/or Daily Writing39203 +Node: Inline Images40289 +Node: Tracing History43704 +Node: Managing Bookmarks48235 +Node: Adding Bookmarks48765 +Node: Consulting Bookmarks50304 +Node: Editing Bookmarks50999 +Node: Using Tabs51873 +Ref: Using Tabs-Footnote-155507 +Ref: Using Tabs-Footnote-255693 +Node: Working with buffers55770 +Node: Creating and killing buffers56386 +Node: Moving across buffers57471 +Ref: Moving across buffers-Footnote-159812 +Node: Selecting buffers59998 +Node: Downloading62634 +Node: Submitting Forms63858 +Node: HTML File Information65477 +Node: Pretty Good Features67657 +Node: Using Search Engines68465 +Node: The Search Interface69840 +Node: Quick Searching71415 +Node: Adding New Search Engines73941 +Node: Grouping URLs76285 +Node: Weather Information77388 +Node: Using Antenna77570 +Node: Setting up Antenna78242 +Node: Daily web tracking78856 +Node: Showing Directory Tree80617 +Node: Viewing Perl Documents82279 +Node: Using Namazu82468 +Node: Octet82671 +Node: Frame Local Buffers83116 +Node: Session Manager84717 +Node: Customizable Variables86951 +Node: General Variables89787 +Node: Image Variables116018 +Node: Form Variables120819 +Node: Cookie Variables121735 +Node: Bookmark Variables122383 +Node: Search Variables123208 +Node: Weather Variables124422 +Node: Dtree Variables125061 +Node: Antenna Variables126069 +Node: Perldoc Variables127380 +Node: Namazu Variables128321 +Node: Octet Variables130059 +Node: Session Manager Variables130325 +Node: Hooks131165 +Node: Other Variables132973 +Node: Hooking into MUAs135475 +Node: Gnus136547 +Node: Mew141082 +Node: SEMI MUAs143454 +Node: VM146228 +Node: Frequently Asked Questions146645 +Node: General FAQ146995 +Node: Trouble FAQ148940 +Ref: Trouble FAQ-Footnote-1158401 +Node: Shimbun FAQ158473 +Node: Known Problems159306 +Node: Shimbun Library159475 +Node: Nnshimbun162328 +Ref: Nnshimbun-Footnote-1174625 +Ref: Nnshimbun-Footnote-2174825 +Ref: Nnshimbun-Footnote-3175526 +Ref: Nnshimbun-Footnote-4175630 +Node: Mew Shimbun176100 +Ref: Mew Shimbun-Footnote-1185568 +Ref: Mew Shimbun-Footnote-2185698 +Node: Shimbun with Wanderlust185863 +Node: Shimbun local mode186247 +Node: Shimbun Sites188035 +Node: Newspapers Supported by Shimbun188591 +Node: News Sites Supported by Shimbun199276 +Node: Mailing Lists Supported by Shimbun208835 +Node: Sport Sites Supported by Shimbun222238 +Node: Misc Sites Supported by Shimbun223096 +Node: Shimbun Basics234961 +Node: Overview235556 +Node: Getting web page and header information239391 +Ref: Getting web page and header information-Footnote-1245151 +Ref: Getting web page and header information-Footnote-2245244 +Node: Displaying an article245352 +Node: Inheriting shimbun module248151 +Ref: Inheriting shimbun module-Footnote-1250334 +Ref: Inheriting shimbun module-Footnote-2250419 +Node: Making text/plain articles250473 +Node: Zenkaku to hankaku conversion252803 +Node: Coding convention of Shimbun253913 +Node: Tips255085 +Node: Mailing List259943 +Node: Emacs-w3m Functions261285 +Node: External Packages261473 +Node: Authors262639 +Node: Index263009 +Node: Concept Index263278 +Node: Key Index270098 +Node: Variable Index279687 +Node: Function Index296988 + +End Tag Table |