Mutt inside emacs

[David J. J. Ring, Jr.]

Hello,

I am really happy except for one little thing.

I found out how to get mutt working inside emacs / emacspeak.

The only problem is that I cannot press q to quit, I have to quit emacs instead by using Control C Control X (emacs C-c C-x)

I'll go to the emacspeak list or emacs list but I thought I'd ask here first.

I'll paste my .emacs file below if anyone is interested in this.

If I wasted your time, I beg forgiveness, I am just so happy that I have mutt talking to me inside emacs!

But does anyone know how I can exit gracefully?

I run emacs and press Shift-F2 and mutt runs!

Regards,
David

; uncomment if you have via voice / outloud and want that voice as default.
;(setenv "DTK_PROGRAM" "outloud")
;(load-file "/home/djringjr/Programs/emacspeak_voxin_install-48.0-1/lisp/emacspeak-setup.el")
(server-start)
(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e/")
(require 'mu4e-multi)
(set-face-attribute 'default nil :height 150)

(load-file "/home/djringjr/Programs/emacspeak-49.0/lisp/emacspeak-setup.el")

;; From running console programs inside emacs
;; http://emacs-fu.blogspot.com/2008/12/running-console-programs-inside-emacs.html

(defun djcb-term-start-or-switch (prg &optional use-existing)
  "* run program PRG in a terminal buffer. If USE-EXISTING is non-nil "
  " and PRG is already running, switch to that buffer instead of starting"
  " a new instance."
  (interactive)
  (let ((bufname (concat "*" prg "*")))
    (when (not (and use-existing
                 (let ((buf (get-buffer bufname)))
                   (and buf (buffer-name (switch-to-buffer bufname))))))
      (ansi-term prg prg))))

;; add macro to define key values
(defmacro djcb-program-shortcut (name key &optional use-existing)
  "* macro to create a key binding KEY to start some terminal program PRG; 
    if USE-EXISTING is true, try to switch to an existing buffer"
  `(global-set-key ,key 
     '(lambda()
        (interactive)
        (djcb-term-start-or-switch ,name ,use-existing))))

;; define key values

;; terminal programs are under Shift + Function Key
(djcb-program-shortcut "zsh"   (kbd "<S-f1>") t)  ; the ubershell
(djcb-program-shortcut "mutt"  (kbd "<S-f2>") t)  ; mail client
(djcb-program-shortcut "slrn"  (kbd "<S-f3>") t)  ; nttp client
(djcb-program-shortcut "htop"   (kbd "<S-f4>") t)  ; my processes
(djcb-program-shortcut "mc"     (kbd "<S-f5>") t)  ; midnight commander
(djcb-program-shortcut "raggle"(kbd "<S-f6>") t)  ; rss feed reader
(djcb-program-shortcut "irssi" (kbd "<S-f7>") t)  ; irc client

;; end keybindings

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(line-number-mode nil)
 '(send-mail-function (quote mailclient-send-it)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 894 bytes
Desc: not available
URL: <http://lists.mutt.org/pipermail/mutt-users/attachments/20190621/d0179b4b/attachment.asc>