Sync up with Pterodactyl Gnus v0.92.
[elisp/gnus.git-] / lisp / gnus-util.el
index e524daa..7adedd6 100644 (file)
      (when (gnus-buffer-exists-p buf)
        (kill-buffer buf))))
 
-(static-if (fboundp 'static-cond)
-    (progn
-      (static-cond
-       ((fboundp 'point-at-bol)
-       (fset 'gnus-point-at-bol 'point-at-bol))
-       ((fboundp 'line-beginning-position)
-       (fset 'gnus-point-at-bol 'line-beginning-position))
-       (t
-       (defun gnus-point-at-bol ()
-         "Return point at the beginning of the line."
-         (let ((p (point)))
-           (beginning-of-line)
-           (prog1
-               (point)
-             (goto-char p))))
-       ))
-      (static-cond
-       ((fboundp 'point-at-eol)
-       (fset 'gnus-point-at-eol 'point-at-eol))
-       ((fboundp 'line-end-position)
-       (fset 'gnus-point-at-eol 'line-end-position))
-       (t
-       (defun gnus-point-at-eol ()
-         "Return point at the end of the line."
-         (let ((p (point)))
-           (end-of-line)
-           (prog1
-               (point)
-             (goto-char p))))
-       ))
-      )
-  ;; The following parts will be abolished in the future.
-  (static-if (fboundp 'point-at-bol)
-      (fset 'gnus-point-at-bol 'point-at-bol)
-    (static-if (fboundp 'line-beginning-position)
-       (fset 'gnus-point-at-bol 'line-beginning-position)
-      (defun gnus-point-at-bol ()
-       "Return point at the beginning of the line."
-       (let ((p (point)))
-         (beginning-of-line)
-         (prog1
-             (point)
-           (goto-char p))))))
-  (static-if (fboundp 'point-at-eol)
-      (fset 'gnus-point-at-eol 'point-at-eol)
-    (static-if (fboundp 'line-end-position)
-       (fset 'gnus-point-at-eol 'line-end-position)
-      (defun gnus-point-at-eol ()
-       "Return point at the end of the line."
-       (let ((p (point)))
-         (end-of-line)
-         (prog1
-             (point)
-           (goto-char p))))))
-  )
+(static-cond
+ ((fboundp 'point-at-bol)
+  (fset 'gnus-point-at-bol 'point-at-bol))
+ ((fboundp 'line-beginning-position)
+  (fset 'gnus-point-at-bol 'line-beginning-position))
+ (t
+  (defun gnus-point-at-bol ()
+    "Return point at the beginning of the line."
+    (let ((p (point)))
+      (beginning-of-line)
+      (prog1
+         (point)
+       (goto-char p))))
+  ))
+(static-cond
+ ((fboundp 'point-at-eol)
+  (fset 'gnus-point-at-eol 'point-at-eol))
+ ((fboundp 'line-end-position)
+  (fset 'gnus-point-at-eol 'line-end-position))
+ (t
+  (defun gnus-point-at-eol ()
+    "Return point at the end of the line."
+    (let ((p (point)))
+      (end-of-line)
+      (prog1
+         (point)
+       (goto-char p))))
+  ))
 
 (defun gnus-delete-first (elt list)
   "Delete by side effect the first occurrence of ELT as a member of LIST."
@@ -1011,7 +984,9 @@ ARG is passed to the first function."
        (with-temp-file file
          (mapatoms
           (lambda (sym)
-            (when (and sym (boundp sym))
+            (when (and sym
+                       (boundp sym)
+                       (symbol-value sym))
               (insert (format "%s %d %d y\n"
                               (symbol-name sym) (cdr (symbol-value sym))
                               (car (symbol-value sym))))))
@@ -1021,7 +996,9 @@ ARG is passed to the first function."
       (with-temp-file file
        (mapatoms
         (lambda (sym)
-          (when (and sym (boundp sym))
+          (when (and sym
+                     (boundp sym)
+                     (symbol-value sym))
             (insert (format "%s %d %d y\n"
                             (symbol-name sym) (cdr (symbol-value sym))
                             (car (symbol-value sym))))))