[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-loaddefs.el

[Bill Wohler]

Index: emacs/lisp/mh-e/mh-loaddefs.el
diff -c emacs/lisp/mh-e/mh-loaddefs.el:1.1 emacs/lisp/mh-e/mh-loaddefs.el:1.2
*** emacs/lisp/mh-e/mh-loaddefs.el:1.1  Sat Jan 25 21:38:37 2003
--- emacs/lisp/mh-e/mh-loaddefs.el      Mon Feb  3 15:55:30 2003
***************
*** 1,6 ****
--- 1,11 ----
  ;;; mh-loaddefs.el --- automatically extracted autoloads
  ;;
+ ;;; Copyright (C) 2003 Free Software Foundation, Inc.
+ ;;; Author: Bill Wohler <address@hidden>
+ ;;; Keywords: mail
  ;;; Commentary:
+ ;;; Change Log:
+ ;; $Id: mh-loaddefs.el,v 1.2 2003/02/03 20:55:30 wohler Exp $
  ;;; Code:
  
  ;;;### (autoloads (mh-letter-complete mh-open-line mh-fully-kill-draft
***************
*** 8,14 ****
  ;;;;;;  mh-insert-signature mh-to-fcc mh-to-field mh-fill-paragraph-function
  ;;;;;;  mh-send-other-window mh-send mh-reply mh-redistribute mh-forward
  ;;;;;;  mh-extract-rejected-mail mh-edit-again) "mh-comp" "mh-comp.el"
! ;;;;;;  (15899 19356))
  ;;; Generated autoloads from mh-comp.el
  
  (autoload (quote mh-edit-again) "mh-comp" "\
--- 13,19 ----
  ;;;;;;  mh-insert-signature mh-to-fcc mh-to-field mh-fill-paragraph-function
  ;;;;;;  mh-send-other-window mh-send mh-reply mh-redistribute mh-forward
  ;;;;;;  mh-extract-rejected-mail mh-edit-again) "mh-comp" "mh-comp.el"
! ;;;;;;  (15924 43423))
  ;;; Generated autoloads from mh-comp.el
  
  (autoload (quote mh-edit-again) "mh-comp" "\
***************
*** 145,155 ****
  ;;;***
  
  ;;;### (autoloads (mh-tool-bar-folder-set mh-tool-bar-letter-set
! ;;;;;;  mh-customize) "mh-customize" "mh-customize.el" (15899 29873))
  ;;; Generated autoloads from mh-customize.el
  
  (autoload (quote mh-customize) "mh-customize" "\
! Customize MH-E variables." t nil)
  
  (autoload (quote mh-tool-bar-letter-set) "mh-customize" "\
  Construct toolbar for `mh-letter-mode'." nil nil)
--- 150,162 ----
  ;;;***
  
  ;;;### (autoloads (mh-tool-bar-folder-set mh-tool-bar-letter-set
! ;;;;;;  mh-customize) "mh-customize" "mh-customize.el" (15933 21842))
  ;;; Generated autoloads from mh-customize.el
  
  (autoload (quote mh-customize) "mh-customize" "\
! Customize MH-E variables.
! With optional argument DELETE-OTHER-WINDOWS-FLAG, other windows in the frame
! are removed." t nil)
  
  (autoload (quote mh-tool-bar-letter-set) "mh-customize" "\
  Construct toolbar for `mh-letter-mode'." nil nil)
***************
*** 160,166 ****
  ;;;***
  
  ;;;### (autoloads (mh-goto-cur-msg mh-update-sequences 
mh-folder-line-matches-show-buffer-p)
! ;;;;;;  "mh-e" "mh-e.el" (15899 29921))
  ;;; Generated autoloads from mh-e.el
  
  (autoload (quote mh-folder-line-matches-show-buffer-p) "mh-e" "\
--- 167,173 ----
  ;;;***
  
  ;;;### (autoloads (mh-goto-cur-msg mh-update-sequences 
mh-folder-line-matches-show-buffer-p)
! ;;;;;;  "mh-e" "mh-e.el" (15934 48879))
  ;;; Generated autoloads from mh-e.el
  
  (autoload (quote mh-folder-line-matches-show-buffer-p) "mh-e" "\
***************
*** 183,189 ****
  ;;;;;;  mh-undo-folder mh-sort-folder mh-print-msg mh-page-digest-backwards
  ;;;;;;  mh-page-digest mh-pipe-msg mh-pack-folder mh-list-folders
  ;;;;;;  mh-kill-folder mh-copy-msg mh-burst-digest) "mh-funcs" "mh-funcs.el"
