[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-commit] emacs/lisp/mh-e mh-tool-bar.el ChangeLog
From: |
Bill Wohler |
Subject: |
[Emacs-commit] emacs/lisp/mh-e mh-tool-bar.el ChangeLog |
Date: |
Tue, 28 Mar 2006 19:19:38 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Branch:
Changes by: Bill Wohler <address@hidden> 06/03/28 19:19:38
Modified files:
lisp/mh-e : mh-tool-bar.el ChangeLog
Log message:
Use clipboard-kill-region, clipboard-kill-ring-save, and
clipboard-yank instead of undo, kill-region, and
menu-bar-kill-ring-save respectively. In MH-Letter mode, move
save-buffer and mh-fully-kill-draft icons in front of
mh-compose-insertion to be consistent with other mailers, such as
Evolution. In MH-Folder mode, move vanilla reply icon to the left of
the other reply icons. Use mail/inbox icon instead of mail, next-page
instead of page-down, delete instead of close, mail/move instead of
mail/refile, data-save instead of execute, mail/flag-for-followup
instead of highlight, contact instead of mail/alias, open instead of
fld-open, zoom-out instead of widen.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/mh-tool-bar.el.diff?tr1=1.4&tr2=1.5&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/mh-e/ChangeLog.diff?tr1=1.192&tr2=1.193&r1=text&r2=text
Patches:
Index: emacs/lisp/mh-e/ChangeLog
diff -u emacs/lisp/mh-e/ChangeLog:1.192 emacs/lisp/mh-e/ChangeLog:1.193
--- emacs/lisp/mh-e/ChangeLog:1.192 Tue Mar 28 18:35:15 2006
+++ emacs/lisp/mh-e/ChangeLog Tue Mar 28 19:19:38 2006
@@ -1,5 +1,17 @@
2006-03-28 Bill Wohler <address@hidden>
+ * mh-tool-bar.el: Use clipboard-kill-region,
+ clipboard-kill-ring-save, and clipboard-yank instead of undo,
+ kill-region, and menu-bar-kill-ring-save respectively. In
+ MH-Letter mode, move save-buffer and mh-fully-kill-draft icons in
+ front of mh-compose-insertion to be consistent with other mailers,
+ such as Evolution. In MH-Folder mode, move vanilla reply icon to
+ the left of the other reply icons. Use mail/inbox icon instead of
+ mail, next-page instead of page-down, delete instead of close,
+ mail/move instead of mail/refile, data-save instead of execute,
+ mail/flag-for-followup instead of highlight, contact instead of
+ mail/alias, open instead of fld-open, zoom-out instead of widen.
+
* mh-folder.el (mh-execute-commands, mh-rescan-folder):
* mh-funcs.el (mh-pack-folder): Sync docstrings with manual.
Index: emacs/lisp/mh-e/mh-tool-bar.el
diff -u emacs/lisp/mh-e/mh-tool-bar.el:1.4 emacs/lisp/mh-e/mh-tool-bar.el:1.5
--- emacs/lisp/mh-e/mh-tool-bar.el:1.4 Fri Mar 3 00:27:49 2006
+++ emacs/lisp/mh-e/mh-tool-bar.el Tue Mar 28 19:19:38 2006
@@ -332,17 +332,21 @@
collect `(const :tag ,y ,x)))))))
(mh-tool-bar-define
- ((:folder mh-inc-folder mh-mime-save-parts mh-previous-undeleted-msg
- mh-page-msg mh-next-undeleted-msg mh-delete-msg mh-refile-msg
+ ((:folder mh-inc-folder mh-mime-save-parts
+ mh-previous-undeleted-msg mh-page-msg
+ mh-next-undeleted-msg mh-delete-msg mh-refile-msg
mh-undo mh-execute-commands mh-toggle-tick mh-reply
mh-alias-grab-from-field mh-send mh-rescan-folder
mh-tool-bar-search mh-visit-folder
- mh-tool-bar-customize mh-tool-bar-folder-help mh-widen)
- (:letter mh-send-letter mh-compose-insertion ispell-message save-buffer
- undo kill-region menu-bar-kill-ring-save yank mh-fully-kill-draft
- mh-tool-bar-customize mh-tool-bar-letter-help))
+ mh-tool-bar-customize mh-tool-bar-folder-help
+ mh-widen)
+ (:letter mh-send-letter save-buffer mh-fully-kill-draft
+ mh-compose-insertion ispell-message undo
+ clipboard-kill-region clipboard-kill-ring-save
+ clipboard-yank mh-tool-bar-customize
+ mh-tool-bar-letter-help))
;; Folder/Show buffer buttons
- (mh-inc-folder (folder) "mail" "Incorporate new mail in Inbox
+ (mh-inc-folder (folder) "mail/inbox" "Incorporate new mail in Inbox
This button runs `mh-inc-folder' which drags any
new mail into your Inbox folder")
(mh-mime-save-parts (folder) "attach" "Save MIME parts from this message
@@ -351,30 +355,30 @@
(mh-previous-undeleted-msg (folder) "left-arrow"
"Go to the previous undeleted message
This button runs `mh-previous-undeleted-msg'")
- (mh-page-msg (folder) "page-down" "Page the current message forwards
+ (mh-page-msg (folder) "next-page" "Page the current message forwards
This button runs `mh-page-msg'")
(mh-next-undeleted-msg (folder) "right-arrow" "Go to the next undeleted
message
The button runs `mh-next-undeleted-msg'")
- (mh-delete-msg (folder) "close" "Mark this message for deletion
+ (mh-delete-msg (folder) "delete" "Mark this message for deletion
This button runs `mh-delete-msg'")
- (mh-refile-msg (folder) "mail/refile" "Refile this message
+ (mh-refile-msg (folder) "mail/move" "Refile this message
This button runs `mh-refile-msg'")
(mh-undo (folder) "undo" "Undo last operation
This button runs `undo'"
(mh-outstanding-commands-p))
- (mh-execute-commands (folder) "execute" "Perform moves and deletes
+ (mh-execute-commands (folder) "data-save" "Perform moves and deletes
This button runs `mh-execute-commands'"
(mh-outstanding-commands-p))
- (mh-toggle-tick (folder) "highlight" "Toggle tick mark
+ (mh-toggle-tick (folder) "mail/flag-for-followup" "Toggle tick mark
This button runs `mh-toggle-tick'")
(mh-toggle-showing (folder) "show" "Toggle showing message
This button runs `mh-toggle-showing'")
+ (mh-reply (folder) "mail/reply" "Reply to this message
+This button runs `mh-reply'")
(mh-tool-bar-reply-from (folder) "mail/reply-from" "Reply to \"from\"")
(mh-tool-bar-reply-to (folder) "mail/reply-to" "Reply to \"to\"")
(mh-tool-bar-reply-all (folder) "mail/reply-all" "Reply to \"all\"")
- (mh-reply (folder) "mail/reply" "Reply to this message
-This button runs `mh-reply'")
- (mh-alias-grab-from-field (folder) "mail/alias" "Grab From alias
+ (mh-alias-grab-from-field (folder) "contact" "Create alias for sender
This button runs `mh-alias-grab-from-field'"
(and (mh-extract-from-header-value)
(not (mh-alias-for-from-p))))
@@ -386,19 +390,22 @@
This button runs `mh-pack-folder'")
(mh-tool-bar-search (folder) "search" "Search
This button runs `mh-tool-bar-search-function'")
- (mh-visit-folder (folder) "fld-open" "Visit other folder
+ (mh-visit-folder (folder) "open" "Visit other folder
This button runs `mh-visit-folder'")
;; Letter buffer buttons
(mh-send-letter (letter) "mail/send" "Send this letter")
- (mh-compose-insertion (letter) "attach" "Insert attachment")
- (ispell-message (letter) "spell" "Check spelling")
(save-buffer (letter) "save" "Save current buffer to its file"
(buffer-modified-p))
+ (mh-fully-kill-draft (letter) "delete" "Kill this draft")
+ (mh-compose-insertion (letter) "attach" "Insert attachment")
+ (ispell-message (letter) "spell" "Check spelling")
(undo (letter) "undo" "Undo last operation")
- (kill-region (letter) "cut" "Cut (kill) text in region")
- (menu-bar-kill-ring-save (letter) "copy" "Copy text in region")
- (yank (letter) "paste" "Paste (yank) text cut or copied earlier")
- (mh-fully-kill-draft (letter) "close" "Kill this draft")
+ (clipboard-kill-region (letter) "cut"
+ "Cut (kill) text in region")
+ (clipboard-kill-ring-save (letter) "copy"
+ "Copy text in region")
+ (clipboard-yank (letter) "paste"
+ "Paste (yank) text cut or copied earlier")
;; Common buttons
(mh-tool-bar-customize (folder letter) "preferences" "MH-E Preferences")
(mh-tool-bar-folder-help (folder) "help" "Help! (general help)
@@ -406,7 +413,7 @@
(mh-tool-bar-letter-help (letter) "help" "Help! (general help)
This button runs `info'")
;; Folder narrowed to sequence buttons
- (mh-widen (sequence) "widen" "Widen from the sequence
+ (mh-widen (sequence) "zoom-out" "Widen from the sequence
This button runs `mh-widen'"))
(provide 'mh-tool-bar)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-commit] emacs/lisp/mh-e mh-tool-bar.el ChangeLog,
Bill Wohler <=