diff options
| author | Jose Antonio Ortega Ruiz <jao@imladris.local> | 2019-01-11 23:05:42 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@imladris.local> | 2019-01-11 23:05:42 +0000 |
| commit | 4f079d49199d7faa2e4e89f220c4651ff6d23db2 (patch) | |
| tree | ec335df20a64a3a85136228ab7603098bfd2802b | |
| parent | 534b998b5192ec146a33d3ba871227856a4418bc (diff) | |
| download | elibs-4f079d49199d7faa2e4e89f220c4651ff6d23db2.tar.gz elibs-4f079d49199d7faa2e4e89f220c4651ff6d23db2.tar.bz2 | |
frm tweaks
| -rw-r--r-- | net/jao-frm.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/net/jao-frm.el b/net/jao-frm.el index 1635f00..ecbe43e 100644 --- a/net/jao-frm.el +++ b/net/jao-frm.el @@ -1,6 +1,6 @@ ;;; jao-frm.el --- use frm to show mailbox -;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2019 ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Keywords: mail @@ -37,6 +37,7 @@ (defgroup jao-frm nil "Frm-base mailbox checker" + :group 'mail :prefix "jao-frm-") (defcustom jao-frm-exec-path "frm" @@ -106,7 +107,7 @@ (set (make-local-variable 'next-line-add-newlines) nil) (setq major-mode 'jao-frm-mode) (setq mode-name "frm") - (toggle-read-only 1) + (read-only-mode 1) (goto-char 1)) ;;;; Mode commands: @@ -131,7 +132,7 @@ (when (search-forward-regexp "^ +\\([0-9]+\\):" nil t) (let ((mn (string-to-number (match-string 1)))) (when (y-or-n-p (format "Delete message number %d? " mn)) - (toggle-read-only -1) + (read-only-mode -1) (shell-command (format "echo 'd %d'|mail" mn) t) (jao-frm) (when (= (point-max) (point-min)) |