   "Visit an existing paste in a new buffer.
 
 If no ID is given, it will query you for one in the
-minibuffer. If the remote paste exists and is accessible
+minibuffer.  If the remote paste exists and is accessible
 to you, the paste's contents will be opened in a new
-buffer in plaster-mode."
+buffer in function ‘plaster-mode’."
   (interactive)
   (let ((id (or id (read-string "Paste ID: "))))
     (when (equal id "") (return))

  "Create an annotation to a paste.

If the current buffer represents a paste, then the annotation
will be made against that paste."
  (interactive)
  (let ((id (or parent plaster-parent plaster-id (read-string "Parent paste: "))))
    (with-current-buffer (generate-new-buffer (concat "Annotation to " (plaster-to-string id)))

(require 'json)

(defun plaster-find-session-token (cookies)
  "Find the radiance-session token in the cookie jar.

Argument COOKIES The cookie jar as used in ‘url-cookie-list’."
  (let* ((domain (url-host (url-generic-parse-url plaster-api)))
         (cookies (dolist (cookie cookies)
                    (when (or (cl-search (car cookie) domain)
