From 4f079d49199d7faa2e4e89f220c4651ff6d23db2 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 11 Jan 2019 23:05:42 +0000 Subject: frm tweaks --- net/jao-frm.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'net/jao-frm.el') 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 ;; 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)) -- cgit v1.2.3