[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#42397: [PATCH 12/14] * lisp/net/imap.el: Use proper outline headings
From: |
Jonas Bernoulli |
Subject: |
bug#42397: [PATCH 12/14] * lisp/net/imap.el: Use proper outline headings |
Date: |
Thu, 16 Jul 2020 16:54:54 +0200 |
This library already used section headings but it used just two
instead of three semicolons, making them indistinguishable from
plain comments. One heading is new.
---
lisp/net/imap.el | 29 +++++++++++++++++------------
1 file changed, 17 insertions(+), 12 deletions(-)
diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index a492dc8c79..6e6c2e4aeb 100644
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -145,7 +145,7 @@
(declare-function digest-md5-digest-uri "ext:digest-md5")
(declare-function digest-md5-challenge "ext:digest-md5")
-;; User variables.
+;;; User variables.
(defgroup imap nil
"Low-level IMAP issues."
@@ -257,7 +257,7 @@ imap-store-password
:group 'imap
:type 'boolean)
-;; Various variables.
+;;; Various variables.
(defvar imap-fetch-data-hook nil
"Hooks called after receiving each FETCH response.")
@@ -316,7 +316,9 @@ imap-logout-timeout
an application program that uses this module specifies on a per-server
basis.")
-;; Internal constants. Change these and die.
+;;; Internal constants
+
+;; Change these and die.
(defconst imap-default-port 143)
(defconst imap-default-ssl-port 993)
@@ -348,7 +350,7 @@ imap-local-variables
(defconst imap-log-buffer "*imap-log*")
(defconst imap-debug-buffer "*imap-debug*")
-;; Internal variables.
+;;; Internal variables.
(defvar imap-stream nil)
(defvar imap-auth nil)
@@ -437,7 +439,7 @@ imap-enable-exchange-bug-workaround
canonical form fails.")
-;; Utility functions:
+;;; Utility functions
(defun imap-remassoc (key alist)
"Delete by side effect any elements of ALIST whose car is `equal' to KEY.
@@ -489,7 +491,8 @@ imap-error-text
(nth 3 (car imap-failed-tags))))
-;; Server functions; stream stuff:
+;;; Server functions
+;;;; Stream functions
(defun imap-log (string-or-buffer)
(when imap-log
@@ -747,7 +750,7 @@ imap-starttls-open
(message "imap: Connecting with STARTTLS...%s" (if done "done" "failed"))
done))
-;; Server functions; authenticator stuff:
+;;;; Authenticator functions
(defun imap-interactive-login (buffer loginfunc)
"Login to server in BUFFER.
@@ -969,7 +972,7 @@ imap-digest-md5-auth
(imap-send-command-1 "")
(imap-ok-p (imap-wait-for-tag tag)))))))
-;; Server functions:
+;;; Server functions
(defun imap-open-1 (buffer)
(with-current-buffer buffer
@@ -1228,7 +1231,7 @@ imap-logout-wait
(imap-send-command-wait "LOGOUT" buffer)))
-;; Mailbox functions:
+;;; Mailbox functions
(defun imap-mailbox-put (propname value &optional mailbox buffer)
(with-current-buffer (or buffer (current-buffer))
@@ -1520,7 +1523,7 @@ imap-mailbox-acl-delete
identifier))))))
-;; Message functions:
+;;; Message functions
(defun imap-current-message (&optional buffer)
(with-current-buffer (or buffer (current-buffer))
@@ -1832,7 +1835,7 @@ imap-envelope-from
(if (aref from 0) ">"))))
-;; Internal functions.
+;;; Internal functions.
(defun imap-add-callback (tag func)
(setq imap-callbacks (append (list (cons tag func)) imap-callbacks)))
@@ -1969,7 +1972,7 @@ imap-arrival-filter
(delete-region (point-min) (point-max)))))))))
-;; Imap parser.
+;;; Imap parser.
(defsubst imap-forward ()
(or (eobp) (forward-char)))
@@ -2850,6 +2853,8 @@ imap-parse-body
(imap-forward)
(nreverse body)))))
+;;; Debug
+
(when imap-debug ; (untrace-all)
(require 'trace)
(buffer-disable-undo (get-buffer-create imap-debug-buffer))
--
2.26.0
- bug#42397: [PATCH 02/14] ; * lisp/epg.el (epg-signature-to-string): Tiny refactor., (continued)
- bug#42397: [PATCH 02/14] ; * lisp/epg.el (epg-signature-to-string): Tiny refactor., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 03/14] ; * lisp/epg.el (epg-no-data-reason-alist): Fix typo in message., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 04/14] * lisp/epa.el (epa--derived-mode-p): Remove unnecessary alias., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 05/14] Split EasyPG libraries into outline sections, Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 07/14] * lisp/progmodes/compile.el: Remove unnecessary comments., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 08/14] ; * lisp/whitespace.el: Capitalize "Code" section heading., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 09/14] * lisp/mail/smtpmail.el: Use outline headings., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 10/14] * test/src/emacs-module-tests.el: Use proper outline headings., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 11/14] * lisp/obsolete/longlines.el: Use proper outline headings., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 12/14] * lisp/net/imap.el: Use proper outline headings,
Jonas Bernoulli <=
- bug#42397: [PATCH 13/14] * lisp/font-lock.el: Split the Commentary into subsections., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 14/14] * lisp/font-lock.el: No longer mark each end of a section explicitly., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 14/14] * lisp/font-lock.el: No longer mark each end of a section explicitly., Eli Zaretskii, 2020/07/16
- bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation., Eli Zaretskii, 2020/07/16
- bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation., Robert Pluim, 2020/07/16
- bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation., Noam Postavsky, 2020/07/16
- bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation., Jonas Bernoulli, 2020/07/16
- bug#42397: [PATCH 06/14] * lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Fix indentation., Eli Zaretskii, 2020/07/16