From 4f079d49199d7faa2e4e89f220c4651ff6d23db2 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@imladris.local>
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')

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))
-- 
cgit v1.2.3