fix zoom meeting agenda filing

global.org

@@ -676,8 +676,11 @@
 
      (defun format-zoom-meeting ()
        (if (boundp 'zoom-link)
-           (concat zoom-summary
-                   " [[" zoom-link "][link]] (" zoom-passcode "\n SCHEDULED: " zoom-scheduled-time)
+           (if (boundp 'zoom-passcode)
+               (concat zoom-summary
+                       " [[" zoom-link "][link]] (" zoom-passcode "\n SCHEDULED: " zoom-scheduled-time)
+             (concat zoom-summary
+                       " [[" zoom-link "][link]]\n SCHEDULED: " zoom-scheduled-time))
          (concat zoom-summary "\n   SCHEDULED: " zoom-scheduled-time)))
 
      (defun create-item-for-meeting (msg)
@@ -690,9 +693,10 @@
                 (message "found zoom meeting")
                 (right-char)
                 (setq zoom-link (get-buffer-current-line))
-                (when (search-forward "Passcode:")
+                (when (search-forward "Passcode:" nil t)
                   (setq zoom-passcode (get-buffer-current-line)))
-                (search-backward "Time:")
+                (beginning-of-buffer)
+                (search-forward "Time:")
                 (search-forward "<")
                 (left-char)
                 (setq zoom-scheduled-time (get-buffer-to-eol))