! ;;;;;;  (15886 19303))
  ;;; Generated autoloads from mh-funcs.el
  
  (autoload (quote mh-burst-digest) "mh-funcs" "\
--- 190,196 ----
  ;;;;;;  mh-undo-folder mh-sort-folder mh-print-msg mh-page-digest-backwards
  ;;;;;;  mh-page-digest mh-pipe-msg mh-pack-folder mh-list-folders
  ;;;;;;  mh-kill-folder mh-copy-msg mh-burst-digest) "mh-funcs" "mh-funcs.el"
! ;;;;;;  (15923 15465))
  ;;; Generated autoloads from mh-funcs.el
  
  (autoload (quote mh-burst-digest) "mh-funcs" "\
***************
*** 199,207 ****
  (autoload (quote mh-kill-folder) "mh-funcs" "\
  Remove the current folder and all included messages.
  Removes all of the messages (files) within the specified current folder,
! and then removes the folder (directory) itself.
! The value of `mh-folder-list-change-hook' is a list of functions to be called,
! with no arguments, after the folders has been removed." t nil)
  
  (autoload (quote mh-list-folders) "mh-funcs" "\
  List mail folders." t nil)
--- 206,212 ----
  (autoload (quote mh-kill-folder) "mh-funcs" "\
  Remove the current folder and all included messages.
  Removes all of the messages (files) within the specified current folder,
! and then removes the folder (directory) itself." t nil)
  
  (autoload (quote mh-list-folders) "mh-funcs" "\
  List mail folders." t nil)
***************
*** 260,266 ****
  ;;;***
  
  ;;;### (autoloads (mh-insert-identity mh-identity-list-set 
mh-identity-make-menu)
! ;;;;;;  "mh-identity" "mh-identity.el" (15852 60439))
  ;;; Generated autoloads from mh-identity.el
  
  (autoload (quote mh-identity-make-menu) "mh-identity" "\
--- 265,271 ----
  ;;;***
  
  ;;;### (autoloads (mh-insert-identity mh-identity-list-set 
mh-identity-make-menu)
! ;;;;;;  "mh-identity" "mh-identity.el" (15900 46388))
  ;;; Generated autoloads from mh-identity.el
  
  (autoload (quote mh-identity-make-menu) "mh-identity" "\
***************
*** 281,288 ****
  ;;;### (autoloads (mh-namazu-execute-search mh-swish++-execute-search
  ;;;;;;  mh-swish-execute-search mh-glimpse-execute-search 
mh-index-execute-commands
  ;;;;;;  mh-index-visit-folder mh-index-delete-folder-headers 
mh-index-insert-folder-headers
! ;;;;;;  mh-index-previous-folder mh-index-next-folder mh-index-search
! ;;;;;;  mh-index-update-maps) "mh-index" "mh-index.el" (15899 19358))
  ;;; Generated autoloads from mh-index.el
  
  (autoload (quote mh-index-update-maps) "mh-index" "\
--- 286,294 ----
  ;;;### (autoloads (mh-namazu-execute-search mh-swish++-execute-search
  ;;;;;;  mh-swish-execute-search mh-glimpse-execute-search 
mh-index-execute-commands
  ;;;;;;  mh-index-visit-folder mh-index-delete-folder-headers 
mh-index-insert-folder-headers
! ;;;;;;  mh-index-previous-folder mh-index-next-folder 
mh-index-parse-search-regexp
! ;;;;;;  mh-index-do-search mh-index-search mh-index-update-maps)
! ;;;;;;  "mh-index" "mh-index.el" (15924 45743))
  ;;; Generated autoloads from mh-index.el
  
  (autoload (quote mh-index-update-maps) "mh-index" "\
***************
*** 298,304 ****
  If REDO-SEARCH-FLAG is non-nil and the current folder buffer was generated by 
a
  index search, then the search is repeated. Otherwise, FOLDER is searched with
  SEARCH-REGEXP and the results are presented in an MH-E folder. If FOLDER is
! \"+\" then mail in all folders are searched.
  
  Four indexing programs are supported; if none of these are present, then grep
  is used. This function picks the first program that is available on your
--- 304,312 ----
  If REDO-SEARCH-FLAG is non-nil and the current folder buffer was generated by 
a
  index search, then the search is repeated. Otherwise, FOLDER is searched with
  SEARCH-REGEXP and the results are presented in an MH-E folder. If FOLDER is
! \"+\" then mail in all folders are searched. Optional argument WINDOW-CONFIG
! stores the window configuration that will be restored after the user quits the
! folder containing the index search results.
  
  Four indexing programs are supported; if none of these are present, then grep
  is used. This function picks the first program that is available on your
***************
*** 310,318 ****
--- 318,333 ----
  
      - `mh-swish++-execute-search'
      - `mh-swish-execute-search'
+     - `mh-mairix-execute-search'
      - `mh-namazu-execute-search'
      - `mh-glimpse-execute-search'
  
+ If none of these programs are present then we use pick. If desired grep can be
+ used instead. Details about these methods can be found in:
+ 
+     - `mh-pick-execute-search'
+     - `mh-grep-execute-search'
+ 
  This and related functions use an X-MHE-Checksum header to cache the MD5
  checksum of a message. This means that already present X-MHE-Checksum headers
  in the incoming email could result in messages not being found. The following
***************
*** 323,328 ****
--- 338,351 ----
  
  This has the effect of renaming already present X-MHE-Checksum headers." t 
nil)
  
+ (autoload (quote mh-index-do-search) "mh-index" "\
+ Construct appropriate regexp and call `mh-index-search'." t nil)
+ 
+ (autoload (quote mh-index-parse-search-regexp) "mh-index" "\
+ Construct parse tree for INPUT-STRING.
+ All occurrences of &, |, ! and ~ in INPUT-STRING are replaced by AND, OR and
+ NOT as appropriate. Then the resulting string is parsed." nil nil)
+ 
  (autoload (quote mh-index-next-folder) "mh-index" "\
  Jump to the next folder marker.
  The function is only applicable to folders displaying index search results.
***************
*** 408,414 ****
      FileRules pathname contains /home/user/Mail/.swish
      FileRules pathname contains /home/user/Mail/mhe-index
      FileRules filename is index
!     FileRules filename is ..*
      FileRules filename is #.*
      FileRules filename is ,.*
      FileRules filename is .*~
--- 431,437 ----
      FileRules pathname contains /home/user/Mail/.swish
      FileRules pathname contains /home/user/Mail/mhe-index
      FileRules filename is index
!     FileRules filename is \\..*
      FileRules filename is #.*
      FileRules filename is ,.*
      FileRules filename is .*~
***************
*** 501,507 ****
  ;;;;;;  mh-mml-attach-file mh-mml-forward-message mh-mml-to-mime
  ;;;;;;  mh-revert-mhn-edit mh-edit-mhn mh-mhn-compose-forw 
mh-mhn-compose-external-compressed-tar
  ;;;;;;  mh-mhn-compose-anon-ftp mh-mhn-compose-insertion mh-compose-forward
! ;;;;;;  mh-compose-insertion) "mh-mime" "mh-mime.el" (15858 6046))
  ;;; Generated autoloads from mh-mime.el
  
  (autoload (quote mh-compose-insertion) "mh-mime" "\
--- 524,530 ----
  ;;;;;;  mh-mml-attach-file mh-mml-forward-message mh-mml-to-mime
  ;;;;;;  mh-revert-mhn-edit mh-edit-mhn mh-mhn-compose-forw 
mh-mhn-compose-external-compressed-tar
  ;;;;;;  mh-mhn-compose-anon-ftp mh-mhn-compose-insertion mh-compose-forward
! ;;;;;;  mh-compose-insertion) "mh-mime" "mh-mime.el" (15923 15465))
  ;;; Generated autoloads from mh-mime.el
  
  (autoload (quote mh-compose-insertion) "mh-mime" "\
***************
*** 665,694 ****
  
  ;;;***
  
! ;;;### (autoloads (mh-do-pick-search mh-search-folder) "mh-pick"
! ;;;;;;  "mh-pick.el" (15854 20166))
  ;;; Generated autoloads from mh-pick.el
  
  (autoload (quote mh-search-folder) "mh-pick" "\
  Search FOLDER for messages matching a pattern.
  This function uses the MH command `pick' to do the work.
! Add the messages found to the sequence named `search'." t nil)
  
  (autoload (quote mh-do-pick-search) "mh-pick" "\
  Find messages that match the qualifications in the current pattern buffer.
  Messages are searched for in the folder named in `mh-searching-folder'.
  Add the messages found to the sequence named `search'." t nil)
  
  ;;;***
  
  ;;;### (autoloads (mh-thread-refile mh-thread-delete mh-thread-ancestor
  ;;;;;;  mh-thread-previous-sibling mh-thread-next-sibling 
mh-thread-forget-message
  ;;;;;;  mh-toggle-threads mh-thread-add-spaces mh-thread-inc 
mh-delete-subject-or-thread
  ;;;;;;  mh-delete-subject mh-narrow-to-subject mh-region-to-msg-list
! ;;;;;;  mh-add-to-sequence mh-notate-seq mh-map-to-seq-msgs mh-rename-seq
! ;;;;;;  mh-widen mh-put-msg-in-seq mh-narrow-to-seq mh-msg-is-in-seq
! ;;;;;;  mh-list-sequences mh-delete-seq) "mh-seq" "mh-seq.el" (15899
! ;;;;;;  19358))
  ;;; Generated autoloads from mh-seq.el
  
  (autoload (quote mh-delete-seq) "mh-seq" "\
--- 688,732 ----
  
  ;;;***
  
! ;;;### (autoloads (mh-do-search mh-pick-do-search mh-do-pick-search
! ;;;;;;  mh-search-folder) "mh-pick" "mh-pick.el" (15924 45743))
  ;;; Generated autoloads from mh-pick.el
  
  (autoload (quote mh-search-folder) "mh-pick" "\
  Search FOLDER for messages matching a pattern.
  This function uses the MH command `pick' to do the work.
! Add the messages found to the sequence named `search'.
! Argument WINDOW-CONFIG is the current window configuration and is used when
! the search folder is dismissed." t nil)
  
  (autoload (quote mh-do-pick-search) "mh-pick" "\
  Find messages that match the qualifications in the current pattern buffer.
  Messages are searched for in the folder named in `mh-searching-folder'.
+ Add the messages found to the sequence named `search'.
+ 
+ This is a deprecated function and `mh-pick-do-search' should be used 
instead." t nil)
+ 
+ (autoload (quote mh-pick-do-search) "mh-pick" "\
+ Find messages that match the qualifications in the current pattern buffer.
+ Messages are searched for in the folder named in `mh-searching-folder'.
  Add the messages found to the sequence named `search'." t nil)
  
+ (autoload (quote mh-do-search) "mh-pick" "\
+ Use the default searching function.
+ If \\[mh-search-folder] was used to create the search pattern then pick is 
used
+ to search the folder. Otherwise if \\[mh-index-search] was used then the
+ indexing program specified in `mh-index-program' is used." t nil)
+ 
  ;;;***
  
  ;;;### (autoloads (mh-thread-refile mh-thread-delete mh-thread-ancestor
  ;;;;;;  mh-thread-previous-sibling mh-thread-next-sibling 
mh-thread-forget-message
  ;;;;;;  mh-toggle-threads mh-thread-add-spaces mh-thread-inc 
mh-delete-subject-or-thread
  ;;;;;;  mh-delete-subject mh-narrow-to-subject mh-region-to-msg-list
! ;;;;;;  mh-iterate-on-messages-in-region mh-add-to-sequence mh-notate-cur
! ;;;;;;  mh-notate-seq mh-map-to-seq-msgs mh-rename-seq mh-widen 
mh-put-msg-in-seq
! ;;;;;;  mh-narrow-to-seq mh-msg-is-in-seq mh-list-sequences mh-delete-seq)
! ;;;;;;  "mh-seq" "mh-seq.el" (15923 15465))
  ;;; Generated autoloads from mh-seq.el
  
  (autoload (quote mh-delete-seq) "mh-seq" "\
***************
*** 726,734 ****
--- 764,784 ----
  All messages in SEQ are marked with NOTATION at OFFSET from the beginning of
  the line." nil nil)
  
+ (autoload (quote mh-notate-cur) "mh-seq" "\
+ Mark the MH sequence cur.
+ In addition to notating the current message with `mh-note-cur' the function
+ uses `overlay-arrow-position' to put a marker in the fringe." nil nil)
+ 
  (autoload (quote mh-add-to-sequence) "mh-seq" "\
  The sequence SEQ is augmented with the messages in MSGS." nil nil)
  
+ (autoload (quote mh-iterate-on-messages-in-region) "mh-seq" "\
+ Iterate over region.
+ VAR is bound to the message on the current line as we loop starting from BEGIN
+ till END. In each step BODY is executed.
+ 
+ If VAR is nil then the loop is executed without any binding." nil (quote 
macro))
+ 
  (autoload (quote mh-region-to-msg-list) "mh-seq" "\
  Return a list of messages within the region between BEGIN and END." nil nil)
  
***************
*** 756,766 ****
  Add COUNT spaces to each scan line in `mh-thread-scan-line-map'." nil nil)
  
  (autoload (quote mh-toggle-threads) "mh-seq" "\
! Toggle threaded view of folder.
! The conversion of normal view to threaded view is exact, that is the same
! messages are displayed in the folder buffer before and after threading. 
However
! the conversion from threaded view to normal view is inexact. So more messages
! than were originally present may be shown as a result." t nil)
  
  (autoload (quote mh-thread-forget-message) "mh-seq" "\
  Forget the message INDEX from the threading tables." nil nil)
--- 806,812 ----
  Add COUNT spaces to each scan line in `mh-thread-scan-line-map'." nil nil)
  
  (autoload (quote mh-toggle-threads) "mh-seq" "\
! Toggle threaded view of folder." t nil)
  
  (autoload (quote mh-thread-forget-message) "mh-seq" "\
  Forget the message INDEX from the threading tables." nil nil)
***************
*** 787,793 ****
  
  ;;;### (autoloads (mh-speed-add-folder mh-speed-invalidate-map mh-speed-flists
  ;;;;;;  mh-speed-view mh-speed-toggle mh-folder-speedbar-buttons)
