- (let (mailbuf)
- (save-window-excursion
- (set-buffer rmail-buffer)
- (rmail-reply just-sender)
- (setq mailbuf (current-buffer)))
- (pop-to-buffer mailbuf)
- (use-local-map (copy-keymap (current-local-map)))
- (define-key (current-local-map)
- "\C-c\C-c" 'rmail-summary-send-and-exit)))
+ (set-buffer rmail-buffer)
+ (rmail-reply just-sender)
+ (use-local-map (copy-keymap (current-local-map)))
+ (define-key (current-local-map)
+ "\C-c\C-c" 'rmail-summary-send-and-exit))