-(defvar notmuch-show-part-button-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map button-map)
- (define-key map "s" 'notmuch-show-save-part)
- (define-key map "v" 'notmuch-show-view-part)
- (define-key map "o" 'notmuch-show-interactively-view-part)
- (define-key map "|" 'notmuch-show-pipe-part)
- map)
- "Submap for button commands")
-(fset 'notmuch-show-part-button-map notmuch-show-part-button-map)
-