[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5409732 11/15: * lisp/net/imap.el: Use proper outline headings
From: |
Jonas Bernoulli |
Subject: |
master 5409732 11/15: * lisp/net/imap.el: Use proper outline headings |
Date: |
Thu, 13 Aug 2020 05:36:56 -0400 (EDT) |
branch: master
commit 54097328c55bbae67922e27a28b6845b4798e522
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
* lisp/net/imap.el: Use proper outline headings
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 | 32 +++++++++++++++++++-------------
1 file changed, 19 insertions(+), 13 deletions(-)
diff --git a/lisp/net/imap.el b/lisp/net/imap.el
index a492dc8..22b5908 100644
--- a/lisp/net/imap.el
+++ b/lisp/net/imap.el
@@ -134,6 +134,7 @@
;;
;;; Code:
+;;; Dependencies
(eval-when-compile (require 'cl-lib))
(require 'utf7)
@@ -145,7 +146,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 +258,7 @@ Shorter values mean quicker response, but is more CPU
intensive."
:group 'imap
:type 'boolean)
-;; Various variables.
+;;; Various variables
(defvar imap-fetch-data-hook nil
"Hooks called after receiving each FETCH response.")
@@ -316,7 +317,9 @@ the value of this variable will be bound to a certain value
to which
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 +351,7 @@ basis.")
(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 +440,7 @@ This variable is set to t automatically per server if the
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 +492,8 @@ sure of changing the value of `foo'."
(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 +751,7 @@ sure of changing the value of `foo'."
(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.
@@ -871,7 +875,7 @@ t if it successfully authenticates, nil otherwise."
(concat "LOGIN anonymous \"" (concat (user-login-name) "@"
(system-name)) "\"")))))
-;;; Compiler directives.
+;;; Compiler directives
(defvar imap-sasl-client)
(defvar imap-sasl-step)
@@ -969,7 +973,7 @@ t if it successfully authenticates, nil otherwise."
(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 +1232,7 @@ If BUFFER is nil, the current buffer is assumed."
(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 +1524,7 @@ or `unseen'. The IMAP command tag is returned."
identifier))))))
-;; Message functions:
+;;; Message functions
(defun imap-current-message (&optional buffer)
(with-current-buffer (or buffer (current-buffer))
@@ -1832,7 +1836,7 @@ on failure."
(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 +1973,7 @@ Return nil if no complete line has arrived."
(delete-region (point-min) (point-max)))))))))
-;; Imap parser.
+;;; Imap parser
(defsubst imap-forward ()
(or (eobp) (forward-char)))
@@ -2850,6 +2854,8 @@ Return nil if no complete line has arrived."
(imap-forward)
(nreverse body)))))
+;;; Debug
+
(when imap-debug ; (untrace-all)
(require 'trace)
(buffer-disable-undo (get-buffer-create imap-debug-buffer))
- master 562bbd0 03/15: ; * lisp/epg.el (epg-no-data-reason-alist): Fix typo in message., (continued)
- master 562bbd0 03/15: ; * lisp/epg.el (epg-no-data-reason-alist): Fix typo in message., Jonas Bernoulli, 2020/08/13
- master 9446088 01/15: ; * lisp/epg.el (epg-signature-to-string): Use cl-case., Jonas Bernoulli, 2020/08/13
- master cb58a3c 09/15: * test/src/emacs-module-tests.el: Use proper outline headings., Jonas Bernoulli, 2020/08/13
- master e118b79 10/15: * lisp/obsolete/longlines.el: Use proper outline headings., Jonas Bernoulli, 2020/08/13
- master b88e5b4 12/15: * lisp/font-lock.el: Split the Commentary into subsections., Jonas Bernoulli, 2020/08/13
- master c5b9d2a 04/15: Split EasyPG libraries into outline sections, Jonas Bernoulli, 2020/08/13
- master 838a1a3 15/15: Update section heading conventions for libraries, Jonas Bernoulli, 2020/08/13
- master 2d93342 13/15: * lisp/font-lock.el: No longer use headings as end of section markers., Jonas Bernoulli, 2020/08/13
- master aaa69dc 06/15: * lisp/progmodes/compile.el: Remove unnecessary comments., Jonas Bernoulli, 2020/08/13
- master 7cb029d 14/15: ; * lisp/emacs-lisp/autoload.el: Begin summary line with three semicolons., Jonas Bernoulli, 2020/08/13
- master 5409732 11/15: * lisp/net/imap.el: Use proper outline headings,
Jonas Bernoulli <=
- master 0bc9e7b 05/15: Merge two conditions and fix indentation, Jonas Bernoulli, 2020/08/13
- master d59c018 07/15: ; * lisp/whitespace.el: Capitalize "Code" section heading., Jonas Bernoulli, 2020/08/13
- master 9d267db 08/15: * lisp/mail/smtpmail.el: Use outline headings., Jonas Bernoulli, 2020/08/13