Bug found in nnimap 0.110 (+ FIX)

[Tran Duc Trung <trung.tranduc@prague.ixos.cz>]

Hi,

    NT Emacs 20.3.9.1 (preview 10.4)
    Pterodactyl Gnus 0.84 + recommended patches
    nnimap 0.110

When I firstly try to enter a nnimap group, the following error pops
up

"Error in process filter: Imap-message-data is nil. Uid 1387
property UID value 1387"

Looking inside nnimap's sources I see imap-message-data is init'ed
in imap-mailbox-select. It counts on all actions will go through
this function. The backtrace tells us that it's not true.

To work around this bug I use

(defadvice imap-fetch (before fix-imap-message-data-is-nil first activate)
  (unless imap-message-data
    (setq imap-message-data (make-vector imap-message-prime 0))))

Cheers,

--trung

P.S. This bug came up in 0.98, this is the reason I sticked with
0.97, but today I installed a new machine...

-----8<-------
Signaling: (error "Imap-message-data is nil. Uid 1886 property UID value 1886")
  signal(error ("Imap-message-data is nil. Uid 1886 property UID value 1886"))
  error("Imap-message-data is nil. Uid %d property %s value %s" 1886 UID 1886)
  imap-message-put(1886 UID 1886)
  imap-parse-fetch(162)
  imap-parse-response()
  imap-arrival-filter(#<process imap> "* 162 FETCH (UID 1886 RFC822.SIZE 832 ENVELOPE (\"Thu, 29 Apr 1999 11:28:30 +0200\" \"add online/offline functionality again. :-)\" ((\"Michelle Nelson\" NIL \"michelle.nelson\" \"munich.ixos.de\")) ((\"Michelle Nelson\" NIL \"michelle.nelson\" \"munich.ixos.de\")) ((\"Michelle Nelson\" NIL \"michelle.nelson\" \"munich.ixos.de\")) ((\"Trung Tran-Duc\" NIL \"trung.tranduc\" \"prague.ixos.cz\")) NIL NIL NIL \"<C17265ACEFD6D211A41D009027271F760A578A@brno.ixos.cz>\") BODY (\"TEXT\" \"PLAIN\" (\"charset\" \"iso-8859-1\") NIL NIL \"7BIT\" 125 6) BODY[HEADER.FIELDS (References In-Reply-To)] {2}
\n
\n)
\n* 163 FETCH (UID 1887 RFC822.SIZE 1375 ENVELOPE (\"Wed, 5 May 1999 09:18:03 +0200 \" \"R/3 Properties etc.\" ((\"Burkhard Meier\" NIL \"burkhard.meier\" \"munich.ixos.de\")) ((\"Burkhard Meier\" NIL \"burkhard.meier\" \"munich.ixos.de\")) ((\"Burkhard Meier\" NIL \"burkhard.meier\" \"munich.ixos.de\")) ((\"Trung Tran-Duc\" NIL \"trung.tranduc\" \"prague.ixos.cz\")) NIL NIL NIL \"<C17265ACEFD6D211A41D009027271F760A578D@brno.ixos.cz>\") BODY (\"TEXT\" \"PLAIN\" (\"charset\" \"iso-8859-1\") NIL ")
  accept-process-output(#<process imap> 1)
  imap-wait-for-tag(29 nil)
  imap-send-command-wait("UID FETCH 1886:1948 (UID RFC822.SIZE ENVELOPE BODY BODY.PEEK[HEADER.FIELDS (References In-Reply-To)])")
  imap-fetch("1886:1948" "(UID RFC822.SIZE ENVELOPE BODY BODY.PEEK[HEADER.FIELDS (References In-Reply-To)])" nil nil " *nnimap* ")
  ad-Orig-nnimap-retrieve-headers((1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 ... . (1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948)) "mail.misc" "" nil)
  nnimap-retrieve-headers((1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 ... . (1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948)) "mail.misc" "" nil)
  gnus-retrieve-headers((1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 ... . (1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948)) "nnimap:mail.misc" nil)
  gnus-cache-retrieve-headers((1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 ... . (1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948)) "nnimap:mail.misc" nil)
  gnus-retrieve-headers((1886 1887 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 ... . (1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948)) "nnimap:mail.misc" nil)
  gnus-select-newsgroup("nnimap:mail.misc" nil nil)
  gnus-summary-read-group-1("nnimap:mail.misc" nil t nil nil nil)
  gnus-summary-read-group("nnimap:mail.misc" nil t nil nil nil nil)
  gnus-group-read-group(nil t)
  gnus-group-select-group(nil)
  call-interactively(gnus-group-select-group)