customize
*********

fields
======

tm-view.el and tm-edit.el uses pair of field-list and field-regexp to display or choose fields of message header.

tm has functions to set such pair.

 -- Function: tm:add-fields sym field-list &optional regexp-sym

     It adds FIELD-LIST to field-list indicated by symbol SYM.

 -- Function: tm:delete-fields sym field-list &optional regexp-sym

     It removes FIELD-LIST from field-list indicated by symbol SYM.

available functions
===================

 -- Function: add-path path &rest options

     It adds PATH to load-path.

     In default, it adds expanded path to top of load-path if there is PATH under default-load-path.

     If 'all-paths is specified in OPTIONS, it searches PATH from all of load-path instead of only default-load-path.

     If 'append is specifies in OPTIONS, it adds to end of load-path.

 -- Function: call-after-loaded module func &optional hook-name

     It calls function FUNC if MODULE is already provided.

     Otherwise, it add-hooks to HOOK-NAME.

     Default value of HOOK-NAME is MODULE-load-hook.

example
=======

message header display (1)
--------------------------

If you want not to display "Mail-From", "Expires", "Xref", "Approved", "Sender" and "X-.*", please specify:

     (call-after-loaded
      'tm-view
      (lambda ()
        (tm:add-fields
         'mime-viewer/ignored-field-list
         '("Mail-From" "Expires" "Xref" "Approved" "Sender" "X-.*")
          )))

message header display (2)
--------------------------

If you want to display only "From", ".*To", "Subject", ".*Date" and "Newsgroups" , please specify:

     (setq mime-viewer/ignored-field-list '(".+"))
     (setq mime-viewer/visible-field-list
           '("From" ".*To" "Subject" ".*Date" "Newsgroups"))

hilit19
-------

example to add faces using hilit19.

     (cond (window-system
            (let* ((header-patterns '(("^Subject:.*$" nil msg-subject)
     				 ("^From:.*$" nil msg-from)
     				 ("^--text follows this line--$"
     				  nil msg-separator)
     				 ("^[A-Za-z][A-Za-z0-9-]+:" nil msg-header)
     				 ))
     	      (body-patterns '(("^\\(In article\\|[ \t]*\\w*[]<>}|]\\).*$"
     				nil msg-quote)))
     	      (message-patterns (append header-patterns body-patterns))
     	      )
     	 (hilit-set-mode-patterns 'msg-header header-patterns)
     	 (hilit-set-mode-patterns 'msg-body body-patterns)
     	 (hilit-set-mode-patterns 'mime/viewer-mode
     				  message-patterns
     				  'hilit-rehighlight-message)
     	 )
            (add-hook 'mime-viewer/content-header-filter-hook
     		 (function hilit-rehighlight-buffer-quietly))
            (add-hook 'mime-viewer/plain-text-preview-hook
     		 (function hilit-rehighlight-buffer-quietly))
            ))

browse-url
----------

setting example for browse-url.el included in Gnus.

     (setq browse-url-browser-function
           (if (eq window-system 'x)
     	  'browse-url-netscape
     	'browse-url-w3))
     (autoload browse-url-browser-function "browse-url"
       "Ask a WWW browser to show a URL." t)