debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 10:58:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: rename notmuch-show-toggle-headers' to notmuch-show-toggle-visibility-headers'

Browse source 
* emacs/notmuch-show.el

  (notmuch-show-toggle-headers):
    Rename to `notmuch-show-toggle-visibility-headers'.

  (notmuch-show-mode-map):
    Update "h" binding wrt renamed `notmuch-show-toggle-headers'.

  (notmuch-message-headers):
    Update docstring wrt renamed `notmuch-show-toggle-headers'.

  (notmuch-message-headers-visible):
    Update docstring wrt renamed `notmuch-show-toggle-headers'.
    Also fixed a small typo.

* test/emacs:

  Update subtest wrt renamed `notmuch-show-toggle-headers':
  - "notmuch-show: hide message headers (w/ notmuch-show-toggle-headers)"
This commit is contained in:
Pieter Praet 2012-02-22 19:43:30 +01:00 committed by David Bremner
parent f5aa5ac6c7
commit 0db6c7b8be
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
emacs/notmuch-show.el
View file

@ -47,8 +47,8 @@
For an open message, all of these headers will be made visible For an open message, all of these headers will be made visible
according to `notmuch-message-headers-visible' or can be toggled according to `notmuch-message-headers-visible' or can be toggled
with `notmuch-show-toggle-headers'. For a closed message, only with `notmuch-show-toggle-visibility-headers'. For a closed message,
the first header in the list will be visible." only the first header in the list will be visible."
:type '(repeat string) :type '(repeat string)
:group 'notmuch-show) :group 'notmuch-show)
@ -58,8 +58,8 @@ the first header in the list will be visible."
If this value is non-nil, then all of the headers defined in If this value is non-nil, then all of the headers defined in
`notmuch-message-headers' will be visible by default in the display `notmuch-message-headers' will be visible by default in the display
of each message. Otherwise, these headers will be hidden and of each message. Otherwise, these headers will be hidden and
`notmuch-show-toggle-headers' can be used to make the visible for `notmuch-show-toggle-visibility-headers' can be used to make them
any given message." visible for any given message."
:type 'boolean :type 'boolean
:group 'notmuch-show) :group 'notmuch-show)
@ -1170,7 +1170,7 @@ reset based on the original query."
(define-key map "v" 'notmuch-show-view-all-mime-parts) (define-key map "v" 'notmuch-show-view-all-mime-parts)
(define-key map "c" 'notmuch-show-stash-map) (define-key map "c" 'notmuch-show-stash-map)
(define-key map "=" 'notmuch-show-refresh-view) (define-key map "=" 'notmuch-show-refresh-view)
(define-key map "h" 'notmuch-show-toggle-headers) (define-key map "h" 'notmuch-show-toggle-visibility-headers)
(define-key map "*" 'notmuch-show-tag-all) (define-key map "*" 'notmuch-show-tag-all)
(define-key map "-" 'notmuch-show-remove-tag) (define-key map "-" 'notmuch-show-remove-tag)
(define-key map "+" 'notmuch-show-add-tag) (define-key map "+" 'notmuch-show-add-tag)
@ -1709,7 +1709,7 @@ See `notmuch-tag' for information on the format of TAG-CHANGES."
(interactive) (interactive)
(notmuch-show-tag "-")) (notmuch-show-tag "-"))
(defun notmuch-show-toggle-headers () (defun notmuch-show-toggle-visibility-headers ()
"Toggle the visibility of the current message headers." "Toggle the visibility of the current message headers."
(interactive) (interactive)
(let ((props (notmuch-show-get-message-properties))) (let ((props (notmuch-show-get-message-properties)))

4
test/emacs
View file

@ -609,12 +609,12 @@ test_emacs \
(test-visible-output))' (test-visible-output))'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden
test_begin_subtest "notmuch-show: hide message headers (w/ notmuch-show-toggle-headers)" test_begin_subtest "notmuch-show: hide message headers (w/ notmuch-show-toggle-visibility-headers)"
test_emacs \ test_emacs \
'(let ((notmuch-message-headers '\''("Subject" "To" "Cc" "Date")) '(let ((notmuch-message-headers '\''("Subject" "To" "Cc" "Date"))
(notmuch-message-headers-visible t)) (notmuch-message-headers-visible t))
(notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com") (notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com")
(notmuch-show-toggle-headers) (notmuch-show-toggle-visibility-headers)
(test-visible-output))' (test-visible-output))'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden