16 Apr 05:40
Re: Hello
From: Bill Wohler <wohler <at> newt.com>
Subject: Re: Hello
Newsgroups: gmane.mail.mh-e.user
Date: 2008-04-16 03:40:49 GMT
Subject: Re: Hello
Newsgroups: gmane.mail.mh-e.user
Date: 2008-04-16 03:40:49 GMT
Xavier Maillard <xma <at> gnu.org> wrote: > Just a quick message to say hello. I am back at using MH(-E) on > my laptop. Welcome back, Xavier! > I am currently reading (again) all I can concerning MH(-E) to be > able to use effectively as quick as possible. I hope the online help and manual are helping! http://mh-e.sourceforge.net/manual/ > 1. How does one choose to customise MH or MH-E -i.e. tweak the > "unix" system part instead of emacs part (and the contrary) ? One of the design goals of MH-E is to use MH as much as possible, so your goal is a good one. To tweak MH-E, please see the manual. And the code! To tweak MH, please see the book, now online: http://rand-mh.sourceforge.net/book/ > 2. How can I tell emacs that my mh_profile is not ~/.mh_profile > but something along $MH env variable ? MH-E should honor the MH environment variable. > 3. How can I answer a message *directly* from a digest message > -i.e. without having to burst it first ? Bursting is the way to go. http://mh-e.sourceforge.net/manual/mh-e.html#Digests > 4. (Last for this round). Can MH gurus share their tips and setup > so I can learn quickly ? What do you tweak first when > (re)installing your MH system ? Why ? In fact, I would be > interested in reading how _you_ use MH daily. Too much. Note that with versions 7 and 8, we moved a lot of our .emacs code into MH-E proper, so our customization is pretty slim. OK, maybe it's not *that* slim
;;; bw-mh-e.el --- MH-E customizations
;;; Commentary:
;;; History:
;; $Id: bw-mh-e.el 8872 2008-03-25 05:05:49Z wohler $
;;; Code:
(require 'mh-cus-load nil t)
(require 'mh-autoloads nil t)
;;; Variables
(setq mh-picon-directory-list
'("~/.picons" "/usr/lib/picon/"
"/usr/lib/picon/users" "/usr/lib/picon/usenix" "/usr/lib/picon/news"
"/usr/lib/picon/domains" "/usr/lib/picon/misc"))
;;; Hooks
(defun bw-mh-folder-mode-hook ()
"Hook to set key bindings in MH-Folder mode."
(make-local-variable 'transient-mark-mode)
(transient-mark-mode t)
(local-set-key "//" 'bw-search-msg)
(local-set-key "\C-ck" 'bw-fix-kens-mail)
(local-set-key "\C-cm" 'bw-compose-mail-with-template)
(local-set-key "\C-cr" 'bw-reply-with-template))
(defun bw-mh-show-mode-hook ()
"Hook to turn on variable `transient-mark-mode' in `mh-show-mode'.
This highlights the selected region."
(make-local-variable 'transient-mark-mode)
(transient-mark-mode t))
(defun bw-mh-letter-mode-hook ()
"Hook to prepare letter for editing."
(save-excursion
(save-restriction
;; Strip spaces that MH has added, especially on Subject and References
;; header fields. Breaks newsreaders.
(goto-char (point-min))
(search-forward-regexp "\\(^--------$\\|^$\\)")
(narrow-to-region (point-min) (point))
(goto-char (point-min))
(while (search-forward-regexp " $" nil t)
(replace-match "" nil t))))
(cond
;; Just modifying a message, perhaps.
((not (boundp 'mh-comp-formfile)))
;; Insert status report information, and ready point after pseudo-header.
((equal mh-comp-formfile (concat mh-user-path "comps/status"))
(call-interactively 'bw-insert-status-report)
(goto-char (point-min))
(search-forward-regexp "^$")
(forward-char 1))))
(defvar bw-mh-folder-buffer-to-delete nil
"Folder buffer that is being quit.")
(defun bw-mh-before-quit-hook ()
"Save folder buffer that is to be deleted."
(setq bw-mh-folder-buffer-to-delete (current-buffer)))
(defun bw-mh-quit-hook ()
"Kill folder buffer rather than just bury it."
(with-current-buffer bw-mh-folder-buffer-to-delete
(if (get-buffer mh-show-buffer)
(kill-buffer mh-show-buffer))
(mh-execute-commands)
(message nil) ; clear message from previous command
(kill-buffer nil)))
;;; General functions
(defun bw-fix-kens-mail ()
"Fix Ken's mail formatting."
(interactive)
(let (start end)
(mh-modify (mh-get-msg-num t))
;; Fix header of first body part.
(search-forward-regexp "^content-type:.*name=.*noname.txt")
(end-of-line)
(setq end (point))
(beginning-of-line)
(delete-region (point) end)
(insert "Content-Type: application/pgp-encrypted")
;; Remove base64 encoding.
(goto-char (point-min))
(while (search-forward-regexp "content-transfer-encoding:.*base64" nil t)
(end-of-line)
(setq end (1+ (point))) ;include eol
(beginning-of-line)
(delete-region (point) end)
(search-forward-regexp "^$")
(while (looking-at "^$")
(forward-char 1))
(setq start (point))
(search-forward-regexp "^\\($\\|--\\)")
(setq end (point))
(base64-decode-region start end)
;; And remove ^M's!
(goto-char start)
(while (search-forward-regexp "\\(\r\\)" end t)
(delete-region (match-beginning 0) (match-end 0))))
;; Remove existing header for encrypted message part as the real header is
;; embedded in the encrypted part.
(search-backward-regexp "^-----BEGIN PGP MESSAGE-----$")
(setq end (point))
(search-backward-regexp "^--")
(forward-line 1)
(delete-region (point) end))
(save-buffer)
(kill-buffer nil)
(mc-decrypt))
(defun bw-search-msg ()
"Search for a regexp in the current message."
(interactive) ; user function
(save-window-excursion
(other-window 1) ; go to next window
(isearch-forward-regexp))) ; string search; hit return when done
;; Send and reply using different templates.
(defun bw-reply-with-template (form)
"Reply with the alternate template FORM."
(interactive (list (read-file-name
"Form: "
(concat mh-user-path "comps/") nil t)))
(let* ((mh-repl-formfile (expand-file-name form))
(mh-repl-group-formfile mh-repl-formfile))
(call-interactively 'mh-reply)))
(defun bw-compose-mail-with-template (form)
"Compose and send a letter with alternate template FORM."
(interactive (list (read-file-name
"Form: "
(concat mh-user-path "comps/") nil t)))
(let ((mh-comp-formfile (expand-file-name form)))
(call-interactively 'mh-send)))
(provide 'bw-mh-e)
;;; bw-mh-e.el ends here
-- -- Bill Wohler <wohler <at> newt.com> http://www.newt.com/wohler/ GnuPG ID:610BD9AD
------------------------------------------------------------------------- This SF.net email is sponsored by the 2008 JavaOne(SM) Conference Don't miss this year's exciting event. There's still time to save $100. Use priority code J8TL2D2. http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________ mh-e-users mailing list mh-e-users <at> lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/mh-e-users
RSS Feed