! ;;;;;;  "mh-speed" "mh-speed.el" (15899 19358))
  ;;; Generated autoloads from mh-speed.el
  
  (autoload (quote mh-folder-speedbar-buttons) "mh-speed" "\
--- 833,839 ----
  
  ;;;### (autoloads (mh-speed-add-folder mh-speed-invalidate-map mh-speed-flists
  ;;;;;;  mh-speed-view mh-speed-toggle mh-folder-speedbar-buttons)
! ;;;;;;  "mh-speed" "mh-speed.el" (15933 21584))
  ;;; Generated autoloads from mh-speed.el
  
  (autoload (quote mh-folder-speedbar-buttons) "mh-speed" "\
***************
*** 820,826 ****
  ;;;***
  
  ;;;### (autoloads (mh-get-msg-num mh-goto-address-find-address-at-point)
! ;;;;;;  "mh-utils" "mh-utils.el" (15899 28827))
  ;;; Generated autoloads from mh-utils.el
  
  (autoload (quote mh-goto-address-find-address-at-point) "mh-utils" "\
--- 866,872 ----
  ;;;***
  
  ;;;### (autoloads (mh-get-msg-num mh-goto-address-find-address-at-point)
! ;;;;;;  "mh-utils" "mh-utils.el" (15924 47279))
  ;;; Generated autoloads from mh-utils.el
  
  (autoload (quote mh-goto-address-find-address-at-point) "mh-utils" "\
***************
*** 836,844 ****
  ;;;***
  
  ;;;### (autoloads (mh-alias-add-address-under-point mh-alias-grab-from-field
! ;;;;;;  mh-alias-add-alias mh-alias-from-has-no-alias-p 
mh-alias-letter-expand-alias
! ;;;;;;  mh-alias-minibuffer-confirm-address mh-read-address mh-alias-reload)
! ;;;;;;  "mh-alias" "mh-alias.el" (15899 29102))
  ;;; Generated autoloads from mh-alias.el
  
  (autoload (quote mh-alias-reload) "mh-alias" "\
--- 882,891 ----
  ;;;***
  
  ;;;### (autoloads (mh-alias-add-address-under-point mh-alias-grab-from-field
! ;;;;;;  mh-alias-add-alias mh-alias-from-has-no-alias-p 
mh-alias-address-to-alias
! ;;;;;;  mh-alias-letter-expand-alias mh-alias-minibuffer-confirm-address
! ;;;;;;  mh-read-address mh-alias-reload) "mh-alias" "mh-alias.el"
! ;;;;;;  (15924 45743))
  ;;; Generated autoloads from mh-alias.el
  
  (autoload (quote mh-alias-reload) "mh-alias" "\
***************
*** 852,857 ****
--- 899,907 ----
  
  (autoload (quote mh-alias-letter-expand-alias) "mh-alias" "\
  Expand mail alias before point." nil nil)
+ 
+ (autoload (quote mh-alias-address-to-alias) "mh-alias" "\
+ Return the ADDRESS alias if defined, or nil." nil nil)
  
  (autoload (quote mh-alias-from-has-no-alias-p) "mh-alias" "\
  Return t is From has no current alias set." nil nil)