[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#35113: 27.0.50; key handling bug

From: Richard Stallman
Subject: bug#35113: 27.0.50; key handling bug
Date: Mon, 26 Aug 2019 19:16:15 -0400

[[[ To any NSA and FBI agents reading my email: please consider    ]]]
[[[ whether defending the US Constitution against all enemies,     ]]]
[[[ foreign or domestic, requires you to follow Snowden's example. ]]]

I run this command, which is in my .emacs
and invokes standard parts of Emacs,

(defun epenc (&optional arg)
  (interactive "P")
  (unless arg
  ;; Record the plaintext so we can save it when message is sent.
  (make-local-variable 'buffer-plaintext)
  (setq buffer-plaintext (buffer-string))
  (let (message)
    (when (looking-at "[[]+ To any")
      (let ((beg (point)))
        (while (looking-at "[[]+ \\|$")
          (forward-line 1))
        (setq message (buffer-substring beg (point)))
        (delete-region beg (point))))
    (when message
      (insert message))))

Dr Richard Stallman
President, Free Software Foundation (https://gnu.org, https://fsf.org)
Internet Hall-of-Famer (https://internethalloffame.org)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]